Changeset 27330 in project


Ignore:
Timestamp:
08/29/12 16:19:19 (7 years ago)
Author:
Alan Post
Message:

genturfa'i: release v1.0.2.

This release fixes parse errors resulting from {}-exprs.

Location:
release/4/genturfahi
Files:
3 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/genturfahi/tags/1.0.2/samselpla.scm

    r27329 r27330  
    107107                ,@smuni
    108108                (tolmohi-nunjavni)
    109                 ,@(type-case rodatamgau
    110                     (string (let ((rodatamgau
    111                                     (string->symbol rodatamgau))
    112                                   (nunselci-cmene
    113                                     (samselpla-cmene->symbol selci-cmene)))
    114                               (if toplevel
    115                                   (pacmene-e-toplevel rodatamgau
    116                                                       selci-cmene
    117                                                       nunselci-cmene)
    118                                   (pacmene-enai-toplevel selci-cmene
    119                                                          nunselci-cmene))))
    120                     (list   (let ((rodatamgau
    121                                     (map string->symbol rodatamgau))
    122                                   (nunselci-cmene
    123                                     (map samselpla-cmene->symbol selci-cmene)))
    124                               (if toplevel
    125                                   (suhorecmene-e-toplevel rodatamgau
    126                                                           selci-cmene
    127                                                           nunselci-cmene)
    128                                   (suhorecmene-enai-toplevel selci-cmene
    129                                                              nunselci-cmene))))
    130                     ;;
    131                     ;; this should be an error case, but I haven't built an
    132                     ;; error handling framework for this system yet.
    133                     ;;
    134                     (else   '())))
    135               '())))
     109                ,@(if (list? rodatamgau)
     110
     111                      (let ((rodatamgau
     112                              (map string->symbol rodatamgau))
     113                            (nunselci-cmene
     114                              (map samselpla-cmene->symbol selci-cmene)))
     115                        (if toplevel
     116                            (suhorecmene-e-toplevel rodatamgau
     117                                                    selci-cmene
     118                                                    nunselci-cmene)
     119                            (suhorecmene-enai-toplevel selci-cmene
     120                                                       nunselci-cmene)))
     121
     122                      (let ((rodatamgau
     123                              (string->symbol  rodatamgau))
     124                            (nunselci-cmene
     125                              (samselpla-cmene->symbol selci-cmene)))
     126                        (if toplevel
     127                            (pacmene-e-toplevel rodatamgau
     128                                                selci-cmene
     129                                                nunselci-cmene)
     130                            (pacmene-enai-toplevel selci-cmene
     131                                                   nunselci-cmene)))))
     132            '())))
    136133
    137134          (hash-table-clear! samselpla-hash-table)
     
    141138          jalge)))))
    142139
    143 ;; This routine is called once for every {}-expr in a .peg file.
    144 ;; Update our global state (and in the case of memoization, clear
    145 ;; the global variable.) each time through.
    146 ;;
    147 ;; This routine must return #f if there is a problem with the sexpr
    148 ;; in the {}-expr.
    149 ;;
    150140(define (samselpla-cfari-samselpla #!key rodalerfu)
    151141  (let* ((valsi     (apply string rodalerfu))
     
    164154      (type-case no-memoize
    165155        (string (hash-table-set! samselpla-namorji no-memoize #t)
    166                  ; success
    167                  #t)
    168         (list    (for-each (lambda (naselci)
    169                              (hash-table-set! samselpla-namorji naselci #t))
    170                            no-memoize)
    171                  ; success
    172                  #t)
    173                  ; success, default case
    174         (boolean #t)
     156                ; success
     157                #t)
     158        (list   (for-each (lambda (naselci)
     159                            (hash-table-set! samselpla-namorji naselci #t))
     160                          no-memoize)
     161                ; success
     162                #t)
    175163        ;;
    176164        ;; this should be an error case, but I haven't built an
    177165        ;; error handling framework for this system yet.
    178166        ;;
    179         (else    #f)))))
     167        (else   #f)))))
    180168
    181169;; emit the non-terminal with it's rule.
  • release/4/genturfahi/tags/1.0.2/version.scm

    r24987 r27330  
    11(define genturfahi-version-major 1)
    22(define genturfahi-version-minor 0)
    3 (define genturfahi-version-patch 1)
     3(define genturfahi-version-patch 2)
    44
    5 ;(define genturfahi-version (format "~a.~a.~a"
    6 ;                             genturfahi-version-major
    7 ;                             genturfahi-version-minor
    8 ;                             genturfahi-version-patch))
    9 (define genturfahi-version "trunk")
     5(define genturfahi-version (format "~a.~a.~a"
     6                             genturfahi-version-major
     7                             genturfahi-version-minor
     8                             genturfahi-version-patch))
  • release/4/genturfahi/trunk/version.scm

    r24987 r27330  
    11(define genturfahi-version-major 1)
    22(define genturfahi-version-minor 0)
    3 (define genturfahi-version-patch 1)
     3(define genturfahi-version-patch 2)
    44
    55;(define genturfahi-version (format "~a.~a.~a"
Note: See TracChangeset for help on using the changeset viewer.