Changeset 27329 in project

Timestamp:

08/29/12 15:31:59 (9 years ago)

Author:

Alan Post

Message:

genturfa'i: handle boolean in {}-expr parser.

This routine may be called many times while initializing a .peg
file. Since we clear the global variable for memo-names each
time through, we must handle boolean as a non-error case.

File:

• release/4/genturfahi/trunk/samselpla.scm (modified) (2 diffs)

release/4/genturfahi/trunk/samselpla.scm

@@ -141 +141 @@
           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))
@@ -157 +164 @@
       (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
+                 #t)
+        (list    (for-each (lambda (naselci)
+                             (hash-table-set! samselpla-namorji naselci #t))
+                           no-memoize)
+                 ; success
+                 #t)
+                 ; success, default case
+        (boolean #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.