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

Last change on this file since 27404 was 27404, checked in by Alan Post, 9 years ago

jbogenturfa'i: update lo do ckiku ma zvati tests.

Additional patches to the USC from Lindar, modified and cleaned up.

File size: 7.7 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 "ti")))))
36                 (selbri (GOhA-clause (cmavo (GOhA "mo"))))))))
37    ".i ti mo")
38
39
40  (mapti
41    '(text (I-clause (cmavo (I "i")))
42           (paragraphs
43             (paragraph
44               (sentence
45                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
46                 (selbri (BRIVLA-clause (gismu "rokci")))))))
47    ".i ta rokci")
48
49
50  (mapti
51    '(text (I-clause (cmavo (I "i")))
52           (paragraphs
53             (paragraph
54               (sentence
55                 (term (sumti (KOhA-clause (cmavo (KOhA "ti")))))
56                 (selbri
57                   (BRIVLA-clause
58                     (gismu "rokci")
59                     (UI-clause (cmavo (UI "xu")))))))))
60    ".i ti rokci xu")
61
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 "ja'a"))
72                     (selbri (BRIVLA-clause (gismu "rokci")))))))))
73    ".i ta ja'a rokci")
74
75
76  (mapti
77    '(text (I-clause (cmavo (I "i")))
78           (paragraphs
79             (paragraph
80               (sentence
81                 (term (sumti (KOhA-clause (cmavo (KOhA "mi")))))
82                 (selbri
83                   (BRIVLA-clause (gismu "ralte")
84                                                                                                                                        (UI-clause (cmavo (UI "xu")))))
85                 (term
86                                                                         (sumti (KOhA-clause (cmavo (KOhA "ti")))
87                          (NOI-clause
88                            (cmavo (NOI "poi"))
89                            (sentence
90                              (selbri (BRIVLA-clause (gismu "rokci")))))))))))
91    ".i mi ralte xu ti poi rokci")
92
93
94  (mapti
95    '(text (I-clause (cmavo (I "i")))
96           (paragraphs
97             (paragraph
98               (sentence
99                 (term (sumti (KOhA-clause (cmavo (KOhA "do")))))
100                 (selbri
101                   (NA-clause
102                     (cmavo (NA "ja'a"))
103                     (selbri (BRIVLA-clause (gismu "ralte")))))
104                 (term
105                                                                         (sumti (KOhA-clause (cmavo (KOhA "ta")))
106                          (NOI-clause
107                            (cmavo (NOI "poi"))
108                            (sentence
109                              (selbri (BRIVLA-clause (gismu "rokci")))))))))))
110    ".i do ja'a ralte ta poi rokci")
111
112
113  (mapti
114    '(text (I-clause (cmavo (I "i")))
115           (paragraphs
116             (paragraph
117               (sentence
118                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
119                 (selbri (GOhA-clause (cmavo (GOhA "mo"))))))))
120    ".i ta mo")
121
122
123  (mapti
124    '(text (I-clause (cmavo (I "i")))
125           (paragraphs
126             (paragraph
127               (sentence
128                 (term (sumti (KOhA-clause (cmavo (KOhA "ti")))))
129                 (selbri (BRIVLA-clause (gismu "grana")))))))
130    ".i ti grana")
131
132
133  (mapti
134    '(text (I-clause (cmavo (I "i")))
135           (paragraphs
136             (paragraph
137               (sentence
138                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
139                 (selbri
140                   (BRIVLA-clause
141                     (gismu "rokci")
142                     (UI-clause (cmavo (UI "xu")))))))))
143    ".i ta rokci xu")
144
145
146  (mapti
147    '(text (I-clause (cmavo (I "i")))
148           (paragraphs
149             (paragraph
150               (sentence
151                 (term (sumti (KOhA-clause (cmavo (KOhA "ti")))))
152                 (selbri
153                   (NA-clause
154                     (cmavo (NA "na"))
155                     (selbri (BRIVLA-clause (gismu "rokci"))))))
156               (I-clause
157                 (cmavo (I "i"))
158                 (sentence
159                    (term (sumti (KOhA-clause (cmavo (KOhA "ti")))))
160                    (selbri (BRIVLA-clause (gismu "grana"))))))))
161    ".i ti na rokci .i ti grana")
162
163
164  (mapti
165    '(text (I-clause (cmavo (I "i")))
166           (paragraphs
167             (paragraph
168               (sentence
169                 (term (sumti (KOhA-clause (cmavo (KOhA "ta")))))
170                 (selbri
171                   (BRIVLA-clause (gismu "grana")
172                                                                                                                                        (UI-clause (cmavo (UI "xu")))))))))
173    ".i ta grana xu")
174
175
176  (mapti
177    '(text (I-clause (cmavo (I "i")))
178           (paragraphs
179             (paragraph
180               (sentence
181                 (term (sumti (KOhA-clause (cmavo (KOhA "ti")))))
182                 (selbri
183                   (NA-clause
184                     (cmavo (NA "ja'a"))
185                     (selbri (BRIVLA-clause (gismu "grana")))))))))
186    ".i ti ja'a grana")
187
188
189  (mapti
190    '(text (I-clause (cmavo (I "i")))
191           (paragraphs
192             (paragraph
193               (sentence
194                 (term (sumti (KOhA-clause (cmavo (KOhA "mi")))))
195                 (selbri
196                   (BRIVLA-clause (gismu "ralte")
197                                                                                                                                        (UI-clause (cmavo (UI "xu")))))
198                 (term
199                                                                         (sumti (KOhA-clause (cmavo (KOhA "ta")))
200                          (NOI-clause
201                            (cmavo (NOI "poi"))
202                            (sentence
203                              (selbri (BRIVLA-clause (gismu "grana")))))))))))
204    ".i mi ralte xu ta poi grana")
205
206
207  (mapti
208    '(text (I-clause (cmavo (I "i")))
209           (paragraphs
210             (paragraph
211               (sentence
212                 (term (sumti (KOhA-clause (cmavo (KOhA "do")))))
213                 (selbri
214                   (NA-clause
215                     (cmavo (NA "na"))
216                     (selbri (BRIVLA-clause (gismu "ralte")))))
217                 (term
218                                                                         (sumti (KOhA-clause (cmavo (KOhA "ti")))
219                          (NOI-clause
220                            (cmavo (NOI "poi"))
221                            (sentence
222                              (selbri (BRIVLA-clause (gismu "grana"))))))))
223               (I-clause
224                 (cmavo (I "i"))
225                 (sentence
226                   (term (sumti (KOhA-clause (cmavo (KOhA "mi")))))
227                   (selbri (BRIVLA-clause (gismu "ralte")))
228                   (term
229                     (sumti
230                                                                                         (KOhA-clause (cmavo (KOhA "ti")))
231                       (NOI-clause
232                         (cmavo (NOI "poi"))
233                         (sentence
234                           (selbri (BRIVLA-clause (gismu "grana"))))))))))))
235    ".i do na ralte ti poi grana .i mi ralte ti poi grana")
236
237  0)
238
239(test-group "lo do ckiku ma zvati"
240  (ldcmz-pamoi-pagbu))
Note: See TracBrowser for help on using the repository browser.