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 | (include "chicken-declare.scm") |
---|
21 | |
---|
22 | (use utf8) |
---|
23 | (use srfi-28) ; Basic Format Strings |
---|
24 | (use srfi-37) ; args-fold |
---|
25 | (use extras) ; pretty-print |
---|
26 | (use moremacros) ; for type-case |
---|
27 | (use genturfahi) |
---|
28 | (use genturfahi-peg) |
---|
29 | |
---|
30 | (include "license.scm") |
---|
31 | (include "main-srfi-37.scm") |
---|
32 | |
---|
33 | (main) |
---|
34 | (exit (secuxna-exit-status)) |
---|