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))
(file-path))
(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
(Type

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

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

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

@ -59,7 +59,8 @@
(- (position-offset (cadr $1)) (position-offset $1-start-pos))
(file-path))
(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
(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-error "Expected an expression. null may not be used here" start end)))
((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?))
((super)
(if (beginner?)
@ -2262,7 +2262,7 @@
(next-tok (get-tok next)))
(case (get-token-name next-tok)
((~ ! - + 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?))
((super)
(if (beginner?)