Changeset 27330 in project
- Timestamp:
- 08/29/12 16:19:19 (9 years ago)
- Location:
- release/4/genturfahi
- Files:
-
- 3 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/4/genturfahi/tags/1.0.2/samselpla.scm
r27329 r27330 107 107 ,@smuni 108 108 (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 '()))) 136 133 137 134 (hash-table-clear! samselpla-hash-table) … … 141 138 jalge))))) 142 139 143 ;; This routine is called once for every {}-expr in a .peg file.144 ;; Update our global state (and in the case of memoization, clear145 ;; the global variable.) each time through.146 ;;147 ;; This routine must return #f if there is a problem with the sexpr148 ;; in the {}-expr.149 ;;150 140 (define (samselpla-cfari-samselpla #!key rodalerfu) 151 141 (let* ((valsi (apply string rodalerfu)) … … 164 154 (type-case no-memoize 165 155 (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) 175 163 ;; 176 164 ;; this should be an error case, but I haven't built an 177 165 ;; error handling framework for this system yet. 178 166 ;; 179 (else 167 (else #f))))) 180 168 181 169 ;; emit the non-terminal with it's rule. -
release/4/genturfahi/tags/1.0.2/version.scm
r24987 r27330 1 1 (define genturfahi-version-major 1) 2 2 (define genturfahi-version-minor 0) 3 (define genturfahi-version-patch 1)3 (define genturfahi-version-patch 2) 4 4 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 1 1 (define genturfahi-version-major 1) 2 2 (define genturfahi-version-minor 0) 3 (define genturfahi-version-patch 1)3 (define genturfahi-version-patch 2) 4 4 5 5 ;(define genturfahi-version (format "~a.~a.~a"
Note: See TracChangeset
for help on using the changeset viewer.