source: project/release/4/jbogenturfahi/trunk/jbogenturfahi.setup @ 22226

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

jbogenturfa'i: .i cipra zo'e lo ro gismu

Insert all gismu into the database and run the list through the
parser, making sure they are all recognized as gismu.

File size: 9.0 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(use genturfahi)
21(use genturfahi-peg)
22(use extras)
23
24(include "version.scm")
25(include "chicken-conf.scm")
26
27(define db-path
28        (make-pathname `(,(chicken-home) "jbogenturfahi")
29                         jbogenturfahi-version))
30(define db-file
31        (make-pathname db-path "jbogenturfahi.db"))
32
33       ; jbogenturfahi executable
34       ;
35(make (("jbogenturfahi" ("chicken-cmd.scm"
36                         "chicken-conf.scm"
37                         "chicken-declare.scm"
38                         "main-srfi-37.scm"
39                         "jbogenturfahi.meta"
40                         "jbogenturfahi.setup"
41                         (dynld-name "jbogenturfahi")
42                         (dynld-name "jbogerna")
43                         (dynld-name "jbogensamselpla"))
44       (compile ,@jbogenturfahi-cscflags
45                -o "jbogenturfahi"
46                "chicken-cmd.scm"))
47
48       ; dynamic library (jbogensamselpla)
49       ;
50       ((dynld-name "jbogensamselpla") ("chicken-ext-jbogensamselpla.scm"
51                                        "chicken-conf.scm"
52                                        "chicken-declare.scm"
53                                        "samselpla.scm"
54                                        "jbogenturfahi.meta"
55                                        "jbogenturfahi.setup")
56       (begin (compile -s
57                       ,@jbogenturfahi-cscflags
58                       -j jbogensamselpla
59                       -o ,(dynld-name "jbogensamselpla")
60                       chicken-ext-jbogensamselpla.scm)
61              (compile -s
62                       ,@jbogenturfahi-cscflags
63                       -o ,(dynld-name "jbogensamselpla.import")
64                       jbogensamselpla.import.scm)))
65
66       ; dynamic library (jbogerna)
67       ;
68       ((dynld-name "jbogerna") ("chicken-ext-jbogerna.scm"
69                                 "chicken-conf.scm"
70                                 "chicken-declare.scm"
71                                 "jbogerna.scm"
72                                 "jbogenturfahi.meta"
73                                 "jbogenturfahi.setup"
74                                 (dynld-name "jbogensamselpla"))
75       (begin (compile -s
76                       ,@jbogenturfahi-cscflags
77                       -j jbogerna
78                       -o ,(dynld-name "jbogerna")
79                       chicken-ext-jbogerna.scm)
80              (compile -s
81                       ,@jbogenturfahi-cscflags
82                       -o ,(dynld-name "jbogerna.import")
83                       jbogerna.import.scm)))
84
85       ; dynamic library (jbogenturfahi)
86       ;
87       ((dynld-name "jbogenturfahi") ("chicken-ext.scm"
88                                      "chicken-conf.scm"
89                                      "chicken-declare.scm"
90                                      "jbogenturfahi.scm"
91                                      "c0re.scm"
92                                      "sql.scm"
93                                      "db.scm"
94                                      "version.scm"
95                                      "path.scm"
96                                      "jbogenturfahi.meta"
97                                      "jbogenturfahi.setup"
98                                      (dynld-name "jbogerna"))
99       (begin (compile -s
100                       ,@jbogenturfahi-cscflags
101                       -j jbogenturfahi
102                       -o ,(dynld-name "jbogenturfahi")
103                       chicken-ext.scm)
104              (compile -s
105                       ,@jbogenturfahi-cscflags
106                       -o ,(dynld-name "jbogenturfahi.import")
107                       jbogenturfahi.import.scm)))
108
109       ; static library (jbogensamselpla)
110       ;
111       ("jbogensamselpla.o" ("chicken-ext-jbogensamselpla.scm"
112                             "chicken-conf.scm"
113                             "chicken-declare.scm"
114                             "samselpla.scm"
115                             "jbogenturfahi.meta"
116                             "jbogenturfahi.setup")
117       (compile -c
118                ,@jbogenturfahi-cscflags
119                -unit jbogensamselpla
120                -o "jbogensamselpla.o"
121                "chicken-ext-jbogensamselpla.scm"))
122
123       ; static library (jbogerna)
124       ;
125       ("jbogerna.o" ("chicken-ext-jbogerna.scm"
126                      "chicken-conf.scm"
127                      "chicken-declare.scm"
128                      "jbogerna.scm"
129                      "jbogenturfahi.meta"
130                      "jbogenturfahi.setup")
131       (compile -c
132                ,@jbogenturfahi-cscflags
133                -unit jbogerna
134                -o "jbogerna.o"
135                "chicken-ext-jbogerna.scm"))
136
137       ; static library (jbogenturfahi)
138       ;
139       ("jbogenturfahi.o" ("chicken-ext.scm"
140                           "chicken-conf.scm"
141                           "chicken-declare.scm"
142                           "jbogenturfahi.scm"
143                           "c0re.scm"
144                           "sql.scm"
145                           "db.scm"
146                           "version.scm"
147                           "path.scm"
148                           "jbogenturfahi.meta"
149                           "jbogenturfahi.setup")
150       (compile -c
151                ,@jbogenturfahi-cscflags
152                -unit jbogenturfahi
153                -o "jbogenturfahi.o"
154                "chicken-ext.scm"))
155
156       ("jbogenturfahi.db" ("chicken-db.scm"
157                            "c0re.scm"
158                            "sql.scm"
159                            "db.scm"
160                            "wordlists/cmavo.scm"
161                            "wordlists/gismu.scm"
162                            "wordlists/cmavo.txt"
163                            "wordlists/gismu.txt"
164                            "wordlists/rafsi.txt"
165                            "jbogenturfahi.meta"
166                            "jbogenturfahi.setup")
167         (load "chicken-db.scm"))
168
169       ("path.scm" ("jbogenturfahi.meta"
170                    "jbogenturfahi.setup")
171         (call-with-output-file "path.scm"
172           (lambda (port)
173             (write `(define jbogenturfahi-db-file
174                             (make-parameter ,db-file))
175                    port))))
176
177       ("jbogerna.scm" ("gerna.peg"
178                        "rafske_gumgau.peg"
179                        "rafske.peg"
180                        "tamgau.peg"
181                        "jbogenturfahi.meta"
182                        "jbogenturfahi.setup")
183         (call-with-output-file "jbogerna.scm"
184           (lambda (port)
185             (let ((lefpoi (string-append (read-all "tamgau.peg")
186                                          (read-all "gerna.peg")
187                                          (read-all "rafske_gumgau.peg")
188                                          (read-all "rafske.peg"))))
189               (for-each (lambda (form) (pretty-print form port))
190                         (genturfahi-peg lefpoi)))))))
191
192      `("jbogenturfahi.db"
193        "jbogenturfahi"
194        ,(dynld-name "jbogensamselpla")
195        ,(dynld-name "jbogerna")
196        ,(dynld-name "jbogenturfahi")
197        "jbogensamselpla.o"
198        "jbogerna.o"
199        "jbogenturfahi.o"))
200
201(install-extension
202  ; lo cmene vi pagbu
203  'jbogensamselpla
204
205  ; lo datnyvei vi pagbu
206  `("jbogensamselpla.o"
207    ,(dynld-name "jbogensamselpla")
208    ,(dynld-name "jbogensamselpla.import"))
209
210  ; lo se ckaji vi pagbu
211  `((static "jbogensamselpla.o")
212    (version ,jbogenturfahi-version)))
213
214(install-extension
215  ; lo cmene vi pagbu
216  'jbogerna
217
218  ; lo datnyvei vi pagbu
219  `("jbogerna.o"
220    ,(dynld-name "jbogerna")
221    ,(dynld-name "jbogerna.import"))
222
223  ; lo se ckaji vi pagbu
224  `((static "jbogerna.o")
225    (version ,jbogenturfahi-version)))
226
227(install-extension
228  ; lo cmene vi pagbu
229  'jbogenturfahi
230
231  ; lo datnyvei vi pagbu
232  `("jbogenturfahi.o"
233    ,(dynld-name "jbogenturfahi")
234    ,(dynld-name "jbogenturfahi.import"))
235
236  ; lo se ckaji vi pagbu
237  `((static "jbogenturfahi.o")
238    (version ,jbogenturfahi-version)))
239
240(install-program
241  ; lo cmene vi pagbu
242  'jbogenturfahi-cmd
243
244  ; lo datnyvei vi pagbu
245  `("jbogenturfahi")
246
247  ; lo se ckaji vi pagbu
248  `((version ,jbogenturfahi-version)))
249
250(if (not (setup-install-mode))
251  (exit))
252
253(create-directory/parents db-path)
254(copy-file "jbogenturfahi.db" db-path)
Note: See TracBrowser for help on using the repository browser.