Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv13469/Drei

Modified Files: lisp-syntax.lisp lr-syntax.lisp packages.lisp Log Message: make-syntax-highlighting-rules -> define-syntax-highlighting-rules, as the former sounds stupid.

--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/01/07 15:32:15 1.54 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/01/07 22:05:22 1.55 @@ -1835,7 +1835,7 @@ (macro-drawing-options (make-drawing-options :face (make-face :ink +purple+))) (bound-drawing-options (make-drawing-options :face (make-face :ink +darkgoldenrod+))) (highlighted-parenthesis-options (make-drawing-options :face (make-face :style (make-text-style nil :bold nil))))) - (make-syntax-highlighting-rules emacs-style-highlighting + (define-syntax-highlighting-rules emacs-style-highlighting (error-lexeme (:face :ink +red+)) (string-form (:face :ink +rosy-brown+ :style (make-text-style nil :italic nil))) @@ -1858,7 +1858,7 @@ +default-drawing-options+))))))

(let ((macro-drawing-options (make-drawing-options :face (make-face :style (make-text-style nil :bold nil))))) - (make-syntax-highlighting-rules retro-highlighting + (define-syntax-highlighting-rules retro-highlighting (error-symbol (:face :ink +red+)) (string-form (:face :style (make-text-style nil :italic nil))) (comment (:face :style (make-text-style nil nil nil) --- /project/mcclim/cvsroot/mcclim/Drei/lr-syntax.lisp 2008/01/07 22:01:58 1.11 +++ /project/mcclim/cvsroot/mcclim/Drei/lr-syntax.lisp 2008/01/07 22:05:22 1.12 @@ -412,7 +412,7 @@ ;;; XXXXX XXXXX ;;; XXX XXX

-(defmacro make-syntax-highlighting-rules (name &body rules) +(defmacro define-syntax-highlighting-rules (name &body rules) "Define a set of rules for highlighting a syntax. `Name', which must be a symbol, is the name of this set of rules, and will be bound to a function implementing the rules. `Rules' is a list of @@ -456,7 +456,7 @@ (defmethod ,name (view (parser-symbol ,parser-symbol)) (funcall rule view parser-symbol)))))))

-(make-syntax-highlighting-rules default-syntax-highlighting) +(define-syntax-highlighting-rules default-syntax-highlighting)

(defgeneric syntax-highlighting-rules (syntax) (:documentation "Return the drawing options that should be used --- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/07 22:01:58 1.34 +++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/07 22:05:22 1.35 @@ -507,7 +507,7 @@ #:action #:new-state #:done #:reduce-fixed-number #:reduce-until-type #:reduce-all #:error-state #:error-reduce-state - #:make-syntax-highlighting-rules + #:define-syntax-highlighting-rules #:syntax-highlighting-rules) (:documentation "Underlying LR parsing functionality."))