Changeset 22105 in project


Ignore:
Timestamp:
12/25/10 06:57:19 (10 years ago)
Author:
Alan Post
Message:

genturfahi: comment knr.

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

Legend:

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

    r22102 r22105  
    357357
    358358;; morji: memoization is done to ensure we run in linear time.
    359 ;;        Any javni can be memoized, but in practice we memoize
    360 ;;        na selci javni.
     359;;        Any javni can be memoized, though the compiler only
     360;;        memoizes non-terminals above a certain level of
     361;;        complexity.
    361362;;
    362363(define-values (genturfahi-semorji genturfahi-tolmohi nunjavni-morji)
     
    441442  (define (javni-samselpla porsi mapti namapti)
    442443    (define (mapti-samselpla porsi nunvalsi)
    443 
    444444      (define (samselpla-sumti rodavalsi)
    445445        (call-with-values
     
    469469
    470470    (javni porsi mapti-samselpla namapti))
    471 
    472471  javni-samselpla)
    473472
     
    491490    javni-cmene))
    492491
     492;; backtick operator
     493;;
    493494(define (nunjavni-nastura javni)
    494495  (define (javni-nastura porsi mapti namapti)
  • release/4/genturfahi/trunk/samselpla.scm

    r22103 r22105  
    7474            (toplevel    (secuxna-define-toplevel)))
    7575
     76        ; toplevel definition with mulitple start productions
     77        ;
    7678        (define (suhorecmene-e-toplevel tamgau nunselci-cmene)
    7779          (map (lambda (tamgau cmene)
     
    8183               tamgau nunselci-cmene))
    8284
     85        ; (let ...) definition with multiple start productions
     86        ;
    8387        (define (suhorecmene-enai-toplevel nunselci-cmene)
    8488          `((values ,@(map (lambda (tamgau cmene)
     
    8791                                ,cmene))))))
    8892
     93        ; toplevel definition with a single start production.
     94        ;
    8995        (define (pacmene-e-toplevel tamgau nunselci-cmene)
    9096          `((define
     
    9298              (nunjavni-secuxna (lambda () selci-cmene) ,nunselci-cmene))))
    9399
     100        ; (let ...) definition with a single start production.
     101        ;
    94102        (define (pacmene-enai-toplevel nunselci-cmene)
    95103          `((nunjavni-secuxna (lambda () ,selci-cmene) ,nunselci-cmene)))
     
    236244(define (samselpla-nastura-javni #!key javni)
    237245  (if (symbol? javni)
    238       ; if we have a non-terminal, we must use |morji-nunjavni-quote|.
     246      ; if we have a non-terminal, we must use |morji-nunjavni-nastura|.
    239247      ;
    240248      `(morji-nunjavni-nastura ,javni)
Note: See TracChangeset for help on using the changeset viewer.