[climacs-cvs] CVS update: climacs/html-syntax.lisp - climacs-cvs@common-lisp.net - mailman3.common-lisp.net

20 Mar 2005

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv9267
Modified Files:
    html-syntax.lisp 
Log Message:
Factored out the rules for `html' and `head' so that they now
use add-rule.
Date: Sun Mar 20 09:25:21 2005
Author: rstrandh
Index: climacs/html-syntax.lisp
diff -u climacs/html-syntax.lisp:1.19 climacs/html-syntax.lisp:1.20

--- climacs/html-syntax.lisp:1.19	Fri Mar 18 08:49:17 2005
+++ climacs/html-syntax.lisp	Sun Mar 20 09:25:21 2005
@@ -80,12 +80,7 @@
 ;;;
 ;;; parser
-(defparameter *html-grammar*
-  (grammar
-    (html -> (<html> head body </html>)
-	  :<html> <html> :head head :body body :</html> </html>)
-    (head -> (<head> title </head>)
-	  :<head> <head> :title title :</head> </head>)))
+(defparameter *html-grammar* (grammar))
(defun word-is (word string)
   (string-equal (coerce (buffer-sequence (buffer word) (start-offset word) (end-offset word)) 'string)
@@ -279,6 +274,10 @@
    (title :initarg :title)
    (</head> :initarg :</head>)))
+(add-rule (grammar-rule (head -> (<head> title </head>)
+			      :<head> <head> :title title :</head> </head>))
+	  *html-grammar*)
+
 (defmethod display-parse-tree ((entity head) (syntax html-syntax) pane)
   (with-slots (<head> title </head>) entity
      (display-parse-tree <head> syntax pane)
@@ -292,6 +291,10 @@
    (head :initarg :head)
    (body :initarg :body)
    (</html> :initarg :</html>)))
+
+(add-rule (grammar-rule (html -> (<html> head body </html>)
+			      :<html> <html> :head head :body body :</html> </html>))
+	  *html-grammar*)
(defmethod display-parse-tree ((entity html) (syntax html-syntax) pane)
   (with-slots (<html> head body </html>) entity

    