Changeset 27330 in project

Timestamp:

08/29/12 16:19:19 (9 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:

• tags/1.0.2 (copied) (copied from release/4/genturfahi/trunk)
• tags/1.0.2/samselpla.scm (modified) (3 diffs)
• tags/1.0.2/version.scm (modified) (1 diff)
• trunk/version.scm (modified) (1 diff)

release/4/genturfahi/tags/1.0.2/samselpla.scm

@@ -107 +107 @@
                 ,@smuni
                 (tolmohi-nunjavni)
-                ,@(type-case rodatamgau
-                    (string (let ((rodatamgau
-                                    (string->symbol rodatamgau))
-                                  (nunselci-cmene
-                                    (samselpla-cmene->symbol selci-cmene)))
-                              (if toplevel
-                                  (pacmene-e-toplevel rodatamgau
-                                                      selci-cmene
-                                                      nunselci-cmene)
-                                  (pacmene-enai-toplevel selci-cmene
-                                                         nunselci-cmene))))
-                    (list   (let ((rodatamgau
-                                    (map string->symbol rodatamgau))
-                                  (nunselci-cmene
-                                    (map samselpla-cmene->symbol selci-cmene)))
-                              (if toplevel
-                                  (suhorecmene-e-toplevel rodatamgau
-                                                          selci-cmene
-                                                          nunselci-cmene)
-                                  (suhorecmene-enai-toplevel selci-cmene
-                                                             nunselci-cmene))))
-                    ;;
-                    ;; this should be an error case, but I haven't built an
-                    ;; error handling framework for this system yet.
-                    ;;
-                    (else   '())))
-              '())))
+                ,@(if (list? rodatamgau)
+
+                      (let ((rodatamgau
+                              (map string->symbol rodatamgau))
+                            (nunselci-cmene
+                              (map samselpla-cmene->symbol selci-cmene)))
+                        (if toplevel
+                            (suhorecmene-e-toplevel rodatamgau
+                                                    selci-cmene
+                                                    nunselci-cmene)
+                            (suhorecmene-enai-toplevel selci-cmene
+                                                       nunselci-cmene)))
+
+                      (let ((rodatamgau
+                              (string->symbol  rodatamgau))
+                            (nunselci-cmene
+                              (samselpla-cmene->symbol selci-cmene)))
+                        (if toplevel
+                            (pacmene-e-toplevel rodatamgau
+                                                selci-cmene
+                                                nunselci-cmene)
+                            (pacmene-enai-toplevel selci-cmene
+                                                   nunselci-cmene)))))
+            '())))
 
           (hash-table-clear! samselpla-hash-table)
@@ -141 +138 @@
           jalge)))))
 
-;; This routine is called once for every {}-expr in a .peg file.
-;; Update our global state (and in the case of memoization, clear
-;; the global variable.) each time through.
-;;
-;; This routine must return #f if there is a problem with the sexpr
-;; in the {}-expr.
-;;
 (define (samselpla-cfari-samselpla #!key rodalerfu)
   (let* ((valsi     (apply string rodalerfu))
@@ -164 +154 @@
       (type-case no-memoize
         (string (hash-table-set! samselpla-namorji no-memoize #t)
-                 ; success
-                 #t)
-        (list    (for-each (lambda (naselci)
-                             (hash-table-set! samselpla-namorji naselci #t))
-                           no-memoize)
-                 ; success
-                 #t)
-                 ; success, default case
-        (boolean #t)
+                ; success
+                #t)
+        (list   (for-each (lambda (naselci)
+                            (hash-table-set! samselpla-namorji naselci #t))
+                          no-memoize)
+                ; success
+                #t)
         ;;
         ;; this should be an error case, but I haven't built an
         ;; error handling framework for this system yet.
         ;;
-        (else    #f)))))
+        (else   #f)))))
 
 ;; emit the non-terminal with it's rule.

release/4/genturfahi/tags/1.0.2/version.scm

@@ -1 +1 @@
 (define genturfahi-version-major 1)
 (define genturfahi-version-minor 0)
-(define genturfahi-version-patch 1)
+(define genturfahi-version-patch 2)
 
-;(define genturfahi-version (format "~a.~a.~a"
-;                             genturfahi-version-major
-;                             genturfahi-version-minor
-;                             genturfahi-version-patch))
-(define genturfahi-version "trunk")
+(define genturfahi-version (format "~a.~a.~a"
+                             genturfahi-version-major
+                             genturfahi-version-minor
+                             genturfahi-version-patch))

release/4/genturfahi/trunk/version.scm

@@ -1 +1 @@
 (define genturfahi-version-major 1)
 (define genturfahi-version-minor 0)
-(define genturfahi-version-patch 1)
+(define genturfahi-version-patch 2)
 
 ;(define genturfahi-version (format "~a.~a.~a"