From 8bb5b50cf9c1208d1c1cd479c29cd59bd6a3fc08 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Mon, 23 Jan 2006 21:47:05 +0000 Subject: [PATCH] svn: r1934 --- collects/profj/parsers/advanced-parser.ss | 3 ++- collects/profj/parsers/beginner-parser.ss | 3 ++- collects/profj/parsers/intermediate-parser.ss | 3 ++- collects/profj/parsers/parse-error.ss | 4 ++-- 4 files changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/profj/parsers/advanced-parser.ss b/collects/profj/parsers/advanced-parser.ss index 1d0b9b0a1e..12c1ca4fe0 100644 --- a/collects/profj/parsers/advanced-parser.ss +++ b/collects/profj/parsers/advanced-parser.ss @@ -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 diff --git a/collects/profj/parsers/beginner-parser.ss b/collects/profj/parsers/beginner-parser.ss index 8a3f39e9f6..8b314e6c62 100644 --- a/collects/profj/parsers/beginner-parser.ss +++ b/collects/profj/parsers/beginner-parser.ss @@ -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 diff --git a/collects/profj/parsers/intermediate-parser.ss b/collects/profj/parsers/intermediate-parser.ss index 6b363ddf73..38c83b178e 100644 --- a/collects/profj/parsers/intermediate-parser.ss +++ b/collects/profj/parsers/intermediate-parser.ss @@ -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 diff --git a/collects/profj/parsers/parse-error.ss b/collects/profj/parsers/parse-error.ss index ded7ec1e7c..e7687bb27e 100644 --- a/collects/profj/parsers/parse-error.ss +++ b/collects/profj/parsers/parse-error.ss @@ -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?)