Compiler/lexical analyzer: Difference between revisions

do (setf may-end (char= ch #\*))

finally (return (read stream t nil t))))

 

(defun make-constant-handler (token-name)

(read-char stream nil nil t)

(make-token :name then :line line :column column))

 

(defun identifier? (symbol)

(defun id->keyword (id line column)

(case id

(t nil)))

 

(if (identifier? obj)

(or (id->keyword obj line column)

(lexer-error "Invalid identifier name: ~A" obj))))))

 

(let ((obj (read stream t nil t)))

(if (integerp obj)

(lexer-error "Invalid integer: ~A" obj))))))

 

(t ch))))

(if (char= #\' (read-char stream t nil t))

(lexer-error "Only one character is allowed in character literal"))))

 

(t ch)))

(vector-push-extend ch result)

 

(defun make-lexer-readtable ()

 

;; operators

(set-macro-character #\/ #'handle-divide-or-comment)

 

;; symbols

 

;; identifiers & keywords

(token-line token) (token-column token) (token-name token) (token-value token))

finally (format t "~5D ~5D ~15A~%"

(close stream))))

 

(if file

(lex file)

{{out|case=test case 3}}

 

=={{header|Euphoria}}==