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