source: project/release/4/genturfahi/trunk/chicken-csi.scm @ 25672

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

genturfahi: Add utf8 support.

I call string-ref, which is now o(n) rather than o(1). This needs
to be fixed by splitting the string into a list.

I would like to support UTF8 in my grammar, which will require
rebuilding the bootstrap code, now that I support UTF8 in the
parser.

File size: 1.9 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(use utf8)
21(use srfi-1)
22(use srfi-9)
23(use utf8-srfi-13) ; String Libraries
24(use utf8-srfi-14) ; Character Classes
25(use srfi-28)      ; Basic Format Strings
26(use srfi-37)      ; args-fold
27(use srfi-39)      ; parameter objects
28(use srfi-69)      ; hash tables
29(use extras)       ; format, pretty-print
30(use matchable)
31(use ports)
32(use stack)
33(use sandbox)      ; safe-eval
34(use test)         ; test environment.
35
36(include "chicken-platform.scm")
37
38; genturfahi (lib)
39;
40(include "lerfu-porsi.scm")
41(include "javni-valsi.scm")
42(include "secuxna.scm")
43(include "nunjavni.scm")
44(include "morji.scm")
45(include "nunvalsi.scm")
46(include "cfisisku.scm")
47(include "junla.scm")
48(include "genturfahi.scm")
49(include "version.scm")
50
51; genturfahi-peg
52;
53(include "eval.scm")
54(include "samselpla.scm")
55(include "bootstrap.scm")
56(include "peg.scm")
57
58; genturfahi (bin)
59;
60(include "license.scm")
61(include "main-srfi-37.scm")
62
63(main)
64(exit (secuxna-exit-status))
Note: See TracBrowser for help on using the repository browser.