Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-11 20:35:50 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed string literal bug

Browse Source
This commit is contained in:
waldemar%netscape.com 2001-11-27 02:38:56 +00:00
parent b8b39981ba
commit 71080a9497
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
js2/semantics/JS20/Kernel.lisp
View File

@ -12,19 +12,22 @@
; Convert the results of the lexer's actions into a token suitable for the parser.
(defun js-lexer-results-to-token (token-value line-break)
(if (eq token-value :end-of-input)
(values *end-marker* nil)
(cond
((eq token-value :end-of-input)
(values *end-marker* nil))
((stringp token-value)
(values (if line-break (terminal-lf-terminal '$string) '$string) token-value))
(t
(let ((data (second token-value)))
(multiple-value-bind (token token-arg)
(ecase (first token-value)
(l:identifier (values '$identifier data))
((l:keyword l:punctuator) (values (intern (string-upcase data)) nil))
(l:number (values '$number data))
(l:string (values '$string data))
(l:regular-expression (values '$regular-expression data)))
(when line-break
(setq token (terminal-lf-terminal token)))
(values token token-arg)))))
(values token token-arg))))))
; Lex and parse the input-string of tokens to produce a list of action results.