Mercurial > emacs

comparison lisp/progmodes/ebnf-abn.el @ 54622:f7bb72b19510

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle initial comments.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Sun, 28 Mar 2004 22:41:42 +0000
parents 6a7a401e1598
children fc6e53c00fcf
comparison
equal deleted inserted replaced
54621:14d929e67a70 54622:f7bb72b19510
2 2
3 ;; Copyright (C) 2004 Free Sofware Foundation, Inc. 3 ;; Copyright (C) 2004 Free Sofware Foundation, Inc.
4 4
5 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> 5 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
6 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> 6 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
7 ;; Time-stamp: <2004/02/28 17:40:41 vinicius> 7 ;; Time-stamp: <2004/03/18 23:49:58 vinicius>
8 ;; Keywords: wp, ebnf, PostScript 8 ;; Keywords: wp, ebnf, PostScript
9 ;; Version: 1.0 9 ;; Version: 1.0
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
231 rule-list token rule) 231 rule-list token rule)
232 (goto-char start) 232 (goto-char start)
233 (setq token (ebnf-abn-lex)) 233 (setq token (ebnf-abn-lex))
234 (and (eq token 'end-of-input) 234 (and (eq token 'end-of-input)
235 (error "Invalid ABNF file format")) 235 (error "Invalid ABNF file format"))
236 (and (eq token 'end-of-rule)
237 (setq token (ebnf-abn-lex)))
236 (while (not (eq token 'end-of-input)) 238 (while (not (eq token 'end-of-input))
237 (ebnf-message-float 239 (ebnf-message-float
238 "Parsing...%s%%" 240 "Parsing...%s%%"
239 (/ (* (- (point) bias) 100.0) total)) 241 (/ (* (- (point) bias) 100.0) total))
240 (setq token (ebnf-abn-rule token) 242 (setq token (ebnf-abn-rule token)