1:
2: #define LIBGAUCHE_BODY
3: #include <gauche.h>
4: #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
5: #define SCM_CGEN_CONST
6: #else
7: #define SCM_CGEN_CONST const
8: #endif
9:
10: #include <fcntl.h>
11: #include <gauche/arch.h>
12: #include <gauche/class.h>
13: #include <gauche/vminsn.h>
14: #include <gauche/regexp.h>
15: #include <gauche/bignum.h>
16:
17: #define sym_eq (scm__rc.d638[0])
18: #define sym_eqv (scm__rc.d638[1])
19: #define sym_equal (scm__rc.d638[2])
20: static SCM_CGEN_CONST struct scm__scRec {
21: #if !defined(GAUCHE_WINDOWS)
22: ScmString d660[1];
23: #endif
24: #if SCM_DEBUG_HELPER
25: ScmString d651[5];
26: #endif
27: ScmString d637[308];
28: } scm__sc = {
29: #if !defined(GAUCHE_WINDOWS)
30: {
31: SCM_STRING_CONST_INITIALIZER("port-fd-dup!", 12, 12),
32: },
33: #endif
34: #if SCM_DEBUG_HELPER
35: {
36: SCM_STRING_CONST_INITIALIZER("%bignum-dump", 12, 12),
37: SCM_STRING_CONST_INITIALIZER("%char-set-dump", 14, 14),
38: SCM_STRING_CONST_INITIALIZER("%string-pointer-dump", 20, 20),
39: SCM_STRING_CONST_INITIALIZER("%regexp-dump", 12, 12),
40: SCM_STRING_CONST_INITIALIZER("%regmatch-dump", 14, 14),
41: },
42: #endif
43: {
44: SCM_STRING_CONST_INITIALIZER("macroexpand", 11, 11),
45: SCM_STRING_CONST_INITIALIZER("macroexpand-1", 13, 13),
46: SCM_STRING_CONST_INITIALIZER("eq?", 3, 3),
47: SCM_STRING_CONST_INITIALIZER("eqv?", 4, 4),
48: SCM_STRING_CONST_INITIALIZER("equal?", 6, 6),
49: SCM_STRING_CONST_INITIALIZER("compare", 7, 7),
50: SCM_STRING_CONST_INITIALIZER("ash", 3, 3),
51: SCM_STRING_CONST_INITIALIZER("lognot", 6, 6),
52: SCM_STRING_CONST_INITIALIZER("logand", 6, 6),
53: SCM_STRING_CONST_INITIALIZER("logior", 6, 6),
54: SCM_STRING_CONST_INITIALIZER("logxor", 6, 6),
55: SCM_STRING_CONST_INITIALIZER("logcount", 8, 8),
56: SCM_STRING_CONST_INITIALIZER("fixnum?", 7, 7),
57: SCM_STRING_CONST_INITIALIZER("bignum?", 7, 7),
58: SCM_STRING_CONST_INITIALIZER("flonum?", 7, 7),
59: SCM_STRING_CONST_INITIALIZER("inexact-/", 9, 9),
60: SCM_STRING_CONST_INITIALIZER("+.", 2, 2),
61: SCM_STRING_CONST_INITIALIZER("*.", 2, 2),
62: SCM_STRING_CONST_INITIALIZER("-.", 2, 2),
63: SCM_STRING_CONST_INITIALIZER("/.", 2, 2),
64: SCM_STRING_CONST_INITIALIZER("clamp", 5, 5),
65: SCM_STRING_CONST_INITIALIZER("floor->exact", 12, 12),
66: SCM_STRING_CONST_INITIALIZER("ceiling->exact", 14, 14),
67: SCM_STRING_CONST_INITIALIZER("truncate->exact", 15, 15),
68: SCM_STRING_CONST_INITIALIZER("round->exact", 12, 12),
69: SCM_STRING_CONST_INITIALIZER("decode-float", 12, 12),
70: SCM_STRING_CONST_INITIALIZER("min&max", 7, 7),
71: SCM_STRING_CONST_INITIALIZER("quotient&remainder", 18, 18),
72: SCM_STRING_CONST_INITIALIZER("boolean", 7, 7),
73: SCM_STRING_CONST_INITIALIZER("proper-list?", 12, 12),
74: SCM_STRING_CONST_INITIALIZER("dotted-list?", 12, 12),
75: SCM_STRING_CONST_INITIALIZER("circular-list?", 14, 14),
76: SCM_STRING_CONST_INITIALIZER("make-list", 9, 9),
77: SCM_STRING_CONST_INITIALIZER("acons", 5, 5),
78: SCM_STRING_CONST_INITIALIZER("last-pair", 9, 9),
79: SCM_STRING_CONST_INITIALIZER("list-copy", 9, 9),
80: SCM_STRING_CONST_INITIALIZER("list*", 5, 5),
81: SCM_STRING_CONST_INITIALIZER("%delete", 7, 7),
82: SCM_STRING_CONST_INITIALIZER("%delete!", 8, 8),
83: SCM_STRING_CONST_INITIALIZER("%delete-duplicates", 18, 18),
84: SCM_STRING_CONST_INITIALIZER("%delete-duplicates!", 19, 19),
85: SCM_STRING_CONST_INITIALIZER("%alist-delete", 13, 13),
86: SCM_STRING_CONST_INITIALIZER("%alist-delete!", 14, 14),
87: SCM_STRING_CONST_INITIALIZER("append!", 7, 7),
88: SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8),
89: SCM_STRING_CONST_INITIALIZER("%sort", 5, 5),
90: SCM_STRING_CONST_INITIALIZER("%sort!", 6, 6),
91: SCM_STRING_CONST_INITIALIZER("monotonic-merge", 15, 15),
92: SCM_STRING_CONST_INITIALIZER("gensym", 6, 6),
93: SCM_STRING_CONST_INITIALIZER("keyword?", 8, 8),
94: SCM_STRING_CONST_INITIALIZER("make-keyword", 12, 12),
95: SCM_STRING_CONST_INITIALIZER("get-keyword", 11, 11),
96: SCM_STRING_CONST_INITIALIZER("delete-keyword", 14, 14),
97: SCM_STRING_CONST_INITIALIZER("delete-keyword!", 15, 15),
98: SCM_STRING_CONST_INITIALIZER("keyword->string", 15, 15),
99: SCM_STRING_CONST_INITIALIZER("identifier?", 11, 11),
100: SCM_STRING_CONST_INITIALIZER("identifier->symbol", 18, 18),
101: SCM_STRING_CONST_INITIALIZER("digit->integer", 14, 14),
102: SCM_STRING_CONST_INITIALIZER("integer->digit", 14, 14),
103: SCM_STRING_CONST_INITIALIZER("ucs->char", 9, 9),
104: SCM_STRING_CONST_INITIALIZER("char->ucs", 9, 9),
105: SCM_STRING_CONST_INITIALIZER("gauche-character-encoding", 25, 25),
106: SCM_STRING_CONST_INITIALIZER("supported-character-encodings", 29, 29),
107: SCM_STRING_CONST_INITIALIZER("supported-character-encoding?", 29, 29),
108: SCM_STRING_CONST_INITIALIZER("*char-code-max*", 15, 15),
109: SCM_STRING_CONST_INITIALIZER("char-set?", 9, 9),
110: SCM_STRING_CONST_INITIALIZER("%char-set-equal?", 16, 16),
111: SCM_STRING_CONST_INITIALIZER("%char-set<=?", 12, 12),
112: SCM_STRING_CONST_INITIALIZER("char-set", 8, 8),
113: SCM_STRING_CONST_INITIALIZER("char-set-copy", 13, 13),
114: SCM_STRING_CONST_INITIALIZER("error", 5, 5),
115: SCM_STRING_CONST_INITIALIZER("posix-bracket", 13, 13),
116: SCM_STRING_CONST_INITIALIZER("read-char-set", 13, 13),
117: SCM_STRING_CONST_INITIALIZER("%char-set-add-chars!", 20, 20),
118: SCM_STRING_CONST_INITIALIZER("%char-set-add-range!", 20, 20),
119: SCM_STRING_CONST_INITIALIZER("%char-set-add!", 14, 14),
120: SCM_STRING_CONST_INITIALIZER("char-set-contains?", 18, 18),
121: SCM_STRING_CONST_INITIALIZER("%char-set-complement!", 21, 21),
122: SCM_STRING_CONST_INITIALIZER("%char-set-ranges", 16, 16),
123: SCM_STRING_CONST_INITIALIZER("%char-set-predefined", 20, 20),
124: SCM_STRING_CONST_INITIALIZER("string-incomplete?", 18, 18),
125: SCM_STRING_CONST_INITIALIZER("string-immutable?", 17, 17),
126: SCM_STRING_CONST_INITIALIZER("string-incomplete->complete!", 28, 28),
127: SCM_STRING_CONST_INITIALIZER("string-complete->incomplete", 27, 27),
128: SCM_STRING_CONST_INITIALIZER("string-incomplete->complete", 27, 27),
129: SCM_STRING_CONST_INITIALIZER("omit", 4, 4),
130: SCM_STRING_CONST_INITIALIZER("string-size", 11, 11),
131: SCM_STRING_CONST_INITIALIZER("make-byte-string", 16, 16),
132: SCM_STRING_CONST_INITIALIZER("string-byte-ref", 15, 15),
133: SCM_STRING_CONST_INITIALIZER("byte-substring", 14, 14),
134: SCM_STRING_CONST_INITIALIZER("%string-replace-body!", 21, 21),
135: SCM_STRING_CONST_INITIALIZER("%maybe-substring", 16, 16),
136: SCM_STRING_CONST_INITIALIZER(" ", 1, 1),
137: SCM_STRING_CONST_INITIALIZER("infix", 5, 5),
138: SCM_STRING_CONST_INITIALIZER("string-join", 11, 11),
139: SCM_STRING_CONST_INITIALIZER("prefix", 6, 6),
140: SCM_STRING_CONST_INITIALIZER("suffix", 6, 6),
141: SCM_STRING_CONST_INITIALIZER("strict-infix", 12, 12),
142: SCM_STRING_CONST_INITIALIZER("%hash-string", 12, 12),
143: SCM_STRING_CONST_INITIALIZER("%string-split-by-char", 21, 21),
144: SCM_STRING_CONST_INITIALIZER("index", 5, 5),
145: SCM_STRING_CONST_INITIALIZER("string-scan", 11, 11),
146: SCM_STRING_CONST_INITIALIZER("both", 4, 4),
147: SCM_STRING_CONST_INITIALIZER("after*", 6, 6),
148: SCM_STRING_CONST_INITIALIZER("before*", 7, 7),
149: SCM_STRING_CONST_INITIALIZER("after", 5, 5),
150: SCM_STRING_CONST_INITIALIZER("before", 6, 6),
151: SCM_STRING_CONST_INITIALIZER("make-string-pointer", 19, 19),
152: SCM_STRING_CONST_INITIALIZER("string-pointer?", 15, 15),
153: SCM_STRING_CONST_INITIALIZER("string-pointer-ref", 18, 18),
154: SCM_STRING_CONST_INITIALIZER("string-pointer-next!", 20, 20),
155: SCM_STRING_CONST_INITIALIZER("string-pointer-prev!", 20, 20),
156: SCM_STRING_CONST_INITIALIZER("string-pointer-set!", 19, 19),
157: SCM_STRING_CONST_INITIALIZER("string-pointer-substring", 24, 24),
158: SCM_STRING_CONST_INITIALIZER("string-pointer-index", 20, 20),
159: SCM_STRING_CONST_INITIALIZER("string-pointer-copy", 19, 19),
160: SCM_STRING_CONST_INITIALIZER("string-pointer-byte-index", 25, 25),
161: SCM_STRING_CONST_INITIALIZER("regexp?", 7, 7),
162: SCM_STRING_CONST_INITIALIZER("regmatch?", 9, 9),
163: SCM_STRING_CONST_INITIALIZER("case-fold", 9, 9),
164: SCM_STRING_CONST_INITIALIZER("string->regexp", 14, 14),
165: SCM_STRING_CONST_INITIALIZER("regexp->string", 14, 14),
166: SCM_STRING_CONST_INITIALIZER("regexp-case-fold?", 17, 17),
167: SCM_STRING_CONST_INITIALIZER("regexp-parse", 12, 12),
168: SCM_STRING_CONST_INITIALIZER("regexp-compile", 14, 14),
169: SCM_STRING_CONST_INITIALIZER("regexp-optimize", 15, 15),
170: SCM_STRING_CONST_INITIALIZER("rxmatch", 7, 7),
171: SCM_STRING_CONST_INITIALIZER("rxmatch-substring", 17, 17),
172: SCM_STRING_CONST_INITIALIZER("rxmatch-start", 13, 13),
173: SCM_STRING_CONST_INITIALIZER("rxmatch-end", 11, 11),
174: SCM_STRING_CONST_INITIALIZER("rxmatch-before", 14, 14),
175: SCM_STRING_CONST_INITIALIZER("rxmatch-after", 13, 13),
176: SCM_STRING_CONST_INITIALIZER("rxmatch-num-matches", 19, 19),
177: SCM_STRING_CONST_INITIALIZER("vector-copy", 11, 11),
178: SCM_STRING_CONST_INITIALIZER("make-weak-vector", 16, 16),
179: SCM_STRING_CONST_INITIALIZER("weak-vector-length", 18, 18),
180: SCM_STRING_CONST_INITIALIZER("weak-vector-ref", 15, 15),
181: SCM_STRING_CONST_INITIALIZER("weak-vector-set!", 16, 16),
182: SCM_STRING_CONST_INITIALIZER("setter", 6, 6),
183: SCM_STRING_CONST_INITIALIZER("(setter setter)", 15, 15),
184: SCM_STRING_CONST_INITIALIZER("has-setter?", 11, 11),
185: SCM_STRING_CONST_INITIALIZER("identity", 8, 8),
186: SCM_STRING_CONST_INITIALIZER("promise?", 8, 8),
187: SCM_STRING_CONST_INITIALIZER("eager", 5, 5),
188: SCM_STRING_CONST_INITIALIZER("promise-kind", 12, 12),
189: SCM_STRING_CONST_INITIALIZER("(setter promise-kind)", 21, 21),
190: SCM_STRING_CONST_INITIALIZER("if-does-not-exist", 17, 17),
191: SCM_STRING_CONST_INITIALIZER("buffering", 9, 9),
192: SCM_STRING_CONST_INITIALIZER("character", 9, 9),
193: SCM_STRING_CONST_INITIALIZER("element-type", 12, 12),
194: SCM_STRING_CONST_INITIALIZER("%open-input-file", 16, 16),
195: SCM_STRING_CONST_INITIALIZER("supersede", 9, 9),
196: SCM_STRING_CONST_INITIALIZER("if-exists", 9, 9),
197: SCM_STRING_CONST_INITIALIZER("create", 6, 6),
198: SCM_STRING_CONST_INITIALIZER("mode", 4, 4),
199: SCM_STRING_CONST_INITIALIZER("%open-output-file", 17, 17),
200: SCM_STRING_CONST_INITIALIZER("overwrite", 9, 9),
201: SCM_STRING_CONST_INITIALIZER("append", 6, 6),
202: SCM_STRING_CONST_INITIALIZER("private?", 8, 8),
203: SCM_STRING_CONST_INITIALIZER("open-input-string", 17, 17),
204: SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18),
205: SCM_STRING_CONST_INITIALIZER("get-output-string", 17, 17),
206: SCM_STRING_CONST_INITIALIZER("get-output-byte-string", 22, 22),
207: SCM_STRING_CONST_INITIALIZER("get-remaining-input-string", 26, 26),
208: SCM_STRING_CONST_INITIALIZER("open-coding-aware-port", 22, 22),
209: SCM_STRING_CONST_INITIALIZER("open-input-buffered-port", 24, 24),
210: SCM_STRING_CONST_INITIALIZER("open-output-buffered-port", 25, 25),
211: SCM_STRING_CONST_INITIALIZER("flush", 5, 5),
212: SCM_STRING_CONST_INITIALIZER("flush-all-ports", 15, 15),
213: SCM_STRING_CONST_INITIALIZER("port-closed?", 12, 12),
214: SCM_STRING_CONST_INITIALIZER("current-error-port", 18, 18),
215: SCM_STRING_CONST_INITIALIZER("standard-input-port", 19, 19),
216: SCM_STRING_CONST_INITIALIZER("standard-output-port", 20, 20),
217: SCM_STRING_CONST_INITIALIZER("standard-error-port", 19, 19),
218: SCM_STRING_CONST_INITIALIZER("port-name", 9, 9),
219: SCM_STRING_CONST_INITIALIZER("port-current-line", 17, 17),
220: SCM_STRING_CONST_INITIALIZER("port-file-number", 16, 16),
221: SCM_STRING_CONST_INITIALIZER("SEEK_SET", 8, 8),
222: SCM_STRING_CONST_INITIALIZER("SEEK_CUR", 8, 8),
223: SCM_STRING_CONST_INITIALIZER("SEEK_END", 8, 8),
224: SCM_STRING_CONST_INITIALIZER("port-seek", 9, 9),
225: SCM_STRING_CONST_INITIALIZER("port-type", 9, 9),
226: SCM_STRING_CONST_INITIALIZER("file", 4, 4),
227: SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
228: SCM_STRING_CONST_INITIALIZER("string", 6, 6),
229: SCM_STRING_CONST_INITIALIZER("port-buffering", 14, 14),
230: SCM_STRING_CONST_INITIALIZER("(setter port-buffering)", 23, 23),
231: SCM_STRING_CONST_INITIALIZER("owner?", 6, 6),
232: SCM_STRING_CONST_INITIALIZER("name", 4, 4),
233: SCM_STRING_CONST_INITIALIZER("open-input-fd-port", 18, 18),
234: SCM_STRING_CONST_INITIALIZER("open-output-fd-port", 19, 19),
235: SCM_STRING_CONST_INITIALIZER("with-port-locking", 17, 17),
236: SCM_STRING_CONST_INITIALIZER("port->byte-string", 17, 17),
237: SCM_STRING_CONST_INITIALIZER("byte-ready?", 11, 11),
238: SCM_STRING_CONST_INITIALIZER("read-byte", 9, 9),
239: SCM_STRING_CONST_INITIALIZER("peek-byte", 9, 9),
240: SCM_STRING_CONST_INITIALIZER("read-line", 9, 9),
241: SCM_STRING_CONST_INITIALIZER("read-block", 10, 10),
242: SCM_STRING_CONST_INITIALIZER("read-list", 9, 9),
243: SCM_STRING_CONST_INITIALIZER("define-reader-ctor", 18, 18),
244: SCM_STRING_CONST_INITIALIZER("read-reference?", 15, 15),
245: SCM_STRING_CONST_INITIALIZER("read-reference-has-value?", 25, 25),
246: SCM_STRING_CONST_INITIALIZER("read-reference-value", 20, 20),
247: SCM_STRING_CONST_INITIALIZER("write-byte", 10, 10),
248: SCM_STRING_CONST_INITIALIZER("write-limited", 13, 13),
249: SCM_STRING_CONST_INITIALIZER("write*", 6, 6),
250: SCM_STRING_CONST_INITIALIZER("%add-load-path", 14, 14),
251: SCM_STRING_CONST_INITIALIZER("init-function", 13, 13),
252: SCM_STRING_CONST_INITIALIZER("export-symbols", 14, 14),
253: SCM_STRING_CONST_INITIALIZER("dynamic-load", 12, 12),
254: SCM_STRING_CONST_INITIALIZER("%require", 8, 8),
255: SCM_STRING_CONST_INITIALIZER("provide", 7, 7),
256: SCM_STRING_CONST_INITIALIZER("provided?", 9, 9),
257: SCM_STRING_CONST_INITIALIZER("%autoload", 9, 9),
258: SCM_STRING_CONST_INITIALIZER("undefined", 9, 9),
259: SCM_STRING_CONST_INITIALIZER("undefined?", 10, 10),
260: SCM_STRING_CONST_INITIALIZER("warn", 4, 4),
261: SCM_STRING_CONST_INITIALIZER("eq-hash", 7, 7),
262: SCM_STRING_CONST_INITIALIZER("eqv-hash", 8, 8),
263: SCM_STRING_CONST_INITIALIZER("hash", 4, 4),
264: SCM_STRING_CONST_INITIALIZER("hash-table?", 11, 11),
265: SCM_STRING_CONST_INITIALIZER("make-hash-table", 15, 15),
266: SCM_STRING_CONST_INITIALIZER("string=?", 8, 8),
267: SCM_STRING_CONST_INITIALIZER("hash-table-type", 15, 15),
268: SCM_STRING_CONST_INITIALIZER("hash-table-num-entries", 22, 22),
269: SCM_STRING_CONST_INITIALIZER("hash-table-clear!", 17, 17),
270: SCM_STRING_CONST_INITIALIZER("hash-table-get", 14, 14),
271: SCM_STRING_CONST_INITIALIZER("hash-table-put!", 15, 15),
272: SCM_STRING_CONST_INITIALIZER("hash-table-delete!", 18, 18),
273: SCM_STRING_CONST_INITIALIZER("hash-table-exists?", 18, 18),
274: SCM_STRING_CONST_INITIALIZER("hash-table-update!", 18, 18),
275: SCM_STRING_CONST_INITIALIZER("hash-table-push!", 16, 16),
276: SCM_STRING_CONST_INITIALIZER("hash-table-pop!", 15, 15),
277: SCM_STRING_CONST_INITIALIZER("%hash-table-iter", 16, 16),
278: SCM_STRING_CONST_INITIALIZER("hash-table-iterator", 19, 19),
279: SCM_STRING_CONST_INITIALIZER("hash-table-keys", 15, 15),
280: SCM_STRING_CONST_INITIALIZER("hash-table-values", 17, 17),
281: SCM_STRING_CONST_INITIALIZER("hash-table-stat", 15, 15),
282: SCM_STRING_CONST_INITIALIZER("%make-tree-map", 14, 14),
283: SCM_STRING_CONST_INITIALIZER("tree-map-copy", 13, 13),
284: SCM_STRING_CONST_INITIALIZER("tree-map?", 9, 9),
285: SCM_STRING_CONST_INITIALIZER("tree-map-get", 12, 12),
286: SCM_STRING_CONST_INITIALIZER("tree-map-put!", 13, 13),
287: SCM_STRING_CONST_INITIALIZER("tree-map-delete!", 16, 16),
288: SCM_STRING_CONST_INITIALIZER("tree-map-update!", 16, 16),
289: SCM_STRING_CONST_INITIALIZER("tree-map-push!", 14, 14),
290: SCM_STRING_CONST_INITIALIZER("tree-map-pop!", 13, 13),
291: SCM_STRING_CONST_INITIALIZER("tree-map-exists?", 16, 16),
292: SCM_STRING_CONST_INITIALIZER("tree-map-num-entries", 20, 20),
293: SCM_STRING_CONST_INITIALIZER("%tree-map-bound", 15, 15),
294: SCM_STRING_CONST_INITIALIZER("%tree-map-iter", 14, 14),
295: SCM_STRING_CONST_INITIALIZER("tree-map-iterator", 17, 17),
296: SCM_STRING_CONST_INITIALIZER("%tree-map-check-consistency", 27, 27),
297: SCM_STRING_CONST_INITIALIZER("%tree-map-dump", 14, 14),
298: SCM_STRING_CONST_INITIALIZER("module?", 7, 7),
299: SCM_STRING_CONST_INITIALIZER("module-name", 11, 11),
300: SCM_STRING_CONST_INITIALIZER("module-parents", 14, 14),
301: SCM_STRING_CONST_INITIALIZER("module-precedence-list", 22, 22),
302: SCM_STRING_CONST_INITIALIZER("module-imports", 14, 14),
303: SCM_STRING_CONST_INITIALIZER("module-exports", 14, 14),
304: SCM_STRING_CONST_INITIALIZER("module-table", 12, 12),
305: SCM_STRING_CONST_INITIALIZER("find-module", 11, 11),
306: SCM_STRING_CONST_INITIALIZER("all-modules", 11, 11),
307: SCM_STRING_CONST_INITIALIZER("make-module", 11, 11),
308: SCM_STRING_CONST_INITIALIZER("module-name->path", 17, 17),
309: SCM_STRING_CONST_INITIALIZER("path->module-name", 17, 17),
310: SCM_STRING_CONST_INITIALIZER("%export-all", 11, 11),
311: SCM_STRING_CONST_INITIALIZER("%extend-module", 14, 14),
312: SCM_STRING_CONST_INITIALIZER("global-variable-bound?", 22, 22),
313: SCM_STRING_CONST_INITIALIZER("global-variable-ref", 19, 19),
314: SCM_STRING_CONST_INITIALIZER("%format", 7, 7),
315: SCM_STRING_CONST_INITIALIZER("exit", 4, 4),
316: SCM_STRING_CONST_INITIALIZER("vm-dump", 7, 7),
317: SCM_STRING_CONST_INITIALIZER("vm-get-stack-trace", 18, 18),
318: SCM_STRING_CONST_INITIALIZER("vm-get-stack-trace-lite", 23, 23),
319: SCM_STRING_CONST_INITIALIZER("vm-set-default-exception-handler", 32, 32),
320: SCM_STRING_CONST_INITIALIZER("current-load-history", 20, 20),
321: SCM_STRING_CONST_INITIALIZER("current-load-next", 17, 17),
322: SCM_STRING_CONST_INITIALIZER("current-load-port", 17, 17),
323: SCM_STRING_CONST_INITIALIZER("%vm-make-parameter-slot", 23, 23),
324: SCM_STRING_CONST_INITIALIZER("%vm-parameter-ref", 17, 17),
325: SCM_STRING_CONST_INITIALIZER("%vm-parameter-set!", 18, 18),
326: SCM_STRING_CONST_INITIALIZER("gauche-version", 14, 14),
327: SCM_STRING_CONST_INITIALIZER("gauche-architecture", 19, 19),
328: SCM_STRING_CONST_INITIALIZER("gauche-library-directory", 24, 24),
329: SCM_STRING_CONST_INITIALIZER("gauche-architecture-directory", 29, 29),
330: SCM_STRING_CONST_INITIALIZER("gauche-site-library-directory", 29, 29),
331: SCM_STRING_CONST_INITIALIZER("gauche-site-architecture-directory", 34, 34),
332: SCM_STRING_CONST_INITIALIZER("gauche-dso-suffix", 17, 17),
333: SCM_STRING_CONST_INITIALIZER("current-thread", 14, 14),
334: SCM_STRING_CONST_INITIALIZER("unwrap-syntax", 13, 13),
335: SCM_STRING_CONST_INITIALIZER("foreign-pointer-attributes", 26, 26),
336: SCM_STRING_CONST_INITIALIZER("foreign-pointer-attribute-get", 29, 29),
337: SCM_STRING_CONST_INITIALIZER("foreign-pointer-attribute-set", 29, 29),
338: SCM_STRING_CONST_INITIALIZER("gc", 2, 2),
339: SCM_STRING_CONST_INITIALIZER("gc-stat", 7, 7),
340: SCM_STRING_CONST_INITIALIZER("total-heap-size", 15, 15),
341: SCM_STRING_CONST_INITIALIZER("free-bytes", 10, 10),
342: SCM_STRING_CONST_INITIALIZER("bytes-since-gc", 14, 14),
343: SCM_STRING_CONST_INITIALIZER("total-bytes", 11, 11),
344: SCM_STRING_CONST_INITIALIZER("profiler-start", 14, 14),
345: SCM_STRING_CONST_INITIALIZER("profiler-stop", 13, 13),
346: SCM_STRING_CONST_INITIALIZER("profiler-reset", 14, 14),
347: SCM_STRING_CONST_INITIALIZER("subr?", 5, 5),
348: SCM_STRING_CONST_INITIALIZER("closure?", 8, 8),
349: SCM_STRING_CONST_INITIALIZER("toplevel-closure?", 17, 17),
350: SCM_STRING_CONST_INITIALIZER("closure-code", 12, 12),
351: SCM_STRING_CONST_INITIALIZER("procedure-info", 14, 14),
352: },
353: };
354: static struct scm__rcRec {
355: ScmObj d638[47];
356: } scm__rc = {
357: {
358: SCM_UNBOUND,
359: SCM_UNBOUND,
360: SCM_UNBOUND,
361: SCM_UNBOUND,
362: SCM_UNBOUND,
363: SCM_UNBOUND,
364: SCM_UNBOUND,
365: SCM_UNBOUND,
366: SCM_UNBOUND,
367: SCM_UNBOUND,
368: SCM_UNBOUND,
369: SCM_UNBOUND,
370: SCM_UNBOUND,
371: SCM_UNBOUND,
372: SCM_UNBOUND,
373: SCM_UNBOUND,
374: SCM_UNBOUND,
375: SCM_UNBOUND,
376: SCM_UNBOUND,
377: SCM_UNBOUND,
378: SCM_UNBOUND,
379: SCM_UNBOUND,
380: SCM_UNBOUND,
381: SCM_UNBOUND,
382: SCM_UNBOUND,
383: SCM_UNBOUND,
384: SCM_UNBOUND,
385: SCM_UNBOUND,
386: SCM_UNBOUND,
387: SCM_UNBOUND,
388: SCM_UNBOUND,
389: SCM_UNBOUND,
390: SCM_UNBOUND,
391: SCM_UNBOUND,
392: SCM_UNBOUND,
393: SCM_UNBOUND,
394: SCM_UNBOUND,
395: SCM_UNBOUND,
396: SCM_UNBOUND,
397: SCM_UNBOUND,
398: SCM_UNBOUND,
399: SCM_UNBOUND,
400: SCM_UNBOUND,
401: SCM_UNBOUND,
402: SCM_UNBOUND,
403: SCM_UNBOUND,
404: SCM_UNBOUND,
405: },
406: };
407: static ScmObj extlib_macroexpand(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
408: {
409: ScmObj form_scm;
410: ScmObj form;
411: SCM_ENTER_SUBR("macroexpand");
412: form_scm = SCM_ARGREF(0);
413: form = (form_scm);
414: {
415: {
416: ScmObj SCM_RESULT;
417: SCM_RESULT = (
418: #line 50 "extlib.stub"
419: Scm_VMMacroExpand(form,SCM_NIL,FALSE));
420: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
421: }
422: }
423: }
424:
425: static SCM_DEFINE_SUBR(extlib_macroexpand__STUB, 1, 0, SCM_OBJ(&scm__sc.d637[0]), extlib_macroexpand, NULL, NULL);
426:
427: static ScmObj extlib_macroexpand_1(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
428: {
429: ScmObj form_scm;
430: ScmObj form;
431: SCM_ENTER_SUBR("macroexpand-1");
432: form_scm = SCM_ARGREF(0);
433: form = (form_scm);
434: {
435: {
436: ScmObj SCM_RESULT;
437: SCM_RESULT = (
438: #line 52 "extlib.stub"
439: Scm_VMMacroExpand(form,SCM_NIL,TRUE));
440: SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
441: }
442: }
443: }
444:
445: static SCM_DEFINE_SUBR(extlib_macroexpand_1__STUB, 1, 0, SCM_OBJ(&scm__sc.d637[1]), extlib_macroexpand_1, NULL, NULL);
446:
447: static int getcmpmode(ScmObj opt)
448: { if (SCM_UNBOUNDP(opt) || opt == sym_equal) return SCM_CMP_EQUAL;
449: if (opt == sym_eq) return SCM_CMP_EQ;
450: if (opt == sym_eqv) return SCM_CMP_EQV;
451: Scm_Error("unrecognized compare mode: %S", opt);
452: return 0; }
453: static ScmObj extlib_compare(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
454: {
455: ScmObj x_scm;
456: ScmObj x;
457: ScmObj y_scm;
458: ScmObj y;
459: SCM_ENTER_SUBR("compare");
460: x_scm = SCM_ARGREF(0);
461: x = (x_scm);
462: y_scm = SCM_ARGREF(1);
463: y = (y_scm);
