source: project/release/4/genturfahi/trunk/chicken-ext.scm @ 22055

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

genturfa'i: rename option memoize to no-memoize, the more common case.

File size: 4.5 KB
Line 
1;;;;
2;;;; genturfahi - lo la .ckim. ke pe'a jajgau ratcu ke'e genturfa'i
3;;;;            `-> A Scheme packrat 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(module genturfahi
21  (genturfahi
22   genturfahi*
23
24   genturfahi-version
25   genturfahi-version-major
26   genturfahi-version-minor
27   genturfahi-version-patch
28
29   ; lerfu-porsi
30   ;
31   make-lerfu-porsi
32   make-lerfu-porsi-string
33   make-lerfu-porsi-port
34   make-lerfu-porsi-pabalvi-lerfu
35   make-lerfu-porsi-pabalvi-valsi
36   lerfu-porsi?
37   lerfu-porsi-zva
38   lerfu-porsi-poi
39   lerfu-porsi-string
40
41   lerfu-porsi->string
42
43   lerfu-porsi-lerfu
44   lerfu-porsi-fanmo?
45
46
47   ; javni-valsi
48   ;
49   make-javni-valsi
50   javni-valsi?
51   javni-valsi-cme
52   javni-valsi-val
53
54   javni-nastura?
55
56   javni-nunvalsi-val
57   javni-rodavalsi-val
58
59   ; a version that removes the predicate *-val, for use
60   ; when returning to code outside of genturfa'i.
61   ;
62   javni-nunvalsi-val-filter
63   javni-rodavalsi-val-filter
64
65   javni-valsi->string
66
67
68   ; nunvalsi
69   ;
70   make-nunvalsi
71   venunjmina-nunvalsi
72   vejmina-nunvalsi
73   vejmina-rodanunvalsi
74   vejmina-rodanunvalsi-nacmene
75
76   ; nunjavni
77   ;
78   nunjavni-lerfu
79   nunjavni-.
80   nunjavni-e
81   nunjavni-nil
82   nunjavni-fanmo
83   nunjavni-valsi
84   nunjavni-char-set-*
85   nunjavni-char-set-+
86   nunjavni-char-set
87   nunjavni-*
88   nunjavni-+
89   nunjavni-?
90   nunjavni-&
91   nunjavni-!
92   nunjavni-je
93   nunjavni-jonai
94
95   genturfahi-semorji
96   genturfahi-tolmohi
97   nunjavni-morji
98   nunjavni-samselpla
99   nunjavni-samselpla-cabna
100   nunjavni-cmene
101   nunjavni-nastura
102
103   ; morji
104   ;
105   tolmohi-nunjavni
106   nunmorji-nunjavni
107
108   morji-nunjavni-lerfu
109   morji-nunjavni-.
110   morji-nunjavni-e
111   morji-nunjavni-nil
112   morji-nunjavni-fanmo
113   morji-nunjavni-valsi
114   morji-nunjavni-char-set-*
115   morji-nunjavni-char-set-+
116   morji-nunjavni-char-set
117   morji-nunjavni-*
118   morji-nunjavni-+
119   morji-nunjavni-?
120   morji-nunjavni-&
121   morji-nunjavni-!
122   morji-nunjavni-je
123   morji-nunjavni-jonai
124
125   morji-nunjavni-samselpla
126   morji-nunjavni-samselpla-cabna
127   morji-nunjavni-cmene
128   morji-nunjavni-nastura
129
130
131   ; nunvalsi
132   ;
133   venunjmina-nunvalsi
134   vejmina-nunvalsi
135   vejmina-nunvalsi-nacmene
136
137   venunjmina-rodanunvalsi
138   vejmina-rodanunvalsi
139   vejmina-rodanunvalsi-nacmene
140
141
142   ; secuxna
143   secuxna-start-production
144   secuxna-define-name
145   secuxna-define-toplevel
146   secuxna-exit-status
147   secuxna-debug
148   secuxna-profile
149   secuxna-no-memoize
150   secuxna-sentinel
151   secuxna-empty-string
152   secuxna-empty-list
153   secuxna-nonmatch-token
154   secuxna-nastura)
155
156(import chicken)
157(import scheme)
158
159(include "chicken-declare.scm")
160
161;(require-extension utf8)
162
163(require-extension srfi-1)
164;(require-extension srfi-6)         ; built-in
165;(require-extension srfi-9)         ; built-in
166(require-extension srfi-13)
167(require-extension srfi-14)
168;(require-extension srfi-28)        ; built-in
169;(require-extension srfi-39)        ; built-in
170;(require-extension srfi-61)        ; built-in
171(require-extension srfi-69)
172(require-extension extras)
173(require-extension ports)
174
175(import srfi-1)          ; filter
176;(import srfi-6)          ; string ports
177;(import srfi-9)          ; define-record-type
178(import srfi-13)         ; string-copy
179(import srfi-14)         ; character set library
180;(import srfi-28)         ; basic format strings
181;(import srfi-39)         ; parameter objects
182;(import srfi-61)         ; A more general cond clause
183(import srfi-69)         ; basic hash tables
184(import extras)          ; format, pretty-print
185(import ports)           ; Chicken Scheme srfi-6 and port extensions
186
187(include "chicken-platform.scm")
188
189(include "lerfu-porsi.scm")
190(include "javni-valsi.scm")
191(include "secuxna.scm")
192(include "nunjavni.scm")
193(include "morji.scm")
194(include "nunvalsi.scm")
195(include "genturfahi.scm")
196(include "version.scm"))
Note: See TracBrowser for help on using the repository browser.