artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

nyacc: Update to 0.78.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2017-05-06 22:35:46 +02:00
parent 92c363701b
commit d1cacdc91e
20 changed files with 2251 additions and 1601 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
module/nyacc/ChangeLog
View file

@ -1,3 +1,26 @@
2017-05-06 Matt Wette <mwette@alumni.caltech.edu>
* lalr.scm: updated write-lalr-tables and write-lalr-actions to
accept a prefix string
2017-05-04 Matt Wette <mwette@alumni.caltech.edu>
* lang/c99/pprint.scm (pretty-print-c99): removed double spacing
in printed declarations
* lang/util.scm (make-pp-formatter): fixed bug in column counting
that prevented line-wrap to occur.
2017-04-12 Matt Wette <mwette@alumni.caltech.edu>
* lex.scm (make-comm-reader): comments which end in newline can
now also end in #<eof>
2017-03-11 Matt Wette <mwette@alumni.caltech.edu>
* lang/c99/parser.scm (parse-c99): added mode keyword argument to
gen-c-lexer, file mode would not have been working ...
2017-03-03 Matt Wette <mwette@alumni.caltech.edu> 2017-03-03 Matt Wette <mwette@alumni.caltech.edu>
* lalr.scm: added "keepers" keyword argument to compact-machine * lalr.scm: added "keepers" keyword argument to compact-machine

29
module/nyacc/lalr.scm
View file

@ -15,13 +15,6 @@
;;; You should have received a copy of the GNU Lesser General Public License ;;; You should have received a copy of the GNU Lesser General Public License
;;; along with this library; if not, see <http://www.gnu.org/licenses/> ;;; along with this library; if not, see <http://www.gnu.org/licenses/>
(cond-expand
(guile-2)
(guile
(use-modules (ice-9 syncase))
(use-modules (ice-9 optargs)))
(mes))
;; I need to find way to preserve srconf, rrconf after hashify. ;; I need to find way to preserve srconf, rrconf after hashify.
;; compact needs to deal with it ... ;; compact needs to deal with it ...
@ -49,8 +42,7 @@
#:use-module (nyacc util) #:use-module (nyacc util)
) )
(define *nyacc-version* "0.76.5+jsdev") (define *nyacc-version* "0.78.0")
;; @deffn proxy-? sym rhs ;; @deffn proxy-? sym rhs
;; @example ;; @example
@ -1961,17 +1953,26 @@
(regexp-substitute #f m 'pre repl 'post) (regexp-substitute #f m 'pre repl 'post)
str))) str)))
;; @deffn {Procedure} write-lalr-tables mach filename [#:lang output-lang] ;; @deffn {Procedure} write-lalr-tables mach filename [optons]
;; Options are
;; @table code
;; @item #:prefix prefix-string
;; The prefix for generating table names. The default is @code{""}.
;; @item #:lang output-lang-symbol
;; This specifies the output language. Currently only the default
;; @code{'scheme} is supported.
;; @end table
;; @noindent
;; For example, ;; For example,
;; @example ;; @example
;; write-lalr-tables mach "tables.scm" ;; write-lalr-tables mach "tables.scm"
;; write-lalr-tables mach "tables.tcl" #:lang 'tcl ;; write-lalr-tables mach "tables.tcl" #:lang 'tcl
;; @end example ;; @end example
;; @end deffn ;; @end deffn
(define* (write-lalr-tables mach filename #:key (lang 'scheme)) (define* (write-lalr-tables mach filename #:key (lang 'scheme) (prefix ""))
(define (write-table mach name port) (define (write-table mach name port)
(fmt port "(define ~A\n " name) (fmt port "(define ~A~A\n " prefix name)
(ugly-print (assq-ref mach name) port) (ugly-print (assq-ref mach name) port)
(fmt port ")\n\n")) (fmt port ")\n\n"))
@ -1994,7 +1995,7 @@
;; write-lalr-actions mach "actions.tcl" #:lang 'tcl ;; write-lalr-actions mach "actions.tcl" #:lang 'tcl
;; @end example ;; @end example
;; @end deffn ;; @end deffn
(define* (write-lalr-actions mach filename #:key (lang 'scheme)) (define* (write-lalr-actions mach filename #:key (lang 'scheme) (prefix ""))
(define (pp-rule/ts gx) (define (pp-rule/ts gx)
(let* ((core (fluid-ref *lalr-core*)) (let* ((core (fluid-ref *lalr-core*))
@ -2030,7 +2031,7 @@
(with-fluid* (with-fluid*
*lalr-core* (make-core mach) *lalr-core* (make-core mach)
(lambda () (lambda ()
(fmt port "(define act-v\n (vector\n") (fmt port "(define ~Aact-v\n (vector\n" prefix)
(vector-for-each (vector-for-each
(lambda (gx actn) (lambda (gx actn)
(fmt port " ;; ~A\n" (pp-rule/ts gx)) (fmt port " ;; ~A\n" (pp-rule/ts gx))

242
module/nyacc/lalr2.scm Normal file
View file

@ -0,0 +1,242 @@
(add-to-load-path "/Users/mwette/repo/sv/nyacc-master/module")
;;; system/base/lalr2.scm
;;;
;;; Copyright (C) 2014-2017 Matthew R. Wette
;;;
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public
;;; License as published by the Free Software Foundation; either
;;; version 3 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; Lesser General Public License for more details.
;;;
;;; You should have received a copy of the GNU Lesser General Public License
;;; along with this library; if not, see <http://www.gnu.org/licenses/>
;; I need to find way to preserve srconf, rrconf after hashify.
;; compact needs to deal with it ...
;;(define-module (system base lalr2)
(define-module (nyacc lalr2)
#:export-syntax (lalr2-spec)
#:export (*lalr2-version*
)
#:use-module ((srfi srfi-1) #:select (fold fold-right remove lset-union
lset-intersection lset-difference))
#:use-module ((srfi srfi-9) #:select (define-record-type))
#:use-module ((srfi srfi-43) #:select (vector-map vector-for-each vector-any))
#:use-module (nyacc util) ;; fmt fmtstr
)
(use-modules (ice-9 pretty-print))
(define *lalr2-version* "0.01.0")
(define (fmtstr fmt . args)
(apply simple-format #f fmt args))
(define (fmterr fmt . args)
(apply simple-format #t fmt args))
(define (fmtout fmt . args)
(apply simple-format #t fmt args))
(define fmt simple-format)
;; @deffn reserved? grammar-symbol
;; Determine whether the syntax argument is a reserved symbol, that is.
;; So instead of writing @code{'$fixed} for syntax one can write
;; @code{$fixed}. We may want to change this to
;; @example
;; (reserved-terminal? grammar-symbol)
;; (reserved-non-term? grammar-symbol)
;; @end example
(define (reserved? grammar-symbol)
;; If the first character `$' then it's reserved.
(eqv? #\$ (string-ref (symbol->string (syntax->datum grammar-symbol)) 0)))
;; @deffn {Syntax} lalr2-spec grammar => spec
;; This routine reads a grammar in a scheme-like syntax and returns an a-list.
;; @end deffn
(define-syntax lalr2-spec
(syntax-rules +++ ()
((_ <expr> +++)
(letrec-syntax
((parse-rhs
(lambda (x)
;; The following is syntax-case because we use a fender.
(syntax-case x (quote $$ $prec $empty)
;; action specifications
((_ ($$ <guts> ...) <e2> ...)
#'(cons '(action #f <guts> ...) (parse-rhs <e2> ...)))
;; other internal $-syntax
((_ ($prec <tok>) <e2> ...)
#'(cons (cons 'prec (tokenize <tok>)) (parse-rhs <e2> ...)))
((_ $empty <e2> ...) ; TODO: propagate to processor
#'(cons '(empty) (parse-rhs <e2> ...)))
;; terminals and non-terminals
((_ (quote <e1>) <e2> ...)
#'(cons '(terminal . <e1>) (parse-rhs <e2> ...)))
((_ (<f> ...) <e2> ...)
#'(cons (<f> ...) (parse-rhs <e2> ...)))
((_ <e1> <e2> ...)
(identifier? (syntax <e1>)) ; fender to trap non-terminals
(if (reserved? (syntax <e1>))
#'(cons '(terminal . <e1>) (parse-rhs <e2> ...))
#'(cons '(non-terminal . <e1>) (parse-rhs <e2> ...))))
((_ <e1> <e2> ...)
#'(cons '(terminal . <e1>) (parse-rhs <e2> ...)))
((_) #'(list)))))
(parse-rhs-list
(syntax-rules ()
((_ (<ex> ...) <rhs> ...)
(cons (parse-rhs <ex> ...) (parse-rhs-list <rhs> ...)))
((_) '())))
(parse-grammar
(syntax-rules ()
((_ (<lhs> <rhs> ...) <prod> ...)
(cons (cons '<lhs> (parse-rhs-list <rhs> ...))
(parse-grammar <prod> ...)))
((_) '())))
(tokenize
(lambda (x)
(syntax-case x ()
((_ <tk>) (identifier? (syntax <tk>)) #'(quote <tk>))
((_ <tk>) #'<tk>))))
(tokenize-list
(syntax-rules ()
((_ <tk1> <tk2> ...)
(cons (tokenize <tk1>) (tokenize-list <tk2> ...)))
((_) '())))
(parse-precedence
(syntax-rules (left right nonassoc)
((_ (left <tk> ...) <ex> ...)
(cons (cons 'left (tokenize-list <tk> ...))
(parse-precedence <ex> ...)))
((_ (right <tk> ...) <ex> ...)
(cons (cons 'right (tokenize-list <tk> ...))
(parse-precedence <ex> ...)))
((_ (nonassoc <tk> ...) <ex> ...)
(cons (cons 'nonassoc (tokenize-list <tk> ...))
(parse-precedence <ex> ...)))
((_ <tk> <ex> ...)
(cons (list 'undecl (tokenize <tk>))
(parse-precedence <ex> ...)))
((_) '())))
(lalr-spec-1
(syntax-rules (start expect notice prec< prec> grammar)
((_ (start <symb>) <e> ...)
(cons (cons 'start '<symb>) (lalr-spec-1 <e> ...)))
((_ (expect <n>) <e> ...)
(cons (cons 'expect <n>) (lalr-spec-1 <e> ...)))
((_ (notice <str>) <e> ...)
(cons (cons 'notice <str>) (lalr-spec-1 <e> ...)))
((_ (prec< <ex> ...) <e> ...)
(cons (cons 'precedence (parse-precedence <ex> ...))
(lalr-spec-1 <e> ...)))
((_ (prec> <ex> ...) <e> ...)
(cons (cons 'precedence (reverse (parse-precedence <ex> ...)))
(lalr-spec-1 <e> ...)))
((_ (grammar <prod> ...) <e> ...)
(cons (cons 'grammar (parse-grammar <prod> ...))
(lalr-spec-1 <e> ...)))
((_) '()))))
(identity (lalr-spec-1 <expr> +++))))))
;; @deffn atomize terminal => object
;; Generate an atomic object for a terminal. Expected terminals are strings,
;; characters and symbols. This will convert the strings @code{s} to symbols
;; of the form @code{'$:s}.
(define (atomize terminal)
(if (string? terminal)
(string->symbol (string-append "$:" terminal))
terminal))
(define (process-spec tree)
;; Make a new symbol. This is a helper for proxies and mid-rule-actions.
;; The counter here is the only @code{set!} in @code{process-spec}.
;; Otherwise, I believe @code{process-spec} is referentially transparent.
(define maksy
(let ((cntr 1))
(lambda ()
(let ((c cntr))
(set! cntr (1+ cntr))
(string->symbol (string-append "$P" (number->string c)))))))
;; Canonicalize precedence and associativity. Precedence will appear
;; as sets of equivalent items in increasing order of precedence
;; (e.g., @code{((+ -) (* /)}). The input tree has nodes that look like
;; @example
;; '(precedence (left "+" "-") (left "*" "/"))
;; '(precedence ('then "else")
;; @end example
;; @noindent
;; =>
;; @example
;; (prec ((+ -) (* /)) ((then) (else)))
;; @end example
(define (prec-n-assc tree)
;; prec-l; lt-assc-l rt-assc-l non-assc-l pspec
(let iter ((pll '()) (pl '()) (la '()) (ra '()) (na '())
(spec '()) (tree tree))
(cond
((pair? spec)
;; item ~ ('left "+" "-") => a ~ 'left, tl ~ (#\+ #\-)
(let* ((item (car spec)) (as (car item)) (tl (map atomize (cdr item))))
(case as
((left)
(iter pll (cons tl pl) (append tl la) ra na (cdr spec) tree))
((right)
(iter pll (cons tl pl) la (append tl ra) na (cdr spec) tree))
((nonassoc)
(iter pll (cons tl pl) la ra (append tl na) (cdr spec) tree))
((undecl)
(iter pll (cons tl pl) la ra na (cdr spec) tree)))))
((pair? pl)
(iter (cons (reverse pl) pll) '() la ra na spec tree))
((pair? tree)
(iter pll pl la ra na
(if (eqv? 'precedence (caar tree)) (cdar tree) '()) (cdr tree)))
(else
(list
`(prec . ,(reverse pll))
`(assc (left ,@la) (right ,@ra) (nonassoc ,@na)))))))
(let* ((gram (assq-ref tree 'grammar))
(start-symbol (and=> (assq-ref tree 'start) atomize))
(start-rule (lambda () (list start-symbol)))
(add-el (lambda (e l) (if (member e l) l (cons e l))))
(pna (prec-n-assc tree)))
;; We sweep through the grammar to generate a canonical specification.
;; Note: the local rhs is used to hold RHS terms, but a
;; value of @code{'()} is used to signal "add rule", and a value of
;; @code{#f} is used to signal ``done, proceed to next rule.''
;; We use @code{tail} below to go through all remaining rules so that any
;; like LHS get absorbed before proceeding: This keeps LHS in sequence.
;; Note: code-comm and lone-comm are added to terminals so that they end
;; up in the match-table. The parser will skip these if the automoton has
;; no associated transitions for these. This allows users to parse for
;; comments in some rules but skip the rest.
(let iter ((tl '($error $end)) ; set of terminals
(head gram) ; head of unprocessed productions
(rhs-l '()) ; list of RHSs being processed
(rhs #f)) ; RHS being processed
(cond
((pair? rhs)
(case (caar rhs)
((terminal)
(iter (add-el (cdar rhs) tl) head rhs-l (cdr rhs)))
(else
(iter tl head rhs-l (cdr rhs)))))
((pair? rhs-l)
(iter tl head (cdr rhs-l) (car rhs-l)))
((pair? head)
(iter tl (cdr head) (car head) rhs-l))
(else
(simple-format #t "need to process terminals\n")
(pretty-print pna)
tl)))
))
;; @end itemize
;;; --- last line ---

6
module/nyacc/lang/c99/BUGS
View file

@ -1,6 +1,10 @@
BUGs and TODOs BUGs and TODOs
C99-009 <= next id C99-010 <= next id
C99-009 18 Mar 2017, M.Wette
pprint generates two spaces in declarations e.g.,
int foo(int x);
C99-008 02 Mar 2017, M.Wette C99-008 02 Mar 2017, M.Wette
clean up error traps among raw-parser run-parse and parse-c99[x] clean up error traps among raw-parser run-parse and parse-c99[x]

271
module/nyacc/lang/c99/body.scm
View file

@ -29,7 +29,7 @@
(use-modules ((srfi srfi-9) #:select (define-record-type))) (use-modules ((srfi srfi-9) #:select (define-record-type)))
(use-modules ((sxml xpath) #:select (sxpath))) (use-modules ((sxml xpath) #:select (sxpath)))
(use-modules (ice-9 regex)) (use-modules (ice-9 pretty-print)) ;; for debugging
(define-record-type cpi (define-record-type cpi
(make-cpi-1) (make-cpi-1)
@ -41,40 +41,53 @@
(inc-defd cpi-idefd set-cpi-idefd!) ; a-l of incfile => defines (inc-defd cpi-idefd set-cpi-idefd!) ; a-l of incfile => defines
(ptl cpi-ptl set-cpi-ptl!) ; parent typename list (ptl cpi-ptl set-cpi-ptl!) ; parent typename list
(ctl cpi-ctl set-cpi-ctl!) ; current typename list (ctl cpi-ctl set-cpi-ctl!) ; current typename list
;;(brlev cpi-brlev set-cpi-brlev! ; curr brace level (#includes)
) )
;;.@deffn Procedure split-cppdef defstr => (<name> . <repl>)| \ ;;.@deffn Procedure split-cppdef defstr => (<name> . <repl>)| \
;; ((<name> <args> . <repl>)|#f ;; (<name> <args> . <repl>)|#f
;; Convert define string to a dict item. Examples: ;; Convert define string to a dict item. Examples:
;; @example ;; @example
;; "ABC=123" => '("ABC" . "123") ;; "ABC=123" => '("ABC" . "123")
;; "MAX(X,Y)=((X)>(Y)?(X):(Y))" => ("MAX" ("X" "Y") . "((X)>(Y)?(X):(Y))") ;; "MAX(X,Y)=((X)>(Y)?(X):(Y))" => ("MAX" ("X" "Y") . "((X)>(Y)?(X):(Y))")
;; @end example ;; @end example
;; @end deffn ;; @end deffn
(cond-expand (define (split-cppdef defstr)
(guile (let ((x2st (string-index defstr #\()) ; start of args
(define split-cppdef (x2nd (string-index defstr #\))) ; end of args
(let ((rx1 (make-regexp "^([A-Za-z0-9_]+)\\([^)]*\\)=(.*)$")) (x3 (string-index defstr #\=))) ; start of replacement
(cond
((not x3) #f)
((and x2st x3)
;;(if (not (eq? (1+ x2nd) x3)) (c99-err "bad CPP def: ~S" defstr))
(cons* (substring defstr 0 x2st)
(string-split
(string-delete #\space (substring defstr (1+ x2st) x2nd))
#\,)
(substring defstr (1+ x3))))
(else
(cons (substring defstr 0 x3) (substring defstr (1+ x3)))))))
#|
(use-modules (ice-9 regex))
(define split-cppdef
(let ((rx1 (make-regexp "^([A-Za-z0-9_]+)\\(([^)]*)\\)=(.*)$"))
(rx2 (make-regexp "^([A-Za-z0-9_]+)=(.*)$"))) (rx2 (make-regexp "^([A-Za-z0-9_]+)=(.*)$")))
(lambda (defstr) (lambda (defstr)
(let* ((m1 (regexp-exec rx1 defstr)) (let* ()
(m2 (or m1 (regexp-exec rx2 defstr))))
(cond (cond
((regexp-exec rx1 defstr) => ((regexp-exec rx1 defstr) =>
(lambda (m) (lambda (m1)
(let* ((s1 (match:substring m1 1)) (let* ((s1 (match:substring m1 1))
(s2 (match:substring m1 2)) (s2 (match:substring m1 2))
(s3 (match:substring m1 3))) (s3 (match:substring m1 3)))
(cons s1 (cons s2 s3))))) (cons* s1 (string-split s2 #\,) s3))))
((regexp-exec rx2 defstr) => ((regexp-exec rx2 defstr) =>
(lambda (m) (lambda (m2)
(let* ((s1 (match:substring m2 1)) (let* ((s1 (match:substring m2 1))
(s2 (match:substring m2 2))) (s2 (match:substring m2 2)))
(cons s1 s2)))) (cons s1 s2))))
(else #f))))))) (else #f)))))))
(mes |#
(define (split-cppdef s)
(apply cons (string-split s #\=)))))
;; @deffn Procedure make-cpi debug defines incdirs inchelp ;; @deffn Procedure make-cpi debug defines incdirs inchelp
;; @end deffn ;; @end deffn
@ -98,7 +111,7 @@
(set-cpi-incs! cpi incdirs) ; list of include dir's (set-cpi-incs! cpi incdirs) ; list of include dir's
(set-cpi-ptl! cpi '()) ; list of lists of typenames (set-cpi-ptl! cpi '()) ; list of lists of typenames
(set-cpi-ctl! cpi '()) ; list of typenames (set-cpi-ctl! cpi '()) ; list of typenames
;; itynd idefd: ;; Break up the helpers into typenames and defines.
(let iter ((itynd '()) (idefd '()) (helpers inchelp)) (let iter ((itynd '()) (idefd '()) (helpers inchelp))
(cond ((null? helpers) (cond ((null? helpers)
(set-cpi-itynd! cpi itynd) (set-cpi-itynd! cpi itynd)
@ -108,6 +121,12 @@
(lambda () (split-helper (car helpers))) (lambda () (split-helper (car helpers)))
(lambda (ityns idefs) (lambda (ityns idefs)
(iter (cons ityns itynd) (cons idefs idefd) (cdr helpers))))))) (iter (cons ityns itynd) (cons idefs idefd) (cdr helpers)))))))
;; Assign builtins.
(and=> (assoc-ref (cpi-itynd cpi) "__builtin")
(lambda (tl) (set-cpi-ctl! cpi (append tl (cpi-ctl cpi)))))
(and=> (assoc-ref (cpi-idefd cpi) "__builtin")
(lambda (tl) (set-cpi-defs! cpi (append tl (cpi-defs cpi)))))
;; Return the populated info.
cpi)) cpi))
(define *info* (make-fluid #f)) (define *info* (make-fluid #f))
@ -183,7 +202,7 @@
;; ------------------------------------------------------------------------ ;; ------------------------------------------------------------------------
(define (p-err . args) (define (c99-err . args)
(apply throw 'c99-error args)) (apply throw 'c99-error args))
;; @deffn {Procedure} read-cpp-line ch => #f | (cpp-xxxx)?? ;; @deffn {Procedure} read-cpp-line ch => #f | (cpp-xxxx)??
@ -228,7 +247,7 @@
(if (access? p R_OK) p (iter (cdr dirl))))))) (if (access? p R_OK) p (iter (cdr dirl)))))))
(define (def-xdef? name mode) (define (def-xdef? name mode)
(eqv? mode 'code)) (not (eqv? mode 'file)))
;; @deffn {Procedure} gen-c-lexer [#:mode mode] [#:xdef? proc] => procedure ;; @deffn {Procedure} gen-c-lexer [#:mode mode] [#:xdef? proc] => procedure
;; Generate a context-sensitive lexer for the C99 language. The generated ;; Generate a context-sensitive lexer for the C99 language. The generated
@ -271,22 +290,19 @@
(t-typename (assq-ref symtab 'typename)) (t-typename (assq-ref symtab 'typename))
(xp1 (sxpath '(cpp-stmt define))) (xp1 (sxpath '(cpp-stmt define)))
(xp2 (sxpath '(decl)))) (xp2 (sxpath '(decl))))
;; mode: 'code|'file ;; mode: 'code|'file|'decl
;; xdef?: (proc name mode) => #t|#f : do we expand #define? ;; xdef?: (proc name mode) => #t|#f : do we expand #define?
(lambda* (#:key (mode 'code) (xdef? #f)) (lambda* (#:key (mode 'code) (xdef? #f))
(let ((bol #t) ; begin-of-line condition (let ((bol #t) ; begin-of-line condition
(xtxt #f) ; parsing cpp expanded text (kludge?)
(ppxs (list 'keep)) ; CPP execution state stack (ppxs (list 'keep)) ; CPP execution state stack
(info (fluid-ref *info*)) ; assume make and run in same thread (info (fluid-ref *info*)) ; info shared w/ parser
(x-def? (or xdef? def-xdef?))) (brlev 0) ; brace level
(x-def? (or xdef? def-xdef?))
)
;; Return the first (tval . lval) pair not excluded by the CPP. ;; Return the first (tval . lval) pair not excluded by the CPP.
(lambda () (lambda ()
(define (exec-cpp?) ; exec (vs pass to parser) CPP stmts?
(eqv? mode 'code))
(define (cpp-flow? keyw)
(memq keyw '(if elif else)))
(define (add-define tree) (define (add-define tree)
(let* ((tail (cdr tree)) (let* ((tail (cdr tree))
(name (car (assq-ref tail 'name))) (name (car (assq-ref tail 'name)))
@ -301,24 +317,13 @@
(define (apply-helper file) (define (apply-helper file)
(let* ((tyns (assoc-ref (cpi-itynd info) file)) (let* ((tyns (assoc-ref (cpi-itynd info) file))
(defs (assoc-ref (cpi-idefd info) file))) (defs (assoc-ref (cpi-idefd info) file)))
;;(simple-format #t "apply-helper ~S => ~S\n" file tyns)
;;(simple-format #t " itynd= ~S\n" (cpi-itynd info))
(when tyns (when tyns
(for-each add-typename tyns) (for-each add-typename tyns)
(set-cpi-defs! info (append defs (cpi-defs info)))) (set-cpi-defs! info (append defs (cpi-defs info))))
tyns)) tyns))
;; Evaluate expression text in #if of #elif statement.
(define (eval-cpp-cond-text text)
(with-throw-handler
'cpp-error
(lambda ()
(let* ((defs (cpi-defs info))
(rhs (cpp-expand-text text defs))
(exp (parse-cpp-expr rhs)))
(eval-cpp-expr exp defs)))
(lambda (key fmt . args)
(report-error fmt args)
(throw 'c99-error "CPP error"))))
(define (inc-stmt->file stmt) (define (inc-stmt->file stmt)
(let* ((arg (cadr stmt)) (len (string-length arg))) (let* ((arg (cadr stmt)) (len (string-length arg)))
(substring arg 1 (1- len)))) (substring arg 1 (1- len))))
@ -326,94 +331,147 @@
(define (inc-file->path file) (define (inc-file->path file)
(find-file-in-dirl file (cpi-incs info))) (find-file-in-dirl file (cpi-incs info)))
(define (eval-cpp-stmt-1/code stmt) (define (code-if stmt)
;; eval control flow states: {skip-look, keep, skip-done, skip} ;;(simple-format #t "code-if: ppxs=~S\n" ppxs)
(case (car stmt)
((if)
(case (car ppxs) (case (car ppxs)
((skip-look skip-done skip) ;; don't eval if excluded ((skip-look skip-done skip) ;; don't eval if excluded
;;(simple-format #t "code-if: SKIP\n")
(set! ppxs (cons 'skip ppxs))) (set! ppxs (cons 'skip ppxs)))
(else (else
(let ((val (eval-cpp-cond-text (cadr stmt)))) ;;(simple-format #t "code-if: KEEP\n")
(if (not val) (p-err "unresolved: ~S" (cadr stmt))) ;;(simple-format #t " text=~S\n" (cadr stmt))
;;(simple-format #t " defs=~S\n" (cpi-defs info))
(let* ((defs (cpi-defs info))
(val (eval-cpp-cond-text (cadr stmt) defs)))
(if (not val) (c99-err "unresolved: ~S" (cadr stmt)))
(if (eq? 'keep (car ppxs)) (if (eq? 'keep (car ppxs))
(if (zero? val) (if (zero? val)
(set! ppxs (cons 'skip-look ppxs)) (set! ppxs (cons 'skip-look ppxs))
(set! ppxs (cons 'keep ppxs))) (set! ppxs (cons 'keep ppxs)))
(set! ppxs (cons 'skip-done ppxs))))))) (set! ppxs (cons 'skip-done ppxs))))))
((elif) stmt)
(define (code-elif stmt)
(case (car ppxs) (case (car ppxs)
((skip) #t) ;; don't eval if excluded ((skip) #t) ;; don't eval if excluded
(else (else
(let ((val (eval-cpp-cond-text (cadr stmt)))) (let* ((defs (cpi-defs info))
(if (not val) (p-err "unresolved: ~S" (cadr stmt))) (val (eval-cpp-cond-text (cadr stmt) defs)))
(if (not val) (c99-err "unresolved: ~S" (cadr stmt)))
(case (car ppxs) (case (car ppxs)
((skip-look) (if (not (zero? val)) (set-car! ppxs 'keep))) ((skip-look) (if (not (zero? val)) (set-car! ppxs 'keep)))
((keep) (set-car! ppxs 'skip-done))))))) ((keep) (set-car! ppxs 'skip-done))))))
((else) stmt)
(define (code-else stmt)
(case (car ppxs) (case (car ppxs)
((skip-look) (set-car! ppxs 'keep)) ((skip-look) (set-car! ppxs 'keep))
((keep) (set-car! ppxs 'skip-done)))) ((keep) (set-car! ppxs 'skip-done)))
((endif) stmt)
(set! ppxs (cdr ppxs)))
(define (code-endif stmt)
(set! ppxs (cdr ppxs))
stmt)
(define (eval-cpp-incl/here stmt) ;; => stmt
;; include file inplace
(let* ((file (inc-stmt->file stmt))
(path (inc-file->path file)))
(cond
((apply-helper file))
((not path) (c99-err "not found: ~S" file)) ; file not found
(else (set! bol #t) (push-input (open-input-file path))))
stmt))
(define (eval-cpp-incl/tree stmt) ;; => stmt
;; include file as a new tree
(let* ((file (inc-stmt->file stmt))
(path (inc-file->path file)))
(cond
((apply-helper file) stmt) ; use helper
((not path) (c99-err "not found: ~S" file)) ; file not found
((with-input-from-file path run-parse) => ; add tree to stmt
(lambda (tree)
;;(pretty-print tree (current-error-port))
;;(pretty-print (xp1 tree))
(for-each add-define (xp1 tree))
(append stmt tree))))))
(define (eval-cpp-stmt/code stmt) ;; => stmt
(case (car stmt)
((if) (code-if stmt))
((elif) (code-elif stmt))
((else) (code-else stmt))
((endif) (code-endif stmt))
(else (else
(if (eqv? 'keep (car ppxs)) (if (eqv? 'keep (car ppxs))
(eval-cpp-stmt-2/code stmt)))))
(define (eval-cpp-stmt-2/code stmt)
;; eval non-control flow
(case (car stmt) (case (car stmt)
;; actions ((include) (eval-cpp-incl/here stmt))
((include) ((define) (add-define stmt) stmt)
(let* ((file (inc-stmt->file stmt)) ((undef) (rem-define (cadr stmt)) stmt)
(path (inc-file->path file))) ((error) (c99-err "error: #error ~A" (cadr stmt)))
(cond ((pragma) stmt) ;; ignore for now
((apply-helper file)) ; use helper (else (error "bad cpp flow stmt")))))))
((not path) (p-err "not found: ~S" file)) ; file not found
(else (set! bol #t) (push-input (open-input-file path)))))) (define (eval-cpp-stmt/decl stmt) ;; => stmt
((define) (add-define stmt)) (case (car stmt)
((undef) (rem-define (cadr stmt))) ((if) (code-if stmt))
((error) (p-err "error: #error ~A" (cadr stmt))) ((elif) (code-elif stmt))
((pragma) #t) ;; ignore for now ((else) (code-else stmt))
(else (error "bad cpp flow stmt")))) ((endif) (code-endif stmt))
(else
(define (eval-cpp-stmt-1/file stmt) (if (eqv? 'keep (car ppxs))
(case (car stmt) (case (car stmt)
((if) (cpi-push)) ((include) ; use tree unless inside braces
((elif else) (cpi-shift)) (if (zero? brlev)
((endif) (cpi-pop)) (eval-cpp-incl/tree stmt)
(else (eval-cpp-stmt-2/file stmt)))) (eval-cpp-incl/here stmt)))
((define) (add-define stmt) stmt)
(define (eval-cpp-stmt-2/file stmt) ((undef) (rem-define (cadr stmt)) stmt)
;; eval non-control flow ((error) (c99-err "error: #error ~A" (cadr stmt)))
(case (car stmt) ((pragma) stmt) ;; ignore for now
;; includes (else (error "bad cpp flow stmt")))
((include) stmt))))
(let* ((file (inc-stmt->file stmt))
(path (inc-file->path file))) (define (eval-cpp-stmt/file stmt) ;; => stmt
(cond (case (car stmt)
((apply-helper file)) ; use helper ((if) (cpi-push) stmt)
((not path) (p-err "not found: ~S" file)) ; file not found ((elif else) (cpi-shift) stmt)
((with-input-from-file path c99-parser-run-parse) => ; include tree ((endif) (cpi-pop) stmt)
(lambda (tree) (for-each add-define (xp1 tree)))) ((include) (eval-cpp-incl/tree stmt))
(else (p-err "included from ~S" path))))) ((define) (add-define stmt) stmt)
((define) (add-define stmt)) ((undef) (rem-define (cadr stmt)) stmt)
((undef) (rem-define (cadr stmt))) ((error) stmt)
((error) #f) ((pragma) stmt) ;; need to work this
((pragma) #t) ;; need to work this
(else (error "bad cpp flow stmt")))) (else (error "bad cpp flow stmt"))))
;; Maybe evaluate the CPP statement.
(define (eval-cpp-stmt stmt) (define (eval-cpp-stmt stmt)
(with-throw-handler (with-throw-handler
'cpp-error 'cpp-error
(lambda () (lambda ()
(case mode (case mode
((code) (eval-cpp-stmt-1/code stmt)) ((code) (eval-cpp-stmt/code stmt))
((file) (eval-cpp-stmt-1/file stmt)))) ((decl) (eval-cpp-stmt/decl stmt))
((file) (eval-cpp-stmt/file stmt))
(else (error "lang/c99 coding error"))))
(lambda (key fmt . rest) (lambda (key fmt . rest)
(report-error fmt rest) (report-error fmt rest)
(throw 'c99-error "CPP error")))) (throw 'c99-error "CPP error"))))
;; Predicate to determine if we pass the cpp-stmt to the parser.
;; @itemize
;; If code mode, never
;; If file mode, all except includes between { }
;; If decl mode, only defines and includes outside {}
;; @end itemize
(define (pass-cpp-stmt? stmt)
(case mode
((code) #f)
((decl) (and (zero? brlev) (memq (car stmt) '(include define))))
((file) (or (zero? brlev) (not (eqv? (car stmt) 'include))))
(else (error "lang/c99 coding error"))))
;; Composition of @code{read-cpp-line} and @code{eval-cpp-line}. ;; Composition of @code{read-cpp-line} and @code{eval-cpp-line}.
(define (read-cpp-stmt ch) (define (read-cpp-stmt ch)
(and=> (read-cpp-line ch) cpp-line->stmt)) (and=> (read-cpp-line ch) cpp-line->stmt))
@ -422,6 +480,7 @@
(let iter ((ch (read-char))) (let iter ((ch (read-char)))
(cond (cond
((eof-object? ch) ((eof-object? ch)
(set! xtxt #f)
(if (pop-input) (iter (read-char)) (assc-$ '($end . "")))) (if (pop-input) (iter (read-char)) (assc-$ '($end . ""))))
((eq? ch #\newline) (set! bol #t) (iter (read-char))) ((eq? ch #\newline) (set! bol #t) (iter (read-char)))
((char-set-contains? c:ws ch) (iter (read-char))) ((char-set-contains? c:ws ch) (iter (read-char)))
@ -431,18 +490,22 @@
((read-comm ch #t) => assc-$) ((read-comm ch #t) => assc-$)
((read-cpp-stmt ch) => ((read-cpp-stmt ch) =>
(lambda (stmt) (lambda (stmt)
(eval-cpp-stmt stmt) (let ((stmt (eval-cpp-stmt stmt))) ; eval can add tree
(case mode (if (pass-cpp-stmt? stmt)
((code) (iter (read-char))) (assc-$ `(cpp-stmt . ,stmt))
((file) (assc-$ `(cpp-stmt . ,stmt)))))) (iter (read-char))))))
(else (iter ch)))) (else (iter ch))))
((read-ident ch) => ((read-ident ch) =>
(lambda (name) (lambda (name)
(let ((symb (string->symbol name))) (let ((symb (string->symbol name)))
;;(simple-format #t "id: name=~S xtxt=~S\n" name xtxt)
(cond (cond
((and (x-def? name mode) ((and (not xtxt)
(if (procedure? x-def?) (x-def? name mode) x-def?)
(expand-cpp-macro-ref name (cpi-defs info))) (expand-cpp-macro-ref name (cpi-defs info)))
=> (lambda (st) => (lambda (st)
;;(simple-format #t "repl=~S\n" st)
(set! xtxt #t) ; so we don't re-expand
(push-input (open-input-string st)) (push-input (open-input-string st))
(iter (read-char)))) (iter (read-char))))
((assq-ref keytab symb) ((assq-ref keytab symb)
@ -455,6 +518,8 @@
((read-c-string ch) => assc-$) ((read-c-string ch) => assc-$)
((read-c-chlit ch) => assc-$) ((read-c-chlit ch) => assc-$)
((read-comm ch #f) => assc-$) ((read-comm ch #f) => assc-$)
((and (char=? ch #\{) (set! brlev (1+ brlev)) #f) #f)
((and (char=? ch #\}) (set! brlev (1- brlev)) #f) #f)
((read-chseq ch) => identity) ((read-chseq ch) => identity)
((assq-ref chrtab ch) => (lambda (t) (cons t (string ch)))) ((assq-ref chrtab ch) => (lambda (t) (cons t (string ch))))
((eqv? ch #\\) ;; C allows \ at end of line to continue ((eqv? ch #\\) ;; C allows \ at end of line to continue

446
module/nyacc/lang/c99/cpp.scm
View file

@ -15,29 +15,22 @@
;;; You should have received a copy of the GNU General Public License ;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; C preprocessor. This is not complete. ;; C preprocessor macro expansion and condition text parse-and-eval
;; ref: https://gcc.gnu.org/onlinedocs/gcc-3.0.1/cpp_3.html
(define-module (nyacc lang c99 cpp) (define-module (nyacc lang c99 cpp)
#:export (parse-cpp-stmt #:export (
cpp-line->stmt cpp-line->stmt
parse-cpp-expr eval-cpp-cond-text
eval-cpp-expr expand-cpp-macro-ref)
cpp-expand-text
expand-cpp-macro-ref
)
#:use-module (nyacc parse) #:use-module (nyacc parse)
#:use-module (nyacc lex) #:use-module (nyacc lex)
#:use-module (nyacc lang util) #:use-module (nyacc lang util)
#:use-module (rnrs arithmetic bitwise) #:use-module (rnrs arithmetic bitwise)
#:use-module (ice-9 match)
#:use-module (system base pmatch) #:use-module (system base pmatch)
) )
(cond-expand
(guile-2)
(guile
(use-modules (ice-9 syncase)))
(mes))
(define c99-std-defs (define c99-std-defs
'("__DATE__" "__FILE__" "__LINE__" "__STDC__" "__STDC_HOSTED__" '("__DATE__" "__FILE__" "__LINE__" "__STDC__" "__STDC_HOSTED__"
"__STDC_VERSION__" "__TIME__")) "__STDC_VERSION__" "__TIME__"))
@ -53,25 +46,42 @@
(cond (cond
((string=? str "__DATE__") "M01 01 2001") ((string=? str "__DATE__") "M01 01 2001")
((string=? str "__FILE__") "(unknown)") ((string=? str "__FILE__") "(unknown)")
((string=? str "__LINE__") 0) ((string=? str "__LINE__") "0")
((string=? str "__STDC__") 1) ((string=? str "__STDC__") "1")
((string=? str "__STDC_HOSTED__") 0) ((string=? str "__STDC_HOSTED__") "0")
((string=? "__STDC_VERSION__") 201701) ((string=? str "__STDC_VERSION__") "201701")
((string=? "__TIME__") "00:00:00") ((string=? str "__TIME__") "00:00:00")
(else #f))) (else #f)))
;; @deffn read-ellipsis ch (define inline-whitespace (list->char-set '(#\space #\tab)))
;;.@deffn {Procedure} skip-il-ws ch
;; Skip in-line whitespace
;; @end deffn
(define (skip-il-ws ch)
(cond
((eof-object? ch) ch)
((char-set-contains? inline-whitespace ch) (skip-il-ws (read-char)))
(else ch)))
;; @deffn {Procedure} read-ellipsis ch
;; read ellipsis ;; read ellipsis
;; @end deffn
(define (read-ellipsis ch) (define (read-ellipsis ch)
(cond (cond
((eof-object? ch) #f) ((eof-object? ch) #f)
((char=? ch #\.) (read-char) (read-char) "...") ; assumes correct syntax ((char=? ch #\.) (read-char) (read-char) "...") ; assumes correct syntax
(else #f))) (else #f)))
;; @deffn cpp-define => (define (name "ADD") (args "X" "Y") (repl "X+Y")) ;; @deffn {Procedure} cpp-define
;; output is like ;; Reads CPP define from current input and generates a cooresponding sxml
;; @code{(name "ABC") (repl "123")} or ;; expression.
;; @code{(name "ABC") (args "X" "Y") (repl "X+Y")} ;; @example
;; (define (name "ABC") (repl "123"))
;; OR
;; (define (name "ABC") (args "X" "Y") (repl "X+Y"))
;; @example
;; @end deffn
(define (cpp-define) (define (cpp-define)
(define (p-args la) ;; parse args (define (p-args la) ;; parse args
@ -98,7 +108,7 @@
`(define (name ,name) (repl ,repl))))) `(define (name ,name) (repl ,repl)))))
;; @deffn cpp-include ;; @deffn {Procedure} cpp-include
;; Parse CPP include statement. ;; Parse CPP include statement.
(define (cpp-include) (define (cpp-include)
(let* ((beg-ch (skip-il-ws (read-char))) (let* ((beg-ch (skip-il-ws (read-char)))
@ -108,7 +118,7 @@
(iter (cons ch cl) (read-char)))))) (iter (cons ch cl) (read-char))))))
`(include ,path))) `(include ,path)))
;; @deffn cpp-line->stmt line defs => (stmt-type text) ;; @deffn {Procedure} cpp-line->stmt line defs => (stmt-type text)
;; Parse a line from a CPP statement and return a parse tree. ;; Parse a line from a CPP statement and return a parse tree.
;; @example ;; @example
;; (parse-cpp-stmt "define X 123") => (define "X" "123") ;; (parse-cpp-stmt "define X 123") => (define "X" "123")
@ -117,6 +127,7 @@
;; @end example ;; @end example
;; To evaluate the @code{if} statements use @code{parse-cpp-expr} and ;; To evaluate the @code{if} statements use @code{parse-cpp-expr} and
;; @code{eval-cpp-expr}. ;; @code{eval-cpp-expr}.
;; @end deffn
(define (cpp-line->stmt line) (define (cpp-line->stmt line)
(define (rd-ident) (read-c-ident (skip-il-ws (read-char)))) (define (rd-ident) (read-c-ident (skip-il-ws (read-char))))
(define (rd-num) (and=> (read-c-num (skip-il-ws (read-char))) cdr)) (define (rd-num) (and=> (read-c-num (skip-il-ws (read-char))) cdr))
@ -140,7 +151,7 @@
(include-from-path "nyacc/lang/c99/mach.d/cpptab.scm") (include-from-path "nyacc/lang/c99/mach.d/cpptab.scm")
(include-from-path "nyacc/lang/c99/mach.d/cppact.scm") (include-from-path "nyacc/lang/c99/mach.d/cppact.scm")
(define cpp-raw-parser (define raw-parser
(make-lalr-parser (make-lalr-parser
(list (cons 'len-v cpp-len-v) (cons 'pat-v cpp-pat-v) (cons 'rto-v cpp-rto-v) (list (cons 'len-v cpp-len-v) (cons 'pat-v cpp-pat-v) (cons 'rto-v cpp-rto-v)
(cons 'mtab cpp-mtab) (cons 'act-v cpp-act-v)))) (cons 'mtab cpp-mtab) (cons 'act-v cpp-act-v))))
@ -148,16 +159,6 @@
(define (cpp-err fmt . args) (define (cpp-err fmt . args)
(apply throw 'cpp-error fmt args)) (apply throw 'cpp-error fmt args))
;;.@deffn skip-il-ws ch
;; Skip in-line whitespace
(define skip-il-ws
(let ((il-ws (list->char-set '(#\space #\tab))))
(lambda (ch)
(cond
((eof-object? ch) ch)
((char-set-contains? il-ws ch) (skip-il-ws (read-char)))
(else ch)))))
;; Since we want to be able to get CPP statements with comment in tact ;; Since we want to be able to get CPP statements with comment in tact
;; (e.g., for passing to @code{pretty-print-c99}) we need to remove ;; (e.g., for passing to @code{pretty-print-c99}) we need to remove
;; comments when parsing CPP expressions. We convert a comm-reader ;; comments when parsing CPP expressions. We convert a comm-reader
@ -171,23 +172,25 @@
(define gen-cpp-lexer (define gen-cpp-lexer
(make-lexer-generator cpp-mtab #:comm-skipper cpp-comm-skipper)) (make-lexer-generator cpp-mtab #:comm-skipper cpp-comm-skipper))
;; @deffn parse-cpp-expr text => tree ;; @deffn {Procedure} parse-cpp-expr text => tree
;; Given a string returns a cpp parse tree. This is called by ;; Given a string returns a cpp parse tree. This is called by
;; @code{eval-cpp-expr}. The text will have had all CPP defined symbols ;; @code{eval-cpp-expr}. The text will have had all CPP defined symbols
;; expanded already so no identifiers should appear in the text. ;; expanded already so no identifiers should appear in the text.
;; A @code{cpp-error} will be thrown if a parse error occurs. ;; A @code{cpp-error} will be thrown if a parse error occurs.
;; @end deffn
(define (parse-cpp-expr text) (define (parse-cpp-expr text)
(with-throw-handler (with-throw-handler
'nyacc-error 'nyacc-error
(lambda () (lambda ()
(with-input-from-string text (with-input-from-string text
(lambda () (cpp-raw-parser (gen-cpp-lexer))))) (lambda () (raw-parser (gen-cpp-lexer)))))
(lambda (key fmt . args) (lambda (key fmt . args)
(apply throw 'cpp-error fmt args)))) (apply throw 'cpp-error fmt args))))
;; @deffn eval-cpp-expr tree dict => datum ;; @deffn {Procedure} eval-cpp-expr tree dict => datum
;; Evaluate a tree produced from @code{parse-cpp-expr}. ;; Evaluate a tree produced from @code{parse-cpp-expr}.
;; The tree passed to this routine is ;; The tree passed to this routine is
;; @end deffn
(define (eval-cpp-expr tree dict) (define (eval-cpp-expr tree dict)
(letrec (letrec
((tx (lambda (tr ix) (list-ref tr ix))) ((tx (lambda (tr ix) (list-ref tr ix)))
@ -231,89 +234,60 @@
(else (error "incomplete implementation")))))) (else (error "incomplete implementation"))))))
(eval-expr tree))) (eval-expr tree)))
;; Note: scan-cpp-input scans replacement text. When identifiers are found ;;.@deffn {Procedure} rtokl->string reverse-token-list => string
;; they are tested for expansion as follows:
;; @enumerate
;; @item If already expanded, then ignore.
;; @item If followed by @code{(}, then use @code{collect-args} to get the
;; arguments and ...
;; @item Otherwise insert the replacement text and continue scanning (at
;; first character of new replacement text.
;; @end enumerate
;; @deffn rtokl->string tokl => string
;; Convert reverse token-list to string. ;; Convert reverse token-list to string.
;; @end deffn
(define (rtokl->string tokl) (define (rtokl->string tokl)
;; Turn reverse chl into a string and insert it into the string list stl. ;; Turn reverse chl into a string and insert it into the string list stl.
(define (add-chl chl stl) (define (add-chl chl stl)
(if (null? chl) stl (cons (list->string chl) stl))) (if (null? chl) stl (cons (list->string chl) stl)))
;; Works like this: Scan through the list of tokens (key-val pairs or lone ;;(simple-format #t "\nused=~S\n" used)
;; characters). Lone characters are collected in a list (@code{chl}); pairs ;; Works like this: Scan through the list of tokens (key-val pairs or
;; are converted into strings and combined with list of characters into a ;; lone characters). Lone characters are collected in a list (@code{chl});
;; list of strings. When done the list of strings is combined to one string. ;; pairs are converted into strings and combined with list of characters
(let iter ((stl '()) (chl '()) (nxt #f) (tkl tokl)) ;; into a list of strings. When done the list of strings is combined to
;; one string. (The token 'argval is expansion of argument.)
(let iter ((stl '()) ; list of strings to reverse-append
(chl '()) ; char list
(nxt #f) ; next string to add after chl
(tkl tokl)) ; input token list
(cond (cond
(nxt (iter (cons nxt (add-chl chl stl)) '() #f tkl)) (nxt
((null? tkl) (apply string-append (add-chl chl stl))) (iter (cons nxt (add-chl chl stl)) '() #f tkl))
((char? (car tkl)) (iter stl (cons (car tkl) chl) nxt (cdr tkl))) ((null? tkl)
(apply string-append (add-chl chl stl)))
((char? (car tkl))
(iter stl (cons (car tkl) chl) nxt (cdr tkl)))
(else (else
(pmatch tkl (pmatch tkl
(((arg . ,arg) dhash (,key . ,val) . ,rest) (((ident . ,rval) dhash (ident . ,lval) . ,rest)
(iter stl chl nxt (iter stl chl nxt
(acons key (string-append val arg) (list-tail tkl 3)))) (acons 'ident (string-append lval rval) (list-tail tkl 3))))
(((ident . ,arg) hash . ,rest)
(((,key . ,val) dhash (arg . ,arg) . ,rest)
(iter stl chl nxt
(acons 'arg (string-append arg val) (list-tail tkl 3))))
(((arg . ,arg) hash . ,rest)
(iter stl chl (string-append "\"" arg "\"") (list-tail tkl 2))) (iter stl chl (string-append "\"" arg "\"") (list-tail tkl 2)))
(((ident . ,iden) (ident . ,lval) . ,rest)
(((comm . ,val) . ,rest) (iter stl chl iden rest))
(iter stl chl (string-append "/*" val " */") (cdr tkl))) (((ident . ,iden) . ,rest)
(iter stl chl iden rest))
(((ident . ,rval) (ident . ,lval) . ,rest)
(iter stl chl (string-append " " rval) (cdr tkl)))
(((string . ,val) . ,rest) (((string . ,val) . ,rest)
(iter stl (cons #\" chl) val (cons #\" rest))) (iter stl (cons #\" chl) val (cons #\" rest)))
(((ident . ,val) . ,rest)
(iter stl chl val rest))
(((arg . ,val) . ,rest)
(iter stl chl val rest))
(((defined . ,val) . ,rest) (((defined . ,val) . ,rest)
(iter stl chl val rest)) (iter stl chl val rest))
((space space . ,rest)
(iter stl chl nxt rest))
((space . ,rest) ((space . ,rest)
(iter stl (cons #\space chl) nxt rest)) (iter stl (cons #\space chl) nxt rest))
((,asis . ,rest) ((,asis . ,rest)
(iter stl chl asis rest)) (iter stl chl asis rest))
(,otherwise
(otherwise
(error "no match" tkl))))))) (error "no match" tkl)))))))
;; @deffn scan-cpp-input argd used dict end-tok => string ;; We just scanned "defined", now need to scan the arg to inhibit expansion.
;; Process replacement text from the input port and generate a (reversed) ;; For example, we have scanned "defined"; we now scan "(FOO)" or "FOO", and
;; token-list. If end-tok, stop at, and push back, @code{,} or @code{)}. ;; return "defined(FOO)" or "defined FOO".
;; If end-tok is @code{,} then read until @code{,} or @code{(}. (define (scan-defined-arg)
;; The argument @var{argd} is a dictionary (argument name, argument
;; value) pairs which will be expanded as needed. This routine is called
;; by collect-args, expand-cpp-repl and cpp-expand-text.
(define (scan-cpp-input argd dict used end-tok)
;; Works like this: scan for tokens (comments, parens, strings, char's, etc).
;; Tokens are collected in a (reverse ordered) list (tkl) and merged together
;; to a string on return using @code{rtokl->string}.
;; We just scanned "defined", now need to scan the arg to inhibit expansion.
;; For example, we have scanned "defined"; we now scan "(FOO)" or "FOO", and
;; return "defined(FOO)" or "defined FOO".
(define (scan-defined-arg)
(let* ((ch (skip-il-ws (read-char))) (no-ec (not (char=? ch #\()))) (let* ((ch (skip-il-ws (read-char))) (no-ec (not (char=? ch #\())))
(let iter ((chl (list ch)) (ch (skip-il-ws (read-char)))) (let iter ((chl (list ch)) (ch (skip-il-ws (read-char))))
(cond (cond
@ -331,127 +305,201 @@
(else (else
(cpp-err "illegal argument to `defined'")))))) (cpp-err "illegal argument to `defined'"))))))
;; token list is list of (define (scan-cpp-input defs used end-tok)
;; 1) characters as char ;; Works like this: scan for tokens (comments, parens, strings, char's, etc).
;; 2) identifiers as string ;; Tokens are collected in a (reverse ordered) list (tkl) and merged together
;; 3) strings as '(string . <string>) ;; to a string on return using @code{rtokl->string}. Keep track of expanded
;; 4) 'hash 'dhash ;; identifiers and rerun if something got expanded. Also, keep track of
(let iter ((tkl '()) ; token list of ;; ## and spaces so that we can parse ID /* foo */ ## /* bar */ 123
(lvl 0) ; level ;; as well as ABC/*foo*/(123,456).
(ch (read-char))) ; next character
(define (trim-spaces tkl)
(if (and (pair? tkl) (eqv? 'space (car tkl)))
(trim-spaces (cdr tkl))
tkl))
(define (finish rr tkl)
(let* ((tkl (if end-tok (trim-spaces tkl) tkl))
(repl (rtokl->string tkl)))
;;(if (null? rr) (simple-format #t "finish ~S\n" tkl))
(if (pair? rr)
(expand-cpp-repl repl defs (append rr used)) ;; re-run
repl)))
;;(simple-format #t "scan-cpp-input end-tok=~S\n" end-tok)
(let iter ((rr '()) ; list symbols resolved
(tkl '()) ; token list of
(lv 0) ; level
(ch (skip-il-ws (read-char)))) ; next character
;;(unless end-tok (simple-format #t "tkl=~S ch=~S\n" tkl ch))
(cond (cond
;; have item to add, but first add in char's ((eof-object? ch) (finish rr tkl))
;;(nxt (iter (cons nxt (add-chl chl tkl)) '() #f lvl ch)) ((and (eqv? end-tok ch) (zero? lv))
;; If end of string or see end-ch at level 0, then return. (unread-char ch) (finish rr tkl))
((eof-object? ch) (rtokl->string tkl)) ((and end-tok (char=? #\) ch) (zero? lv))
(unread-char ch) (finish rr tkl))
((and (eqv? end-tok ch) (zero? lvl)) ((or (char-set-contains? c:ws ch) ; whitespace
(unread-char ch) (rtokl->string tkl)) (read-c-comm ch #f)) ; comment
((and end-tok (char=? #\) ch) (zero? lvl)) (iter rr (cons 'space tkl) lv (skip-il-ws (read-char))))
(unread-char ch) (rtokl->string tkl))
((read-c-comm ch #f) =>
(lambda (cp) (iter (acons `comm (cdr cp) tkl) lvl (read-char))))
((char-set-contains? c:ws ch)
(if (and (pair? tkl) (char? (car tkl)))
(iter (cons 'space tkl) lvl (read-char))
(iter tkl lvl (read-char))))
((char=? #\( ch) (iter (cons ch tkl) (1+ lvl) (read-char)))
((char=? #\) ch) (iter (cons ch tkl) (1- lvl) (read-char)))
((char=? #\# ch)
(let ((ch (read-char)))
(if (eqv? ch #\#)
(iter (cons 'dhash tkl) lvl (read-char))
(iter (cons 'hash tkl) lvl ch))))
((read-c-string ch) =>
(lambda (st) (iter (acons 'string (cdr st) tkl) lvl (read-char))))
((read-c-ident ch) => ((read-c-ident ch) =>
(lambda (iden) (lambda (iden)
(if (equal? iden "defined") (if (equal? iden "defined")
;; "defined" is a special case (iter rr (acons 'defined (scan-defined-arg) tkl) lv (read-char))
(let ((arg (scan-defined-arg))) (let ((rval (expand-cpp-macro-ref iden defs used)))
(iter (acons 'defined arg tkl) lvl (read-char))) (if rval
;; otherwise ... (iter #t (cons rval tkl) lv (read-char))
(let* ((aval (assoc-ref argd iden)) ; lookup argument (iter rr (acons 'ident iden tkl) lv (read-char)))))))
(rval (assoc-ref dict iden))) ; lookup macro def ((read-c-string ch) =>
(cond (lambda (st) (iter rr (acons 'string (cdr st) tkl) lv (read-char))))
((member iden used) ; name used ((char=? #\( ch) (iter rr (cons ch tkl) (1+ lv) (read-char)))
(iter (cons iden tkl) lvl (read-char))) ((char=? #\) ch) (iter rr (cons ch tkl) (1- lv) (read-char)))
(aval ; arg ref
(iter (acons 'arg aval tkl) lvl (read-char)))
((string? rval) ; cpp repl
(iter (cons rval tkl) lvl (read-char)))
((pair? rval) ; cpp macro
(let* ((argl (car rval)) (text (cdr rval))
(argd (collect-args argl argd dict used))
(newl (expand-cpp-repl text argd dict (cons iden used))))
(iter (cons newl tkl) lvl (read-char))))
(else ; normal identifier
(iter (acons 'ident iden tkl) lvl (read-char))))))))
(else (else
(iter (cons ch tkl) lvl (read-char)))))) (iter rr (cons ch tkl) lv (read-char))))))
;; @deffn collect-args argl argd dict used => argd ;; @deffn {Procedure} collect-args arglargd defs used => argd
;; to be documented ;; Collect arguments to a macro which appears in C code. If not looking at
;; I think argd is a passthrough for scan-cpp-input ;; @code{(} return @code{#f}, else scan and eat up to closing @code{)}.
;; argl: list of formal arguments in #define ;; If multiple whitespace characters are skipped at the front then only
;; argd: used? (maybe just a pass-through for scan-cpp-input ;; one @code{#\space} is re-inserted.
;; dict: dict of macro defs ;; @end deffn
;; used: list of already expanded macros (define (collect-args argl defs used)
;; TODO clean this up (let iter1 ((sp #f) (ch (read-char)))
;; should be looking at #\( and eat up to matching #\) (cond
(define (collect-args argl argd dict used) ((eof-object? ch) (if sp (unread-char #\space)) #f)
(let iter ((argl argl) (argv '()) (ch (skip-il-ws (read-char)))) ((char-set-contains? inline-whitespace ch) (iter1 #t (read-char)))
;; ch should always be #\(, #\, or #\) ((char=? #\( ch)
(let iter2 ((argl argl) (argv '()) (ch ch))
(cond (cond
((eqv? ch #\)) (reverse argv)) ((eqv? ch #\)) (reverse argv))
((null? argl) (cpp-err "arg count")) ((null? argl) (cpp-err "arg count"))
((and (null? (cdr argl)) (string=? (car argl) "...")) ((and (null? (cdr argl)) (string=? (car argl) "..."))
(let ((val (scan-cpp-input argd dict used #\)))) (let ((val (scan-cpp-input defs used #\))))
(iter (cdr argl) (acons "__VA_ARGS__" val argv) (read-char)))) (iter2 (cdr argl) (acons "__VA_ARGS__" val argv) (read-char))))
((or (eqv? ch #\() (eqv? ch #\,)) ((or (char=? ch #\() (char=? ch #\,))
(let ((val (scan-cpp-input argd dict used #\,))) (let* ((val (scan-cpp-input defs used #\,)))
(iter (cdr argl) (acons (car argl) val argv) (read-char)))) (iter2 (cdr argl) (acons (car argl) val argv) (read-char))))
(else (error "coding error, ch=" ch))))) (else
(error "cpp.scm, collect-args: coding error")))))
(else (if sp (unread-char #\space)) #f))))
;; @deffn expand-cpp-repl ;; @deffn {Procedure} px-cpp-ftn-repl argd repl => string
;; to be documented ;; pre-expand CPP function where @var{argd} is an a-list of arg name
(define (expand-cpp-repl repl argd dict used) ;; and replacement and repl is the defined replacement
;;
;; argd is alist of arguments and token lists
;; if end-tok == #f ignore levels
;; ident space fixed float chseq hash dhash arg
;; need to decide if we should use `(space ,tkl) or `((space) ,tkl)
;; This should replace args and execute hash and double-hash ??
;; @end deffn
(define (px-cpp-ftn argd repl)
(with-input-from-string repl (with-input-from-string repl
(lambda () (scan-cpp-input argd dict used #f)))) (lambda ()
;;(simple-format #t "px-cpp-ftn argd=~S repl=~S\n" argd repl)
(px-cpp-ftn-1 argd))))
;; @deffn cpp-expand-text text dict => string (define (px-cpp-ftn-1 argd)
(define (cpp-expand-text text dict)
;; Turn reverse chl into a string and insert it into the token stream.
(define (ins-chl chl stl)
(if (null? chl) stl (cons (list->string (reverse chl)) stl)))
(define (rem-space chl)
(let iter ((chl chl))
(cond
((null? chl) chl)
((char-set-contains? c:ws (car chl)) (iter (cdr chl)))
(else chl))))
(define (mk-string str) (string-append "\"" str "\""))
(let iter ((stl '()) ; string list
(chl '()) ; character list
(nxt #f) ; next string after char list
(ch (read-char))) ; next character
;;(simple-format #t "px-1: stl=~S chl=~S nxt=~S ch=~S\n" stl chl nxt ch)
(cond
(nxt (iter (cons nxt (ins-chl chl stl)) '() #f ch))
((eof-object? ch)
(apply string-append (reverse (ins-chl chl stl))))
((char-set-contains? c:ws ch)
(iter stl (cons #\space chl) nxt (skip-il-ws (read-char))))
((read-c-comm ch #f) (iter stl (cons #\space chl) nxt (read-char)))
((read-c-string ch) =>
(lambda (st) (iter stl chl (mk-string (cdr st)) (read-char))))
((char=? #\( ch) (iter stl (cons ch chl) nxt (read-char)))
((char=? #\) ch) (iter stl (cons ch chl) nxt (read-char)))
((read-c-ident ch) => ; replace if aval
(lambda (iden)
(iter stl chl (or (assoc-ref argd iden) iden) (read-char))))
((char=? #\# ch)
(let ((ch (read-char)))
(if (eqv? ch #\#)
(iter stl (rem-space chl) nxt (skip-il-ws (read-char)))
(let* ((aref (read-c-ident (skip-il-ws ch)))
(aval (assoc-ref argd aref)))
(if (not aref) (cpp-err "expecting arg-ref"))
(if (not aval) (cpp-err "expecting arg-val"))
(iter stl chl (mk-string aval) (read-char))))))
(else (iter stl (cons ch chl) nxt (read-char))))))
;; @deffn {Procedure} cpp-expand-text text defs [used] => string
;; Expand the string @var{text} using the provided CPP @var{defs} a-list.
;; Identifiers in the list of strings @var{used} will not be expanded.
;; @end deffn
(define* (cpp-expand-text text defs #:optional (used '()))
;;(simple-format #t "cpp-expand-text ~S\n" text)
(with-input-from-string text (with-input-from-string text
(lambda () (scan-cpp-input '() dict '() #f)))) (lambda () (scan-cpp-input defs used #f))))
;; @deffn expand-cpp-macro-ref ident dict => repl|#f ;; @deffn {Procedure} expand-cpp-repl
;; Given an identifier seen in C99 input, this checks for associated ;; to be documented
;; definition in @var{dict} (generated from CPP defines). If found, ;; @end deffn
;; the expansion is returned as a string. If @var{ident} refers (define (expand-cpp-repl text defs used)
;;(simple-format #t "expand-cpp-repl text=~S used=~S\n" text used)
(with-input-from-string text
(lambda () (scan-cpp-input defs used #f))))
;; === exports =======================
;; @deffn {Procedure} eval-cpp-cond-text text defs => string
;; Evaluate CPP condition expression (text).
;; @end deffn
(define (eval-cpp-cond-text text defs)
(with-throw-handler
'cpp-error
(lambda ()
(let* ((rhs (cpp-expand-text text defs))
(exp (parse-cpp-expr rhs)))
(eval-cpp-expr exp defs)))
(lambda (key fmt . args)
(report-error fmt args)
(throw 'c99-error "CPP error"))))
;; @deffn {Procedure} expand-cpp-macro-ref ident defs [used] => repl|#f
;; Given an identifier seen in the current input, this checks for associated
;; definition in @var{defs} (generated from CPP defines). If found as simple
;; macro, the expansion is returned as a string. If @var{ident} refers
;; to a macro with arguments, then the arguments will be read from the ;; to a macro with arguments, then the arguments will be read from the
;; current input. The format of the @code{dict} entries are ;; current input. The format of the @code{defs} entries are
;; @example ;; @example
;; ("ABC" . "123") ;; ("ABC" . "123")
;; ("MAX" ("X" "Y") . "((X)>(Y)?(X):(Y))") ;; ("MAX" ("X" "Y") . "((X)>(Y)?(X):(Y))")
;; @end example ;; @end example
(define (expand-cpp-macro-ref ident dict . rest) ;; @end deffn
(let ((used (if (pair? rest) (car rest) '())) (define* (expand-cpp-macro-ref ident defs #:optional (used '()))
(rval (assoc-ref dict ident))) (let ((rval (assoc-ref defs ident)))
;;(simple-format #t "ex-mac-ref rval=~S\n" rval)
(cond (cond
((not rval) #f) ((member ident used) #f)
((member ident used) ident) ((string? rval) (expand-cpp-repl rval defs (cons ident used)))
((string? rval)
(let ((expd (expand-cpp-repl rval '() dict (cons ident used))))
expd))
((pair? rval) ((pair? rval)
(let* ((argl (car rval)) (repl (cdr rval)) ;;(simple-format #t "rval = ~S\n" rval)
(argd (collect-args argl '() dict '())) (and=> (collect-args (car rval) defs used)
(expd (expand-cpp-repl repl argd dict (cons ident used)))) (lambda (argd)
expd)) (expand-cpp-repl (px-cpp-ftn argd (cdr rval))
((c99-std-val ident)) defs (cons ident used)))))
((c99-std-val ident) => identity)
(else #f)))) (else #f))))
;;; --- last line --- ;;; --- last line ---

4
module/nyacc/lang/c99/cppmach.scm
View file

@ -119,8 +119,8 @@
(define (xtra-dir path) (define (xtra-dir path)
(lang-dir (string-append "mach.d/" path))) (lang-dir (string-append "mach.d/" path)))
(write-lalr-actions cpp-mach (xtra-dir "cppact.scm.new")) (write-lalr-actions cpp-mach (xtra-dir "cppact.scm.new") #:prefix "cpp-")
(write-lalr-tables cpp-mach (xtra-dir "cpptab.scm.new")) (write-lalr-tables cpp-mach (xtra-dir "cpptab.scm.new") #:prefix "cpp-")
(let ((a (move-if-changed (xtra-dir "cppact.scm.new") (let ((a (move-if-changed (xtra-dir "cppact.scm.new")
(xtra-dir "cppact.scm"))) (xtra-dir "cppact.scm")))
(b (move-if-changed (xtra-dir "cpptab.scm.new") (b (move-if-changed (xtra-dir "cpptab.scm.new")

864
module/nyacc/lang/c99/mach.d/c99tab.scm
View file

@ -18,122 +18,124 @@
1 1 1 1 1 1 1 2 1 1 1 1)) 1 1 1 1 1 1 1 2 1 1 1 1))
(define c99-pat-v (define c99-pat-v
#(((103 . 1) (182 . 2) (95 . -281) (-1 . -281)) ((22 . 3) (28 . 4) (29 . 5 #(((103 . 1) (182 . 2) (97 . -281) (95 . -281) (-1 . -281)) ((22 . 3) (28
) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36
13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20) . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19
(139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27 ) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 .
) (43 . 28) (44 . 29) (45 . 30) (47 . 31) (147 . 32) (148 . 33) (149 . 34) 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (47 . 31) (147 . 32) (148 . 33
(150 . 35) (1 . 36) (2 . 37) (95 . 38) (170 . 39) (48 . 40) (46 . 41) ( ) (149 . 34) (150 . 35) (1 . 36) (2 . 37) (95 . 38) (170 . 39) (48 . 40) (
100 . 42) (110 . 43) (134 . 44) (106 . 45) (101 . 46) (102 . 47) (97 . 46 . 41) (100 . 42) (110 . 43) (134 . 44) (106 . 45) (101 . 46) (102 . 47)
-280)) ((97 . 0)) ((-1 . -233)) ((85 . 85) (6 . 52) (7 . 53) (22 . 3) (138 (97 . -280)) ((97 . 0)) ((-1 . -233)) ((85 . 85) (6 . 52) (7 . 53) (22 .
. 80) (181 . 81) (137 . 86)) ((85 . 83) (6 . 52) (7 . 53) (22 . 3) (138 3) (138 . 80) (181 . 81) (137 . 86)) ((85 . 83) (6 . 52) (7 . 53) (22 . 3)
. 80) (181 . 81) (137 . 84)) ((85 . 79) (6 . 52) (7 . 53) (22 . 3) (138 . (138 . 80) (181 . 81) (137 . 84)) ((85 . 79) (6 . 52) (7 . 53) (22 . 3) (
80) (181 . 81) (137 . 82)) ((-1 . -138)) ((31 . 78) (-1 . -136)) ((31 . 77 138 . 80) (181 . 81) (137 . 82)) ((-1 . -138)) ((31 . 78) (-1 . -136)) ((
) (-1 . -135)) ((-1 . -132)) ((40 . 73) (38 . 74) (36 . 75) (34 . 76) (-1 31 . 77) (-1 . -135)) ((-1 . -132)) ((40 . 73) (38 . 74) (36 . 75) (34 .
. -127)) ((38 . 70) (36 . 71) (32 . 72) (-1 . -116)) ((-1 . -113)) ((40 . 76) (-1 . -127)) ((38 . 70) (36 . 71) (32 . 72) (-1 . -116)) ((-1 . -113))
66) (38 . 67) (36 . 68) (34 . 69) (-1 . -114)) ((38 . 65) (-1 . -109)) (( ((40 . 66) (38 . 67) (36 . 68) (34 . 69) (-1 . -114)) ((38 . 65) (-1 .
-1 . -176)) ((-1 . -175)) ((-1 . -174)) ((-1 . -173)) ((-1 . -108)) ((-1 -109)) ((-1 . -176)) ((-1 . -175)) ((-1 . -174)) ((-1 . -173)) ((-1 . -108
. -107)) ((-1 . -106)) ((-1 . -105)) ((-1 . -104)) ((-1 . -103)) ((-1 . )) ((-1 . -107)) ((-1 . -106)) ((-1 . -105)) ((-1 . -104)) ((-1 . -103)) (
-102)) ((-1 . -101)) ((-1 . -100)) ((-1 . -99)) ((-1 . -98)) ((-1 . -96)) (-1 . -102)) ((-1 . -101)) ((-1 . -100)) ((-1 . -99)) ((-1 . -98)) ((-1 .
-96)) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34
. 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17
) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24
) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60)
(47 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 64) (-1 . -90
)) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 .
10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17)
(26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24)
(142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (
47 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 63) (-1 . -88)
) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10
) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (
26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (
142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47
. 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 62) (-1 . -86))
((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10)
(35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26 (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26
. 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142
. 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 . . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 .
31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 64) (-1 . -90)) ((
22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (
35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26
. 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142
. 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 .
31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 63) (-1 . -88)) ((
22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (
35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26
. 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142
. 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 .
31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 62) (-1 . -86)) ((
22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (
35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26
. 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142
. 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 .
31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 61) (-1 . -84)) (( 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 61) (-1 . -84)) ((
95 . -306) (-1 . -306)) ((95 . -305) (-1 . -305)) ((95 . -304) (-1 . -304) 95 . -306) (97 . -306) (-1 . -306)) ((95 . -305) (97 . -305) (-1 . -305))
) ((146 . 49) (153 . 50) (48 . 51) (6 . 52) (7 . 53) (80 . 54) (93 . 55) ( ((95 . -304) (97 . -304) (-1 . -304)) ((146 . 49) (153 . 50) (48 . 51) (6
181 . 56) (126 . 57) (127 . 58) (145 . 59)) ((95 . -289) (-1 . -289)) ((8 . 52) (7 . 53) (80 . 54) (93 . 55) (181 . 56) (126 . 57) (127 . 58) (145
. 48) (-1 . -97)) ((95 . -287) (-1 . -287)) ((95 . -286) (-1 . -286)) ((95 . 59)) ((95 . -289) (97 . -289) (-1 . -289)) ((8 . 48) (-1 . -97)) ((95 .
. -285) (-1 . -285)) ((95 . -284) (-1 . -284)) ((95 . -283) (-1 . -283)) -287) (97 . -287) (-1 . -287)) ((95 . -286) (97 . -286) (-1 . -286)) ((95
((95 . -282) (-1 . -282)) ((85 . 126)) ((48 . -92) (83 . -92)) ((152 . 124 . -285) (97 . -285) (-1 . -285)) ((95 . -284) (97 . -284) (-1 . -284)) ((
) (83 . 125) (48 . -83)) ((94 . 121) (98 . 122) (151 . 123) (95 . -294) ( 95 . -283) (97 . -283) (-1 . -283)) ((95 . -282) (97 . -282) (-1 . -282))
-1 . -294)) ((-1 . -297)) ((-1 . -296)) ((25 . 17) (26 . 18) (27 . 19) ( ((85 . 126)) ((48 . -92) (83 . -92)) ((152 . 124) (83 . 125) (48 . -83)) (
148 . 118) (125 . 119) (80 . 54) (127 . 120) (-1 . -193)) ((6 . 52) (7 . (94 . 121) (98 . 122) (151 . 123) (97 . -294) (95 . -294) (-1 . -294)) ((
53) (80 . 54) (93 . 55) (181 . 56) (126 . 57) (127 . 58) (145 . 117)) ((-1 -1 . -297)) ((-1 . -296)) ((25 . 17) (26 . 18) (27 . 19) (148 . 118) (125
. -179)) ((91 . 115) (93 . 116) (-1 . -178)) ((6 . 52) (7 . 53) (93 . 55) . 119) (80 . 54) (127 . 120) (-1 . -193)) ((6 . 52) (7 . 53) (80 . 54) (93
(181 . 56) (126 . 114)) ((85 . 108) (115 . 109) (22 . 3) (28 . 4) (29 . 5 . 55) (181 . 56) (126 . 57) (127 . 58) (145 . 117)) ((-1 . -179)) ((91 .
) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 115) (93 . 116) (-1 . -178)) ((6 . 52) (7 . 53) (93 . 55) (181 . 56) (126
13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20) . 114)) ((85 . 108) (115 . 109) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 .
(139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40
) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33) . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140
(149 . 34) (150 . 35) (170 . 110) (106 . 111) (99 . 112) (59 . 113) (48 . . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44
-94) (83 . -94)) ((-1 . -97)) ((-1 . -85)) ((-1 . -87)) ((-1 . -89)) ((-1 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33) (149 . 34) (150
. -91)) ((-1 . -110)) ((38 . 107) (-1 . -111)) ((-1 . -115)) ((36 . 105) ( . 35) (170 . 110) (106 . 111) (99 . 112) (59 . 113) (48 . -94) (83 . -94))
38 . 106) (-1 . -118)) ((-1 . -133)) ((-1 . -117)) ((38 . 104) (-1 . -120) ((-1 . -97)) ((-1 . -85)) ((-1 . -87)) ((-1 . -89)) ((-1 . -91)) ((-1 .
) ((31 . 103) (-1 . -137)) ((38 . 102) (-1 . -125)) ((-1 . -126)) ((36 . -110)) ((38 . 107) (-1 . -111)) ((-1 . -115)) ((36 . 105) (38 . 106) (-1
100) (38 . 101) (-1 . -129)) ((-1 . -134)) ((-1 . -139)) ((-1 . -140)) (( . -118)) ((-1 . -133)) ((-1 . -117)) ((38 . 104) (-1 . -120)) ((31 . 103)
22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) ( (-1 . -137)) ((38 . 102) (-1 . -125)) ((-1 . -126)) ((36 . 100) (38 . 101)
35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 (-1 . -129)) ((-1 . -134)) ((-1 . -139)) ((-1 . -140)) ((22 . 3) (28 . 4)
. 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) ( (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12
143 . 26) (42 . 27) (148 . 92) (149 . 93) (95 . 38) (133 . 94) (134 . 95) ) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (
(135 . 96) (136 . 99)) ((-1 . -149)) ((-1 . -148)) ((85 . 98) (-1 . -144)) 139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27)
((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (148 . 92) (149 . 93) (95 . 38) (133 . 94) (134 . 95) (135 . 96) (136 . 99
(35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 )) ((-1 . -149)) ((-1 . -148)) ((85 . 98) (-1 . -144)) ((22 . 3) (28 . 4)
. 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) ( (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12)
143 . 26) (42 . 27) (148 . 92) (149 . 93) (95 . 38) (133 . 94) (134 . 95) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (
(135 . 96) (136 . 97)) ((85 . 91) (-1 . -147)) ((6 . 52) (7 . 53) (181 . 139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27)
88) (128 . 89) (129 . 90)) ((85 . 87) (-1 . -168)) ((6 . 52) (7 . 53) (181 (148 . 92) (149 . 93) (95 . 38) (133 . 94) (134 . 95) (135 . 96) (136 . 97
. 88) (128 . 89) (129 . 228)) ((59 . 227) (84 . -171) (83 . -171)) ((84 )) ((85 . 91) (-1 . -147)) ((6 . 52) (7 . 53) (181 . 88) (128 . 89) (129
. -169) (83 . -169)) ((84 . 225) (83 . 226)) ((22 . 3) (28 . 4) (29 . 5) ( . 90)) ((85 . 87) (-1 . -168)) ((6 . 52) (7 . 53) (181 . 88) (128 . 89) (
129 . 228)) ((59 . 227) (84 . -171) (83 . -171)) ((84 . -169) (83 . -169))
((84 . 225) (83 . 226)) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32
. 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15)
(25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23)
(41 . 24) (142 . 25) (143 . 26) (42 . 27) (148 . 92) (149 . 93) (95 . 38)
(133 . 94) (134 . 95) (135 . 96) (136 . 224)) ((22 . 3) (28 . 4) (29 . 5)
(30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 .
13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21
) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (148 .
92) (149 . 93) (133 . 223) (-1 . -158)) ((22 . 3) (28 . 4) (29 . 5) (30 .
6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37
. 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140
. 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (148 . 92) (149
. 93) (133 . 222) (-1 . -156)) ((6 . 52) (7 . 53) (80 . 54) (93 . 55) (
181 . 56) (126 . 57) (127 . 58) (60 . 218) (145 . 219) (131 . 220) (132 .
221)) ((95 . -151) (-1 . -151)) ((95 . -150) (-1 . -150)) ((84 . 217) (22
. 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35
. 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19
) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 .
26) (42 . 27) (148 . 92) (149 . 93) (133 . 94) (135 . 214) (95 . 38) (134
. 215)) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (
34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26
. 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142
. 25) (143 . 26) (42 . 27) (148 . 92) (149 . 93) (95 . 38) (133 . 94) (
134 . 95) (135 . 96) (136 . 216)) ((84 . 213) (22 . 3) (28 . 4) (29 . 5) (
30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) 30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13)
(37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) ( (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (
140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (148 . 92) 140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (148 . 92)
(149 . 93) (95 . 38) (133 . 94) (134 . 95) (135 . 96) (136 . 224)) ((22 . (149 . 93) (133 . 94) (135 . 214) (95 . 38) (134 . 215)) ((38 . 212) (-1
3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . . -131)) ((-1 . -128)) ((-1 . -124)) ((-1 . -141)) ((-1 . -121)) ((38 .
11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) 211) (-1 . -122)) ((-1 . -119)) ((-1 . -112)) ((166 . 143) (165 . 144) (
(138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26 164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 .
) (42 . 27) (148 . 92) (149 . 93) (133 . 223) (-1 . -158)) ((22 . 3) (28 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
. 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
. 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 (87 . 172) (176 . 173) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 .
. 27) (148 . 92) (149 . 93) (133 . 222) (-1 . -156)) ((6 . 52) (7 . 53) ( 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (
80 . 54) (93 . 55) (181 . 56) (126 . 57) (127 . 58) (60 . 218) (145 . 219) 168 . 174) (155 . 175) (6 . 52) (7 . 53) (24 . 16) (25 . 17) (26 . 18) (27
(131 . 220) (132 . 221)) ((95 . -151) (-1 . -151)) ((95 . -150) (-1 . . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (
-150)) ((84 . 217) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) ( 143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (172
33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14
17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108)
24) (142 . 25) (143 . 26) (42 . 27) (148 . 92) (149 . 93) (133 . 94) (135 (20 . 196) (21 . 197) (181 . 198) (147 . 32) (148 . 33) (149 . 34) (150
. 214) (95 . 38) (134 . 215)) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7 . 35) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 .
) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 204) (116 . 205) (170 . 110) (109 . 206) (106 . 207) (107 . 208) (108 .
. 15) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 209) (84 . 210)) ((95 . -291) (97 . -291) (-1 . -291)) ((6 . 52) (7 . 53)
. 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (148 . 92) (149 . 93) (95
. 38) (133 . 94) (134 . 95) (135 . 96) (136 . 216)) ((84 . 213) (22 . 3) (
28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (
36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 . 19) (138
. 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42
. 27) (148 . 92) (149 . 93) (133 . 94) (135 . 214) (95 . 38) (134 . 215))
((38 . 212) (-1 . -131)) ((-1 . -128)) ((-1 . -124)) ((-1 . -141)) ((-1
. -121)) ((38 . 211) (-1 . -122)) ((-1 . -119)) ((-1 . -112)) ((166 . 143)
(165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (
8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156)
(180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80
. 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170
) (86 . 171) (87 . 172) (176 . 173) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (
31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14
) (40 . 15) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (24 . 16) (25 . 17)
(26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24)
(142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (
47 . 31) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (
13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 .
195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (147 . 32) (148 . 33) (
149 . 34) (150 . 35) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114
. 203) (115 . 204) (116 . 205) (170 . 110) (109 . 206) (106 . 207) (107 .
208) (108 . 209) (84 . 210)) ((95 . -291) (-1 . -291)) ((6 . 52) (7 . 53)
(80 . 54) (93 . 55) (181 . 56) (126 . 57) (127 . 58) (145 . 128) (146 . 49 (80 . 54) (93 . 55) (181 . 56) (126 . 57) (127 . 58) (145 . 128) (146 . 49
) (153 . 50) (48 . 51)) ((-1 . -292)) ((85 . 108) (115 . 182) (22 . 3) (28 ) (153 . 50) (48 . 51)) ((-1 . -292)) ((85 . 108) (115 . 182) (22 . 3) (28
. 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36
@ -161,114 +163,115 @@
. 28) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33) (149 . 28) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33) (149
. 34) (150 . 35) (170 . 137) (121 . 138) (122 . 139) (124 . 140)) ((92 . . 34) (150 . 35) (170 . 137) (121 . 138) (122 . 139) (124 . 140)) ((92 .
133)) ((-1 . -196)) ((80 . 54) (127 . 131) (25 . 17) (26 . 18) (27 . 19) ( 133)) ((-1 . -196)) ((80 . 54) (127 . 131) (25 . 17) (26 . 18) (27 . 19) (
148 . 132) (-1 . -192)) ((-1 . -195)) ((95 . -303) (-1 . -303)) ((95 . 148 . 132) (-1 . -192)) ((-1 . -195)) ((95 . -303) (97 . -303) (-1 . -303)
-295) (-1 . -295)) ((95 . -82) (-1 . -82)) ((48 . 130)) ((6 . 52) (7 . 53) ) ((95 . -295) (97 . -295) (-1 . -295)) ((95 . -82) (97 . -82) (-1 . -82))
(80 . 54) (93 . 55) (181 . 56) (126 . 57) (127 . 58) (145 . 128) (146 . ((48 . 130)) ((6 . 52) (7 . 53) (80 . 54) (93 . 55) (181 . 56) (126 . 57)
129)) ((103 . 127) (95 . -281) (-1 . -281)) ((84 . 334) (22 . 3) (28 . 4) (127 . 58) (145 . 128) (146 . 129)) ((103 . 127) (95 . -281) (-1 . -281))
(29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) ((84 . 334) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9
(38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) ( ) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (
138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) 25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (
(42 . 27) (43 . 28) (44 . 29) (45 . 30) (47 . 31) (147 . 32) (148 . 33) ( 41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (47
149 . 34) (150 . 35) (1 . 36) (2 . 37) (95 . 38) (170 . 39) (48 . 40) (46 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (1 . 36) (2 . 37) (95
. 41) (100 . 42) (110 . 43) (134 . 44) (106 . 45) (101 . 46) (102 . 47)) ( . 38) (170 . 39) (48 . 40) (46 . 41) (100 . 42) (110 . 43) (134 . 44) (106
(59 . 113) (48 . -94) (83 . -94)) ((48 . -93) (83 . -93)) ((94 . 121) (98 . 45) (101 . 46) (102 . 47)) ((59 . 113) (48 . -94) (83 . -94)) ((48 .
. 122) (151 . 333) (95 . -294) (-1 . -294)) ((-1 . -194)) ((-1 . -197)) (( -93) (83 . -93)) ((94 . 121) (98 . 122) (151 . 333) (97 . -294) (95 . -294
-1 . -180)) ((-1 . -191)) ((92 . -205) (83 . -205)) ((92 . 331) (83 . 332) ) (-1 . -294)) ((-1 . -194)) ((-1 . -197)) ((-1 . -180)) ((-1 . -191)) ((
) ((6 . 52) (7 . 53) (181 . 56) (126 . 57) (145 . 325) (91 . 326) (93 . 92 . -205) (83 . -205)) ((92 . 331) (83 . 332)) ((6 . 52) (7 . 53) (181 .
327) (80 . 54) (120 . 328) (127 . 329) (169 . 330) (92 . -204) (83 . -204) 56) (126 . 57) (145 . 325) (91 . 326) (93 . 327) (80 . 54) (120 . 328) (
) ((83 . -200) (92 . -200)) ((83 . 324) (92 . -198)) ((92 . 323)) ((25 . 127 . 329) (169 . 330) (92 . -204) (83 . -204)) ((83 . -200) (92 . -200))
17) (26 . 18) (27 . 19) (148 . 118) (125 . 322)) ((-1 . -184)) ((-1 . -35) ((83 . 324) (92 . -198)) ((92 . 323)) ((25 . 17) (26 . 18) (27 . 19) (148
) ((80 . 319) (75 . 320) (74 . 321) (-1 . -39)) ((79 . 317) (78 . 318) (-1 . 118) (125 . 322)) ((-1 . -184)) ((-1 . -35)) ((80 . 319) (75 . 320) (74
. -42)) ((73 . 315) (72 . 316) (-1 . -45)) ((71 . 311) (70 . 312) (69 . . 321) (-1 . -39)) ((79 . 317) (78 . 318) (-1 . -42)) ((73 . 315) (72 .
313) (68 . 314) (-1 . -50)) ((67 . 309) (66 . 310) (-1 . -53)) ((81 . 308) 316) (-1 . -45)) ((71 . 311) (70 . 312) (69 . 313) (68 . 314) (-1 . -50))
(-1 . -55)) ((-1 . -301)) ((-1 . -300)) ((-1 . -299)) ((-1 . -298)) ((65 ((67 . 309) (66 . 310) (-1 . -53)) ((81 . 308) (-1 . -55)) ((-1 . -301)) (
. 307) (-1 . -57)) ((64 . 306) (-1 . -59)) ((8 . 305) (-1 . -3)) ((-1 . -2 (-1 . -300)) ((-1 . -299)) ((-1 . -298)) ((65 . 307) (-1 . -57)) ((64 .
)) ((-1 . -1)) ((63 . 304) (-1 . -61)) ((-1 . -32)) ((-1 . -31)) ((-1 . 306) (-1 . -59)) ((8 . 305) (-1 . -3)) ((-1 . -2)) ((-1 . -1)) ((63 . 304)
-30)) ((-1 . -29)) ((90 . 303) (-1 . -28)) ((-1 . -27)) ((166 . 143) (165 (-1 . -61)) ((-1 . -32)) ((-1 . -31)) ((-1 . -30)) ((-1 . -29)) ((90 .
. 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 303) (-1 . -28)) ((-1 . -27)) ((166 . 143) (165 . 144) (164 . 145) (163 .
150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5
155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
(78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 .
. 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170)
) (155 . 175) (172 . 184) (178 . 297) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172 . 184) (178
(31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . . 297) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34
14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 .
) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 .
) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 298) (149 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60
299) (150 . 35) (170 . 300) (133 . 301) (174 . 302)) ((-1 . -5)) ((61 . ) (47 . 31) (147 . 32) (148 . 298) (149 . 299) (150 . 35) (170 . 300) (133
295) (62 . 296) (-1 . -63)) ((8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . . 301) (174 . 302)) ((-1 . -5)) ((61 . 295) (62 . 296) (-1 . -63)) ((8 .
52) (7 . 53) (179 . 156) (180 . 157) (181 . 158) (76 . 160) (77 . 161) (78 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180 .
. 162) (79 . 163) (80 . 178) (81 . 165) (177 . 167) (82 . 169) (167 . 170 157) (181 . 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (
) (86 . 171) (87 . 172) (176 . 173) (168 . 293) (93 . 294)) ((8 . 150) (3 81 . 165) (177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 .
173) (168 . 293) (93 . 294)) ((8 . 150) (3 . 151) (4 . 152) (5 . 153) (6
. 52) (7 . 53) (179 . 156) (180 . 157) (181 . 158) (76 . 160) (77 . 161) (
78 . 162) (79 . 163) (80 . 178) (81 . 165) (177 . 167) (82 . 169) (167 .
170) (86 . 171) (87 . 172) (176 . 173) (93 . 166) (168 . 231) (166 . 292))
((8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (
180 . 157) (181 . 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 .
178) (81 . 165) (93 . 289) (177 . 167) (82 . 169) (167 . 170) (86 . 171) (
87 . 172) (176 . 173) (168 . 291)) ((8 . 150) (3 . 151) (4 . 152) (5 . 153
) (6 . 52) (7 . 53) (179 . 156) (180 . 157) (181 . 158) (76 . 160) (77 .
161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 289) (177 . 167) (
82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 290)) ((91
. 283) (93 . 284) (89 . 285) (88 . 286) (87 . 287) (86 . 288) (-1 . -21))
((49 . 271) (50 . 272) (51 . 273) (52 . 274) (53 . 275) (54 . 276) (55 .
277) (56 . 278) (57 . 279) (58 . 280) (59 . 281) (154 . 282) (-1 . -33)) (
(-1 . -65)) ((90 . 270)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146)
(162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153
) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181
. 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (81 . 165)
(93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87
. 172) (176 . 173) (168 . 174) (155 . 175) (172 . 266) (25 . 17) (26 . 18)
(27 . 19) (148 . 132) (90 . 267) (44 . 268) (80 . 269)) ((-1 . -28)) ((
166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (
160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159
. 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 .
160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (
177 . 167) (89 . 259) (91 . 260) (156 . 168) (82 . 169) (167 . 170) (86 .
171) (87 . 172) (176 . 173) (117 . 261) (168 . 174) (155 . 175) (118 . 262
) (85 . 179) (172 . 180) (144 . 263) (119 . 264) (173 . 265)) ((83 . -234)
(84 . -234) (48 . -234)) ((48 . -95) (83 . -95)) ((95 . -290) (97 . -290)
(-1 . -290)) ((-1 . -293)) ((-1 . -78)) ((166 . 143) (165 . 144) (164 .
145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (
4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (
180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 .
163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (
167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172
. 184) (178 . 257) (48 . 258)) ((48 . 256)) ((48 . 255)) ((6 . 52) (7 . 53
) (181 . 254)) ((93 . 253)) ((166 . 143) (165 . 144) (164 . 145) (163 .
146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5
. 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 .
160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (
177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176
. 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9
. 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (
16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 .
197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 .
203) (115 . 204) (116 . 205) (109 . 252)) ((93 . 251)) ((93 . 250)) ((93
. 249)) ((-1 . -263)) ((48 . 247) (83 . 248)) ((60 . 246)) ((8 . 150) (3
. 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180 . 157) (181 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180 . 157) (181
. 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) ( . 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (
177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (93 . 177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (93 .
166) (168 . 231) (166 . 292)) ((8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 166) (168 . 231) (166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 .
. 52) (7 . 53) (179 . 156) (180 . 157) (181 . 158) (76 . 160) (77 . 161) ( 147) (161 . 148) (160 . 149) (159 . 154) (158 . 155) (157 . 159) (156 .
78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 289) (177 . 167) (82 . 168) (155 . 232) (130 . 245)) ((60 . 244) (-1 . -1)) ((-1 . -252)) ((-1 .
169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 291)) ((8 . 150) -251)) ((-1 . -250)) ((-1 . -249)) ((-1 . -248)) ((-1 . -247)) ((-1 . -246
(3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180 . 157) ( )) ((-1 . -261)) ((-1 . -260)) ((-1 . -258)) ((84 . 242) (166 . 143) (165
181 . 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
165) (93 . 289) (177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (
176 . 173) (168 . 290)) ((91 . 283) (93 . 284) (89 . 285) (88 . 286) (87
. 287) (86 . 288) (-1 . -21)) ((49 . 271) (50 . 272) (51 . 273) (52 . 274)
(53 . 275) (54 . 276) (55 . 277) (56 . 278) (57 . 279) (58 . 280) (59 .
281) (154 . 282) (-1 . -33)) ((-1 . -65)) ((90 . 270)) ((166 . 143) (165
. 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 .
150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (
155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) 180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 .
(78 . 162) (79 . 163) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170)
. 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . (86 . 171) (87 . 172) (176 . 173) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31
175) (172 . 266) (25 . 17) (26 . 18) (27 . 19) (148 . 132) (90 . 267) (44 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (
. 268) (80 . 269)) ((-1 . -28)) ((166 . 143) (165 . 144) (164 . 145) (163 40 . 15) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (24 . 16) (25 . 17) (26
. 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) ( . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24) (
5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) 142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47
(181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 31) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13
. 178) (81 . 165) (93 . 166) (177 . 167) (89 . 259) (91 . 260) (156 . 168) . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195)
(82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (117 . 261) (168 (85 . 108) (20 . 196) (21 . 197) (181 . 198) (147 . 32) (148 . 33) (149
. 174) (155 . 175) (118 . 262) (85 . 179) (172 . 180) (144 . 263) (119 . . 34) (150 . 35) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 .
264) (173 . 265)) ((83 . -234) (84 . -234) (48 . -234)) ((48 . -95) (83 . 203) (115 . 204) (116 . 205) (170 . 110) (109 . 206) (106 . 207) (107 .
-95)) ((95 . -290) (-1 . -290)) ((-1 . -293)) ((-1 . -78)) ((166 . 143) ( 243)) ((95 . -257) (97 . -257) (-1 . -257)) ((-1 . -123)) ((-1 . -130)) ((
165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8
. 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 .
155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161)
(78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156
. 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174
) (155 . 175) (172 . 184) (178 . 257) (48 . 258)) ((48 . 256)) ((48 . 255)
) ((6 . 52) (7 . 53) (181 . 254)) ((93 . 253)) ((166 . 143) (165 . 144) (
164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 .
151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
(87 . 172) (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 .
184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 .
190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (
20 . 196) (21 . 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113
. 202) (114 . 203) (115 . 204) (116 . 205) (109 . 252)) ((93 . 251)) ((93
. 250)) ((93 . 249)) ((-1 . -263)) ((48 . 247) (83 . 248)) ((60 . 246)) ((
8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180
. 157) (181 . 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178)
(81 . 165) (177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176
. 173) (93 . 166) (168 . 231) (166 . 143) (165 . 144) (164 . 145) (163 .
146) (162 . 147) (161 . 148) (160 . 149) (159 . 154) (158 . 155) (157 .
159) (156 . 168) (155 . 232) (130 . 245)) ((60 . 244) (-1 . -1)) ((-1 .
-252)) ((-1 . -251)) ((-1 . -250)) ((-1 . -249)) ((-1 . -248)) ((-1 . -247
)) ((-1 . -246)) ((-1 . -261)) ((-1 . -260)) ((-1 . -258)) ((84 . 242) (
166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (
160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155)
(179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79
. 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169)
(167 . 170) (86 . 171) (87 . 172) (176 . 173) (22 . 3) (28 . 4) (29 . 5)
(30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13
) (37 . 14) (40 . 15) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (24 . 16)
(25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23)
(41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (
46 . 60) (47 . 31) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (
12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194
) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (147 . 32) (148
. 33) (149 . 34) (150 . 35) (110 . 199) (111 . 200) (112 . 201) (113 .
202) (114 . 203) (115 . 204) (116 . 205) (170 . 110) (109 . 206) (106 .
207) (107 . 243)) ((95 . -257) (-1 . -257)) ((-1 . -123)) ((-1 . -130)) ((
-1 . -143)) ((95 . -152) (-1 . -152)) ((95 . -153) (-1 . -153)) ((84 . 241 -1 . -143)) ((95 . -152) (-1 . -152)) ((95 . -153) (-1 . -153)) ((84 . 241
) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) ) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10)
(35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27 (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (25 . 17) (26 . 18) (27
@ -303,28 +306,28 @@
170) (86 . 171) (87 . 172) (176 . 173) (93 . 166) (168 . 231) (166 . 143) 170) (86 . 171) (87 . 172) (176 . 173) (93 . 166) (168 . 231) (166 . 143)
(165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) ( (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (
159 . 154) (158 . 155) (157 . 159) (156 . 168) (155 . 232) (130 . 409)) (( 159 . 154) (158 . 155) (157 . 159) (156 . 168) (155 . 232) (130 . 409)) ((
48 . -163) (83 . -163)) ((-1 . -142)) ((95 . -256) (-1 . -256)) ((-1 . 48 . -163) (83 . -163)) ((-1 . -142)) ((95 . -256) (97 . -256) (-1 . -256)
-259)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 ) ((-1 . -259)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 .
. 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) ( 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159
158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 154) (158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 .
. 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (
(82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168
. 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . . 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 .
187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19
. 194) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (110 . . 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198
199) (111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204) (116 . ) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204)
205) (109 . 408)) ((60 . 407)) ((166 . 143) (165 . 144) (164 . 145) (163 (116 . 205) (109 . 408)) ((60 . 407)) ((166 . 143) (165 . 144) (164 . 145)
. 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) ( (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 .
5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (157 . 159)
. 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) ( (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 .
177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172)
. 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37)
. 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) ( (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 .
16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (
197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 . 21 . 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114
203) (115 . 204) (116 . 205) (109 . 406)) ((-1 . -262)) ((166 . 143) (165 . 203) (115 . 204) (116 . 205) (109 . 406)) ((-1 . -262)) ((166 . 143) (
. 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8
150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 .
155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161)
(78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156
. 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174
@ -548,219 +551,220 @@
327) (181 . 56) (126 . 57) (127 . 329) (145 . 117)) ((91 . 337) (93 . 338) 327) (181 . 56) (126 . 57) (127 . 329) (145 . 117)) ((91 . 337) (93 . 338)
(92 . -211) (83 . -211)) ((91 . 326) (120 . 336) (6 . 52) (7 . 53) (93 . (92 . -211) (83 . -211)) ((91 . 326) (120 . 336) (6 . 52) (7 . 53) (93 .
327) (181 . 56) (126 . 114) (92 . -209) (83 . -209)) ((92 . -203) (83 . 327) (181 . 56) (126 . 114) (92 . -209) (83 . -209)) ((92 . -203) (83 .
-203)) ((-1 . -190)) ((6 . 52) (7 . 53) (181 . 335)) ((95 . -81) (-1 . -81 -203)) ((-1 . -190)) ((6 . 52) (7 . 53) (181 . 335)) ((95 . -81) (97 . -81
)) ((95 . -288) (-1 . -288)) ((92 . -206) (83 . -206)) ((91 . 337) (93 . ) (-1 . -81)) ((95 . -288) (97 . -288) (-1 . -288)) ((92 . -206) (83 .
338) (92 . -210) (83 . -210)) ((44 . 446) (90 . 447) (166 . 143) (165 . -206)) ((91 . 337) (93 . 338) (92 . -210) (83 . -210)) ((44 . 446) (90 .
144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) 447) (166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 .
(3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (
179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78
. 162) (79 . 163) (80 . 448) (81 . 165) (93 . 166) (177 . 167) (156 . 168)
(82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155
. 175) (172 . 449) (25 . 17) (26 . 18) (27 . 19) (148 . 118) (125 . 450))
((92 . 444) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9
) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (
25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (
41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46
. 60) (47 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 137) (
121 . 138) (122 . 139) (124 . 445)) ((92 . 443)) ((92 . 442)) ((-1 . -232)
) ((90 . 441)) ((-1 . -223)) ((25 . 17) (26 . 18) (27 . 19) (148 . 118) (
125 . 440)) ((44 . 437) (25 . 17) (26 . 18) (27 . 19) (148 . 132) (90 .
438) (166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 .
148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53)
(159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) ( (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (
76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166 76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 448) (81 . 165) (93 . 166
) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) ( ) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (
176 . 173) (168 . 174) (155 . 175) (172 . 439)) ((90 . 436) (-1 . -28)) (( 176 . 173) (168 . 174) (155 . 175) (172 . 449) (25 . 17) (26 . 18) (27 .
83 . -201) (92 . -201)) ((92 . -199)) ((90 . 435)) ((-1 . -38)) ((-1 . -37 19) (148 . 118) (125 . 450)) ((92 . 444) (22 . 3) (28 . 4) (29 . 5) (30 .
)) ((-1 . -36)) ((80 . 319) (75 . 320) (74 . 321) (-1 . -41)) ((80 . 319) 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37
(75 . 320) (74 . 321) (-1 . -40)) ((79 . 317) (78 . 318) (-1 . -44)) ((79 . 14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 .
. 317) (78 . 318) (-1 . -43)) ((73 . 315) (72 . 316) (-1 . -49)) ((73 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 .
315) (72 . 316) (-1 . -48)) ((73 . 315) (72 . 316) (-1 . -47)) ((73 . 315) 28) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33) (149 .
(72 . 316) (-1 . -46)) ((71 . 311) (70 . 312) (69 . 313) (68 . 314) (-1 34) (150 . 35) (170 . 137) (121 . 138) (122 . 139) (124 . 445)) ((92 . 443
. -52)) ((71 . 311) (70 . 312) (69 . 313) (68 . 314) (-1 . -51)) ((67 . )) ((92 . 442)) ((-1 . -232)) ((90 . 441)) ((-1 . -223)) ((25 . 17) (26 .
309) (66 . 310) (-1 . -54)) ((81 . 308) (-1 . -56)) ((65 . 307) (-1 . -58) 18) (27 . 19) (148 . 118) (125 . 440)) ((44 . 437) (25 . 17) (26 . 18) (27
) ((64 . 306) (-1 . -60)) ((85 . 433) (8 . 150) (3 . 151) (4 . 152) (5 . . 19) (148 . 132) (90 . 438) (166 . 143) (165 . 144) (164 . 145) (163 .
153) (6 . 52) (7 . 53) (179 . 156) (180 . 157) (181 . 158) (76 . 160) (77
. 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (177 . 167) (82 . 169)
(167 . 170) (86 . 171) (87 . 172) (176 . 173) (93 . 166) (168 . 231) (166
. 434)) ((91 . 326) (93 . 368) (80 . 54) (120 . 328) (127 . 369) (169 .
339) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 .
10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25 . 17)
(26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41 . 24)
(142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (
47 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 137) (121 .
138) (122 . 139) (124 . 340) (92 . 341)) ((91 . 326) (93 . 368) (120 . 336
) (92 . -209) (83 . -209)) ((92 . -207)) ((-1 . -4)) ((63 . 304) (-1 . -62
)) ((60 . 432) (83 . 248)) ((92 . 431)) ((92 . 430)) ((-1 . -10)) ((-1 .
-9)) ((-1 . -8)) ((91 . 326) (93 . 368) (80 . 54) (120 . 328) (127 . 369)
(169 . 429) (92 . -20) (83 . -20)) ((92 . -17) (83 . -17)) ((92 . -15) (83
. -15)) ((92 . 427) (83 . 428)) ((90 . 426) (83 . 248)) ((-1 . -66)) ((-1
. -187)) ((90 . 425)) ((-1 . -181)) ((166 . 143) (165 . 144) (164 . 145)
(163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 .
152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180
. 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163)
(80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167
. 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (85 . 179
) (172 . 180) (144 . 422) (89 . 259) (91 . 260) (117 . 261) (118 . 262) (
119 . 423) (84 . 424)) ((83 . -235) (84 . -235) (48 . -235)) ((83 . -237)
(84 . -237)) ((-1 . -241)) ((59 . -243) (89 . -243) (91 . -243)) ((90 .
421)) ((59 . -245) (91 . -245) (89 . -245)) ((-1 . -278)) ((-1 . -275)) ((
-1 . -272)) ((-1 . -271)) ((48 . 420) (83 . 248)) ((166 . 143) (165 . 144)
(164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3
. 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179
. 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162
) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82
. 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 .
175) (172 . 184) (178 . 418) (104 . 419) (48 . -273)) ((93 . 417)) ((92 .
416) (83 . 248)) ((92 . 415) (83 . 248)) ((83 . 248) (92 . 414)) ((-1 .
-79)) ((-1 . -255)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162
. 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (
159 . 154) (158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 . 160) (77
. 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167)
(156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168
. 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 .
186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19
. 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198
) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204)
(116 . 205) (109 . 413)) ((-1 . -253)) ((48 . -162) (83 . -162)) ((48 .
-160) (83 . -160)) ((95 . -154) (-1 . -154)) ((-1 . -165)) ((-1 . -254)) (
(166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (
160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155)
(179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79
. 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169)
(167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (6
. 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 .
188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (
178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (110 . 199) (111
. 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204) (116 . 205) (109 .
471)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 .
148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158
. 155) (179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162
) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82
. 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 .
175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187
) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 .
194) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (110 . 199)
(111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204) (116 . 205) (
109 . 470)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (
161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154)
(158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (78
. 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168
) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (
155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11
. 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193)
(48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (110
. 199) (111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204) (116 .
205) (109 . 469)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 .
147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 .
52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (
157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
(87 . 172) (176 . 173) (168 . 174) (155 . 175) (172 . 184) (178 . 468)) ((
83 . 248) (48 . -274) (92 . -274)) ((48 . 467)) ((-1 . -270)) ((59 . -244)
(91 . -244) (89 . -244)) ((83 . -240) (84 . -240)) ((166 . 143) (165 .
144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150)
(3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (
179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78
. 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168)
(82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155
. 175) (85 . 179) (172 . 180) (144 . 466)) ((83 . -236) (84 . -236) (48
. -236)) ((-1 . -186)) ((-1 . -6)) ((-1 . -7)) ((22 . 3) (28 . 4) (29 . 5)
(30 . 6) (31 . 7) (32 . 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 .
13) (37 . 14) (40 . 15) (24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20)
(139 . 21) (140 . 22) (141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27
) (43 . 28) (44 . 29) (45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33)
(149 . 34) (150 . 35) (170 . 379) (171 . 464) (166 . 143) (165 . 144) (164
. 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151
) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156
) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79
. 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169
) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (
172 . 465)) ((92 . -19) (83 . -19)) ((85 . 433)) ((85 . 433) (-1 . -26)) (
(8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180
. 157) (181 . 158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178)
(81 . 165) (177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176
. 173) (93 . 166) (168 . 231) (166 . 143) (165 . 144) (164 . 145) (163 .
146) (162 . 147) (161 . 148) (160 . 149) (159 . 154) (158 . 155) (157 .
159) (156 . 168) (155 . 463)) ((166 . 143) (165 . 144) (164 . 145) (163 .
146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5
. 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) ( . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 .
178) (81 . 165) (93 . 166) (177 . 167) (89 . 259) (91 . 260) (156 . 168) ( 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170)
82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (117 . 261) (168 (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172 . 439)) ((
. 174) (155 . 175) (118 . 262) (85 . 179) (172 . 180) (144 . 263) (119 . 90 . 436) (-1 . -28)) ((83 . -201) (92 . -201)) ((92 . -199)) ((90 . 435))
264) (173 . 462)) ((-1 . -34)) ((-1 . -185)) ((-1 . -228)) ((166 . 143) ( ((-1 . -38)) ((-1 . -37)) ((-1 . -36)) ((80 . 319) (75 . 320) (74 . 321)
(-1 . -41)) ((80 . 319) (75 . 320) (74 . 321) (-1 . -40)) ((79 . 317) (78
. 318) (-1 . -44)) ((79 . 317) (78 . 318) (-1 . -43)) ((73 . 315) (72 .
316) (-1 . -49)) ((73 . 315) (72 . 316) (-1 . -48)) ((73 . 315) (72 . 316)
(-1 . -47)) ((73 . 315) (72 . 316) (-1 . -46)) ((71 . 311) (70 . 312) (69
. 313) (68 . 314) (-1 . -52)) ((71 . 311) (70 . 312) (69 . 313) (68 . 314
) (-1 . -51)) ((67 . 309) (66 . 310) (-1 . -54)) ((81 . 308) (-1 . -56)) (
(65 . 307) (-1 . -58)) ((64 . 306) (-1 . -60)) ((85 . 433) (8 . 150) (3 .
151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (179 . 156) (180 . 157) (181 .
158) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (
177 . 167) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (93 .
166) (168 . 231) (166 . 434)) ((91 . 326) (93 . 368) (80 . 54) (120 . 328)
(127 . 369) (169 . 339) (22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32
. 8) (33 . 9) (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15)
(24 . 16) (25 . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (
141 . 23) (41 . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (
45 . 30) (46 . 60) (47 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (
170 . 137) (121 . 138) (122 . 139) (124 . 340) (92 . 341)) ((91 . 326) (93
. 368) (120 . 336) (92 . -209) (83 . -209)) ((92 . -207)) ((-1 . -4)) ((
63 . 304) (-1 . -62)) ((60 . 432) (83 . 248)) ((92 . 431)) ((92 . 430)) ((
-1 . -10)) ((-1 . -9)) ((-1 . -8)) ((91 . 326) (93 . 368) (80 . 54) (120
. 328) (127 . 369) (169 . 429) (92 . -20) (83 . -20)) ((92 . -17) (83 .
-17)) ((92 . -15) (83 . -15)) ((92 . 427) (83 . 428)) ((90 . 426) (83 .
248)) ((-1 . -66)) ((-1 . -187)) ((90 . 425)) ((-1 . -181)) ((166 . 143) (
165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8
. 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 .
155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161)
(78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156
. 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174
) (155 . 175) (172 . 461)) ((-1 . -221)) ((90 . 460)) ((166 . 143) (165 . ) (155 . 175) (85 . 179) (172 . 180) (144 . 422) (89 . 259) (91 . 260) (
144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) 117 . 261) (118 . 262) (119 . 423) (84 . 424)) ((83 . -235) (84 . -235) (
(3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) ( 48 . -235)) ((83 . -237) (84 . -237)) ((-1 . -241)) ((59 . -243) (89 .
179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 -243) (91 . -243)) ((90 . 421)) ((59 . -245) (91 . -245) (89 . -245)) ((-1
. 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) . -278)) ((-1 . -275)) ((-1 . -272)) ((-1 . -271)) ((48 . 420) (83 . 248)
(82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 ) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148)
. 175) (172 . 458) (25 . 17) (26 . 18) (27 . 19) (148 . 132) (90 . 459)) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (
((-1 . -222)) ((-1 . -231)) ((-1 . -212)) ((-1 . -230)) ((92 . 457)) ((25 159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76
. 17) (26 . 18) (27 . 19) (148 . 118) (125 . 456)) ((-1 . -216)) ((90 . . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166)
455) (-1 . -28)) ((90 . 454)) ((166 . 143) (165 . 144) (164 . 145) (163 . (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176
. 173) (168 . 174) (155 . 175) (172 . 184) (178 . 418) (104 . 419) (48 .
-273)) ((93 . 417)) ((92 . 416) (83 . 248)) ((92 . 415) (83 . 248)) ((83
. 248) (92 . 414)) ((-1 . -79)) ((-1 . -255)) ((166 . 143) (165 . 144) (
164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 .
151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
(87 . 172) (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 .
184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 .
190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (
20 . 196) (21 . 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113
. 202) (114 . 203) (115 . 204) (116 . 205) (109 . 413)) ((-1 . -253)) ((48
. -162) (83 . -162)) ((48 . -160) (83 . -160)) ((95 . -154) (-1 . -154))
((-1 . -165)) ((-1 . -254)) ((166 . 143) (165 . 144) (164 . 145) (163 .
146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5
. 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) ( . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 .
181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (
178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) 177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176
(86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172 . 451) (25 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9
. 17) (26 . 18) (27 . 19) (148 . 132) (90 . 452) (44 . 453)) ((90 . 482)) . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (
((-1 . -214)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) 16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 .
(161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 .
(7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 203) (115 . 204) (116 . 205) (109 . 471)) ((166 . 143) (165 . 144) (164 .
. 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) ( 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (
93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (157 .
172) (176 . 173) (168 . 174) (155 . 175) (172 . 481)) ((-1 . -215)) ((-1 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93
. -227)) ((90 . 479) (25 . 17) (26 . 18) (27 . 19) (148 . 132) (166 . 143) . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 .
(165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) ( 172) (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2
8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 . 190) (15
. 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (20 . 196)
161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) ( (21 . 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113 . 202) (
156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 114 . 203) (115 . 204) (116 . 205) (109 . 470)) ((166 . 143) (165 . 144) (
. 174) (155 . 175) (172 . 480)) ((-1 . -229)) ((90 . 478)) ((-1 . -225)) ( 164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 .
(-1 . -220)) ((90 . 477)) ((84 . 475) (83 . 476)) ((-1 . -64)) ((92 . -18) 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
(83 . -18)) ((92 . -16) (83 . -16)) ((83 . -239) (84 . -239)) ((166 . 143 157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
(8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 (87 . 172) (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 .
. 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 .
161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) ( 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (
156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 20 . 196) (21 . 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113
. 174) (155 . 175) (172 . 184) (178 . 418) (104 . 474) (92 . -273)) ((92 . 202) (114 . 203) (115 . 204) (116 . 205) (109 . 469)) ((166 . 143) (165
. 473) (83 . 248)) ((-1 . -267)) ((-1 . -266)) ((17 . 472) (-1 . -264)) ((
166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (
160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155)
(179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79
. 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169)
(167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (6
. 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 .
188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (
178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) (110 . 199) (111
. 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204) (116 . 205) (109 .
488)) ((48 . 487)) ((92 . 486)) ((-1 . -13)) ((84 . 485) (166 . 143) (165
. 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 .
150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 .
155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161)
(78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156
. 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174
) (155 . 175) (85 . 179) (172 . 180) (144 . 422) (89 . 259) (91 . 260) ( ) (155 . 175) (172 . 184) (178 . 468)) ((83 . 248) (48 . -274) (92 . -274)
117 . 261) (118 . 262) (119 . 423)) ((-1 . -226)) ((-1 . -224)) ((-1 . ) ((48 . 467)) ((-1 . -270)) ((59 . -244) (91 . -244) (89 . -244)) ((83 .
-218)) ((90 . 484)) ((90 . 483)) ((-1 . -213)) ((-1 . -219)) ((-1 . -217)) -240) (84 . -240)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162
((-1 . -14)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6
(161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (159 . . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158)
154) (158 . 155) (179 . 156) (180 . 157) (157 . 159) (76 . 160) (77 . 161) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
(78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
. 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174 (87 . 172) (176 . 173) (168 . 174) (155 . 175) (85 . 179) (172 . 180) (144
) (155 . 175) (6 . 52) (7 . 53) (172 . 184) (2 . 37) (9 . 185) (10 . 186) . 466)) ((83 . -236) (84 . -236) (48 . -236)) ((-1 . -186)) ((-1 . -6)) (
(11 . 187) (12 . 188) (13 . 189) (14 . 190) (15 . 191) (16 . 192) (19 . (-1 . -7)) ((22 . 3) (28 . 4) (29 . 5) (30 . 6) (31 . 7) (32 . 8) (33 . 9)
193) (48 . 194) (178 . 195) (85 . 108) (20 . 196) (21 . 197) (181 . 198) ( (34 . 10) (35 . 11) (36 . 12) (38 . 13) (37 . 14) (40 . 15) (24 . 16) (25
110 . 199) (111 . 200) (112 . 201) (113 . 202) (114 . 203) (115 . 204) ( . 17) (26 . 18) (27 . 19) (138 . 20) (139 . 21) (140 . 22) (141 . 23) (41
116 . 205) (109 . 489)) ((-1 . -268)) ((-1 . -265)) ((-1 . -269)))) . 24) (142 . 25) (143 . 26) (42 . 27) (43 . 28) (44 . 29) (45 . 30) (46
. 60) (47 . 31) (147 . 32) (148 . 33) (149 . 34) (150 . 35) (170 . 379) (
171 . 464) (166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (
161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7
. 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 .
159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93
. 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 .
172) (176 . 173) (168 . 174) (155 . 175) (172 . 465)) ((92 . -19) (83 .
-19)) ((85 . 433)) ((85 . 433) (-1 . -26)) ((8 . 150) (3 . 151) (4 . 152)
(5 . 153) (6 . 52) (7 . 53) (179 . 156) (180 . 157) (181 . 158) (76 . 160)
(77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (177 . 167) (82 .
169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (93 . 166) (168 . 231)
(166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (
160 . 149) (159 . 154) (158 . 155) (157 . 159) (156 . 168) (155 . 463)) ((
166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (
160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159
. 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 .
160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (
177 . 167) (89 . 259) (91 . 260) (156 . 168) (82 . 169) (167 . 170) (86 .
171) (87 . 172) (176 . 173) (117 . 261) (168 . 174) (155 . 175) (118 . 262
) (85 . 179) (172 . 180) (144 . 263) (119 . 264) (173 . 462)) ((-1 . -34))
((-1 . -185)) ((-1 . -228)) ((166 . 143) (165 . 144) (164 . 145) (163 .
146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5
. 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 .
178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170)
(86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172 . 461)) ((
-1 . -221)) ((90 . 460)) ((166 . 143) (165 . 144) (164 . 145) (163 . 146)
(162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153
) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (181
. 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178)
(81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86
. 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172 . 458) (25 . 17
) (26 . 18) (27 . 19) (148 . 132) (90 . 459)) ((-1 . -222)) ((-1 . -231))
((-1 . -212)) ((-1 . -230)) ((92 . 457)) ((25 . 17) (26 . 18) (27 . 19) (
148 . 118) (125 . 456)) ((-1 . -216)) ((90 . 455) (-1 . -28)) ((90 . 454))
((166 . 143) (165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148)
(160 . 149) (8 . 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159
. 154) (158 . 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 .
160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (
177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176
. 173) (168 . 174) (155 . 175) (172 . 451) (25 . 17) (26 . 18) (27 . 19) (
148 . 132) (90 . 452) (44 . 453)) ((90 . 482)) ((-1 . -214)) ((166 . 143)
(165 . 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8
. 150) (3 . 151) (4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158
. 155) (179 . 156) (180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 .
161) (78 . 162) (79 . 163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (
156 . 168) (82 . 169) (167 . 170) (86 . 171) (87 . 172) (176 . 173) (168
. 174) (155 . 175) (172 . 481)) ((-1 . -215)) ((-1 . -227)) ((90 . 479) (
25 . 17) (26 . 18) (27 . 19) (148 . 132) (166 . 143) (165 . 144) (164 .
145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (
4 . 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (
180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 .
163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (
167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172
. 480)) ((-1 . -229)) ((90 . 478)) ((-1 . -225)) ((-1 . -220)) ((90 . 477)
) ((84 . 475) (83 . 476)) ((-1 . -64)) ((92 . -18) (83 . -18)) ((92 . -16)
(83 . -16)) ((83 . -239) (84 . -239)) ((166 . 143) (165 . 144) (164 . 145
) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4
. 152) (5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (
180 . 157) (181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 .
163) (80 . 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (
167 . 170) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (172
. 184) (178 . 418) (104 . 474) (92 . -273)) ((92 . 473) (83 . 248)) ((-1
. -267)) ((-1 . -266)) ((17 . 472) (-1 . -264)) ((166 . 143) (165 . 144) (
164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 .
151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (180 . 157) (
157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 . 178) (81 .
165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170) (86 . 171)
(87 . 172) (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53) (172 .
184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 . 189) (14 .
190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (85 . 108) (
20 . 196) (21 . 197) (181 . 198) (110 . 199) (111 . 200) (112 . 201) (113
. 202) (114 . 203) (115 . 204) (116 . 205) (109 . 488)) ((48 . 487)) ((92
. 486)) ((-1 . -13)) ((84 . 485) (166 . 143) (165 . 144) (164 . 145) (163
. 146) (162 . 147) (161 . 148) (160 . 149) (8 . 150) (3 . 151) (4 . 152) (
5 . 153) (6 . 52) (7 . 53) (159 . 154) (158 . 155) (179 . 156) (180 . 157)
(181 . 158) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80
. 178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170
) (86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (85 . 179) (
172 . 180) (144 . 422) (89 . 259) (91 . 260) (117 . 261) (118 . 262) (119
. 423)) ((-1 . -226)) ((-1 . -224)) ((-1 . -218)) ((90 . 484)) ((90 . 483)
) ((-1 . -213)) ((-1 . -219)) ((-1 . -217)) ((-1 . -14)) ((166 . 143) (165
. 144) (164 . 145) (163 . 146) (162 . 147) (161 . 148) (160 . 149) (8 .
150) (3 . 151) (4 . 152) (5 . 153) (159 . 154) (158 . 155) (179 . 156) (
180 . 157) (157 . 159) (76 . 160) (77 . 161) (78 . 162) (79 . 163) (80 .
178) (81 . 165) (93 . 166) (177 . 167) (156 . 168) (82 . 169) (167 . 170)
(86 . 171) (87 . 172) (176 . 173) (168 . 174) (155 . 175) (6 . 52) (7 . 53
) (172 . 184) (2 . 37) (9 . 185) (10 . 186) (11 . 187) (12 . 188) (13 .
189) (14 . 190) (15 . 191) (16 . 192) (19 . 193) (48 . 194) (178 . 195) (
85 . 108) (20 . 196) (21 . 197) (181 . 198) (110 . 199) (111 . 200) (112
. 201) (113 . 202) (114 . 203) (115 . 204) (116 . 205) (109 . 489)) ((-1
. -268)) ((-1 . -265)) ((-1 . -269))))
(define c99-rto-v (define c99-rto-v
#(#f 177 177 177 177 176 176 176 176 176 176 176 176 176 176 175 175 175 #(#f 177 177 177 177 176 176 176 176 176 176 176 176 176 176 175 175 175

660
module/nyacc/lang/c99/mach.d/c99xtab.scm
View file

@ -23,160 +23,165 @@
179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) ( 179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (
79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) ( 79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (
167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 36) 167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 36)
(178 . 37)) ((-1 . -35)) ((80 . 119) (75 . 120) (74 . 121) (-1 . -39)) (( (178 . 37)) ((97 . -35) (-1 . -35)) ((80 . 119) (75 . 120) (74 . 121) (97
79 . 117) (78 . 118) (-1 . -42)) ((73 . 115) (72 . 116) (-1 . -45)) ((71 . -39) (-1 . -39)) ((79 . 117) (78 . 118) (97 . -42) (-1 . -42)) ((73 .
. 111) (70 . 112) (69 . 113) (68 . 114) (-1 . -50)) ((67 . 109) (66 . 110) 115) (72 . 116) (97 . -45) (-1 . -45)) ((71 . 111) (70 . 112) (69 . 113) (
(-1 . -53)) ((81 . 108) (-1 . -55)) ((-1 . -301)) ((-1 . -300)) ((-1 . 68 . 114) (97 . -50) (-1 . -50)) ((67 . 109) (66 . 110) (97 . -53) (-1 .
-299)) ((-1 . -298)) ((-1 . -297)) ((-1 . -296)) ((65 . 107) (-1 . -57)) ( -53)) ((81 . 108) (97 . -55) (-1 . -55)) ((97 . -301) (-1 . -301)) ((97 .
(64 . 106) (-1 . -59)) ((8 . 105) (-1 . -3)) ((-1 . -2)) ((-1 . -1)) ((63 -300) (-1 . -300)) ((97 . -299) (-1 . -299)) ((97 . -298) (-1 . -298)) ((
. 104) (-1 . -61)) ((-1 . -32)) ((-1 . -31)) ((-1 . -30)) ((-1 . -29)) (( 97 . -297) (-1 . -297)) ((97 . -296) (-1 . -296)) ((65 . 107) (97 . -57) (
-1 . -28)) ((-1 . -27)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) -1 . -57)) ((64 . 106) (97 . -59) (-1 . -59)) ((8 . 105) (97 . -3) (-1 .
(161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) ( -3)) ((97 . -2) (-1 . -2)) ((97 . -1) (-1 . -1)) ((63 . 104) (97 . -61) (
159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) -1 . -61)) ((-1 . -32)) ((-1 . -31)) ((-1 . -30)) ((-1 . -29)) ((-1 . -28)
(77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) ( ) ((-1 . -27)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6
156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) ( ) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14)
155 . 35) (172 . 36) (178 . 66) (22 . 67) (28 . 68) (29 . 69) (30 . 70) ( (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21
31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 ) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28)
. 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35)
85) (140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . (172 . 36) (178 . 66) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (
92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 98) (149 . 32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40
99) (150 . 100) (170 . 101) (133 . 102) (174 . 103)) ((-1 . -5)) ((61 . 64 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140
) (62 . 65) (-1 . -63)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44
13) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 98) (149 . 99) (150
23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32 . 100) (170 . 101) (133 . 102) (174 . 103)) ((97 . -5) (-1 . -5)) ((61 .
) (176 . 33) (168 . 62) (93 . 63)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 64) (62 . 65) (97 . -63) (-1 . -63)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6
. 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78
22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 .
) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 61)) ((8 . 8) (3 . 9) ( 31) (87 . 32) (176 . 33) (168 . 62) (93 . 63)) ((8 . 8) (3 . 9) (4 . 10) (
4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77
20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 57) (177 . 27) . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 .
(82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 59)) ((8 . 8) 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 61)) ((8 .
(3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181
18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 57) . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 57
(177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 58)) ) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 59
((91 . 51) (93 . 52) (89 . 53) (88 . 54) (87 . 55) (86 . 56) (-1 . -21)) )) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 .
((49 . 39) (50 . 40) (51 . 41) (52 . 42) (53 . 43) (54 . 44) (55 . 45) (56 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25)
. 46) (57 . 47) (58 . 48) (59 . 49) (154 . 50) (-1 . -33)) ((-1 . -65)) ( (93 . 57) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33)
(-1 . -78)) ((83 . 38) (97 . 0)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (168 . 58)) ((91 . 51) (93 . 52) (89 . 53) (88 . 54) (87 . 55) (86 . 56) (
(162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) ( 97 . -21) (-1 . -21)) ((49 . 39) (50 . 40) (51 . 41) (52 . 42) (53 . 43) (
7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) 54 . 44) (55 . 45) (56 . 46) (57 . 47) (58 . 48) (59 . 49) (154 . 50) (97
(76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . -33) (-1 . -33)) ((97 . -65) (-1 . -65)) ((97 . -78) (-1 . -78)) ((83 .
. 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 38) (97 . 0)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6)
. 34) (155 . 35) (172 . 190)) ((-1 . -77)) ((-1 . -76)) ((-1 . -75)) ((-1 (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14)
. -74)) ((-1 . -73)) ((-1 . -72)) ((-1 . -71)) ((-1 . -70)) ((-1 . -69)) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21)
((-1 . -68)) ((-1 . -67)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (
5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) 82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (
(159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 172 . 190)) ((-1 . -77)) ((-1 . -76)) ((-1 . -75)) ((-1 . -74)) ((-1 . -73
20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) )) ((-1 . -72)) ((-1 . -71)) ((-1 . -70)) ((-1 . -69)) ((-1 . -68)) ((-1
(156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) . -67)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160
(155 . 35) (172 . 189)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158
) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78
(159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 .
) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) ( 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172
156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) ( . 189)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160
155 . 35) (172 . 36) (178 . 188)) ((92 . 183) (166 . 1) (165 . 2) (164 . 3 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158
) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78
) (6 . 12) (7 . 13) (159 . 14) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 .
. 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172
78) (40 . 79) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (24 . 80) (25 . . 36) (178 . 188)) ((92 . 183) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (
81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7
88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95 . 13) (159 . 14) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 .
) (47 . 96) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) ( 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79)
81 . 25) (93 . 26) (177 . 27) (147 . 97) (148 . 146) (149 . 147) (150 . (158 . 15) (179 . 16) (180 . 17) (181 . 18) (24 . 80) (25 . 81) (26 . 82)
100) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89)
. 34) (155 . 35) (170 . 184) (171 . 185) (172 . 186) (175 . 187)) ((6 . 12 (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (
) (7 . 13) (181 . 182)) ((6 . 12) (7 . 13) (181 . 181)) ((-1 . -11)) ((-1 157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93
. -12)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 26) (177 . 27) (147 . 97) (148 . 146) (149 . 147) (150 . 100) (156 . 28)
. 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80 (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35)
) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87 (170 . 184) (171 . 185) (172 . 186) (175 . 187)) ((6 . 12) (7 . 13) (181
) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) . 182)) ((6 . 12) (7 . 13) (181 . 181)) ((97 . -11) (-1 . -11)) ((97 . -12
(46 . 95) (47 . 96) (147 . 97) (148 . 98) (149 . 99) (150 . 100) (170 . ) (-1 . -12)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72)
101) (133 . 102) (174 . 180) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24
. 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141
13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45
. 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 98) (149 . 99) (150 . 100) (
27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 170 . 101) (133 . 102) (174 . 180) (166 . 1) (165 . 2) (164 . 3) (163 . 4)
34) (155 . 35) (172 . 36) (178 . 66)) ((-1 . -22)) ((-1 . -23)) ((-1 . -33 (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12)
)) ((-1 . -24)) ((-1 . -25)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19)
. 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78 (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (
) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) 177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
(140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) 168 . 34) (155 . 35) (172 . 36) (178 . 66)) ((97 . -22) (-1 . -22)) ((97
(44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 98) (149 . 99) ( . -23) (-1 . -23)) ((97 . -33) (-1 . -33)) ((97 . -24) (-1 . -24)) ((97 .
150 . 100) (170 . 101) (133 . 102) (174 . 179) (166 . 1) (165 . 2) (164 . -25) (-1 . -25)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 .
3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79)
11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (
18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) 141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (
(93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) 45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 98) (149 . 99) (150 . 100)
(176 . 33) (168 . 34) (155 . 35) (172 . 36) (178 . 66)) ((166 . 1) (165 . (170 . 101) (133 . 102) (174 . 179) (166 . 1) (165 . 2) (164 . 3) (163 . 4
2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . ) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12)
10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19
(181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) ( ) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (
81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) ( 177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 36) (178 . 178)) ((8 . 8) 168 . 34) (155 . 35) (172 . 36) (178 . 66)) ((166 . 1) (165 . 2) (164 . 3)
(3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11)
18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18)
(82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93
(166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176
. 14) (158 . 15) (157 . 177)) ((92 . 176) (83 . 38)) ((-1 . -233)) ((85 . 33) (168 . 34) (155 . 35) (172 . 36) (178 . 178)) ((8 . 8) (3 . 9) (4
. 174) (6 . 12) (7 . 13) (22 . 67) (138 . 169) (181 . 170) (137 . 175)) ((
85 . 172) (6 . 12) (7 . 13) (22 . 67) (138 . 169) (181 . 170) (137 . 173))
((85 . 168) (6 . 12) (7 . 13) (22 . 67) (138 . 169) (181 . 170) (137 .
171)) ((-1 . -138)) ((31 . 167) (-1 . -136)) ((31 . 166) (-1 . -135)) ((-1
. -132)) ((40 . 162) (38 . 163) (36 . 164) (34 . 165) (-1 . -127)) ((38
. 159) (36 . 160) (32 . 161) (-1 . -116)) ((-1 . -113)) ((40 . 155) (38 .
156) (36 . 157) (34 . 158) (-1 . -114)) ((38 . 154) (-1 . -109)) ((-1 .
-176)) ((-1 . -175)) ((-1 . -174)) ((-1 . -173)) ((-1 . -108)) ((-1 . -107
)) ((-1 . -106)) ((-1 . -105)) ((-1 . -104)) ((-1 . -103)) ((-1 . -102)) (
(-1 . -101)) ((-1 . -100)) ((-1 . -99)) ((-1 . -98)) ((-1 . -97)) ((-1 .
-96)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 .
73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80)
(25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87)
(41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (
46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100) (170 .
153) (-1 . -90)) ((24 . 80) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 .
96) (147 . 97) (150 . 100) (170 . 151) (22 . 67) (28 . 68) (29 . 69) (30
. 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77
) (37 . 78) (40 . 79) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85)
(140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (148 . 98)
(149 . 99) (133 . 152) (92 . -88) (80 . -158) (91 . -158) (93 . -158)) ((
24 . 80) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (150
. 100) (170 . 149) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32
. 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79
) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87
) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (148 . 98) (149 . 99) (133 .
150) (92 . -86) (80 . -156) (91 . -156) (93 . -156)) ((22 . 67) (28 . 68)
(29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36
. 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83
) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 .
90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97)
(148 . 146) (149 . 147) (150 . 100) (170 . 148) (-1 . -84)) ((92 . -208))
((91 . 140) (93 . 141) (80 . 142) (120 . 143) (127 . 144) (169 . 145)) ((
92 . 139)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16)
(180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (
81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
93 . 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161
. 6) (160 . 7) (159 . 14) (158 . 138)) ((-1 . -302)) ((8 . 8) (3 . 9) (4
. 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20
) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) ( ) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (
167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 1) ( 167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 1) (
165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 137)) (( 165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 14) (158
8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) ( . 15) (157 . 177)) ((92 . 176) (83 . 38)) ((-1 . -233)) ((85 . 174) (6 .
12) (7 . 13) (22 . 67) (138 . 169) (181 . 170) (137 . 175)) ((85 . 172) (6
. 12) (7 . 13) (22 . 67) (138 . 169) (181 . 170) (137 . 173)) ((85 . 168)
(6 . 12) (7 . 13) (22 . 67) (138 . 169) (181 . 170) (137 . 171)) ((-1 .
-138)) ((31 . 167) (-1 . -136)) ((31 . 166) (-1 . -135)) ((-1 . -132)) ((
40 . 162) (38 . 163) (36 . 164) (34 . 165) (-1 . -127)) ((38 . 159) (36 .
160) (32 . 161) (-1 . -116)) ((-1 . -113)) ((40 . 155) (38 . 156) (36 .
157) (34 . 158) (-1 . -114)) ((38 . 154) (-1 . -109)) ((-1 . -176)) ((-1
. -175)) ((-1 . -174)) ((-1 . -173)) ((-1 . -108)) ((-1 . -107)) ((-1 .
-106)) ((-1 . -105)) ((-1 . -104)) ((-1 . -103)) ((-1 . -102)) ((-1 . -101
)) ((-1 . -100)) ((-1 . -99)) ((-1 . -98)) ((-1 . -97)) ((-1 . -96)) ((22
. 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74
) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (
26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (
142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47
. 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100) (170 . 153) (-1 .
-90)) ((24 . 80) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 .
97) (150 . 100) (170 . 151) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 .
71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78)
(40 . 79) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (
141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (148 . 98) (149 . 99)
(133 . 152) (92 . -88) (80 . -158) (91 . -158) (93 . -158)) ((24 . 80) (43
. 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (150 . 100) (170
. 149) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 .
73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (25 . 81)
(26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88)
(142 . 89) (143 . 90) (42 . 91) (148 . 98) (149 . 99) (133 . 150) (92 .
-86) (80 . -156) (91 . -156) (93 . -156)) ((22 . 67) (28 . 68) (29 . 69) (
30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38
. 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 .
84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42
. 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 .
146) (149 . 147) (150 . 100) (170 . 148) (-1 . -84)) ((92 . -208)) ((91 .
140) (93 . 141) (80 . 142) (120 . 143) (127 . 144) (169 . 145)) ((92 . 139
)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 .
17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25)
(177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26)
(168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (
160 . 7) (159 . 14) (158 . 138)) ((97 . -302) (-1 . -302)) ((8 . 8) (3 . 9
) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76
. 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 .
29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 .
1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 137)
) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 .
17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25)
(177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26)
(168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (
160 . 136)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16
) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24)
(81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
93 . 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161
. 135)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (
180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81
. 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93
. 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 134)) ((8
. 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (
181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177
. 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168
. 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 133)) ((8 . 8) (3 . 9
136)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 ) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76
. 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 .
25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 .
26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 .
135)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180
. 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 .
25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 .
26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 134)) ((8 .
8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181
. 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 .
27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 .
60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 133)) ((8 . 8) (3 . 9)
(4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76
. 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 .
29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 .
1) (165 . 2) (164 . 3) (163 . 132)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 1) (165 . 2) (164 . 3) (163 . 132)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6
@ -214,76 +219,80 @@
166 . 123)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16 166 . 123)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16
) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) ) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24)
(81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) ( (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
93 . 26) (168 . 60) (166 . 122)) ((-1 . -38)) ((-1 . -37)) ((-1 . -36)) (( 93 . 26) (168 . 60) (166 . 122)) ((97 . -38) (-1 . -38)) ((97 . -37) (-1
80 . 119) (75 . 120) (74 . 121) (-1 . -41)) ((80 . 119) (75 . 120) (74 . . -37)) ((97 . -36) (-1 . -36)) ((80 . 119) (75 . 120) (74 . 121) (97 .
121) (-1 . -40)) ((79 . 117) (78 . 118) (-1 . -44)) ((79 . 117) (78 . 118) -41) (-1 . -41)) ((80 . 119) (75 . 120) (74 . 121) (97 . -40) (-1 . -40))
(-1 . -43)) ((73 . 115) (72 . 116) (-1 . -49)) ((73 . 115) (72 . 116) (-1 ((79 . 117) (78 . 118) (97 . -44) (-1 . -44)) ((79 . 117) (78 . 118) (97
. -48)) ((73 . 115) (72 . 116) (-1 . -47)) ((73 . 115) (72 . 116) (-1 . . -43) (-1 . -43)) ((73 . 115) (72 . 116) (97 . -49) (-1 . -49)) ((73 .
-46)) ((71 . 111) (70 . 112) (69 . 113) (68 . 114) (-1 . -52)) ((71 . 111) 115) (72 . 116) (97 . -48) (-1 . -48)) ((73 . 115) (72 . 116) (97 . -47) (
(70 . 112) (69 . 113) (68 . 114) (-1 . -51)) ((67 . 109) (66 . 110) (-1 -1 . -47)) ((73 . 115) (72 . 116) (97 . -46) (-1 . -46)) ((71 . 111) (70
. -54)) ((81 . 108) (-1 . -56)) ((65 . 107) (-1 . -58)) ((64 . 106) (-1 . . 112) (69 . 113) (68 . 114) (97 . -52) (-1 . -52)) ((71 . 111) (70 . 112)
-60)) ((85 . 237) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 (69 . 113) (68 . 114) (97 . -51) (-1 . -51)) ((67 . 109) (66 . 110) (97
. 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . -54) (-1 . -54)) ((81 . 108) (97 . -56) (-1 . -56)) ((65 . 107) (97 .
. 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 -58) (-1 . -58)) ((64 . 106) (97 . -60) (-1 . -60)) ((85 . 237) (8 . 8) (3
. 33) (93 . 26) (168 . 60) (166 . 238)) ((166 . 1) (165 . 2) (164 . 3) ( . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18)
163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) ( (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (
6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) ( 82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (
157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (81 . 25) (93 . 26) (177 166 . 238)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (
. 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (
. 34) (155 . 35) (172 . 232) (90 . 233) (44 . 234) (25 . 81) (26 . 82) ( 158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21)
27 . 83) (148 . 223) (125 . 235) (80 . 236)) ((91 . 140) (93 . 141) (80 . (78 . 22) (79 . 23) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (
142) (120 . 143) (127 . 144) (169 . 226) (22 . 67) (28 . 68) (29 . 69) (30 167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 232)
. 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . (90 . 233) (44 . 234) (25 . 81) (26 . 82) (27 . 83) (148 . 223) (125 .
77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) 235) (80 . 236)) ((91 . 140) (93 . 141) (80 . 142) (120 . 143) (127 . 144)
(139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91 (169 . 226) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (
) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 146) 33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24
(149 . 147) (150 . 100) (170 . 227) (121 . 228) (122 . 229) (124 . 230) ( . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141
92 . 231)) ((25 . 81) (26 . 82) (27 . 83) (148 . 223) (125 . 224) (80 . . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 .
142) (127 . 225) (-1 . -193)) ((91 . 221) (93 . 222) (92 . -211) (83 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100) (
-211)) ((91 . 140) (93 . 141) (120 . 220) (92 . -209) (83 . -209)) ((92 . 170 . 227) (121 . 228) (122 . 229) (124 . 230) (92 . 231)) ((25 . 81) (26
-207)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . . 82) (27 . 83) (148 . 223) (125 . 224) (80 . 142) (127 . 225) (-1 . -193)
73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) ) ((91 . 221) (93 . 222) (92 . -211) (83 . -211)) ((91 . 140) (93 . 141) (
(25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) 120 . 220) (92 . -209) (83 . -209)) ((92 . -207)) ((22 . 67) (28 . 68) (29
(41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) ( . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 .
46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100) (170 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83)
151) (-1 . -88)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90
72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) ) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (
(24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) ( 148 . 146) (149 . 147) (150 . 100) (170 . 151) (-1 . -88)) ((22 . 67) (28
. 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75
) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (
27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89)
(143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94) (46 . 95) (47 . 96) (
147 . 97) (148 . 146) (149 . 147) (150 . 100) (170 . 149) (-1 . -86)) ((-1
. -85)) ((-1 . -87)) ((-1 . -155)) ((-1 . -89)) ((-1 . -157)) ((-1 . -91)
) ((-1 . -110)) ((38 . 219) (-1 . -111)) ((-1 . -115)) ((36 . 217) (38 .
218) (-1 . -118)) ((-1 . -133)) ((-1 . -117)) ((38 . 216) (-1 . -120)) ((
31 . 215) (-1 . -137)) ((38 . 214) (-1 . -125)) ((-1 . -126)) ((36 . 212)
(38 . 213) (-1 . -129)) ((-1 . -134)) ((-1 . -139)) ((-1 . -140)) ((22 .
67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74)
(35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (25 . 81) (26 . 82) (27
. 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88) (142 . 89) (
143 . 90) (42 . 91) (148 . 203) (149 . 204) (95 . 205) (133 . 206) (134 .
207) (135 . 208) (136 . 211)) ((-1 . -149)) ((-1 . -148)) ((85 . 210) (-1
. -144)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33
. 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (25 . 81
) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 87) (41 . 88
) (142 . 89) (143 . 90) (42 . 91) (148 . 203) (149 . 204) (95 . 205) (133
. 206) (134 . 207) (135 . 208) (136 . 209)) ((85 . 202) (-1 . -147)) ((6
. 12) (7 . 13) (181 . 199) (128 . 200) (129 . 201)) ((85 . 198) (-1 . -168
)) ((97 . -4) (-1 . -4)) ((63 . 104) (97 . -62) (-1 . -62)) ((60 . 197) (
83 . 38)) ((92 . 196)) ((92 . 195)) ((97 . -10) (-1 . -10)) ((97 . -9) (-1
. -9)) ((97 . -8) (-1 . -8)) ((91 . 140) (93 . 141) (80 . 142) (120 . 143
) (127 . 144) (169 . 194) (92 . -20) (83 . -20)) ((92 . -17) (83 . -17)) (
(92 . -15) (83 . -15)) ((92 . 192) (83 . 193)) ((90 . 191) (83 . 38)) ((97
. -66) (-1 . -66)) ((97 . -79) (-1 . -79)) ((97 . -6) (-1 . -6)) ((97 .
-7) (-1 . -7)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72
) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (
24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (
141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) ( 141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (
45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100 45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100
) (170 . 149) (-1 . -86)) ((-1 . -85)) ((-1 . -87)) ((-1 . -155)) ((-1 . ) (170 . 184) (171 . 291) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5
-89)) ((-1 . -157)) ((-1 . -91)) ((-1 . -110)) ((38 . 219) (-1 . -111)) (( ) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13)
-1 . -115)) ((36 . 217) (38 . 218) (-1 . -118)) ((-1 . -133)) ((-1 . -117) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20
) ((38 . 216) (-1 . -120)) ((31 . 215) (-1 . -137)) ((38 . 214) (-1 . -125 ) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (
)) ((-1 . -126)) ((36 . 212) (38 . 213) (-1 . -129)) ((-1 . -134)) ((-1 . 156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (
-139)) ((-1 . -140)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) ( 155 . 35) (172 . 292)) ((92 . -19) (83 . -19)) ((85 . 237)) ((85 . 237) (
32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 97 . -26) (-1 . -26)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13)
. 79) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141
. 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (148 . 203) (149 . 204) (
95 . 205) (133 . 206) (134 . 207) (135 . 208) (136 . 211)) ((-1 . -149)) (
(-1 . -148)) ((85 . 210) (-1 . -144)) ((22 . 67) (28 . 68) (29 . 69) (30
. 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77
) (37 . 78) (40 . 79) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85)
(140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (148 . 203
) (149 . 204) (95 . 205) (133 . 206) (134 . 207) (135 . 208) (136 . 209))
((85 . 202) (-1 . -147)) ((6 . 12) (7 . 13) (181 . 199) (128 . 200) (129
. 201)) ((85 . 198) (-1 . -168)) ((-1 . -4)) ((63 . 104) (-1 . -62)) ((60
. 197) (83 . 38)) ((92 . 196)) ((92 . 195)) ((-1 . -10)) ((-1 . -9)) ((-1
. -8)) ((91 . 140) (93 . 141) (80 . 142) (120 . 143) (127 . 144) (169 .
194) (92 . -20) (83 . -20)) ((92 . -17) (83 . -17)) ((92 . -15) (83 . -15)
) ((92 . 192) (83 . 193)) ((90 . 191) (83 . 38)) ((-1 . -66)) ((-1 . -79))
((-1 . -6)) ((-1 . -7)) ((22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71
) (32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (
40 . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (
140 . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (
44 . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147)
(150 . 100) (170 . 184) (171 . 291) (166 . 1) (165 . 2) (164 . 3) (163 . 4
) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12)
(7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19
) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (
177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
168 . 34) (155 . 35) (172 . 292)) ((92 . -19) (83 . -19)) ((85 . 237)) ((
85 . 237) (-1 . -26)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13)
(179 . 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23)
(80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) ( (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (
176 . 33) (93 . 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) ( 176 . 33) (93 . 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (
@ -351,37 +360,37 @@
(78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (89 . 239) ( (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (89 . 239) (
91 . 240) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) ( 91 . 240) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (
117 . 241) (168 . 34) (155 . 35) (118 . 242) (85 . 243) (172 . 244) (144 117 . 241) (168 . 34) (155 . 35) (118 . 242) (85 . 243) (172 . 244) (144
. 245) (119 . 246) (173 . 247)) ((-1 . -34)) ((6 . 12) (7 . 13) (181 . 329 . 245) (119 . 246) (173 . 247)) ((97 . -34) (-1 . -34)) ((6 . 12) (7 . 13)
)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . (181 . 329)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (179 .
17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24
(177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) ) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33)
(168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) ( (93 . 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (
160 . 7) (159 . 14) (158 . 15) (157 . 19) (156 . 28) (155 . 295) (130 . 161 . 6) (160 . 7) (159 . 14) (158 . 15) (157 . 19) (156 . 28) (155 . 295)
328)) ((59 . -242) (89 . -242) (91 . -242)) ((59 . 326) (89 . 239) (91 . (130 . 328)) ((59 . -242) (89 . -242) (91 . -242)) ((59 . 326) (89 . 239)
240) (117 . 327)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 (91 . 240) (117 . 327)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5
. 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . ) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13)
14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20
. 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (89 . ) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (
239) (91 . 240) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 89 . 239) (91 . 240) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (
. 33) (117 . 241) (168 . 34) (155 . 35) (118 . 242) (85 . 243) (172 . 244) 176 . 33) (117 . 241) (168 . 34) (155 . 35) (118 . 242) (85 . 243) (172 .
(144 . 245) (119 . 246) (173 . 325)) ((84 . -234) (83 . -234)) ((84 . 244) (144 . 245) (119 . 246) (173 . 325)) ((84 . -234) (83 . -234)) ((84
-238) (83 . -238)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . -238) (83 . -238)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (
. 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (
. 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20)
. 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (
. 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (
. 35) (85 . 243) (172 . 244) (144 . 324)) ((84 . 322) (83 . 323)) ((-1 . 155 . 35) (85 . 243) (172 . 244) (144 . 324)) ((84 . 322) (83 . 323)) ((-1
-228)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . -228)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (
. 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (
. 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21)
. 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (
29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (
. 321)) ((-1 . -197)) ((-1 . -221)) ((90 . 320)) ((166 . 1) (165 . 2) (164 172 . 321)) ((-1 . -197)) ((-1 . -221)) ((90 . 320)) ((166 . 1) (165 . 2)
. 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10)
. 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (
. 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81
25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87
32) (176 . 33) (168 . 34) (155 . 35) (172 . 318) (25 . 81) (26 . 82) (27 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 318) (25 . 81) (26 . 82) (27
. 83) (148 . 250) (90 . 319)) ((-1 . -222)) ((-1 . -231)) ((22 . 67) (28 . 83) (148 . 250) (90 . 319)) ((-1 . -222)) ((-1 . -231)) ((22 . 67) (28
. 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 73) (34 . 74) (35 . 75
) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) ( ) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . 80) (25 . 81) (26 . 82) (
@ -431,91 +440,92 @@
(167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 1) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 1)
(165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 14) ( (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 14) (
158 . 15) (157 . 19) (156 . 28) (155 . 295) (130 . 296)) ((83 . 293) (84 158 . 15) (157 . 19) (156 . 28) (155 . 295) (130 . 296)) ((83 . 293) (84
. 294)) ((-1 . -64)) ((92 . -18) (83 . -18)) ((92 . -16) (83 . -16)) ((6 . 294)) ((97 . -64) (-1 . -64)) ((92 . -18) (83 . -18)) ((92 . -16) (83 .
. 12) (7 . 13) (181 . 199) (128 . 298) (84 . 357)) ((-1 . -164)) ((-1 . -16)) ((6 . 12) (7 . 13) (181 . 199) (128 . 298) (84 . 357)) ((-1 . -164))
-80)) ((84 . -172) (83 . -172)) ((-1 . -167)) ((84 . -170) (83 . -170)) (( ((-1 . -80)) ((84 . -172) (83 . -172)) ((-1 . -167)) ((84 . -170) (83 .
-1 . -145)) ((94 . 354) (98 . 355) (151 . 356) (95 . -294) (-1 . -294)) (( -170)) ((-1 . -145)) ((94 . 354) (98 . 355) (151 . 356) (95 . -294) (-1 .
6 . 12) (7 . 13) (80 . 142) (93 . 279) (181 . 257) (126 . 258) (127 . 280) -294)) ((6 . 12) (7 . 13) (80 . 142) (93 . 279) (181 . 257) (126 . 258) (
(60 . 281) (145 . 282) (131 . 353)) ((8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 127 . 280) (60 . 281) (145 . 282) (131 . 353)) ((8 . 8) (3 . 9) (4 . 10) (
. 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77 . 21) (78 5 . 11) (6 . 12) (7 . 13) (179 . 16) (180 . 17) (181 . 18) (76 . 20) (77
. 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 . 30) (86 . . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (177 . 27) (82 . 29) (167 .
31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 1) (165 . 2) (164 . 3 30) (86 . 31) (87 . 32) (176 . 33) (93 . 26) (168 . 60) (166 . 1) (165 . 2
) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 14) (158 . 15) (157 . 19) ) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (159 . 14) (158 . 15)
(156 . 28) (155 . 295) (130 . 352)) ((48 . -163) (83 . -163)) ((91 . 314) (157 . 19) (156 . 28) (155 . 295) (130 . 352)) ((48 . -163) (83 . -163)) (
(93 . 315) (-1 . -177)) ((92 . 351)) ((-1 . -142)) ((90 . 350)) ((-1 . (91 . 314) (93 . 315) (-1 . -177)) ((92 . 351)) ((-1 . -142)) ((90 . 350))
-214)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 ((-1 . -214)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6
. 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158
. 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78
. 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 .
29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172
. 349)) ((-1 . -215)) ((-1 . -227)) ((90 . 347) (25 . 81) (26 . 82) (27 .
83) (148 . 250) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6
) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) ) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14)
(158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21 (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21
) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) ) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28)
(82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35)
(172 . 348)) ((-1 . -229)) ((44 . 342) (90 . 343) (166 . 1) (165 . 2) (164 (172 . 349)) ((-1 . -215)) ((-1 . -227)) ((90 . 347) (25 . 81) (26 . 82) (
. 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 27 . 83) (148 . 250) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (
. 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (
. 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 344) (81 . 159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20)
25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (
32) (176 . 33) (168 . 34) (155 . 35) (172 . 345) (25 . 81) (26 . 82) (27 156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (
. 83) (148 . 223) (125 . 346)) ((92 . 338) (6 . 12) (7 . 13) (181 . 339) ( 155 . 35) (172 . 348)) ((-1 . -229)) ((44 . 342) (90 . 343) (166 . 1) (165
123 . 340) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (32 . 72) (33 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4
. 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40 . 79) (24 . . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 .
80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140 . 86) (141 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 .
87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44 . 93) (45 . 94 344) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 .
) (46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (150 . 100) (170 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 345) (25 . 81) (26
. 227) (121 . 228) (122 . 229) (124 . 341)) ((83 . -201) (92 . -201)) ((92 . 82) (27 . 83) (148 . 223) (125 . 346)) ((92 . 338) (6 . 12) (7 . 13) (
. -199)) ((90 . 337)) ((-1 . -225)) ((-1 . -220)) ((90 . 336)) ((-1 . -13 181 . 339) (123 . 340) (22 . 67) (28 . 68) (29 . 69) (30 . 70) (31 . 71) (
)) ((84 . 333) (166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) 32 . 72) (33 . 73) (34 . 74) (35 . 75) (36 . 76) (38 . 77) (37 . 78) (40
(160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) . 79) (24 . 80) (25 . 81) (26 . 82) (27 . 83) (138 . 84) (139 . 85) (140
(158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) . 86) (141 . 87) (41 . 88) (142 . 89) (143 . 90) (42 . 91) (43 . 92) (44
(78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) ( . 93) (45 . 94) (46 . 95) (47 . 96) (147 . 97) (148 . 146) (149 . 147) (
82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) ( 150 . 100) (170 . 227) (121 . 228) (122 . 229) (124 . 341)) ((83 . -201) (
85 . 243) (172 . 244) (144 . 334) (89 . 239) (91 . 240) (117 . 241) (118 92 . -201)) ((92 . -199)) ((90 . 337)) ((-1 . -225)) ((-1 . -220)) ((90 .
. 242) (119 . 335)) ((84 . -237) (83 . -237)) ((83 . 331) (84 . 332)) ((-1 336)) ((97 . -13) (-1 . -13)) ((84 . 333) (166 . 1) (165 . 2) (164 . 3) (
. -241)) ((59 . -243) (89 . -243) (91 . -243)) ((90 . 330)) ((59 . -245) 163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (
(91 . -245) (89 . -245)) ((59 . -244) (91 . -244) (89 . -244)) ((166 . 1) 6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (
(165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9 157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93
) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) ( . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176
180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) ( . 33) (168 . 34) (155 . 35) (85 . 243) (172 . 244) (144 . 334) (89 . 239)
80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) ( (91 . 240) (117 . 241) (118 . 242) (119 . 335)) ((84 . -237) (83 . -237))
86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (85 . 243) (172 . 244) ((83 . 331) (84 . 332)) ((-1 . -241)) ((59 . -243) (89 . -243) (91 . -243)
(144 . 334) (89 . 239) (91 . 240) (117 . 241) (118 . 242) (119 . 335) (84 ) ((90 . 330)) ((59 . -245) (91 . -245) (89 . -245)) ((59 . -244) (91 .
. 371)) ((84 . -235) (83 . -235)) ((-1 . -14)) ((84 . -240) (83 . -240)) -244) (89 . -244)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161
. 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159
. 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77
. 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156
. 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155
. 35) (85 . 243) (172 . 244) (144 . 334) (89 . 239) (91 . 240) (117 . 241)
(118 . 242) (119 . 335) (84 . 371)) ((84 . -235) (83 . -235)) ((97 . -14)
(-1 . -14)) ((84 . -240) (83 . -240)) ((166 . 1) (165 . 2) (164 . 3) (163
. 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6
. 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157
. 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 .
26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 .
33) (168 . 34) (155 . 35) (85 . 243) (172 . 244) (144 . 370)) ((-1 . -226)
) ((-1 . -224)) ((-1 . -191)) ((92 . -205) (83 . -205)) ((92 . 368) (83 .
369)) ((92 . 367)) ((25 . 81) (26 . 82) (27 . 83) (148 . 223) (125 . 366))
((-1 . -184)) ((90 . 365) (-1 . -28)) ((90 . 364)) ((166 . 1) (165 . 2) (
164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10)
(5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (
181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (81 . 25) (93
. 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176
. 33) (168 . 34) (155 . 35) (172 . 360) (25 . 81) (26 . 82) (27 . 83) (
148 . 250) (90 . 361) (44 . 362) (80 . 363)) ((-1 . -218)) ((90 . 359)) ((
90 . 358)) ((-1 . -213)) ((-1 . -180)) ((48 . -162) (83 . -162)) ((48 .
-160) (83 . -160)) ((95 . -303) (-1 . -303)) ((95 . -295) (-1 . -295)) ((
95 . -154) (-1 . -154)) ((-1 . -165)) ((-1 . -219)) ((-1 . -217)) ((90 .
376)) ((-1 . -182)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (
161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (
159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20)
(77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (
156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (
155 . 35) (172 . 375)) ((90 . 374) (-1 . -28)) ((-1 . -183)) ((-1 . -188))
((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8
. 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) ( . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (
179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) ( 179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (
79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) ( 79 . 23) (80 . 24) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (
167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (85 . 243) 167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 . 373)
(172 . 244) (144 . 370)) ((-1 . -226)) ((-1 . -224)) ((-1 . -191)) ((92 . (25 . 81) (26 . 82) (27 . 83) (148 . 250)) ((-1 . -189)) ((-1 . -190)) ((
-205) (83 . -205)) ((92 . 368) (83 . 369)) ((92 . 367)) ((25 . 81) (26 . 6 . 12) (7 . 13) (181 . 372)) ((84 . -239) (83 . -239)) ((84 . -236) (83
82) (27 . 83) (148 . 223) (125 . 366)) ((-1 . -184)) ((90 . 365) (-1 . -28 . -236)) ((92 . -206) (83 . -206)) ((90 . 378)) ((-1 . -187)) ((90 . 377))
)) ((90 . 364)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (162 . 5) (161 . ((-1 . -181)) ((-1 . -186)) ((-1 . -185))))
6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7 . 13) (159 . 14
) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (76 . 20) (77 .
21) (78 . 22) (79 . 23) (81 . 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29
) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168 . 34) (155 . 35) (172 .
360) (25 . 81) (26 . 82) (27 . 83) (148 . 250) (90 . 361) (44 . 362) (80
. 363)) ((-1 . -218)) ((90 . 359)) ((90 . 358)) ((-1 . -213)) ((-1 . -180)
) ((48 . -162) (83 . -162)) ((48 . -160) (83 . -160)) ((95 . -303) (-1 .
-303)) ((95 . -295) (-1 . -295)) ((95 . -154) (-1 . -154)) ((-1 . -165)) (
(-1 . -219)) ((-1 . -217)) ((90 . 376)) ((-1 . -182)) ((166 . 1) (165 . 2)
(164 . 3) (163 . 4) (162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10
) (5 . 11) (6 . 12) (7 . 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (
181 . 18) (157 . 19) (76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81
. 25) (93 . 26) (177 . 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87
. 32) (176 . 33) (168 . 34) (155 . 35) (172 . 375)) ((90 . 374) (-1 . -28)
) ((-1 . -183)) ((-1 . -188)) ((166 . 1) (165 . 2) (164 . 3) (163 . 4) (
162 . 5) (161 . 6) (160 . 7) (8 . 8) (3 . 9) (4 . 10) (5 . 11) (6 . 12) (7
. 13) (159 . 14) (158 . 15) (179 . 16) (180 . 17) (181 . 18) (157 . 19) (
76 . 20) (77 . 21) (78 . 22) (79 . 23) (80 . 24) (81 . 25) (93 . 26) (177
. 27) (156 . 28) (82 . 29) (167 . 30) (86 . 31) (87 . 32) (176 . 33) (168
. 34) (155 . 35) (172 . 373) (25 . 81) (26 . 82) (27 . 83) (148 . 250)) ((
-1 . -189)) ((-1 . -190)) ((6 . 12) (7 . 13) (181 . 372)) ((84 . -239) (83
. -239)) ((84 . -236) (83 . -236)) ((92 . -206) (83 . -206)) ((90 . 378))
((-1 . -187)) ((90 . 377)) ((-1 . -181)) ((-1 . -186)) ((-1 . -185))))
(define c99x-rto-v (define c99x-rto-v
#(#f 177 177 177 177 176 176 176 176 176 176 176 176 176 176 175 175 175 #(#f 177 177 177 177 176 176 176 176 176 176 176 176 176 176 175 175 175

151
module/nyacc/lang/c99/mach.d/cpptab.scm
View file

@ -17,83 +17,90 @@
. 24) (50 . 25)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) . 24) (50 . 25)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7)
(9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 .
15) (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22) 15) (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22)
(48 . 23) (49 . 24) (50 . 55) (36 . 56)) ((3 . 53) (7 . 54)) ((-1 . -43)) (48 . 23) (49 . 24) (50 . 55) (36 . 56)) ((3 . 53) (7 . 54)) ((35 . -43) (
((-1 . -42)) ((-1 . -41)) ((-1 . -38)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 -1 . -43)) ((35 . -42) (-1 . -42)) ((35 . -41) (-1 . -41)) ((35 . -38) (-1
. 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . -38)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8)
. 13) (39 . 52)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 52)) ((3 . 1) (4
(9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 51)) ((3 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (
16 . 11) (15 . 12) (38 . 13) (39 . 51)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (
7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38
. 13) (39 . 50)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7
) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 49)) ((3
. 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11
. 10) (16 . 11) (15 . 12) (38 . 13) (39 . 50)) ((3 . 1) (4 . 2) (5 . 3) ( . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 48)) ((3 . 1) (4 . 2) (5 . 3) (
6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15
. 12) (38 . 13) (39 . 49)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . . 12) (38 . 13) (39 . 47)) ((9 . 45) (8 . 46) (35 . -31) (-1 . -31)) ((35
6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . . -27) (-1 . -27)) ((14 . 42) (13 . 43) (12 . 44) (35 . -24) (-1 . -24)) (
48)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 (16 . 40) (15 . 41) (35 . -21) (-1 . -21)) ((18 . 38) (17 . 39) (35 . -16)
. 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 47)) ((9 . 45) (8 . 46 (-1 . -16)) ((22 . 34) (21 . 35) (20 . 36) (19 . 37) (35 . -13) (-1 . -13
) (-1 . -31)) ((-1 . -27)) ((14 . 42) (13 . 43) (12 . 44) (-1 . -24)) ((16 )) ((24 . 32) (23 . 33) (35 . -11) (-1 . -11)) ((25 . 31) (35 . -9) (-1 .
. 40) (15 . 41) (-1 . -21)) ((18 . 38) (17 . 39) (-1 . -16)) ((22 . 34) ( -9)) ((26 . 30) (35 . -7) (-1 . -7)) ((27 . 29) (35 . -5) (-1 . -5)) ((28
21 . 35) (20 . 36) (19 . 37) (-1 . -13)) ((24 . 32) (23 . 33) (-1 . -11)) . 28) (35 . -3) (-1 . -3)) ((31 . 26) (29 . 27) (2 . -1) (1 . -1) (35 . -1
((25 . 31) (-1 . -9)) ((26 . 30) (-1 . -7)) ((27 . 29) (-1 . -5)) ((28 . )) ((35 . 0)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9
28) (-1 . -3)) ((31 . 26) (29 . 27) (2 . -1) (1 . -1) (35 . -1)) ((35 . 0) . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15)
) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22) (48
9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) ( . 23) (49 . 78)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7
42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22) (48 . 23) (49 ) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40
. 78)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) ( . 15) (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22
10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . ) (48 . 77)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9
16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22) (48 . 77)) . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15)
((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9 (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 76)) ((3
) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) ( . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (
42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 76)) ((3 . 1) (4 . 11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42
2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 75)) ((3 . 1) (4 . 2) (5 . 3) (6
. 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 .
18) (44 . 19) (45 . 20) (46 . 75)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5
) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13
) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 74)) (
(3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9)
(11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42
. 17) (43 . 18) (44 . 73)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 .
6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 .
14) (40 . 15) (41 . 16) (42 . 17) (43 . 72)) ((3 . 1) (4 . 2) (5 . 3) (6
. 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 .
12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 71)) ((3 . 1) 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 18) (44 . 19)
(4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10 (45 . 74)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 .
) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 70)) ( 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (
(3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) 41 . 16) (42 . 17) (43 . 18) (44 . 73)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (
(11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38
. 69)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) ( . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 72)) ((3 . 1) (4 . 2)
10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16
16) (42 . 68)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) ( . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 71
9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15 )) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10
) (41 . 16) (42 . 67)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) ( . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16)
8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (42 . 70)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9
(40 . 15) (41 . 66)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15)
(41 . 16) (42 . 69)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8
. 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) ( . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (
40 . 15) (41 . 65)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 40 . 15) (41 . 16) (42 . 68)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37
. 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (
40 . 64)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8
) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 63)) ((
3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (
11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 62)) ((3 . 1) (4 . 2) (5 . 3)
(6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15
. 12) (38 . 13) (39 . 61)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37
. 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39
. 60)) ((-1 . -39)) ((-1 . -40)) ((-1 . -32)) ((-1 . -33)) ((-1 . -34)) (( . 14) (40 . 15) (41 . 16) (42 . 67)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7
-1 . -35)) ((-1 . -36)) ((-1 . -37)) ((7 . 59)) ((-1 . -45)) ((2 . -47) (1 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38
. -47)) ((2 . 57) (1 . 58)) ((-1 . -46)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) . 13) (39 . 14) (40 . 15) (41 . 66)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7
(7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) ( . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38
38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 13) (39 . 14) (40 . 15) (41 . 65)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7
. 20) (46 . 21) (47 . 22) (48 . 23) (49 . 24) (50 . 81)) ((2 . 80)) ((-1 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38
. -30)) ((-1 . -29)) ((-1 . -28)) ((14 . 42) (13 . 43) (12 . 44) (-1 . -26 . 13) (39 . 14) (40 . 64)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 .
)) ((14 . 42) (13 . 43) (12 . 44) (-1 . -25)) ((16 . 40) (15 . 41) (-1 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 .
-23)) ((16 . 40) (15 . 41) (-1 . -22)) ((18 . 38) (17 . 39) (-1 . -20)) (( 14) (40 . 63)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (
18 . 38) (17 . 39) (-1 . -19)) ((18 . 38) (17 . 39) (-1 . -18)) ((18 . 38) 9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 62)) ((3 . 1
(17 . 39) (-1 . -17)) ((22 . 34) (21 . 35) (20 . 36) (19 . 37) (-1 . -15) ) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 .
) ((22 . 34) (21 . 35) (20 . 36) (19 . 37) (-1 . -14)) ((24 . 32) (23 . 33 10) (16 . 11) (15 . 12) (38 . 13) (39 . 61)) ((3 . 1) (4 . 2) (5 . 3) (6
) (-1 . -12)) ((25 . 31) (-1 . -10)) ((26 . 30) (-1 . -8)) ((27 . 29) (-1 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 .
. -6)) ((28 . 28) (-1 . -4)) ((30 . 79) (29 . 27)) ((3 . 1) (4 . 2) (5 . 3 12) (38 . 13) (39 . 60)) ((35 . -39) (-1 . -39)) ((35 . -40) (-1 . -40)) (
) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) ( (35 . -32) (-1 . -32)) ((35 . -33) (-1 . -33)) ((35 . -34) (-1 . -34)) ((
15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 . 16) (42 . 17) (43 . 18) (44 35 . -35) (-1 . -35)) ((35 . -36) (-1 . -36)) ((35 . -37) (-1 . -37)) ((7
. 19) (45 . 20) (46 . 21) (47 . 22) (48 . 23) (49 . 24) (50 . 82)) ((-1 . . 59)) ((35 . -45) (-1 . -45)) ((2 . -47) (1 . -47)) ((2 . 57) (1 . 58)) (
-44)) ((2 . -48) (1 . -48)) ((2 . -2) (1 . -2) (35 . -2)))) (35 . -46) (-1 . -46)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (
8 . 7) (9 . 8) (10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14)
(40 . 15) (41 . 16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47
. 22) (48 . 23) (49 . 24) (50 . 81)) ((2 . 80)) ((35 . -30) (-1 . -30)) ((
35 . -29) (-1 . -29)) ((35 . -28) (-1 . -28)) ((14 . 42) (13 . 43) (12 .
44) (35 . -26) (-1 . -26)) ((14 . 42) (13 . 43) (12 . 44) (35 . -25) (-1
. -25)) ((16 . 40) (15 . 41) (35 . -23) (-1 . -23)) ((16 . 40) (15 . 41) (
35 . -22) (-1 . -22)) ((18 . 38) (17 . 39) (35 . -20) (-1 . -20)) ((18 .
38) (17 . 39) (35 . -19) (-1 . -19)) ((18 . 38) (17 . 39) (35 . -18) (-1
. -18)) ((18 . 38) (17 . 39) (35 . -17) (-1 . -17)) ((22 . 34) (21 . 35) (
20 . 36) (19 . 37) (35 . -15) (-1 . -15)) ((22 . 34) (21 . 35) (20 . 36) (
19 . 37) (35 . -14) (-1 . -14)) ((24 . 32) (23 . 33) (35 . -12) (-1 . -12)
) ((25 . 31) (35 . -10) (-1 . -10)) ((26 . 30) (35 . -8) (-1 . -8)) ((27
. 29) (35 . -6) (-1 . -6)) ((28 . 28) (35 . -4) (-1 . -4)) ((30 . 79) (29
. 27)) ((3 . 1) (4 . 2) (5 . 3) (6 . 4) (7 . 5) (37 . 6) (8 . 7) (9 . 8) (
10 . 9) (11 . 10) (16 . 11) (15 . 12) (38 . 13) (39 . 14) (40 . 15) (41 .
16) (42 . 17) (43 . 18) (44 . 19) (45 . 20) (46 . 21) (47 . 22) (48 . 23)
(49 . 24) (50 . 82)) ((35 . -44) (-1 . -44)) ((2 . -48) (1 . -48)) ((2 .
-2) (1 . -2) (35 . -2))))
(define cpp-rto-v (define cpp-rto-v
#(#f 50 50 49 49 48 48 47 47 46 46 45 45 44 44 44 43 43 43 43 43 42 42 42 #(#f 50 50 49 49 48 48 47 47 46 46 45 45 44 44 44 43 43 43 43 43 42 42 42

48
module/nyacc/lang/c99/mach.scm
View file

@ -29,11 +29,12 @@
#:use-module ((srfi srfi-43) #:select (vector-map)) #:use-module ((srfi srfi-43) #:select (vector-map))
) )
;; @item c99-spec ;; @deffn {Variable} c99-spec
;; This variable is the specification a-list for the hacked ISO C99 language. ;; This variable is the specification a-list for the hacked ISO C99 language.
;; Run this through @code{make-lalr-machine} to get an a-list for the ;; Run this through @code{make-lalr-machine} to get an a-list for the
;; automaton. The grammar is modified to parse CPP statements and comments. ;; automaton. The grammar is modified to parse CPP statements and comments.
;; The output of the end parser will be a SXML tree (w/o the @code{*TOP*} node. ;; The output of the end parser will be a SXML tree (w/o the @code{*TOP*} node.
;; @end deffn
(define c99-spec (define c99-spec
(lalr-spec (lalr-spec
(notice (string-append "Copyright (C) 2016,2017 Matthew R. Wette" (notice (string-append "Copyright (C) 2016,2017 Matthew R. Wette"
@ -649,7 +650,8 @@
;; non-terminal leaves ;; non-terminal leaves
(identifier (identifier
($ident ($$ `(ident ,$1))) ($ident ($$ `(ident ,$1)))
('cpp-ident ($$ `(ident ,$1)))) ('cpp-ident ($$ `(ident ,$1)))
)
(constant (constant
($fixed ($$ `(fixed ,$1))) ; integer-constant ($fixed ($$ `(fixed ,$1))) ; integer-constant
($float ($$ `(float ,$1))) ; floating-constant ($float ($$ `(float ,$1))) ; floating-constant
@ -672,22 +674,22 @@
;;; ===================================== ;;; =====================================
;; The following are needed by the code in pbody.scm. ;; The following are needed by the code in pbody.scm.
(define c99-mach-len-v (assq-ref c99-mach 'len-v)) (define c99-len-v (assq-ref c99-mach 'len-v))
(define c99-mach-pat-v (assq-ref c99-mach 'pat-v)) (define c99-pat-v (assq-ref c99-mach 'pat-v))
(define c99-mach-rto-v (assq-ref c99-mach 'rto-v)) (define c99-rto-v (assq-ref c99-mach 'rto-v))
(define c99-mach-mtab (assq-ref c99-mach 'mtab)) (define c99-mtab (assq-ref c99-mach 'mtab))
(define c99-mach-act-v (vector-map (define c99-act-v (vector-map
(lambda (ix f) (eval f (current-module))) (lambda (ix f) (eval f (current-module)))
(vector-map (lambda (ix actn) (wrap-action actn)) (vector-map (lambda (ix actn) (wrap-action actn))
(assq-ref c99-mach 'act-v)))) (assq-ref c99-mach 'act-v))))
(include-from-path "nyacc/lang/c99/body.scm") (include-from-path "nyacc/lang/c99/body.scm")
(define c99-mach-raw-parser (make-lalr-parser c99-mach)) (define raw-parser (make-lalr-parser c99-mach))
(define (c99-mach-run-parse) (define (run-parse)
(let ((info (fluid-ref *info*))) (let ((info (fluid-ref *info*)))
(c99-mach-raw-parser (gen-c-lexer) #:debug (cpi-debug info)))) (raw-parser (gen-c-lexer) #:debug (cpi-debug info))))
(define* (dev-parse-c99 #:key (define* (dev-parse-c99 #:key
(cpp-defs '()) ; CPP defines (cpp-defs '()) ; CPP defines
@ -703,7 +705,7 @@
(with-fluid* (with-fluid*
*info* info *info* info
(lambda () (lambda ()
(c99-mach-raw-parser (gen-c-lexer #:mode mode #:xdef? xdef?) (raw-parser (gen-c-lexer #:mode mode #:xdef? xdef?)
#:debug debug))))) #:debug debug)))))
(lambda (key fmt . rest) (lambda (key fmt . rest)
(report-error fmt rest) (report-error fmt rest)
@ -713,29 +715,32 @@
;;; ===================================== ;;; =====================================
;; @item gen-c99-files [dir] => #t ;; @deffn {Procedure} gen-c99-files [dir] => #t
;; Update or generate the files @quot{c99act.scm} and @quot{c99tab.scm}. ;; Update or generate the files @quot{c99act.scm} and @quot{c99tab.scm}.
;; These are the tables and actions for the C99 parser. ;; These are the tables and actions for the C99 parser.
;; If there are no changes to existing files, no update occurs. ;; If there are no changes to existing files, no update occurs.
;; @end deffn
(define (gen-c99-files . rest) (define (gen-c99-files . rest)
(define (lang-dir path) (define (lang-dir path)
(if (pair? rest) (string-append (car rest) "/" path) path)) (if (pair? rest) (string-append (car rest) "/" path) path))
(define (xtra-dir path) (define (xtra-dir path)
(lang-dir (string-append "mach.d/" path))) (lang-dir (string-append "mach.d/" path)))
(write-lalr-actions c99-mach (xtra-dir "c99act.scm.new")) (write-lalr-actions c99-mach (xtra-dir "c99act.scm.new") #:prefix "c99-")
(write-lalr-tables c99-mach (xtra-dir "c99tab.scm.new")) (write-lalr-tables c99-mach (xtra-dir "c99tab.scm.new") #:prefix "c99-")
(let ((a (move-if-changed (xtra-dir "c99act.scm.new") (let ((a (move-if-changed (xtra-dir "c99act.scm.new")
(xtra-dir "c99act.scm"))) (xtra-dir "c99act.scm")))
(b (move-if-changed (xtra-dir "c99tab.scm.new") (b (move-if-changed (xtra-dir "c99tab.scm.new")
(xtra-dir "c99tab.scm")))) (xtra-dir "c99tab.scm"))))
(when (or a b) #;(when (or a b)
(system (string-append "touch " (lang-dir "parser.scm")))))) (system (string-append "touch " (lang-dir "parser.scm"))))
(or a b)))
;; @item gen-c99x-files [dir] => #t ;; @deffn {Procedure} gen-c99x-files [dir] => #t
;; Update or generate the files @quot{c99xact.scm} and @quot{c99xtab.scm}. ;; Update or generate the files @quot{c99xact.scm} and @quot{c99xtab.scm}.
;; These are the tables and actions for the C99 expression parser. ;; These are the tables and actions for the C99 expression parser.
;; If there are no changes to existing files, no update occurs. ;; If there are no changes to existing files, no update occurs.
;; @end deffn
(define (gen-c99x-files . rest) (define (gen-c99x-files . rest)
(define (lang-dir path) (define (lang-dir path)
(if (pair? rest) (string-append (car rest) "/" path) path)) (if (pair? rest) (string-append (car rest) "/" path) path))
@ -746,8 +751,10 @@
(cexpr-mach (compact-machine (cexpr-mach (compact-machine
(hashify-machine (hashify-machine
(make-lalr-machine cexpr-spec))))) (make-lalr-machine cexpr-spec)))))
(write-lalr-actions cexpr-mach (xtra-dir "c99xact.scm.new")) (write-lalr-actions cexpr-mach (xtra-dir "c99xact.scm.new")
(write-lalr-tables cexpr-mach (xtra-dir "c99xtab.scm.new"))) #:prefix "c99x-")
(write-lalr-tables cexpr-mach (xtra-dir "c99xtab.scm.new")
#:prefix "c99x-"))
(let ((a (move-if-changed (xtra-dir "c99xact.scm.new") (let ((a (move-if-changed (xtra-dir "c99xact.scm.new")
(xtra-dir "c99xact.scm"))) (xtra-dir "c99xact.scm")))
@ -756,6 +763,7 @@
(when (or a b) (when (or a b)
(system (string-append "touch " (lang-dir "parser.scm"))) (system (string-append "touch " (lang-dir "parser.scm")))
#;(compile-file (lang-dir "xparser.scm")) #;(compile-file (lang-dir "xparser.scm"))
))) )
(or a b)))
;; --- last line --- ;; --- last line ---

22
module/nyacc/lang/c99/parser.scm
View file

@ -25,20 +25,13 @@
#:use-module (nyacc lang c99 cpp) #:use-module (nyacc lang c99 cpp)
) )
(cond-expand
(guile-2)
(guile
(use-modules (ice-9 syncase))
(use-modules (ice-9 optargs)))
(mes))
(include-from-path "nyacc/lang/c99/mach.d/c99tab.scm") (include-from-path "nyacc/lang/c99/mach.d/c99tab.scm")
(include-from-path "nyacc/lang/c99/body.scm") (include-from-path "nyacc/lang/c99/body.scm")
(include-from-path "nyacc/lang/c99/mach.d/c99act.scm") (include-from-path "nyacc/lang/c99/mach.d/c99act.scm")
;; Parse given a token generator. Uses fluid @code{*info*}. ;; Parse given a token generator. Uses fluid @code{*info*}.
;; A little ugly wrt re-throw but ;; A little ugly wrt re-throw but
(define c99-raw-parser (define raw-parser
(let ((parser (make-lalr-parser (let ((parser (make-lalr-parser
(list (cons 'len-v c99-len-v) (cons 'pat-v c99-pat-v) (list (cons 'len-v c99-len-v) (cons 'pat-v c99-pat-v)
(cons 'rto-v c99-rto-v) (cons 'mtab c99-mtab) (cons 'rto-v c99-rto-v) (cons 'mtab c99-mtab)
@ -53,12 +46,12 @@
(throw 'c99-error "C99 parse error")))))) (throw 'c99-error "C99 parse error"))))))
;; This is used to parse included files at top level. ;; This is used to parse included files at top level.
(define (c99-parser-run-parse) (define (run-parse)
(let ((info (fluid-ref *info*))) (let ((info (fluid-ref *info*)))
(c99-raw-parser (gen-c-lexer) #:debug (cpi-debug info)))) (raw-parser (gen-c-lexer #:mode 'decl) #:debug (cpi-debug info))))
;; @deffn {Procedure} parse-c99 [#:cpp-defs def-a-list] [#:inc-dirs dir-list] \ ;; @deffn {Procedure} parse-c99 [#:cpp-defs def-a-list] [#:inc-dirs dir-list] \
;; [#:mode ('code|'file)] [#:debug bool] ;; [#:mode ('code|'file|'decl)] [#:debug bool]
;; This needs to be explained in some detail. ;; This needs to be explained in some detail.
;; tdd = typedef dict: (("<time>" time_t) ... ("<unistd.h>" ...)) ;; tdd = typedef dict: (("<time>" time_t) ... ("<unistd.h>" ...))
;; Default mode is @code{'code}. ;; Default mode is @code{'code}.
@ -69,12 +62,15 @@
;; #:inc-help (append '("myinc.h" "foo_t" "bar_t") c99-std-help) ;; #:inc-help (append '("myinc.h" "foo_t" "bar_t") c99-std-help)
;; #:mode 'file)) ;; #:mode 'file))
;; @end example ;; @end example
;; Note: for @code{file} mode user still needs to make sure CPP conditional
;; expressions can be fully evaluated, which may mean adding compiler generated
;; defines (e.g., using @code{gen-cpp-defs}).
;; @end deffn ;; @end deffn
(define* (parse-c99 #:key (define* (parse-c99 #:key
(cpp-defs '()) ; CPP defines (cpp-defs '()) ; CPP defines
(inc-dirs '()) ; include dirs (inc-dirs '()) ; include dirs
(inc-help '()) ; include helpers (inc-help '()) ; include helpers
(mode 'code) ; mode: 'file or 'code (mode 'code) ; mode: 'file, 'code or 'decl
(xdef? #f) ; pred to determine expand (xdef? #f) ; pred to determine expand
(debug #f)) ; debug (debug #f)) ; debug
(catch (catch
@ -86,7 +82,7 @@
(with-fluid* (with-fluid*
*info* info *info* info
(lambda () (lambda ()
(c99-raw-parser (gen-c-lexer #:mode mode #:xdef? xdef?) (raw-parser (gen-c-lexer #:mode mode #:xdef? xdef?)
#:debug debug))))) #:debug debug)))))
(lambda (key fmt . rest) (lambda (key fmt . rest)
(report-error fmt rest) (report-error fmt rest)

56
module/nyacc/lang/c99/pprint.scm
View file

@ -1,6 +1,6 @@
;;; nyacc/lang/c99/pprint.scm ;;; nyacc/lang/c99/pprint.scm
;;; ;;;
;;; Copyright (C) 2015,2016 Matthew R. Wette ;;; Copyright (C) 2015-2017 Matthew R. Wette
;;; ;;;
;;; This program is free software: you can redistribute it and/or modify ;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by ;;; it under the terms of the GNU General Public License as published by
@ -79,14 +79,26 @@
(define protect-expr? (make-protect-expr op-prec op-assc)) (define protect-expr? (make-protect-expr op-prec op-assc))
;; @deffn pretty-print-c99 tree [#:indent-level 2] ;; @deffn pretty-print-c99 tree [port] [options]
;; Convert and print a C99 sxml tree to the current output port. ;; Convert and print a C99 sxml tree to the current output port.
;; The optional keyword argument @code{#:indent-level} provides the ;; The optional keyword argument @code{#:indent-level} provides the
;; indent level, with default of 2. ;; indent level, with default of 2.
(define* (pretty-print-c99 tree #:key (indent-level 2) (ugly #f)) ;; @table code
;; @item #:indent-level <level>
;; indent level for C code
;; @item #:per-line-prefix <string>
;; string
;; @item #:ugly #t|#f
;; pring ugly
;; @end table
;; @end deffn
(define* (pretty-print-c99 tree
#:optional (port (current-output-port))
#:key (indent-level 2) ugly per-line-prefix)
;;(define fmtr (make-pp-formatter)) (define fmtr
(define fmtr (if ugly (make-pp-formatter/ugly) (make-pp-formatter))) ((if ugly make-pp-formatter/ugly make-pp-formatter)
port #:per-line-prefix per-line-prefix))
(define (push-il)(fmtr 'push)) (define (push-il)(fmtr 'push))
(define (pop-il) (fmtr 'pop)) (define (pop-il) (fmtr 'pop))
@ -283,14 +295,17 @@
;; sxml-match continues here to avoid stack overflow ;; sxml-match continues here to avoid stack overflow
;; |# ;; |#
((udecl . ,rest)
(ppx `(decl . ,rest)))
((decl ,decl-spec-list) ((decl ,decl-spec-list)
(ppx decl-spec-list) (sf ";\n")) (ppx decl-spec-list) (sf ";\n"))
((decl ,decl-spec-list ,init-declr-list) ((decl ,decl-spec-list ,init-declr-list)
(ppx decl-spec-list) (ppx init-declr-list) (sf ";\n")) (ppx decl-spec-list) (sf " ") (ppx init-declr-list) (sf ";\n"))
((decl ,decl-spec-list ,init-declr-list ,comment) ((decl ,decl-spec-list ,init-declr-list ,comment)
(ppx decl-spec-list) (ppx init-declr-list) (sf "; ") (ppx comment)) (ppx decl-spec-list) (sf " ")
(ppx init-declr-list) (sf "; ") (ppx comment))
((decl-no-newline ,decl-spec-list ,init-declr-list) ; for (int i = 0; ((decl-no-newline ,decl-spec-list ,init-declr-list) ; for (int i = 0;
(ppx decl-spec-list) (ppx init-declr-list) (sf ";")) (ppx decl-spec-list) (sf " ") (ppx init-declr-list) (sf ";"))
((comp-decl ,spec-qual-list ,declr-list) ((comp-decl ,spec-qual-list ,declr-list)
(ppx spec-qual-list) (ppx declr-list) (sf ";\n")) (ppx spec-qual-list) (ppx declr-list) (sf ";\n"))
@ -298,29 +313,27 @@
(ppx spec-qual-list) (ppx declr-list) (sf "; ") (ppx comment)) (ppx spec-qual-list) (ppx declr-list) (sf "; ") (ppx comment))
((decl-spec-list . ,dsl) ((decl-spec-list . ,dsl)
(let iter ((dsl dsl)) (pair-for-each
(when (pair? dsl) (lambda (dsl)
(case (sx-tag (car dsl)) (case (sx-tag (car dsl))
((stor-spec) (sf "~A " (car (sx-ref (car dsl) 1)))) ((stor-spec) (sf "~A" (car (sx-ref (car dsl) 1))))
((type-qual) (sf "~A " (sx-ref (car dsl) 1))) ((type-qual) (sf "~A" (sx-ref (car dsl) 1)))
((type-spec) (ppx (car dsl))) ((type-spec) (ppx (car dsl)))
(else (sf "[?:~S] " (car dsl)))) (else (sf "[?:~S]" (car dsl))))
;;(if (pair? (cdr dsl)) (sf " ")) (if (pair? (cdr dsl)) (sf " ")))
(iter (cdr dsl))))) dsl))
((init-declr-list . ,rest) ((init-declr-list . ,rest)
(pair-for-each (pair-for-each
(lambda (pair) (lambda (pair)
(sf " ")
(ppx (car pair)) (ppx (car pair))
(if (pair? (cdr pair)) (sf ","))) (if (pair? (cdr pair)) (sf ", ")))
rest)) rest))
((comp-declr-list . ,rest) ((comp-declr-list . ,rest)
(pair-for-each (pair-for-each
(lambda (pair) (lambda (pair)
(sf " ")
(ppx (car pair)) (ppx (car pair))
(if (pair? (cdr pair)) (sf ","))) (if (pair? (cdr pair)) (sf ", ")))
rest)) rest))
((init-declr ,declr ,initr) (comp declr initr)) ((init-declr ,declr ,initr) (comp declr initr))
@ -338,7 +351,7 @@
((union-def) (ppx arg)) ((union-def) (ppx arg))
((enum-def) (ppx arg)) ((enum-def) (ppx arg))
((typename) (sf "~A" (sx-ref arg 1))) ((typename) (sf "~A" (sx-ref arg 1)))
((void) (sf "void")) ((void) (sf "void "))
(else (error "missing " arg)))) (else (error "missing " arg))))
((struct-ref (ident ,name)) (sf "struct ~A" name)) ((struct-ref (ident ,name)) (sf "struct ~A" name))
@ -366,6 +379,8 @@
((enum-defn (ident ,name) (p-expr (fixed ,value))) ((enum-defn (ident ,name) (p-expr (fixed ,value)))
(sf "~A = ~A,\n" name value)) (sf "~A = ~A,\n" name value))
((enum-defn (ident ,name) (neg (p-expr (fixed ,value))))
(sf "~A = -~A,\n" name value))
((enum-defn (ident ,name)) ((enum-defn (ident ,name))
(sf "~A,\n" name)) (sf "~A,\n" name))
@ -514,7 +529,6 @@
(declr (sx-ref tree 2)) (declr (sx-ref tree 2))
(compd-stmt (sx-ref tree 3))) (compd-stmt (sx-ref tree 3)))
(ppx decl-spec-list) (ppx decl-spec-list)
(sf " ")
(ppx declr) (ppx declr)
(sf " ") (sf " ")
(ppx compd-stmt))) (ppx compd-stmt)))

16
module/nyacc/lang/c99/util1.scm
View file

@ -69,22 +69,26 @@
("wctype.h" "wctrans_t" "wctype_t" "wint_t") ("wctype.h" "wctrans_t" "wctype_t" "wint_t")
)) ))
;; @deffn {Procedure} gen-gcc-defs args [#:CC "clang"] => '(("ABC" . "123") ...) ;; @deffn {Procedure} gen-gcc-defs args [#:CC "clang"] => '("ABC=123" ...)
;; Generate a list of default defines produced by gcc (or clang). ;; Generate a list of default defines produced by gcc (or clang).
;; @end deffn ;; @end deffn
(define gen-gcc-defs (define gen-gcc-defs
;; @code{"gcc -dM -E"} will generate lines like @code{"#define ABC 123"}. ;; @code{"gcc -dM -E"} will generate lines like @code{"#define ABC 123"}.
;; We generate and return a list like @code{'(("ABC" . "123") ...)}. ;; We generate and return a list like @code{'(("ABC" . "123") ...)}.
(let ((rx (make-regexp "#define\\s+(\\S+)\\s+(.*)"))) (let ((rx1 (make-regexp "#define\\s+([A-Za-z0-9_]+\\([^)]*\\))\\s+(.*)"))
(lambda* (args #:key (CC "gcc")) (rx2 (make-regexp "#define\\s+([A-Za-z0-9_]+)\\s+(.*)")))
(case-lambda*
((args #:key (CC "gcc"))
(map (map
(lambda (l) (lambda (l)
(let ((m (regexp-exec rx l))) ;; could use (string-delete #\space (match:substring m 1))
(cons (match:substring m 1) (match:substring m 2)))) (let ((m (or (regexp-exec rx1 l) (regexp-exec rx2 l))))
(string-append (match:substring m 1) "=" (match:substring m 2))))
(let ((ip (open-input-pipe (string-append CC " -dM -E - </dev/null")))) (let ((ip (open-input-pipe (string-append CC " -dM -E - </dev/null"))))
(let iter ((lines '()) (line (read-line ip 'trim))) (let iter ((lines '()) (line (read-line ip 'trim)))
(if (eof-object? line) lines (if (eof-object? line) lines
(iter (cons line lines) (read-line ip 'trim))))))))) (iter (cons line lines) (read-line ip 'trim)))))))
((#:key (CC "gcc")) (gen-gcc-defs '() #:CC CC)))))
;; @deffn {Procedure} remove-inc-trees tree ;; @deffn {Procedure} remove-inc-trees tree
;; Remove the trees included with cpp-include statements. ;; Remove the trees included with cpp-include statements.

638
module/nyacc/lang/c99/util2.scm
View file

@ -1,4 +1,5 @@
;;; nyacc/lang/c99/util2.scm - C processing code ;;; nyacc/lang/c99/util2.scm - C processing code
;;; call this munge.scm ?
;;; ;;;
;;; Copyright (C) 2015-2017 Matthew R. Wette ;;; Copyright (C) 2015-2017 Matthew R. Wette
;;; ;;;
@ -17,21 +18,6 @@
;; utilities for processing output trees ;; utilities for processing output trees
;; The idea is to convert declarations into something like
;; @example
;; const char *args[21]; /* command arguments */
;; @end example
;; @noindent
;; into
;; @example
;; ("args" (comment " command arguments ")
;; (array-of 21) (pointer-to) (fixed "char"))
;; @end example
;; @noindent
;; or without the comment. It is a question whether we need the fixed part.
;; In addition, we want to reduce to a set of canonical types. So something
;; like @code{foo_t} should be expanded.
;; KEEPING STRUCTS ENUMS etc ;; KEEPING STRUCTS ENUMS etc
;; if have typename and want to keep it, then change ;; if have typename and want to keep it, then change
;; (typename "foo_t") ;; (typename "foo_t")
@ -42,30 +28,59 @@
;; (make-proxy comp-udecl) => udecl ;; (make-proxy comp-udecl) => udecl
;; (revert-proxy udecl) => comp-udecl ;; (revert-proxy udecl) => comp-udecl
;; NOTE
;; stripdown no longer deals with typeref expansion
;; use
;; expand-typerefs, then stripdown, then udecl->mspec
(define-module (nyacc lang c99 util2) (define-module (nyacc lang c99 util2)
#:export (tree->udict #:export (c99-trans-unit->udict
stripdown stripdown-2 c99-trans-unit->udict/deep
udecl->mspec
udecl->mspec/comm expand-typerefs
stripdown
udecl->mspec udecl->mspec/comm
unwrap-decl unwrap-decl
canize-enum-def-list canize-enum-def-list
fix-fields
fixed-width-int-names fixed-width-int-names
match-decl match-comp-decl match-param-decl munge-decl munge-comp-decl munge-param-decl
declr->ident declr->ident
clean-field-list
;; deprecated
tree->udict tree->udict/deep
match-decl match-comp-decl match-param-decl
expand-decl-typerefs expand-decl-typerefs
fix-fields
;; debuggins
stripdown-1 stripdown-2
) )
#:use-module (nyacc lang c99 pprint) #:use-module (nyacc lang c99 pprint)
#:use-module (ice-9 pretty-print) #:use-module (nyacc lang util)
#:use-module (srfi srfi-1)
#:use-module ((sxml fold) #:select (foldts foldts*)) #:use-module ((sxml fold) #:select (foldts foldts*))
#:use-module (sxml match) #:use-module (sxml match)
#:use-module (nyacc lang util) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-2)
;;#:use-module (system base pmatch)
#:use-module (nyacc lang c99 pprint) #:use-module (nyacc lang c99 pprint)
#:use-module (ice-9 pretty-print)
) )
(define tmap-fmt
'(("char" "%hhd")
("unsigned char" "%hhu")
("short int" "%hd")
("unsigned short int" "%hu")
("int" "%d")
("unsigned int" "%u")
("long int" "%ld")
("unsigned long int" "%lu")
("long long int" "%lld")
("unsigned long long int" "%llu")))
;; Use the term @dfn{udecl}, or unit-declaration, for a declaration which has ;; Use the term @dfn{udecl}, or unit-declaration, for a declaration which has
;; only one decl-item. That is where, ;; only one decl-item. That is where,
;; @example ;; @example
@ -89,18 +104,17 @@
;; may need to replace (typename "int32_t") with (fixed-type "int32_t") ;; may need to replace (typename "int32_t") with (fixed-type "int32_t")
;; @deffn {Procedure} declr->ident declr => (ident "name") ;; @deffn {Procedure} declr->ident declr => (ident "name")
;; just match the declarator ;; Given a declarator, aka @code{init-declr}, return the identifier.
;; (init-declr <declr> [<initzer>]) ;; This is used by @code{trans-unit->udict}.
;; See also: declr->id-name in body.scm. ;; See also: declr->id-name in body.scm.
;; @end deffn ;; @end deffn
(define (declr->ident declr) (define (declr->ident declr)
(sxml-match declr (sxml-match declr
((ident ,name) declr)
((init-declr ,declr . ,rest) (declr->ident declr)) ((init-declr ,declr . ,rest) (declr->ident declr))
((comp-declr ,declr) (declr->ident declr)) ((comp-declr ,declr) (declr->ident declr))
((param-declr ,declr) (declr->ident declr)) ((param-declr ,declr) (declr->ident declr))
((ident ,name) declr)
((array-of ,dir-declr ,array-spec) (declr->ident dir-declr)) ((array-of ,dir-declr ,array-spec) (declr->ident dir-declr))
((array-of ,dir-declr) (declr->ident dir-declr)) ((array-of ,dir-declr) (declr->ident dir-declr))
((ptr-declr ,pointer ,dir-declr) (declr->ident dir-declr)) ((ptr-declr ,pointer ,dir-declr) (declr->ident dir-declr))
@ -108,127 +122,148 @@
((scope ,declr) (declr->ident declr)) ((scope ,declr) (declr->ident declr))
(,otherwise (throw 'util-error "c99/util2: unknown declarator: " declr)))) (,otherwise (throw 'util-error "c99/util2: unknown declarator: " declr))))
;; @deffn {Procedure} unwrap-decl decl seed => seed ;; @deffn {Procedure} c99-trans-unit->udict tree [seed] [#:filter f] => udict
;; This is a fold to break up multiple declarators. ;; @deffnx {Procedure} c99-trans-unit->udict/deep tree [seed]=> udict
;; @example ;; Turn a C parse tree into a assoc-list of global names and definitions.
;; (decl (decl-spec-list ...) (init-declr-list (init-declr ...) ...))
;; =>
;; ((decl (decl-spec-list ...) (init-declr ...))
;; (decl (decl-spec-list ...) (init-declr ...))
;; ...)
;; @end example
;; @end deffn
(define (unwrap-decl decl seed)
(cond
((not (eqv? 'decl (car decl))) seed)
((< (length decl) 3) seed) ; this should catch struct-ref etc.
(else
(let* ((tag (sx-ref decl 0))
(attr (sx-attr decl))
(spec (sx-ref decl 1)) ; (decl-spec-list ...)
(id-l (sx-ref decl 2)) ; (init-declr-list ...)
(tail (sx-tail decl 3))) ; comment
(let iter ((res seed) (idl (cdr id-l)))
(if (null? idl) res
(let* ((declr (sx-ref (car idl) 1))
(ident (declr->ident declr))
(name (cadr ident)))
(iter (cons (if attr
(cons* tag attr spec (car idl) tail)
(cons* tag spec (car idl) tail))
res)
(cdr idl)))))))))
;; @deffn {Procedure} tree->udict tree => udict
;; Turn a C parse tree into a assoc-list of names and definitions.
;; This will unwrap @code{init-declr-list} into list of decls w/ ;; This will unwrap @code{init-declr-list} into list of decls w/
;; @code{init-declr}. ;; @code{init-declr}.
;; @example
;; BUG: need to add struct and union defn's: struct foo { int x; }; ;; BUG: need to add struct and union defn's: struct foo { int x; };
;; how to deal with this ;; how to deal with this
;; lookup '(struct . "foo"), "struct foo", ??? ;; lookup '(struct . "foo"), "struct foo", ???
;; wanted "struct" -> dict but that is not great ;; wanted "struct" -> dict but that is not great
;; solution: match-decl => '(struct . "foo") then filter to generate ;; solution: munge-decl => '(struct . "foo") then filter to generate
;; ("struct" ("foo" . decl) ..) ;; ("struct" ("foo" . decl) ("bar" . decl) ...)
;; ("union" ("bar" . decl) ..) ;; ("union" ("bar" . decl) ("bar" . decl) ...)
;; @end deffn ;; ("enum" ("" . decl) ("foo" . decl) ("bar" . decl) ...)
(define (tree->udict tree) ;; @end example
(if (pair? tree) ;; So globals could be in udict, udefs or anon-enum.
(fold match-decl '() (cdr tree))
'()))
;; @deffn {Procedure} match-decl decl seed
;; This procedure is intended to be used with @code{fold}. It breaks up
;; up the init-declr-list into individual init-declr items and associates
;; with the identifier being declared. So this is a fold iterator to
;; provide a dictionary of declared names.
;; @example ;; @example
;; (decl (decl-spec-list ...) (init-declr-list (init-declr ...) ...)) ;; What about anonymous enums? And enums in general?
;; Anonmous enum should be expaneded into
;; @end example
;; @end deffn
;; @noindent
;; If @var{tree} is not a pair then @var{seed} -- or @code{'()} -- is returned.
;; The filter @var{f} is either @code{#t}, @code{#f} or predicate procedure
;; of one argument, the include path, to indicate whether it should be included
;; in the dictionary.
(define* (c99-trans-unit->udict tree #:optional (seed '()) #:key filter)
(define (inc-keeper? tree)
(if (and (eqv? (sx-tag tree) 'cpp-stmt)
(eqv? (sx-tag (sx-ref tree 1)) 'include))
(if (procedure? filter)
(filter (let ((arg (sx-ref (sx-ref tree 1) 1)))
(substring arg 1 (1- (string-length arg)))))
filter)
#f))
(if (pair? tree)
(fold
(lambda (tree seed)
(cond
((eqv? (sx-tag tree) 'decl)
(munge-decl tree seed))
((inc-keeper? tree)
(c99-trans-unit->udict (sx-ref tree 1) seed #:filter filter))
(else seed)))
seed
(cdr tree))
seed))
(define (c99-trans-unit->udict/deep tree)
(c99-trans-unit->udict tree #:filter #t))
(define tree->udict c99-trans-unit->udict)
(define tree->udict/deep c99-trans-unit->udict/deep)
;; @deffn {Procedure} munge-decl decl seed [#:expand-enums #f] => seed
;; This is a fold iterator to used by @code{tree->udict}. It converts the
;; multiple @code{init-declr} items in an @code{init-declr-list} of a
;; @code{decl} into an a-list of multiple pairs of name and @code{udecl}
;; trees with a single @code{init-declr} and no @code{init-declr-list}.
;; That is, a @code{decl} of the form
;; @example
;; (decl (decl-spec-list ...)
;; (init-declr-list (init-declr (... "a")) (init-declr (... "b")) ...))
;; @end example ;; @end example
;; @noindent ;; @noindent
;; has been replaced by ;; is munged into list with elements
;; @example ;; @example
;; (decl (decl-spec-list ...) (init-declr ...)) ;; ("a" . (udecl (decl-spec-list ...) (init-declr (... "a"))))
;; (decl (decl-spec-list ...) ...) ;; ("b" . (udecl (decl-spec-list ...) (init-declr (... "b"))))
;; @end example ;; @end example
;; Here we generate a dictionary of all declared items: ;; The @code{/deep} version will plunge into cpp-includes.
;; Here we generate a dictionary of all declared items in a file:
;; @example ;; @example
;; (let* ((sx0 (with-input-from-file src-file parse-c)) ;; (let* ((sx0 (with-input-from-file src-file parse-c))
;; (sx1 (merge-inc-trees! sx0)) ;; (sx1 (merge-inc-trees! sx0))
;; (name-dict (fold match-decl-1 '() (cdr sx1)))) ;; (name-dict (fold match-decl-1 '() (cdr sx1))))
;; @end example ;; @end example
;; TODO: add enums because they are global!! ;; TODO: add enums because they are global!!, but this should be user opt
;; turn enum { ABC = 123 }; into '(ABC . (enum .. "ABC" "123" .. ) ;; @example
;; enum { ABC = 123 }; => ???
;; @end example
;; Unexpanded, unnamed enums have keys @code{"enum"}.
;; Enum, struct and union def's have keys @code{(enum . "name")},
;; @code{(struct . "name")} and @code{(union . "name)}, respectively.
;; See @code{udict-struct-ref}, @code{udict-union-ref}, @code{udict-enum-ref}
;; and @code{udict-ref}.
;; @end deffn ;; @end deffn
(define (match-decl decl seed)
(let* ((tag (sx-ref decl 0)) (attr (sx-attr decl))) ;; TODO:
(case tag ;; enum tag => "enum" (tag . udecl)
((decl) ;; enum { NAME } => "enum" ("" . udecl) ???? WHAT TO DO ????
(let* ((spec (sx-ref decl 1)) ; (decl-spec-list ...) ;; need (ud-lookup name) (ud-lookup-struct name) (ud-lookup-union name)
(tbd (sx-ref decl 2))) ; (init-declr-list ...) OR ... ;; USING ud-udict-struct-ref
(define* (munge-decl decl seed #:key (expand-enums #f))
(define (iter-declrs init-declr-l tail seed)
(if (not init-declr-l) seed
(let iter ((seed seed) (idl (cdr init-declr-l)))
(if (null? idl) seed
(let* ((tag 'udecl) (attr (sx-attr decl))
(specl (sx-ref decl 1)) (declr (sx-ref (car idl) 1))
(ident (declr->ident declr)) (name (cadr ident)))
(iter
(acons name (sx-cons* tag attr specl (car idl) tail) seed)
(cdr idl)))))))
;;(simple-format #t "munge-decl ~S\n" decl)
(cond (cond
((or (not tbd) (eqv? 'comment (sx-tag tbd))) ((not (pair? decl)) seed)
;; no init-declr-list => struct or union def or param-decl enum ((eqv? (sx-tag decl) 'decl)
;;(display "spec:\n") (pretty-print decl) (let* ((tag (sx-tag decl)) (tag 'udecl)
(attr (sx-attr decl))
(spec (sx-ref decl 1)) ; (decl-spec-list ...)
(sx2 (sx-ref decl 2)) ; (init-declr-list ...) OR ...
(init-d-l (if (and sx2 (eqv? (sx-tag sx2) 'init-declr-list)) sx2 #f))
(tail (sx-tail decl (if init-d-l 3 2))))
(sxml-match spec (sxml-match spec
((decl-spec-list ((decl-spec-list
(type-spec (type-spec (struct-def (ident ,name) . ,rest2) . ,rest1))
(struct-def (ident ,name) . ,rest2) . ,rest1)) (acons `(struct . ,name) decl (iter-declrs init-d-l tail seed)))
(acons `(struct . ,name) decl seed))
((decl-spec-list ((decl-spec-list
(type-spec (type-spec (struct-def . ,rest2) . ,rest1))
(union-def (ident ,name) . ,rest2) . ,rest1)) (acons `(struct . "*anon*") decl (iter-declrs init-d-l tail seed)))
(acons `(union . ,name) decl seed))
((decl-spec-list ((decl-spec-list
(type-spec (type-spec (union-def (ident ,name) . ,rest2) . ,rest1))
(enum-def (acons `(union . ,name) decl (iter-declrs init-d-l tail seed)))
(enum-def-list ((decl-spec-list
(enum-defn (type-spec (union-def . ,rest2) . ,rest1))
(ident "ABC") (acons `(union . "*anon*") decl (iter-declrs init-d-l tail seed)))
(p-expr (fixed "123"))))))) ((decl-spec-list
;; TODO (type-spec (enum-def (ident ,name) . ,rest2) . ,rest1))
seed) (acons `(enum . ,name) decl (iter-declrs init-d-l tail seed)))
((decl-spec-list
(type-spec (enum-def . ,rest2) . ,rest1))
(acons `(enum . "*anon*") decl (iter-declrs init-d-l tail seed)))
(,otherwise (,otherwise
;; e.g., enum { VAL = 1 }; (iter-declrs init-d-l tail seed)))))
;;(simple-format #t "+++ otherwise: ~S\n" tbd) (pretty-print decl) ((eqv? (sx-tag decl) 'comp-decl)
seed))) (munge-comp-decl decl seed #:expand-enums expand-enums))
(else ;; decl with init-declr-list ((eqv? (sx-tag decl) 'param-decl)
(let* ((id-l tbd) (tail (sx-tail decl 3))) (munge-param-decl decl seed #:expand-enums expand-enums))
(let iter ((res seed) (idl (cdr id-l))) (else seed)))
(if (null? idl) res
(let* ((declr (sx-ref (car idl) 1))
(ident (declr->ident declr))
(name (cadr ident)))
(iter
(acons name
(if attr
(cons* tag attr spec (car idl) tail)
(cons* tag spec (car idl) tail))
res)
(cdr idl))))))))))
(else seed))))
;; @deffn {Procedure} match-comp-decl decl seed ;; @deffn {Procedure} munge-comp-decl decl seed [#:expand-enums #f]
;; This will turn ;; This will turn
;; @example ;; @example
;; (comp-decl (decl-spec-list (type-spec "int")) ;; (comp-decl (decl-spec-list (type-spec "int"))
@ -245,30 +280,30 @@
;; This is coded to be used with fold-right in order to preserve order ;; This is coded to be used with fold-right in order to preserve order
;; in @code{struct} and @code{union} field lists. ;; in @code{struct} and @code{union} field lists.
;; @end deffn ;; @end deffn
(define (match-comp-decl decl seed) (define* (munge-comp-decl decl seed #:key (expand-enums #f))
(if (not (eqv? 'comp-decl (car decl))) seed (if (not (eqv? 'comp-decl (car decl))) seed
(let* ((tag (sx-ref decl 0)) (let* ((tag (sx-ref decl 0))
(attr (sx-attr decl)) (attr (sx-attr decl))
(spec (sx-ref decl 1)) ; (type-spec ...) (spec (sx-ref decl 1)) ; (type-spec ...)
(id-l (sx-ref decl 2)) ; (init-declr-list ...) (id-l (sx-ref decl 2)) ; (init-declr-list ...)
(tail (sx-tail decl 3))) ; opt comment, different here (tail (sx-tail decl 3))) ; opt comment, different here
;;(simple-format #t "1: ~S\n" id-l)
(let iter ((res seed) (idl (cdr id-l))) (let iter ((res seed) (idl (cdr id-l)))
(if (null? idl) res (if (null? idl) res
(let* ((declr (sx-ref (car idl) 1)) (let* ((declr (sx-ref (car idl) 1))
(ident (declr->ident declr)) (ident (declr->ident declr))
(name (cadr ident))) (name (cadr ident)))
;;(pretty-print `(comp-decl ,spec ,(car idl) . ,tail))
(acons name (acons name
(if attr (if attr
(cons* tag attr spec (car idl) tail) (cons* tag attr spec (car idl) tail)
(cons* tag spec (car idl) tail)) (cons* tag spec (car idl) tail))
(iter res (cdr idl))))))))) (iter res (cdr idl)))))))))
(define match-comp-decl munge-comp-decl)
;; @deffn {Procedure} match-param-decl param-decl seed ;; @deffn {Procedure} match-param-decl param-decl seed [#:expand-enums #f]
;; This will turn ;; This will turn
;; @example ;; @example
;; (param-decl (decl-spec-list (type-spec "int")) (param-declr (ident "a"))) ;; (param-decl (decl-spec-list (type-spec "int"))
;; (param-declr (ident "a")))
;; @end example ;; @end example
;; @noindent ;; @noindent
;; into ;; into
@ -279,7 +314,7 @@
;; This is coded to be used with fold-right in order to preserve order ;; This is coded to be used with fold-right in order to preserve order
;; in @code{struct} and @code{union} field lists. ;; in @code{struct} and @code{union} field lists.
;; @end deffn ;; @end deffn
(define (match-param-decl decl seed) (define* (munge-param-decl decl seed #:key (expand-enums #f))
(if (not (eqv? 'param-decl (car decl))) seed (if (not (eqv? 'param-decl (car decl))) seed
(let* ((tag (sx-ref decl 0)) (let* ((tag (sx-ref decl 0))
(attr (sx-attr decl)) (attr (sx-attr decl))
@ -288,36 +323,38 @@
(ident (declr->ident declr)) (ident (declr->ident declr))
(name (cadr ident))) (name (cadr ident)))
(acons name decl seed)))) (acons name decl seed))))
(define match-param-decl munge-param-decl)
;; @deffn find-special udecl-alist seed => .. ;; like member but returns first non-declr of type in dict
;; NOT DONE (define (non-declr type udict)
;; @example (let iter ((dict udict))
;; '((struct . ("foo" ...) ...) (cond
;; (union . ("bar" ...) ...) ((null? dict) #f)
;; (enum . ("bar" ...) ...) ((and (pair? (car dict)) (eqv? type (caar dict))) dict)
;; seed) (else (iter (cdr dict))))))
;; @end example
;; @deffn {Procedure} udict-ref name
;; @deffnx {Procedure} udict-struct-ref name
;; @deffnx {Procedure} udict-union-ref name
;; @deffnx {Procedure} udict-enum-ref name
;; @end deffn ;; @end deffn
(define (find-special udecl-alist seed) (define (udict-ref udict name)
(let iter ((struct '()) (union '()) (enum '()) (udal udecl-alist)) (or (assoc-ref udict name)
(if (null? udal) (cons* (cons 'struct struct) (let iter ((dict (non-declr 'enum udict)))
(cons 'union union) (cond
(cons 'enum enum) ((not dict) #f)
seed) ((assoc-ref (cdar dict) name))
'()))) (else (iter (non-declr 'enum dict)))))))
(define (udict-struct-ref udict name)
(define tmap-fmt #f)
'(("char" "%hhd") (define (udict-union-ref udict name)
("unsigned char" "%hhu") #f)
("short int" "%hd") (define (udict-enum-ref udict name)
("unsigned short int" "%hu") #f)
("int" "%d")
("unsigned int" "%u")
("long int" "%ld")
("unsigned long int" "%lu")
("long long int" "%lld")
("unsigned long long int" "%llu")))
;; @deffn {Variable} fixed-width-int-names
;; This is a list of standard integer names (e.g., @code{"uint8_t"}).
;; @end deffn
(define fixed-width-int-names (define fixed-width-int-names
'("int8_t" "uint8_t" "int16_t" "uint16_t" '("int8_t" "uint8_t" "int16_t" "uint16_t"
"int32_t" "uint32_t" "int64_t" "uint64_t")) "int32_t" "uint32_t" "int64_t" "uint64_t"))
@ -370,31 +407,27 @@
(else (cons item seed)))) (else (cons item seed))))
'() decl-spec-list)) '() decl-spec-list))
;; @deffn {Procedure} expand-decl-typerefs udecl udecl-dict => udecl ;; @deffn {Procedure} expand-typerefs udecl udecl-dict [#:keep '()]
;; Given a declaration or component-declaration, expand all typename, ;; Given a declaration or component-declaration, return a udecl with all
;; struct, union and enum refs. ;; typenames (not in @var{keep}), struct, union and enum refs expanded.
;; (but enums to int?)
;; @example ;; @example
;; typedef const int (*foo_t)(int a, double b); ;; typedef const int (*foo_t)(int a, double b);
;; extern foo_t fctns[2]; ;; extern foo_t fctns[2];
;; => ;; =>
;; extern const int (*fctns[2])(int a, double b); ;; extern const int (*fctns[2])(int a, double b);
;; @end example ;; @end example
;; @noindent
;; Cool. Eh? (but is it done?)
;; @end deffn ;; @end deffn
(define* (expand-decl-typerefs udecl udecl-dict #:key (keep '())) (define* (expand-typerefs udecl udecl-dict #:key (keep '()))
;;(display "FIXME: some decls have no init-declr-list\n") ;; ??? add (init-declr-list) OR having predicate (has-init-declr? decl)
;; between adding (init-declr-list) to those or having predicate
;; (has-init-declr? decl)
(let* ((tag (sx-tag udecl)) ; decl or comp-decl (let* ((tag (sx-tag udecl)) ; decl or comp-decl
(attr (sx-attr udecl)) ; (@ ...) (attr (sx-attr udecl)) ; (@ ...)
(specl (sx-ref udecl 1)) ; decl-spec-list (specl (sx-ref udecl 1)) ; decl-spec-list
(declr (or (sx-find 'init-declr udecl) (declr (or (sx-find 'init-declr udecl) ; declarator
(sx-find 'comp-declr udecl))) (sx-find 'comp-declr udecl)
(sx-find 'param-declr udecl)))
(tail (if declr (sx-tail udecl 3) (sx-tail udecl 2))) ; opt comment (tail (if declr (sx-tail udecl 3) (sx-tail udecl 2))) ; opt comment
(tspec (cadr (sx-find 'type-spec specl)))) (tspec (cadr (sx-find 'type-spec specl))))
;;(simple-format #t "=D> ~S\n" decl-spec-list)
;;(simple-format #t "init-declr: ~S\n" init-declr)
(case (car tspec) (case (car tspec)
((typename) ((typename)
(cond (cond
@ -414,7 +447,15 @@
((struct-ref union-ref) ((struct-ref union-ref)
(simple-format (current-error-port) (simple-format (current-error-port)
"+++ c99/util2: struct/union-ref: more to do?\n") "+++ c99/util2: struct/union-ref: more to do?\n")
;;(simple-format #t "\nstruct-ref:\n") (pretty-print udecl) (simple-format #t "\nstruct-ref:\n") (pretty-print udecl)
(let* ((is-struct (eqv? 'struct-ref (car tspec)))
(ident (cadr tspec))
(name (cadr ident))
(ref (if is-struct
(udict-struct-ref udecl-dict name)
(udict-union-ref udecl-dict name)))
)
#f)
udecl) udecl)
((struct-def union-def) ((struct-def union-def)
@ -446,7 +487,11 @@
(simple-format (current-error-port) "chack: enum-ref NOT DONE\n") (simple-format (current-error-port) "chack: enum-ref NOT DONE\n")
udecl) udecl)
(else udecl)))) (else
udecl))))
(define expand-decl-typerefs expand-typerefs)
;; === enum handling ...
;; @deffn {Procedure} canize-enum-def-list ;; @deffn {Procedure} canize-enum-def-list
;; Fill in constants for all entries of an enum list. ;; Fill in constants for all entries of an enum list.
@ -474,7 +519,45 @@
(iter (cons (append (car edl) `((p-expr (fixed ,is1)))) rez) (iter (cons (append (car edl) `((p-expr (fixed ,is1)))) rez)
ix1 (cdr edl)))))))) ix1 (cdr edl))))))))
;; @deffn stripdown udecl decl-dict => decl ;; @deffn {Procecure} enum-ref enum-def-list name => string
;; Gets value of enum where @var{enum-def-list} looks like
;; @example
;; (enum-def-list (enum-defn (ident "ABC") (p-expr (fixed "123")) ...))
;; @end example
;; so that
;; @example
;; (enum-def-list edl "ABC") => "123"
;; @end example
(define (enum-ref enum-def-list name)
(let iter ((el (cdr (canize-enum-def-list enum-def-list))))
(cond
((null? el) #f)
((not (eqv? 'enum-defn (caar el))) (iter (cdr el)))
((string=? name (cadr (cadar el))) (cadadr (caddar el)))
(else (iter (cdr el))))))
;; @deffn {Procedure} gen-enum-udecl nstr vstr => (udecl ...)
;; @example
;; (gen-enum-udecl "ABC" "123")
;; =>
;; (udecl (decl-spec-list
;; (type-spec
;; (enum-def
;; (enum-def-list
;; (enum-defn (ident "ABC") (p-expr (fixed "123")))))))))
;; @end example
;; @end deffn
(define (gen-enum-udecl nstr vstr)
`(udecl (decl-spec-list
(type-spec
(enum-def
(enum-def-list
(enum-defn (ident ,nstr) (p-expr (fixed ,vstr)))))))))
;; === enum handling ...
;;@deffn {Procedure} stripdown-1 udecl decl-dict [options]=> decl
;; This is deprecated.
;; 1) remove stor-spec ;; 1) remove stor-spec
;; 2) expand typenames ;; 2) expand typenames
;; @example ;; @example
@ -483,10 +566,11 @@
;; (spec (typename x_t)) (init-declr (array-of 10 (ident a))) ;; (spec (typename x_t)) (init-declr (array-of 10 (ident a)))
;; (spec (typedef) (fixed-type "int")) (init-declr (pointer) (ident "x_t")) ;; (spec (typedef) (fixed-type "int")) (init-declr (pointer) (ident "x_t"))
;; => ;; =>
;; [TO BE DOCUMENTED] ;; (udecl (decl-spec-list (type-spec ...) ... (type-qual "const"))
;; (init-declr (ptr-declr (pointer ...)
;; @end example ;; @end example
;; @end deffn ;; @end deffn
(define* (stripdown udecl decl-dict #:key (keep '())) (define* (stripdown-1 udecl decl-dict #:key (keep '()))
;;(define strip-list '(stor-spec type-qual comment)) ;;(define strip-list '(stor-spec type-qual comment))
(define strip-list '(stor-spec type-qual)) (define strip-list '(stor-spec type-qual))
@ -495,11 +579,11 @@
'()) '())
(define (fsU seed kseed tree) (define (fsU seed kseed tree)
(if (memq (car tree) strip-list) (cond
seed ((eqv? (sx-tag tree) 'stor-spec) seed)
(if (null? seed) ((eqv? (sx-tag tree) 'type-qual) seed)
(reverse kseed) ((null? seed) (reverse kseed))
(cons (reverse kseed) seed)))) (else (cons (reverse kseed) seed))))
(define (fsH seed tree) (define (fsH seed tree)
(cons tree seed)) (cons tree seed))
@ -512,80 +596,117 @@
(specl1 (foldts fsD fsU fsH '() specl))) (specl1 (foldts fsD fsU fsH '() specl)))
(list tag specl1 declr))) (list tag specl1 declr)))
;; This one experimental for guile ffi. (define* (stripdown-declr declr #:key const-ptr)
(define* (stripdown-2 udecl decl-dict #:key (keep '())) (define (fD seed tree) '())
;;(define strip-list '(stor-spec type-qual comment)) (define (fU seed kseed tree)
(define strip-list '(stor-spec type-qual)) (cond
((null? seed) (reverse kseed))
((eqv? (sx-tag tree) 'stor-spec) seed)
((eqv? (sx-tag tree) 'type-qual)
(if (and const-ptr (string=? (sx-ref tree 1) "const"))
(cons (reverse kseed) seed)
seed))
(else (cons (reverse kseed) seed))))
(define (fsD seed tree) (define (fH seed tree)
'())
(define (fsU seed kseed tree)
(if (memq (car tree) strip-list)
seed
(if (null? seed)
(reverse kseed)
(cons (reverse kseed) seed))))
(define (fsH seed tree)
(cons tree seed)) (cons tree seed))
(let* ((speclt (sx-tail udecl 1))) ; decl-spec-list tail (foldts fD fU fH '() declr))
;; don't expand typedefs, structure specs etc,
(cond ;; @deffn {Procedure} stripdown udecl decl-dict [options]=> decl
((and (eqv? 'stor-spec (caar speclt)) ;; 1) remove stor-spec
(eqv? 'typedef (cadar speclt))) ;; @example
udecl) ;; =>
;; lone struct ref ;; @end example
(else ;; @end deffn
(let* ((xdecl (expand-decl-typerefs udecl decl-dict #:keep keep)) (define* (stripdown udecl decl-dict #:key const-ptr)
(let* (;;(speclt (sx-tail udecl)) ; decl-spec-list tail
(xdecl udecl)
(tag (sx-tag xdecl)) (tag (sx-tag xdecl))
(attr (sx-attr xdecl)) (attr (sx-attr xdecl))
(specl (sx-ref xdecl 1)) (specl (sx-ref xdecl 1))
(declr (sx-ref xdecl 2)) (declr (sx-ref xdecl 2))
(specl1 (foldts fsD fsU fsH '() specl))) (s-declr (stripdown-declr declr))
(list tag specl1 declr)))) (is-ptr? (declr-is-ptr? declr))
)) ;;
(s-tag (sx-tag specl))
(s-attr (sx-attr specl))
(s-tail (strip-decl-spec-tail
(sx-tail specl) #:keep-const? (and #:const-ptr is-ptr?)))
(specl (sx-cons* s-tag s-attr s-tail)))
;;(pretty-print declr)
;;(pretty-print s-declr)
(sx-list tag attr specl s-declr)))
(define (declr-is-ptr? declr)
(and
(pair? (cdr declr))
(eqv? 'ptr-declr (caadr declr))))
;; @deffn {Procedure} udecl->mspec sudecl (define* (strip-decl-spec-tail dsl-tail #:key keep-const?)
;; Turn a stripped-down unit-declaration into an m-spec. ;;(simple-format #t "spec=tail: ~S\n" dsl-tail)
;; This assumes decls have been run through @code{stripdown}. (let iter ((dsl1 '()) (const-seen? #f) (tail dsl-tail))
(if (null? tail)
(reverse (if (and const-seen? keep-const?)
(cons '(type-qual "const") dsl1)
dsl1))
(case (caar tail)
((type-qual)
(if (string=? (cadar tail) "const")
(iter dsl1 #t (cdr tail))
(iter dsl1 const-seen? (cdr tail))))
((stor-spec)
(iter dsl1 const-seen? (cdr tail)))
(else
(iter (cons (car tail) dsl1) const-seen? (cdr tail)))))))
;; @deffn {Procedure} udecl->mspec udecl
;; @deffnx {Procedure} udecl->mspec/comm udecl [#:def-comm ""]
;; Turn a stripped-down unit-declaration into an m-spec. The second version
;; include a comment. This assumes decls have been run through
;; @code{stripdown}.
;; @example
;; (decl (decl-spec-list (type-spec "double"))
;; (init-declr-list (
;; (comment "state vector")
;; =>
;; ("x" "state vector" (array-of 10) (float "double")
;; @end example
;; @end deffn ;; @end deffn
(define (udecl->mspec decl . rest) (define (udecl->mspec decl)
(define (cnvt-array-size size-spec) (define (cnvt-array-size size-spec)
(with-output-to-string (lambda () (pretty-print-c99 size-spec)))) (with-output-to-string (lambda () (pretty-print-c99 size-spec))))
(define (unwrap-specl specl) (define (unwrap-specl specl)
(let ((tspec (cadadr specl))) (and=> (assq-ref (sx-tail specl) 'type-spec) car))
;;(simple-format #t "tspec:\n") (pretty-print tspec) ;;? (sxml-match tspec
(sxml-match tspec ;;? ((xxx-struct-def (field-list . ,rest))
((xxx-struct-def (field-list . ,rest))
`(struct-def ,@rest))
(,otherwise
tspec))))
(define (unwrap-declr declr) (define* (unwrap-declr declr #:key (const #f))
;;(simple-format #t "#:const=~S (car declr)=~S\n" const (car declr))
(sxml-match declr (sxml-match declr
((ident ,name) ((ident ,name)
(list name)) (list name))
((init-declr ,item) ((init-declr ,item)
(unwrap-declr item)) (unwrap-declr item #:const const))
((comp-declr ,item)
(unwrap-declr item))
((ptr-declr (pointer . ,r) ,dir-declr) ((ptr-declr (pointer . ,r) ,dir-declr)
(cons '(pointer-to) (unwrap-declr dir-declr))) (if const
(cons* '(const) '(pointer-to) (unwrap-declr dir-declr))
(cons '(pointer-to) (unwrap-declr dir-declr))))
((array-of ,dir-declr ,size) ((array-of ,dir-declr ,size)
(cons `(array-of ,(cnvt-array-size size)) (unwrap-declr dir-declr))) (cons `(array-of ,(cnvt-array-size size)) (unwrap-declr dir-declr)))
((ftn-declr ,dir-declr ,params) ((ftn-declr ,dir-declr ,params)
(cons '(function-returning) (unwrap-declr dir-declr))) (cons '(function-returning) (unwrap-declr dir-declr)))
((scope ,expr) ((scope ,expr)
(unwrap-declr expr)) (unwrap-declr expr))
((comp-declr ,item) (unwrap-declr item))
((param-declr ,item) (unwrap-declr item))
(,otherwise (,otherwise
(simple-format #t "unwrap-declr: OTHERWISE\n") (pretty-print otherwise) (simple-format #t "unwrap-declr: OTHERWISE\n") (pretty-print otherwise)
;; failed got: (array-of (ident "foo")) FROM const char foo[]; ;; failed got: (array-of (ident "foo")) FROM const char foo[];
(error "udecl->mspec failed")
#f))) #f)))
(define (find-type-spec decl-spec-list) (define (find-type-spec decl-spec-list)
@ -593,30 +714,26 @@
(if (eqv? 'type-spec (caar tsl)) (car tsl) (if (eqv? 'type-spec (caar tsl)) (car tsl)
(iter (cdr tsl))))) (iter (cdr tsl)))))
(let* ((decl-dict (if (pair? rest) (car rest) '())) (let* (;;(decl-dict (if (pair? rest) (car rest) '()))
(specl (sx-ref decl 1)) (specl (sx-ref decl 1))
(declr (sx-ref decl 2)) (tspec (cadr specl)) ; type-spec
(const (and=> (sx-ref specl 2) ; const pointer ???
(lambda (sx) (equal? (sx-ref sx 1) "const"))))
(declr (or (sx-ref decl 2) ;; param-decl -- e.g., f(void)
'(ident "@arg")))
(comm (sx-ref decl 3)) (comm (sx-ref decl 3))
(m-specl (unwrap-specl specl)) (m-specl (unwrap-specl specl))
(m-declr (unwrap-declr declr)) (m-declr (unwrap-declr declr #:const const))
(m-decl (reverse (cons m-specl m-declr)))) (m-decl (reverse (cons m-specl m-declr))))
m-decl)) m-decl))
;; @deffn {Procedure} udecl->mspec/comm decl [dict] [#:def-comm ""] (define* (udecl->mspec/comm decl #:key (def-comm ""))
;; Convert declaration tree to an mspec
;; @example
;; (decl ... (comment "state vector")
;; =>
;; ("x" "state vector" (array-of 10) (float "double")
;; @end example
;; @end deffn
(define* (udecl->mspec/comm decl #:optional (dict '()) #:key (def-comm ""))
(let* ((comm (or (and=> (sx-ref decl 3) cadr) def-comm)) (let* ((comm (or (and=> (sx-ref decl 3) cadr) def-comm))
(spec (udecl->mspec decl dict))) (spec (udecl->mspec decl)))
(cons* (car spec) comm (cdr spec)))) (cons* (car spec) comm (cdr spec))))
;; @deffn {Procedure} fix-fields flds => flds ;; @deffn {Procedure} clean-field-list field-list => flds
;; This will take a list of fields from a struct and remove lone comments. ;; Process the tagged field-list element of a struct and remove lone comments.
;; If a field following a lone comment has no code-comment, the lone comment ;; If a field following a lone comment has no code-comment, the lone comment
;; will be used. For example, ;; will be used. For example,
;; @example ;; @example
@ -630,11 +747,11 @@
;; @end example ;; @end example
;; @noindent ;; @noindent
;; @end deffn ;; @end deffn
(define (fix-fields flds) (define (clean-field-list fld-list)
(let iter ((rz '()) (cl '()) (fl flds)) (let iter ((rz '()) (cl '()) (fl (cdr fld-list)))
;;(pretty-print fl) ;;(pretty-print fl)
(cond (cond
((null? fl) (reverse rz)) ((null? fl) (cons 'field-list (reverse rz)))
((eqv? 'comment (caar fl)) ((eqv? 'comment (caar fl))
(iter rz (cons (cadar fl) cl) (cdr fl))) (iter rz (cons (cadar fl) cl) (cdr fl)))
((eqv? 'comp-decl (caar fl)) ((eqv? 'comp-decl (caar fl))
@ -646,4 +763,41 @@
(else (else
(error "bad field"))))) (error "bad field")))))
(define (fix-fields flds)
(cdr (clean-field-list `(field-list . ,flds))))
;; ===== not used? ====================
;;.@deffn {Procedure} unwrap-decl decl seed => seed
;; This is a fold to break up multiple declarators.
;; @example
;; (decl (decl-spec-list ...) (init-declr-list (init-declr ...) ...))
;; =>
;; ((decl (decl-spec-list ...) (init-declr ...))
;; (decl (decl-spec-list ...) (init-declr ...))
;; ...)
;; @end example
;; @end deffn
(define (unwrap-decl decl seed)
(cond
((not (eqv? 'decl (car decl))) seed)
((< (length decl) 3) seed) ; this should catch struct-ref etc.
(else
(let* ((tag (sx-ref decl 0))
(attr (sx-attr decl))
(spec (sx-ref decl 1)) ; (decl-spec-list ...)
(id-l (sx-ref decl 2)) ; (init-declr-list ...)
(tail (sx-tail decl 3))) ; comment
(let iter ((res seed) (idl (cdr id-l)))
(if (null? idl) res
(let* ((declr (sx-ref (car idl) 1))
(ident (declr->ident declr))
(name (cadr ident)))
(iter (cons (if attr
(cons* tag attr spec (car idl) tail)
(cons* tag spec (car idl) tail))
res)
(cdr idl)))))))))
;; --- last line --- ;; --- last line ---

9
module/nyacc/lang/c99/xparser.scm
View file

@ -28,11 +28,12 @@
) )
(include-from-path "nyacc/lang/c99/mach.d/c99xtab.scm") (include-from-path "nyacc/lang/c99/mach.d/c99xtab.scm")
(define c99-mtab c99x-mtab)
(include-from-path "nyacc/lang/c99/body.scm") (include-from-path "nyacc/lang/c99/body.scm")
(include-from-path "nyacc/lang/c99/mach.d/c99xact.scm") (include-from-path "nyacc/lang/c99/mach.d/c99xact.scm")
;; Parse given a token generator. Uses fluid @code{*info*}. ;; Parse given a token generator. Uses fluid @code{*info*}.
(define c99x-raw-parser (define raw-parser
(let ((parser (make-lalr-parser (let ((parser (make-lalr-parser
(list (cons 'len-v c99x-len-v) (cons 'pat-v c99x-pat-v) (list (cons 'len-v c99x-len-v) (cons 'pat-v c99x-pat-v)
(cons 'rto-v c99x-rto-v) (cons 'mtab c99x-mtab) (cons 'rto-v c99x-rto-v) (cons 'mtab c99x-mtab)
@ -46,9 +47,9 @@
(pop-input) ; not sure this is right (pop-input) ; not sure this is right
(throw 'c99-error "C99 parse error")))))) (throw 'c99-error "C99 parse error"))))))
(define (c99x-run-parse) (define (run-parse)
(let ((info (fluid-ref *info*))) (let ((info (fluid-ref *info*)))
(c99x-raw-parser (gen-c-lexer) #:debug (cpi-debug info)))) (raw-parser (gen-c-lexer #:mode 'decl) #:debug (cpi-debug info))))
;; @item {Procedure} parse-c99x [#:cpp-defs defs] [#:debug bool] ;; @item {Procedure} parse-c99x [#:cpp-defs defs] [#:debug bool]
;; This needs to be explained in some detail. ;; This needs to be explained in some detail.
@ -70,7 +71,7 @@
(with-fluid* (with-fluid*
*info* info *info* info
(lambda () (lambda ()
(c99x-raw-parser (gen-c-lexer #:mode 'code #:xdef? xdef?) (raw-parser (gen-c-lexer #:mode 'code #:xdef? xdef?)
#:debug debug))))) #:debug debug)))))
(lambda (key fmt . rest) (lambda (key fmt . rest)
(report-error fmt rest) (report-error fmt rest)

136
module/nyacc/lang/util.scm
View file

@ -14,9 +14,9 @@
push-input pop-input reset-input-stack push-input pop-input reset-input-stack
make-tl tl->list ;; rename?? to tl->sx for sxml-expr make-tl tl->list ;; rename?? to tl->sx for sxml-expr
tl-append tl-insert tl-extend tl+attr tl-append tl-insert tl-extend tl+attr
sx-tag sx-tag sx-attr sx-tail sx-ref sx-cons* sx-list
sx-attr sx-attr-ref sx-has-attr? sx-set-attr! sx-set-attr* sx-attr-ref sx-has-attr? sx-set-attr! sx-set-attr*
sx-ref sx-tail sx-find sx-find
;; for pretty-printing ;; for pretty-printing
make-protect-expr make-pp-formatter make-pp-formatter/ugly make-protect-expr make-pp-formatter make-pp-formatter/ugly
;; for ??? ;; for ???
@ -25,13 +25,6 @@
#:use-module ((srfi srfi-1) #:select(find)) #:use-module ((srfi srfi-1) #:select(find))
) )
(cond-expand
(guile-2)
(guile
(use-modules (ice-9 optargs))
(use-modules (ice-9 syncase)))
(mes))
;; This is a generic copyright/licence that will be printed in the output ;; This is a generic copyright/licence that will be printed in the output
;; of the examples/nyacc/lang/*/ actions.scm and tables.scm files. ;; of the examples/nyacc/lang/*/ actions.scm and tables.scm files.
(define lang-crn-lic " (define lang-crn-lic "
@ -85,19 +78,21 @@ the file COPYING included with the this distribution.")
;; @table code ;; @table code
;; @deffn make-tl tag [item item ...] ;; @deffn {Procedure} make-tl tag [item item ...]
;; Create a tagged-list structure. ;; Create a tagged-list structure.
;; @end deffn
(define (make-tl tag . rest) (define (make-tl tag . rest)
(let iter ((tail tag) (l rest)) (let iter ((tail tag) (l rest))
(if (null? l) (cons '() tail) (if (null? l) (cons '() tail)
(iter (cons (car l) tail) (cdr l))))) (iter (cons (car l) tail) (cdr l)))))
;; @deffn tl->list tl ;; @deffn {Procedure} tl->list tl
;; Convert a tagged list structure to a list. This collects added attributes ;; Convert a tagged list structure to a list. This collects added attributes
;; and puts them right after the (leading) tag, resulting in something like ;; and puts them right after the (leading) tag, resulting in something like
;; @example ;; @example
;; (<tag> (@ <attr>) <rest>) ;; (<tag> (@ <attr>) <rest>)
;; @end example ;; @end example
;; @end deffn
(define (tl->list tl) (define (tl->list tl)
(let ((heda (car tl)) (let ((heda (car tl))
(head (let iter ((head '()) (attr '()) (tl-head (car tl))) (head (let iter ((head '()) (attr '()) (tl-head (car tl)))
@ -113,40 +108,46 @@ the file COPYING included with the this distribution.")
(iter (cons (car tl-tail) tail) (cdr tl-tail)) (iter (cons (car tl-tail) tail) (cdr tl-tail))
(cons tl-tail (append head tail)))))) (cons tl-tail (append head tail))))))
;; @deffn tl-insert tl item ;; @deffn {Procedure} tl-insert tl item
;; Insert item at front of tagged list (but after tag). ;; Insert item at front of tagged list (but after tag).
;; @end deffn
(define (tl-insert tl item) (define (tl-insert tl item)
(cons (cons item (car tl)) (cdr tl))) (cons (cons item (car tl)) (cdr tl)))
;; @deffn tl-append tl item ... ;; @deffn {Procedure} tl-append tl item ...
;; Append items at end of tagged list. ;; Append items at end of tagged list.
;; @end deffn
(define (tl-append tl . rest) (define (tl-append tl . rest)
(cons (car tl) (cons (car tl)
(let iter ((tail (cdr tl)) (items rest)) (let iter ((tail (cdr tl)) (items rest))
(if (null? items) tail (if (null? items) tail
(iter (cons (car items) tail) (cdr items)))))) (iter (cons (car items) tail) (cdr items))))))
;; @deffn tl-extend tl item-l ;; @deffn {Procedure} tl-extend tl item-l
;; Extend with a list of items. ;; Extend with a list of items.
;; @end deffn
(define (tl-extend tl item-l) (define (tl-extend tl item-l)
(apply tl-append tl item-l)) (apply tl-append tl item-l))
;; @deffn tl-extend! tl item-l ;; @deffn {Procedure} tl-extend! tl item-l
;; Extend with a list of items. Uses @code{set-cdr!}. ;; Extend with a list of items. Uses @code{set-cdr!}.
;; @end deffn
(define (tl-extend! tl item-l) (define (tl-extend! tl item-l)
(set-cdr! (last-pair tl) item-l) (set-cdr! (last-pair tl) item-l)
tl) tl)
;; @deffn tl+attr tl key val) ;; @deffn {Procedure} tl+attr tl key val)
;; Add an attribute to a tagged list. Return the tl. ;; Add an attribute to a tagged list. Return the tl.
;; @example ;; @example
;; (tl+attr tl 'type "int") ;; (tl+attr tl 'type "int")
;; @end example ;; @end example
;; @end deffn
(define (tl+attr tl key val) (define (tl+attr tl key val)
(tl-insert tl (cons '@ (list key val)))) (tl-insert tl (cons '@ (list key val))))
;; @deffn tl-merge tl tl1 ;; @deffn {Procedure} tl-merge tl tl1
;; Merge guts of phony-tl @code{tl1} into @code{tl}. ;; Merge guts of phony-tl @code{tl1} into @code{tl}.
;; @end deffn
(define (tl-merge tl tl1) (define (tl-merge tl tl1)
(error "not implemented (yet)") (error "not implemented (yet)")
) )
@ -158,13 +159,14 @@ the file COPYING included with the this distribution.")
;; attributea are `invisible'. For example, @code{'(elt (@abc) "d")} ;; attributea are `invisible'. For example, @code{'(elt (@abc) "d")}
;; is an sx of length two: the tag @code{elt} and the payload @code{"d"}. ;; is an sx of length two: the tag @code{elt} and the payload @code{"d"}.
;; @deffn sx-ref sx ix => item ;; @deffn {Procedure} sx-ref sx ix => item
;; Reference the @code{ix}-th element of the list, not counting the optional ;; Reference the @code{ix}-th element of the list, not counting the optional
;; attributes item. If the list is shorter than the index, return @code{#f}. ;; attributes item. If the list is shorter than the index, return @code{#f}.
;; @example ;; @example
;; (sx-ref '(abc "def") 1) => "def" ;; (sx-ref '(abc "def") 1) => "def"
;; (sx-ref '(abc (@ (foo "1")) "def") 1) => "def" ;; (sx-ref '(abc (@ (foo "1")) "def") 1) => "def"
;; @end example ;; @end example
;; @end deffn
(define (sx-ref sx ix) (define (sx-ref sx ix)
(define (list-xref l x) (if (> (length l) x) (list-ref l x) #f)) (define (list-xref l x) (if (> (length l) x) (list-ref l x) #f))
(cond (cond
@ -174,26 +176,52 @@ the file COPYING included with the this distribution.")
(else (else
(list-xref sx ix)))) (list-xref sx ix))))
;; @deffn sx-tag sx => tag ;; @deffn {Procedure} sx-tag sx => tag
;; Return the tag for a tree ;; Return the tag for a tree
;; @end deffn
(define (sx-tag sx) (define (sx-tag sx)
(if (pair? sx) (car sx) #f)) (if (pair? sx) (car sx) #f))
;; @deffn sx-tail sx ix => (list) ;; @deffn {Procedure} sx-cons* tag (attr|#f)? ... => sx
;; Return the tail starting at the ix-th cdr, starting from 0. ;; @deffnx {Procedure} sx-list tag (attr|#f)? ... => sx
;; For example, if sx has 3 items then (sx-tail sx 2) returns '(). ;; Generate the tag and the attr list if it exists. Note that
(define (sx-tail sx ix) ;; @end deffn
(define (sx-cons* tag . rest)
(cond
((null? rest) (list tag))
((not (car rest)) (apply cons* tag (cdr rest)))
(else (apply cons* tag rest))))
(define (sx-list tag . rest)
(cond
((null? rest) (list tag))
((not (car rest)) (apply list tag (cdr rest)))
(else (apply list tag rest))))
;; @deffn {Procedure} sx-tail sx [ix] => (list)
;; Return the ix-th tail starting after the tag and attribut list, where
;; @var{ix} must be positive. For example,
;; @example
;; (sx-tail '(tag (@ (abc . "123")) (foo) (bar)) 1) => ((foo) (bar))
;; @end example
;; Without second argument @var{ix} is 1.
;; @end deffn
(define sx-tail
(case-lambda
((sx ix)
(cond (cond
((zero? ix) (error "sx-tail: expecting index greater than 0")) ((zero? ix) (error "sx-tail: expecting index greater than 0"))
((and (pair? (cadr sx)) (eqv? '@ (caadr sx))) (list-tail sx (1+ ix))) ((and (pair? (cadr sx)) (eqv? '@ (caadr sx))) (list-tail sx (1+ ix)))
(else (list-tail sx ix)))) (else (list-tail sx ix))))
((sx)
(sx-tail sx 1))))
;; @deffn sx-has-attr? sx ;; @deffn {Procedure} sx-has-attr? sx
;; p to determine if @arg{sx} has attributes. ;; p to determine if @arg{sx} has attributes.
;; @end deffn
(define (sx-has-attr? sx) (define (sx-has-attr? sx)
(and (pair? (cdr sx)) (pair? (cadr sx)) (eqv? '@ (caadr sx)))) (and (pair? (cdr sx)) (pair? (cadr sx)) (eqv? '@ (caadr sx))))
;; @deffn sx-attr sx => '(@ ...)|#f ;; @deffn {Procedure} sx-attr sx => '(@ ...)|#f
;; @example ;; @example
;; (sx-attr '(abc (@ (foo "1")) def) 1) => '(@ (foo "1")) ;; (sx-attr '(abc (@ (foo "1")) def) 1) => '(@ (foo "1"))
;; @end example ;; @end example
@ -201,6 +229,7 @@ the file COPYING included with the this distribution.")
;; @example ;; @example
;; (sx-attr sx) => '((a . 1) (b . 2) ...) ;; (sx-attr sx) => '((a . 1) (b . 2) ...)
;; @end example ;; @end example
;; @end deffn
(define (sx-attr sx) (define (sx-attr sx)
(if (and (pair? (cdr sx)) (pair? (cadr sx))) (if (and (pair? (cdr sx)) (pair? (cadr sx)))
(if (eqv? '@ (caadr sx)) (if (eqv? '@ (caadr sx))
@ -208,16 +237,18 @@ the file COPYING included with the this distribution.")
#f) #f)
#f)) #f))
;; @deffn sx-attr-ref sx key => val ;; @deffn {Procedure} sx-attr-ref sx key => val
;; Return an attribute value given the key, or @code{#f}. ;; Return an attribute value given the key, or @code{#f}.
;; @end deffn
(define (sx-attr-ref sx key) (define (sx-attr-ref sx key)
(and=> (sx-attr sx) (and=> (sx-attr sx)
(lambda (attr) (lambda (attr)
(and=> (assq-ref (cdr attr) key) car)))) (and=> (assq-ref (cdr attr) key) car))))
;; @deffn sx-set-attr! sx key val ;; @deffn {Procedure} sx-set-attr! sx key val
;; Set attribute for sx. If no attributes exist, if key does not exist, ;; Set attribute for sx. If no attributes exist, if key does not exist,
;; add it, if it does exist, replace it. ;; add it, if it does exist, replace it.
;; @end deffn
(define (sx-set-attr! sx key val . rest) (define (sx-set-attr! sx key val . rest)
(if (sx-has-attr? sx) (if (sx-has-attr? sx)
(let ((attr (cadr sx))) (let ((attr (cadr sx)))
@ -226,8 +257,8 @@ the file COPYING included with the this distribution.")
sx) sx)
;; @deffn sx-set-attr* sx key val [key val [key ... ]] ;; @deffn sx-set-attr* sx key val [key val [key ... ]]
;; Set attribute for sx. If no attributes exist, if key does not exist, ;; Generate sx with added or changed attributes.
;; add it, if it does exist, replace it. ;; @end deffn
(define (sx-set-attr* sx . rest) (define (sx-set-attr* sx . rest)
(let iter ((attr (or (and=> (sx-attr sx) cdr) '())) (kvl rest)) (let iter ((attr (or (and=> (sx-attr sx) cdr) '())) (kvl rest))
(cond (cond
@ -236,6 +267,7 @@ the file COPYING included with the this distribution.")
;; @deffn sx-find tag sx => ((tag ...) (tag ...)) ;; @deffn sx-find tag sx => ((tag ...) (tag ...))
;; Find the first matching element (in the first level). ;; Find the first matching element (in the first level).
;; @end deffn
(define (sx-find tag sx) (define (sx-find tag sx)
(find (lambda (node) (find (lambda (node)
(and (pair? node) (eqv? tag (car node)))) (and (pair? node) (eqv? tag (car node))))
@ -244,7 +276,7 @@ the file COPYING included with the this distribution.")
;;; === pp ========================== ;;; === pp ==========================
;; @section Pretty-Print and Other Utility Procedures ;; @section Pretty-Print and Other Utility Procedures
;; @deffn make-protect-expr op-prec op-assc => side op expr => #t|#f ;; @deffn {Procedure} make-protect-expr op-prec op-assc => side op expr => #t|#f
;; Generate procedure @code{protect-expr} for pretty-printers, which takes ;; Generate procedure @code{protect-expr} for pretty-printers, which takes
;; the form @code{(protect-expr? side op expr)} and where @code{side} ;; the form @code{(protect-expr? side op expr)} and where @code{side}
;; is @code{'lval} or @code{'rval}, @code{op} is the operator and @code{expr} ;; is @code{'lval} or @code{'rval}, @code{op} is the operator and @code{expr}
@ -255,6 +287,7 @@ the file COPYING included with the this distribution.")
;; @example ;; @example
;; (protect-expr? 'left '+ '(mul ...)) => TBD ;; (protect-expr? 'left '+ '(mul ...)) => TBD
;; @end example ;; @end example
;; @end deffn
(define (make-protect-expr op-prec op-assc) (define (make-protect-expr op-prec op-assc)
(define (assc-lt? op) (define (assc-lt? op)
@ -263,9 +296,10 @@ the file COPYING included with the this distribution.")
(define (assc-rt? op) (define (assc-rt? op)
(memq op (assq-ref op-assc 'right))) (memq op (assq-ref op-assc 'right)))
;; @deffn prec a b => '>|'<|'=|#f ;; @deffn {Procedure} prec a b => '>|'<|'=|#f
;; Returns the prececence relation of @code{a}, @code{b} as ;; Returns the prececence relation of @code{a}, @code{b} as
;; @code{<}, @code{>}, @code{=} or @code{#f} (no relation). ;; @code{<}, @code{>}, @code{=} or @code{#f} (no relation).
;; @end deffn
(define (prec a b) (define (prec a b)
(let iter ((ag #f) (bg #f) (opg op-prec)) ;; a-group, b-group (let iter ((ag #f) (bg #f) (opg op-prec)) ;; a-group, b-group
(cond (cond
@ -292,15 +326,18 @@ the file COPYING included with the this distribution.")
((=) (assc? op)) ((=) (assc? op))
(else #f))))) (else #f)))))
;; @deffn make-pp-formatter => fmtr ;; @deffn {Procedure} make-pp-formatter [port] [#:per-line-prefix ""] => fmtr
;; @example ;; @example
;; (fmtr 'push) ;; push indent level ;; (fmtr 'push) ;; push indent level
;; (fmtr 'pop) ;; pop indent level ;; (fmtr 'pop) ;; pop indent level
;; (fmtr "fmt" arg1 arg2 ...) ;; (fmtr "fmt" arg1 arg2 ...)
;; @end example ;; @end example
(define* (make-pp-formatter) ;; @end deffn
(define* (make-pp-formatter #:optional (port (current-output-port))
#:key per-line-prefix)
(letrec (letrec
((maxcol 78) ((maxcol (- 78 (if per-line-prefix (string-length per-line-prefix) 0)))
;;(maxcol 78)
(maxind 36) (maxind 36)
(column 0) (column 0)
(ind-lev 0) (ind-lev 0)
@ -320,19 +357,30 @@ the file COPYING included with the this distribution.")
(set! ind-lev (max 0 (1- ind-lev))) (set! ind-lev (max 0 (1- ind-lev)))
(set! ind-len (* 2 ind-lev)))) (set! ind-len (* 2 ind-lev))))
(inc-column!
(lambda (inc)
(set! column (+ column inc))))
(set-column!
(lambda (val)
(set! column val)))
(sf (sf
(lambda (fmt . args) (lambda (fmt . args)
(let* ((str (apply simple-format #f fmt args)) (let* ((str (apply simple-format #f fmt args))
(len (string-length str))) (len (string-length str)))
(cond (cond
((zero? column) ((zero? column)
(display (ind-str)) (if per-line-prefix (display per-line-prefix port))
(set! column (+ column ind-len))) (display (ind-str) port)
(inc-column! ind-len))
((> (+ column len) maxcol) ((> (+ column len) maxcol)
(newline) (newline port)
(display (cnt-str)) (if per-line-prefix (display per-line-prefix port))
(set! column (+ column ind-len 4)))) (display (cnt-str) port)
(display str) (set-column! (+ ind-len 4))))
(display str port)
(inc-column! len)
(when (and (positive? len) (when (and (positive? len)
(eqv? #\newline (string-ref str (1- len)))) (eqv? #\newline (string-ref str (1- len))))
(set! column 0)))))) (set! column 0))))))
@ -348,10 +396,11 @@ the file COPYING included with the this distribution.")
(else (error "pp-formatter: bad args")) (else (error "pp-formatter: bad args"))
)))) ))))
;; @deffn make-pp-formatter/ugly => fmtr ;; @deffn {Procedure} make-pp-formatter/ugly => fmtr
;; Makes a @code{fmtr} like @code{make-pp-formatter} but no indentation ;; Makes a @code{fmtr} like @code{make-pp-formatter} but no indentation
;; and just adds strings on ... ;; and just adds strings on ...
;; This is specific to C/C++ because it will newline if #\# seen first. ;; This is specific to C/C++ because it will newline if #\# seen first.
;; @end deffn
(define* (make-pp-formatter/ugly) (define* (make-pp-formatter/ugly)
(let* (let*
((maxcol 78) ((maxcol 78)
@ -390,8 +439,9 @@ the file COPYING included with the this distribution.")
((eqv? 'pop arg0) #f) ((eqv? 'pop arg0) #f)
(else (error "pp-formatter/ugly: bad args")))))) (else (error "pp-formatter/ugly: bad args"))))))
;; @deffn move-if-changed src-file dst-file [sav-file] ;; @deffn {Procedure} move-if-changed src-file dst-file [sav-file]
;; Return @code{#t} if changed. ;; Return @code{#t} if changed.
;; @end deffn
(define (move-if-changed src-file dst-file . rest) (define (move-if-changed src-file dst-file . rest)
(define (doit) (define (doit)

91
module/nyacc/lex.scm
View file

@ -54,13 +54,6 @@
#:use-module (ice-9 pretty-print) #:use-module (ice-9 pretty-print)
) )
(cond-expand
(guile-2)
(guile
(use-modules (ice-9 syncase))
(use-modules (ice-9 optargs)))
(mes))
;; @section Constructing Lexical Analyzers ;; @section Constructing Lexical Analyzers
;; The @code{lex} module provides a set of procedures to build lexical ;; The @code{lex} module provides a set of procedures to build lexical
;; analyzers. The approach is to first build a set of @defn{readers} for ;; analyzers. The approach is to first build a set of @defn{readers} for
@ -92,7 +85,7 @@
(define (lsr chl) (list->string (reverse chl))) ; used often (define (lsr chl) (list->string (reverse chl))) ; used often
;; @deffn eval-reader reader string => result ;; @deffn {Procedure} eval-reader reader string => result
;; For test and debug, this procedure will evaluate a reader on a string. ;; For test and debug, this procedure will evaluate a reader on a string.
;; A reader is a procedure that accepts a single character argument intended ;; A reader is a procedure that accepts a single character argument intended
;; to match a specific character sequence. A reader will read more characters ;; to match a specific character sequence. A reader will read more characters
@ -100,12 +93,14 @@
;; will pushback all characters read via @code{read-char} and return @code{#f}. ;; will pushback all characters read via @code{read-char} and return @code{#f}.
;; If it succeeds the input pointer will be at the position following the ;; If it succeeds the input pointer will be at the position following the
;; last matched character. ;; last matched character.
;; @end deffn
(define (eval-reader reader string) (define (eval-reader reader string)
(with-input-from-string string (with-input-from-string string
(lambda () (reader (read-char))))) (lambda () (reader (read-char)))))
;; @deffn make-space-skipper chset => proc ;; @deffn {Procedure} make-space-skipper chset => proc
;; This routine will generate a reader to skip whitespace. ;; This routine will generate a reader to skip whitespace.
;; @end deffn
(define (make-space-skipper chset) (define (make-space-skipper chset)
(lambda (ch) (lambda (ch)
(if (char-set-contains? chset ch) (if (char-set-contains? chset ch)
@ -118,16 +113,19 @@
#t))) #t)))
#f))) #f)))
;; @deffn skip-c-space ch => #f|#t ;; @deffn {Procedure} skip-c-space ch => #f|#t
;; If @code{ch} is space, skip all spaces, then return @code{#t}, else ;; If @code{ch} is space, skip all spaces, then return @code{#t}, else
;; return @code{#f}. ;; return @code{#f}.
;; @end deffn
(define skip-c-space (make-space-skipper c:ws)) (define skip-c-space (make-space-skipper c:ws))
;; @deffn make-ident-reader cs-first cs-rest => ch -> #f|string ;; @deffn {Procedure} make-ident-reader cs-first cs-rest => ch -> #f|string
;; For identifiers, given the char-set for first character and the char-set ;; For identifiers, given the char-set for first character and the char-set
;; for following characters, return a return a reader for identifiers. ;; for following characters, return a return a reader for identifiers.
;; The reader takes a character as input and returns @code{#f} or @code{string}. ;; The reader takes a character as input and returns @code{#f} or @code{string}.
;; This will generate exception on @code{#<eof>}.
;; @end deffn
(define (make-ident-reader cs-first cs-rest) (define (make-ident-reader cs-first cs-rest)
(lambda (ch) (lambda (ch)
(if (char-set-contains? cs-first ch) (if (char-set-contains? cs-first ch)
@ -142,23 +140,26 @@
(lsr chl)))) (lsr chl))))
#f))) #f)))
;; @deffn read-c-ident ch => #f|string ;; @deffn {Procedure} read-c-ident ch => #f|string
;; If ident pointer at following char, else (if #f) ch still last-read. ;; If ident pointer at following char, else (if #f) ch still last-read.
;; @end deffn
(define read-c-ident (make-ident-reader c:if c:ir)) (define read-c-ident (make-ident-reader c:if c:ir))
;; @deffn make-ident-like-p ident-reader ;; @deffn {Procedure} make-ident-like-p ident-reader
;; Generate a predicate, from a reader, that determines if a string qualifies ;; Generate a predicate, from a reader, that determines if a string qualifies
;; as an identifier. ;; as an identifier.
;; @end deffn
(define (make-like-ident-p reader) (define (make-like-ident-p reader)
(lambda (s) (and (string? s) (eval-reader reader s)))) (lambda (s) (and (string? s) (eval-reader reader s))))
(define make-ident-like-p make-like-ident-p) (define make-ident-like-p make-like-ident-p)
(define like-c-ident? (make-like-ident-p read-c-ident)) (define like-c-ident? (make-like-ident-p read-c-ident))
;; @deffn make-string-reader delim ;; @deffn {Procedure} make-string-reader delim
;; Generate a reader that uses @code{delim} as delimiter for strings. ;; Generate a reader that uses @code{delim} as delimiter for strings.
;; TODO: need to handle matlab-type strings. ;; TODO: need to handle matlab-type strings.
;; TODO: need to handle multiple delim's (like python) ;; TODO: need to handle multiple delim's (like python)
;; @end deffn
(define (make-string-reader delim) ;; #:xxx (define (make-string-reader delim) ;; #:xxx
(lambda (ch) (lambda (ch)
(if (eq? ch delim) (if (eq? ch delim)
@ -172,8 +173,9 @@
(else (iter (cons ch cl) (read-char))))) (else (iter (cons ch cl) (read-char)))))
#f))) #f)))
;; @deffn read-oct ch => "0123"|#f ;; @deffn {Procedure} read-oct ch => "0123"|#f
;; Read octal number. ;; Read octal number.
;; @end deffn
(define read-oct (define read-oct
(let ((cs:oct (string->char-set "01234567"))) (let ((cs:oct (string->char-set "01234567")))
(lambda (ch) (lambda (ch)
@ -187,8 +189,9 @@
(unread-char ch) (unread-char ch)
cv)))))) cv))))))
;; @deffn read-hex ch => "0x7f"|#f ;; @deffn {Procedure} read-hex ch => "0x7f"|#f
;; Read octal number. ;; Read octal number.
;; @end deffn
(define read-hex (define read-hex
(let ((cs:dig (string->char-set "0123456789")) (let ((cs:dig (string->char-set "0123456789"))
(cs:uhx (string->char-set "ABCDEF")) (cs:uhx (string->char-set "ABCDEF"))
@ -207,9 +210,13 @@
(iter (+ (* 16 cv) (- (char->integer ch) 87)) (read-char) (1+ n))) (iter (+ (* 16 cv) (- (char->integer ch) 87)) (read-char) (1+ n)))
(else (unread-char ch) cv)))))) (else (unread-char ch) cv))))))
;; @deffn read-c-string ch => ($string . "foo") ;; @deffn {Procedure} read-c-string ch => ($string . "foo")
;; Read a C-code string. Output to code is @code{write} not @code{display}. ;; Read a C-code string. Output to code is @code{write} not @code{display}.
;; Return #f if @var{ch} is not @code{"}. ;; Return #f if @var{ch} is not @code{"}. @*
;; TODO: parse trigraphs
;; ??=->#, ??/->\, ??'->^, ??(->[, ??)->], ??~->|, ??<->{, ??>->}, ??-->~
;; and digraphs <:->[, :>->], <%->{ %>->} %:->#
;; @end deffn
(define (read-c-string ch) (define (read-c-string ch)
(if (not (eq? ch #\")) #f (if (not (eq? ch #\")) #f
(let iter ((cl '()) (ch (read-char))) (let iter ((cl '()) (ch (read-char)))
@ -269,12 +276,13 @@
(define (fix-dot l) (if (char=? #\. (car l)) (cons #\0 l) l)) (define (fix-dot l) (if (char=? #\. (car l)) (cons #\0 l) l))
;; @deffn make-num-reader => (proc ch) => #f|($fixed . "1")|($float . "1.0") ;; @deffn {Procedure} make-num-reader => (proc ch) => #f|($fixed . "1")|($float . "1.0")
;; Reads C numbers. ;; Reads C numbers.
;; This routine will clean by adding "0" before or after dot. ;; This routine will clean by adding "0" before or after dot.
;; may want to replace "eEdD" w/ "e" ;; may want to replace "eEdD" w/ "e"
;; integer decimal(#t/#f) fraction exponent looking-at ;; integer decimal(#t/#f) fraction exponent looking-at
;; i, f and e are lists of characters ;; i, f and e are lists of characters
;; @end deffn
(define (make-num-reader) (define (make-num-reader)
;; 0: start; 1: p-i; 2: p-f; 3: p-e-sign; 4: p-e-d; 5: packup ;; 0: start; 1: p-i; 2: p-f; 3: p-e-sign; 4: p-e-d; 5: packup
;; Removed support for leading '.' to be a number. ;; Removed support for leading '.' to be a number.
@ -335,9 +343,10 @@
(unless (eof-object? ch) (unread-char ch)) (unless (eof-object? ch) (unread-char ch))
(cons ty (lsr chl))))))) (cons ty (lsr chl)))))))
;; @deffn cnumstr->scm C99-str => scm-str ;; @deffn {Procedure} cnumstr->scm C99-str => scm-str
;; Convert C number-string (e.g, @code{0x123LL}) to Scheme numbers-string ;; Convert C number-string (e.g, @code{0x123LL}) to Scheme numbers-string
;; (e.g., @code{#x123}). ;; (e.g., @code{#x123}).
;; @end deffn
(define (cnumstr->scm str) (define (cnumstr->scm str)
(define (2- n) (1- (1- n))) (define (2- n) (1- (1- n)))
(let* ((nd (string-length str))) (let* ((nd (string-length str)))
@ -356,13 +365,15 @@
(trim-rt 0))) (trim-rt 0)))
(trim-rt 0))))) (trim-rt 0)))))
;; @deffn read-c-num ch => #f|string ;; @deffn {Procedure} read-c-num ch => #f|string
;; Reader for unsigned numbers as used in C (or close to it). ;; Reader for unsigned numbers as used in C (or close to it).
;; @end deffn
(define read-c-num (make-num-reader)) (define read-c-num (make-num-reader))
;;.@deffn si-map string-list ix => a-list ;;.@deffn {Procedure} si-map string-list ix => a-list
;; Convert list of strings to alist of char at ix and strings. ;; Convert list of strings to alist of char at ix and strings.
;; This is a helper for make-tree. ;; This is a helper for make-tree.
;; @end deffn
(define (si-map string-list ix) (define (si-map string-list ix)
(let iter ((sal '()) (sl string-list)) (let iter ((sal '()) (sl string-list))
(cond (cond
@ -377,12 +388,13 @@
(iter (cons (cons (string-ref (car sl) ix) (list (car sl))) sal) (iter (cons (cons (string-ref (car sl) ix) (list (car sl))) sal)
(cdr sl)))))) (cdr sl))))))
;;.@deffn make-tree strtab -> tree ;;.@deffn {Procedure} make-tree strtab -> tree
;; This routine takes an alist of strings and symbols and makes a tree ;; This routine takes an alist of strings and symbols and makes a tree
;; that parses one char at a time and provide @code{'else} entry for ;; that parses one char at a time and provide @code{'else} entry for
;; signaling sequence found. That is, if @code{("ab" . 1)} is an entry ;; signaling sequence found. That is, if @code{("ab" . 1)} is an entry
;; then a chseq-reader (see below) would stop at @code{"ab"} and ;; then a chseq-reader (see below) would stop at @code{"ab"} and
;; return @code{1}. ;; return @code{1}.
;; @end deffn
(define (make-tree strtab) (define (make-tree strtab)
(define (si-cnvt string-list ix) (define (si-cnvt string-list ix)
(map (lambda (pair) (map (lambda (pair)
@ -392,9 +404,10 @@
(si-map string-list ix))) (si-map string-list ix)))
(si-cnvt (map car strtab) 0)) (si-cnvt (map car strtab) 0))
;; @deffn make-chseq-reader strtab ;; @deffn {Procedure} make-chseq-reader strtab
;; Given alist of pairs (string, token) return a function that eats chars ;; Given alist of pairs (string, token) return a function that eats chars
;; until (token . string) is returned or @code{#f} if no match is found. ;; until (token . string) is returned or @code{#f} if no match is found.
;; @end deffn
(define (make-chseq-reader strtab) (define (make-chseq-reader strtab)
;; This code works on the assumption that the else-part is always last ;; This code works on the assumption that the else-part is always last
;; in the list of transitions. ;; in the list of transitions.
@ -418,7 +431,7 @@
(pushback (cdr cl)))) (pushback (cdr cl))))
#f)))))) #f))))))
;; @deffn make-comm-reader comm-table [#:eat-newline #t] => \ ;; @deffn {Procedure} make-comm-reader comm-table [#:eat-newline #t] => \
;; ch bol -> ('$code-comm "..")|('$lone-comm "..")|#f ;; ch bol -> ('$code-comm "..")|('$lone-comm "..")|#f
;; comm-table is list of cons for (start . end) comment. ;; comm-table is list of cons for (start . end) comment.
;; e.g. ("--" . "\n") ("/*" . "*/") ;; e.g. ("--" . "\n") ("/*" . "*/")
@ -426,9 +439,10 @@
;; If @code{eat-newline} is specified as true then for read comments ;; If @code{eat-newline} is specified as true then for read comments
;; ending with a newline a newline swallowed with the comment. ;; ending with a newline a newline swallowed with the comment.
;; Note: assumes backslash is never part of the end ;; Note: assumes backslash is never part of the end
;; @end deffn
(define* (make-comm-reader comm-table #:key (eat-newline #f)) (define* (make-comm-reader comm-table #:key (eat-newline #f))
(define (mc-read-char) (define (mc-read-char) ;; CHECK THIS
(let ((ch (read-char))) (let ((ch (read-char)))
(if (eqv? ch #\\) (if (eqv? ch #\\)
(let ((ch (read-char))) (let ((ch (read-char)))
@ -462,34 +476,40 @@
((eq? px (string-length ps)) ((eq? px (string-length ps))
(if (and (not eat-newline) (eq? #\newline (car sl))) (if (and (not eat-newline) (eq? #\newline (car sl)))
(unread-char #\newline)) (unread-char #\newline))
(if (and (pair? cl) (eqv? (car cl) #\return)) ;; rem trailing \r (if (and (pair? cl) (eqv? (car cl) #\cr)) ;; rem trailing \r
(cons tval (list->string (reverse (cdr cl)))) (cons tval (lsr (cdr cl)))
(cons tval (list->string (reverse cl))))) (cons tval (lsr cl))))
((null? il) (find-end cl sl (cons (mc-read-char) il) ps px)) ((null? il) (find-end cl sl (cons (mc-read-char) il) ps px))
((eof-object? (car il)) (error "open comment")) ;;((eof-object? (car il)) (error "open comment" cl))
((eof-object? (car il))
(if (char=? (string-ref ps px) #\newline) (lsr cl)
(throw 'nyacc-error "open comment")))
((eqv? (car il) (string-ref ps px)) ((eqv? (car il) (string-ref ps px))
(find-end cl (cons (car il) sl) (cdr il) ps (1+ px))) (find-end cl (cons (car il) sl) (cdr il) ps (1+ px)))
(else (else
(let ((il1 (append-reverse sl il))) (let ((il1 (append-reverse sl il)))
(find-end (cons (car il1) cl) '() (cdr il1) ps 0))))))) (find-end (cons (car il1) cl) '() (cdr il1) ps 0)))))))
(let ((ep (match-beg (list ch) tree))) (let ((ep (match-beg (list ch) tree))) ;; ep == end pattern?
(if ep (find-end '() '() (list (mc-read-char)) ep 0) #f)))))) (if ep (find-end '() '() (list (mc-read-char)) ep 0) #f))))))
(define read-c-comm (make-comm-reader '(("/*" . "*/") ("//" . "\n")))) (define read-c-comm (make-comm-reader '(("/*" . "*/") ("//" . "\n"))))
;; @deffn filter-mt p? al => al ;; @deffn {Procedure} filter-mt p? al => al
;; Filter match-table based on cars of al. ;; Filter match-table based on cars of al.
;; @end deffn
(define (filter-mt p? al) (filter (lambda (x) (p? (car x))) al)) (define (filter-mt p? al) (filter (lambda (x) (p? (car x))) al))
;; @deffn remove-mt p? al => al ;; @deffn {Procedure} remove-mt p? al => al
;; Remove match-table based on cars of al. ;; Remove match-table based on cars of al.
;; @end deffn
(define (remove-mt p? al) (remove (lambda (x) (p? (car x))) al)) (define (remove-mt p? al) (remove (lambda (x) (p? (car x))) al))
;; @deffn map-mt f al => al ;; @deffn {Procedure} map-mt f al => al
;; Map cars of al. ;; Map cars of al.
;; @end deffn
(define (map-mt f al) (map (lambda (x) (cons (f (car x)) (cdr x))) al)) (define (map-mt f al) (map (lambda (x) (cons (f (car x)) (cdr x))) al))
;; @deffn make-lexer-generator match-table => lexer-generator ;; @deffn {Procedure} make-lexer-generator match-table => lexer-generator
;; @example ;; @example
;; (define gen-lexer (make-lexer-generator #:ident-reader my-id-rdr)) ;; (define gen-lexer (make-lexer-generator #:ident-reader my-id-rdr))
;; (with-input-from-file "foo" (parse (gen-lexer))) ;; (with-input-from-file "foo" (parse (gen-lexer)))
@ -510,6 +530,7 @@
;; @end enumerate ;; @end enumerate
;; todo: add bol status ;; todo: add bol status
;; todo: maybe separate reading of keywords from identifiers: (keywd ch) => ;; todo: maybe separate reading of keywords from identifiers: (keywd ch) =>
;; @end deffn
(define* (make-lexer-generator match-table (define* (make-lexer-generator match-table
#:key ident-reader num-reader #:key ident-reader num-reader
string-reader chlit-reader string-reader chlit-reader

1
module/nyacc/parse.scm
View file

@ -20,7 +20,6 @@
(define-module (nyacc parse) (define-module (nyacc parse)
#:export (make-lalr-parser make-lalr-ia-parser) #:export (make-lalr-parser make-lalr-ia-parser)
#:use-module (ice-9 optargs)
#:use-module (nyacc util) #:use-module (nyacc util)
#:use-module ((srfi srfi-43) #:select (vector-map vector-for-each)) #:use-module ((srfi srfi-43) #:select (vector-map vector-for-each))
) )

1
module/nyacc/util.scm
View file

@ -28,7 +28,6 @@
ugly-print ugly-print
tzort tzort
) )
#:use-module (ice-9 optargs)
#:use-module ((srfi srfi-43) #:select (vector-fold)) #:use-module ((srfi srfi-43) #:select (vector-fold))
) )