suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r1934

Browse Source
This commit is contained in:
Kathy Gray 2006-01-23 21:47:05 +00:00
parent 46b83f1872
commit 8bb5b50cf9
4 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/profj/parsers/advanced-parser.ss
View File

@ -55,7 +55,8 @@
(- (position-offset (cadr $1)) (position-offset $1-start-pos)) (- (position-offset (cadr $1)) (position-offset $1-start-pos))
(file-path)) (file-path))
(car $1))] (car $1))]
[(NULL_LIT) (make-literal 'null (build-src 1) #f)]) [(NULL_LIT) (make-literal 'null (build-src 1) #f)]
[(IMAGE_SPECIAL) (make-literal 'image (build-src 1) $1)])
;; 19.4 ;; 19.4
(Type (Type

3
collects/profj/parsers/beginner-parser.ss
View File

@ -54,7 +54,8 @@
(+ (position-offset $1-start-pos) (interactions-offset)) (+ (position-offset $1-start-pos) (interactions-offset))
(- (position-offset (cadr $1)) (position-offset $1-start-pos)) (- (position-offset (cadr $1)) (position-offset $1-start-pos))
(file-path)) (file-path))
(car $1))]) (car $1))]
[(IMAGE_SPECIAL) (make-literal 'image (build-src 1) $1)])
;; 19.4 ;; 19.4
(Type (Type

3
collects/profj/parsers/intermediate-parser.ss
View File

@ -59,7 +59,8 @@
(- (position-offset (cadr $1)) (position-offset $1-start-pos)) (- (position-offset (cadr $1)) (position-offset $1-start-pos))
(file-path)) (file-path))
(car $1))] (car $1))]
[(NULL_LIT) (make-literal 'null (build-src 1) #f)]) [(NULL_LIT) (make-literal 'null (build-src 1) #f)]
[(IMAGE_SPECIAL) (make-literal 'image (build-src 1) $1)])
;; 19.4 ;; 19.4
(Type (Type

4
collects/profj/parsers/parse-error.ss
View File

@ -2117,7 +2117,7 @@
(parse-expression cur-tok (getter) 'dot-op-or-end getter statement-ok? stmt-exp?) (parse-expression cur-tok (getter) 'dot-op-or-end getter statement-ok? stmt-exp?)
(parse-error "Expected an expression. null may not be used here" start end))) (parse-error "Expected an expression. null may not be used here" start end)))
((TRUE_LIT FALSE_LIT STRING_LIT CHAR_LIT INTEGER_LIT ((TRUE_LIT FALSE_LIT STRING_LIT CHAR_LIT INTEGER_LIT
LONG_LIT FLOAT_LIT DOUBLE_LIT this) LONG_LIT FLOAT_LIT DOUBLE_LIT this IMAGE_SPECIAL)
(parse-expression cur-tok (getter) 'dot-op-or-end getter statement-ok? stmt-exp?)) (parse-expression cur-tok (getter) 'dot-op-or-end getter statement-ok? stmt-exp?))
((super) ((super)
(if (beginner?) (if (beginner?)
@ -2262,7 +2262,7 @@
(next-tok (get-tok next))) (next-tok (get-tok next)))
(case (get-token-name next-tok) (case (get-token-name next-tok)
((~ ! - + TRUE_LIT FALSE_LIT STRING_LIT CHAR_LIT INTEGER_LIT ((~ ! - + TRUE_LIT FALSE_LIT STRING_LIT CHAR_LIT INTEGER_LIT
LONG_LIT FLOAT_LIT DOUBLE_LIT this O_PAREN new IDENTIFIER) LONG_LIT FLOAT_LIT DOUBLE_LIT this O_PAREN new IDENTIFIER IMAGE_SPECIAL)
(parse-expression cur-tok next 'start getter #f stmt-exp?)) (parse-expression cur-tok next 'start getter #f stmt-exp?))
((super) ((super)
(if (beginner?) (if (beginner?)