lisp/progmodes/ebnf-abn.el

67 ;;    c-nl           =  comment / CRLF
68 ;;			     ; comment or newline
70 ;;    comment        =  ";" *(WSP / VCHAR) CRLF
205 ;; \240 to \377) for rule name, string and comment.
235     (and (eq token 'end-of-input)
237     (and (eq token 'end-of-rule)
239     (while (not (eq token 'end-of-input))
265 ;;;    c-nl           =  comment / CRLF
266 ;;;			     ; comment or newline
268 ;;;    comment        =  ";" *(WSP / VCHAR) CRLF
284     (or (memq (car elements) '(end-of-rule end-of-input))
285 	(error "Invalid rule: there is no end of rule"))
411       (or (eq (car body) 'end-group)
417       (or (eq (car body) 'end-optional)
458     ;; Override end of line characters:
459     (aset ebnf-abn-token-table ?\n 'end-of-rule) ; [NL] linefeed
460     (aset ebnf-abn-token-table ?\r 'end-of-rule) ; [CR] carriage return
472     (aset ebnf-abn-token-table ?\) 'end-group)
476     (aset ebnf-abn-token-table ?\] 'end-optional)
478     ;; Override comment character:
479     (aset ebnf-abn-token-table ?\; 'comment)))
496       'end-of-input
498       ;; skip spaces and comments
506 		 (skip-chars-forward " \013\t" ebnf-limit)
508 		((eq token 'comment)
509 		 (ebnf-abn-skip-comment))
513 		((eq token 'end-of-rule)
514 		 (ebnf-abn-skip-end-of-rule))
518        ;; end of input
520 	'end-of-input)
524        ;; end of rule
525        ((eq token 'end-of-rule)
526 	'end-of-rule)
566 (defun ebnf-abn-skip-end-of-rule ()
569 	     ;; end of rule ==> 2 or more consecutive end of lines
570 	     (setq eor-p (or (> (skip-chars-forward "\r\n" ebnf-limit) 1)
572 	     ;; skip spaces
573 	     (skip-chars-forward " \013\t" ebnf-limit)
574 	     ;; skip comments
576 		  (ebnf-abn-skip-comment))))
581 (defconst ebnf-abn-comment-chars
585 (defun ebnf-abn-skip-comment ()
594    ;; any other action in comment
596     (setq ebnf-action (aref ebnf-comment-table (following-char)))
597     (skip-chars-forward ebnf-abn-comment-chars ebnf-limit))
599   ;; check for a valid end of comment
611   (ebnf-buffer-substring ebnf-abn-comment-chars))
625      (skip-chars-forward ebnf-abn-string-chars ebnf-limit)
645        (or (> (skip-chars-forward chars ebnf-limit) 0)
650 	     (or (> (skip-chars-forward chars ebnf-limit) 0)
654 	   (or (> (skip-chars-forward chars ebnf-limit) 0)