Mercurial > emacs

comparison lisp/progmodes/ebnf2ps.el @ 52168:282da92e75ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move defvar before first use.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Sat, 09 Aug 2003 02:17:12 +0000
parents 0306a6f7d0f4
children 695cf19ef79e
comparison
equal deleted inserted replaced
52167:ef4c6b955da0 52168:282da92e75ee
3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
6 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 6 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
7 ;; Keywords: wp, ebnf, PostScript 7 ;; Keywords: wp, ebnf, PostScript
8 ;; Time-stamp: <2003/08/07 23:23:14 vinicius> 8 ;; Time-stamp: <2003/08/08 23:09:36 vinicius>
9 ;; Version: 3.6.1 9 ;; Version: 3.6.1
10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ 10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
3592 (defsubst ebnf-message-float (format-str value) 3592 (defsubst ebnf-message-float (format-str value)
3593 (message format-str 3593 (message format-str
3594 (format ebnf-message-float value))) 3594 (format ebnf-message-float value)))
3595 3595
3596 3596
3597 (defvar ebnf-total 0)
3598 (defvar ebnf-nprod 0)
3599
3600
3597 (defsubst ebnf-message-info (messag) 3601 (defsubst ebnf-message-info (messag)
3598 (message "%s...%3d%%" 3602 (message "%s...%3d%%"
3599 messag 3603 messag
3600 (round (/ (* (setq ebnf-nprod (1+ ebnf-nprod)) 100.0) ebnf-total)))) 3604 (round (/ (* (setq ebnf-nprod (1+ ebnf-nprod)) 100.0) ebnf-total))))
3601 3605
3812 'ebnf-generate-postscript))) 3816 'ebnf-generate-postscript)))
3813 3817
3814 3818
3815 (defvar ebnf-tree nil) 3819 (defvar ebnf-tree nil)
3816 (defvar ebnf-direction "R") 3820 (defvar ebnf-direction "R")
3817 (defvar ebnf-total 0)
3818 (defvar ebnf-nprod 0)
3819 3821
3820 3822
3821 (defun ebnf-generate-postscript (from to) 3823 (defun ebnf-generate-postscript (from to)
3822 (ebnf-begin-file) 3824 (ebnf-begin-file)
3823 (if ebnf-horizontal-max-height 3825 (if ebnf-horizontal-max-height