Commit 393bb6ea authored by Troels Henriksen's avatar Troels Henriksen

Removed the commented-out old redisplay code of C syntax.

parent f67fa737
......@@ -801,184 +801,6 @@ syntax.")
(defmethod syntax-highlighting-rules ((syntax c-syntax))
*syntax-highlighting-rules*)
#|
(define-standard-faces c-syntax
(make-face :error +red+)
(make-face :string +rosy-brown+ (make-text-style nil :italic nil))
(make-face :keyword +orchid+ nil)
(make-face :preprocessor +purple+ nil)
(make-face :type-specifier +dark-blue+ nil)
(make-face :storage-class +dark-green+ nil)
(make-face :comment +maroon+ nil)
(make-face :number +gray50+ nil))
(defmethod display-parse-tree ((parse-symbol (eql nil)) stream (view textual-drei-syntax-view)
(syntax c-syntax))
nil)
(defmethod display-parse-tree ((parse-symbol error-symbol) stream (view textual-drei-syntax-view)
(syntax c-syntax))
(let ((children (children parse-symbol)))
(loop until (or (null (cdr children))
(typep (parser-state (cadr children)) 'error-state))
do (display-parse-tree (pop children) stream view syntax))
(if (and (null (cdr children))
(not (typep (parser-state parse-symbol) 'error-state)))
(display-parse-tree (car children) stream view syntax)
(with-face (:error)
(loop for child in children
do (display-parse-tree child stream view syntax))))))
(defmethod display-parse-tree ((parse-symbol error-lexeme) stream (view textual-drei-syntax-view) (syntax c-syntax))
(with-face (:error)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol integer-constant-lexeme)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:number)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol floating-constant-lexeme)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:number)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol type-specifier)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:type-specifier)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol storage-class-specifier)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:storage-class)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol function-specifier)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:storage-class)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol type-qualifier)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:type-specifier)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol operator)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:keyword)
(call-next-method)))
(defmethod display-parse-tree ((parser-symbol c-lexeme) stream (view textual-drei-syntax-view)
(syntax c-syntax))
(flet ((cache-test (t1 t2)
(and (eq t1 t2)
(eq (slot-value t1 'ink)
(medium-ink (sheet-medium stream)))
(eq (slot-value t1 'face)
(text-style-face (medium-text-style (sheet-medium stream)))))))
(updating-output
(stream :unique-id (list view parser-symbol)
:id-test #'equal
:cache-value parser-symbol
:cache-test #'cache-test)
(with-slots (ink face) parser-symbol
(setf ink (medium-ink (sheet-medium stream))
face (text-style-face (medium-text-style (sheet-medium stream))))
(write-string (form-string syntax parser-symbol) stream)))))
(defmethod display-parse-tree ((parse-symbol complete-string-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(let ((children (children parse-symbol)))
(if (third children)
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)
(loop until (null (cdr children))
do (display-parse-tree (pop children) stream view syntax))
(display-parse-tree (pop children) stream view syntax))
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)
(display-parse-tree (pop children) stream view syntax)))))
(defmethod display-parse-tree ((parse-symbol incomplete-string-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(let ((children (children parse-symbol)))
(if (second children)
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)
(loop until (null children)
do (display-parse-tree (pop children) stream view syntax)))
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)))))
(defmethod display-parse-tree ((parse-symbol complete-character-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(let ((children (children parse-symbol)))
(if (third children)
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)
(loop until (null (cdr children))
do (display-parse-tree (pop children) stream view syntax))
(display-parse-tree (pop children) stream view syntax))
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)
(display-parse-tree (pop children) stream view syntax)))))
(defmethod display-parse-tree ((parse-symbol incomplete-character-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(let ((children (children parse-symbol)))
(if (second children)
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)
(loop until (null children)
do (display-parse-tree (pop children) stream view syntax)))
(with-face (:string)
(display-parse-tree (pop children) stream view syntax)))))
(defmethod display-parse-tree ((parse-symbol preprocessor-directive-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:preprocessor)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol line-comment-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:comment)
(call-next-method)))
(defmethod display-parse-tree ((parse-symbol long-comment-form)
stream
(view textual-drei-syntax-view)
(syntax c-syntax))
(with-face (:comment)
(call-next-method)))
|#
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; exploit the parse
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment