source: project/release/4/jbogenturfahi/trunk/tests/ldcmz.scm @ 22652

Last change on this file since 22652 was 22652, checked in by Alan Post, 10 years ago

jbogenturfa'i: I-clause bugfix.

I-clause now displays in a list with other results, rather than
nesting.

File size: 2.6 KB
Line 
1;;;;
2;;;; jbogenturfahi - lo lojbo ke pe'a jajgau ratcu ke'e genturfa'i
3;;;;               `-> A Lojban grammar parser
4;;;;
5;;;; Copyright (c) 2010 ".alyn.post." <alyn.post@lodockikumazvati.org>
6;;;;
7;;;; Permission to use, copy, modify, and/or distribute this software for any
8;;;; purpose with or without fee is hereby granted, provided that the above
9;;;; copyright notice and this permission notice appear in all copies.
10;;;;
11;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12;;;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13;;;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14;;;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15;;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16;;;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17;;;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18;;;;
19
20(define (ldcmz-pamoi-pagbu)
21  (mapti
22    '(text (I-clause (cmavo (I "i")))
23           (paragraphs
24             (paragraph
25               (sentence
26                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
27                 (selbri (GOhA-clause (cmavo (GOhA "mo"))))))))
28    ".i ta mo")
29
30  (mapti
31    '(text (I-clause (cmavo (I "i")))
32           (paragraphs
33             (paragraph
34               (sentence
35                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
36                 (selbri (BRIVLA-clause (gismu "rokci")))))))
37    ".i ta rokci")
38
39  (mapti
40    '(text (I-clause (cmavo (I "i")))
41           (paragraphs
42             (paragraph
43               (sentence
44                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
45                 (selbri
46                   (BRIVLA-clause
47                     (gismu "rokci")
48                     (UI-clause (cmavo (UI "xu")))))))))
49    ".i ta rokci xu")
50
51  (mapti
52    '(text (I-clause (cmavo (I "i")))
53           (paragraphs
54             (paragraph
55               (sentence
56                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
57                 (selbri
58                   (NAhE-clause
59                     (cmavo (NAhE "je'a"))
60                     (BRIVLA-clause (gismu "rokci"))))))))
61    ".i ta je'a rokci")
62
63  (mapti
64    '(text (I-clause (cmavo (I "i")))
65           (paragraphs
66             (paragraph
67               (sentence
68                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
69                 (selbri
70                   (NA-clause
71                     (cmavo (NA "na"))
72                     (selbri (BRIVLA-clause (gismu "grana")))))))))
73    ".i ta na grana")
74  0)
75
76(test-group "lo do ckiku ma zvati"
77  (ldcmz-pamoi-pagbu))
Note: See TracBrowser for help on using the repository browser.