[climacs-cvs] CVS update: climacs/slidemacs.lisp

[Brian Mastenbrook]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv8886

Modified Files:
	slidemacs.lisp 
Log Message:
oops, commit the latest version of the slidemacs grammar

Date: Wed Jun 15 01:12:26 2005
Author: bmastenbrook

Index: climacs/slidemacs.lisp
diff -u climacs/slidemacs.lisp:1.1 climacs/slidemacs.lisp:1.2
--- climacs/slidemacs.lisp:1.1	Sun Jun  5 03:59:52 2005
+++ climacs/slidemacs.lisp	Wed Jun 15 01:12:26 2005
@@ -235,9 +235,28 @@
 
 (define-parsing-rules (*slidemacs-grammar* slidemacs-entry slidemacs-terminal slidemacs-editor-syntax)
   (:== slidemacs-slideset slidemacs-slideset-keyword slidemacs-slideset-name block-open
-       nonempty-list-of-slides block-close)
+       slideset-info nonempty-list-of-slides block-close)
   (:= slidemacs-slideset-keyword "slideset")
   (:= slidemacs-slideset-name slidemacs-string)
+  (:= slideset-info slideset-info-keyword block-open opt-slide-author opt-slide-institution opt-slide-venue opt-slide-date block-close)
+  (:= slideset-info-keyword "info")
+  (:= opt-slide-author (or slide-author empty-slidemacs-terminals))
+  (:= slide-author author-keyword author)
+  (:= author-keyword "author")
+  (:= author slidemacs-string)
+  (:= opt-slide-venue (or slide-venue empty-slidemacs-terminals))
+  (:= slide-venue slide-venue-keyword venue)
+  (:= slide-venue-keyword "venue")
+  (:= venue slidemacs-string)
+  (:= opt-slide-institution (or slide-institution empty-slidemacs-terminals))
+  (:= slide-institution institution-keyword institution)
+  (:= institution-keyword "institution")
+  (:= institution slidemacs-string)
+  (:= opt-slide-date (or slide-date empty-slidemacs-terminals))
+  (:= slide-date date-keyword opt-date-string)
+  (:= opt-date-string (or date-string empty-slidemacs-terminals))
+  (:= date-keyword "date")
+  (:= date-string slidemacs-string)
   (:= nonempty-list-of-slides
        (nonempty-list-of slidemacs-slide))
   (:= slidemacs-slide slidemacs-slide-keyword slidemacs-slide-name block-open