Changeset 21638 in project


Ignore:
Timestamp:
11/25/10 04:57:44 (9 years ago)
Author:
Alan Post
Message:

genturfa'i: checkpoint secuxna handling

This code still doesn't work, but this is my current checkpoint.

The problem is that I need these options to run before I generate
the rest of the parse tree, but the code is not executed until
after the parse tree is generated.

I could wrap all of the parsing code up in a generator, and call
the generator code after I've executed these options. That
significantly complicates the PEG parsing code, so I'm going to
wait for further inspiration.

Location:
release/4/genturfahi/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/genturfahi/trunk/bootstrap.scm

    r21634 r21638  
    3030                          (nunjavni-naselci samselpla)
    3131                          cmene:
    32                           "samselpla")
     32                          "rodasamselpla")
    3333                        (nunjavni-naselci canlu)
    3434                        (nunjavni-naselci gerna cmene: "gerna")
  • release/4/genturfahi/trunk/genturfahi.peg

    r21634 r21638  
    5656
    5757cfari           <- canlu
    58                    #:samselpla samselpla*
     58                   #:rodasamselpla samselpla*
    5959                   canlu
    6060                   #:gerna gerna
  • release/4/genturfahi/trunk/samselpla.scm

    r21634 r21638  
    2525;; just return the header code and grammar.
    2626;;
    27 (define (samselpla-cfari #!key samselpla gerna)
    28   gerna)
    29   ;`(,@samselpla ,gerna))
     27(define (samselpla-cfari #!key rodasamselpla gerna)
     28  (if (null? rodasamselpla)
     29      gerna
     30      gerna
     31;      `(nunjavni-samselpla
     32;         (lambda ()
     33;           ,@(map (lambda (samselpla) (call-with-input-string samselpla read))
     34;                  rodasamselpla))
     35;         ,gerna)))
    3036
    3137(define (samselpla-gerna #!key smuni)
Note: See TracChangeset for help on using the changeset viewer.