;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/02/22 14:24:55 vinicius>
+;; Time-stamp: <2004/04/03 16:48:52 vinicius>
;; Keywords: wp, ebnf, PostScript
-;; Version: 1.7
+;; Version: 1.8
;; This file is part of GNU Emacs.
;; ISO EBNF accepts the characters given by <character> production above,
;; HORIZONTAL TAB (^I), VERTICAL TAB (^K), NEWLINE (^J or ^M) and FORM FEED
;; (^L), any other characters are illegal. But ebnf2ps accepts also the
-;; european 8-bit accentuated characters (from \240 to \377) and underscore.
+;; european 8-bit accentuated characters (from \240 to \377) and underscore
+;; (_).
;;
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(eq token 'catenate))
(setq seq (cons term seq)))
(cons token
- (cond
- ;; null sequence
- ((null seq)
- term)
- ;; sequence with only one element
- ((and (null term) (= (length seq) 1))
- (car seq))
- ;; a real sequence
- (t
- (ebnf-make-sequence (nreverse (cons term seq))))
- ))))
+ (ebnf-token-sequence (if term
+ (cons term seq)
+ seq)))))
;;; term = factor, ['-', exception];