Commit 3ced5caa authored by Vinicius Jose Latorre's avatar Vinicius Jose Latorre
Browse files

New: Header/Footer comment & Log messages

parent f4d70220
2007-07-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* progmodes/ebnf-abn.el (ebnf-abn-skip-comment):
* progmodes/ebnf-bnf.el (ebnf-bnf-skip-comment):
* progmodes/ebnf-dtd.el (ebnf-dtd-skip-comment):
* progmodes/ebnf-ebx.el (ebnf-ebx-skip-comment):
* progmodes/ebnf-iso.el (ebnf-iso-skip-comment):
* progmodes/ebnf-yac.el (ebnf-yac-skip-comment): New version.
New command actions for EPS header and EPS footer.
* progmodes/ebnf2ps.el: New command actions for EPS header and EPS
footer. Fix some problems with one-or-more, zero-or-more and
alternative constructions generation. Some log messages
implementation. Doc fix.
(ebnf-version): New version 4.4.
(ebnf-eps-header-font, ebnf-eps-header, ebnf-eps-footer-font)
(ebnf-eps-footer, ebnf-log): New options.
(ebnf-find-style, ebnf-eps-header-footer, ebnf-eps-header)
(ebnf-eps-footer, ebnf-eps-string, ebnf-eps-header-footer-comment)
(ebnf-eps-header-footer-p, ebnf-eps-header-comment)
(ebnf-eps-footer-comment, ebnf-eps-header-footer-file)
(ebnf-eps-header-footer-set, ebnf-log-header, ebnf-log): New funs.
(ebnf-style-custom-list, ebnf-style-database): Put new values.
(ebnf-print-directory, ebnf-print-file, ebnf-print-buffer)
(ebnf-print-region, ebnf-spool-directory, ebnf-spool-file)
(ebnf-spool-buffer, ebnf-spool-region, ebnf-eps-directory)
(ebnf-eps-file, ebnf-eps-buffer, ebnf-eps-region)
(ebnf-syntax-directory, ebnf-syntax-file, ebnf-syntax-buffer)
(ebnf-syntax-region, ebnf-parse-and-sort, ebnf-begin-job)
(ebnf-dimensions, ebnf-production-dimension, ebnf-terminal-dimension)
(ebnf-non-terminal-dimension, ebnf-special-dimension)
(ebnf-terminal-dimension1, ebnf-repeat-dimension)
(ebnf-except-dimension, ebnf-alternative-dimension)
(ebnf-optional-dimension, ebnf-one-or-more-dimension)
(ebnf-zero-or-more-dimension, ebnf-sequence-dimension): Insert log
message fun.
(ebnf-setup, ebnf-generate-one-or-more, ebnf-generate-zero-or-more)
(ebnf-begin-job, ebnf-begin-file, ebnf-eps-finish-and-write)
(ebnf-insert-ebnf-prologue, ebnf-production-dimension)
(ebnf-terminal-dimension1, ebnf-alternative-dimension)
(ebnf-one-or-more-dimension, ebnf-zero-or-more-dimension)
(ebnf-eps-add-context, ebnf-eps-add-production): Fix code.
(ebnf-eps-filename, ebnf-trim-right): Replace `?\s' by `?\ ' to keep
compatibility with Emacs 20 & 21.
(ebnf-eps-header-comment, ebnf-eps-footer-comment)
(ebnf-eps-file-alist, ebnf-basic-width-extra)
(ebnf-basic-empty-height): New vars.
(ebnf-prologue): Fix PostScript code.
(ebnf-make-empty, ebnf-make-terminal1, ebnf-make-or-more1)
(ebnf-make-production, ebnf-make-alternative, ebnf-make-optional)
(ebnf-make-except, ebnf-make-repeat, ebnf-make-sequence)
(ebnf-make-dup-sequence, ebnf-token-alternative): Add comments.
2007-07-25 Glenn Morris <rgm@gnu.org> 2007-07-25 Glenn Morris <rgm@gnu.org>
* Relicense all FSF files to GPLv3 or later. * Relicense all FSF files to GPLv3 or later.
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript ;; Keywords: wp, ebnf, PostScript
;; Version: 1.1 ;; Version: 1.2
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -589,6 +589,12 @@ See documentation for variable `ebnf-abn-lex'." ...@@ -589,6 +589,12 @@ See documentation for variable `ebnf-abn-lex'."
;; close EPS file ;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\])) ((and ebnf-eps-executing (= (following-char) ?\]))
(ebnf-eps-remove-context (ebnf-abn-eps-filename))) (ebnf-eps-remove-context (ebnf-abn-eps-filename)))
;; EPS header
((and ebnf-eps-executing (= (following-char) ?H))
(ebnf-eps-header-comment (ebnf-abn-eps-filename)))
;; EPS footer
((and ebnf-eps-executing (= (following-char) ?F))
(ebnf-eps-footer-comment (ebnf-abn-eps-filename)))
;; any other action in comment ;; any other action in comment
(t (t
(setq ebnf-action (aref ebnf-comment-table (following-char))) (setq ebnf-action (aref ebnf-comment-table (following-char)))
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript ;; Keywords: wp, ebnf, PostScript
;; Version: 1.9 ;; Version: 1.10
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -537,6 +537,12 @@ See documentation for variable `ebnf-bnf-lex'." ...@@ -537,6 +537,12 @@ See documentation for variable `ebnf-bnf-lex'."
;; close EPS file ;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\])) ((and ebnf-eps-executing (= (following-char) ?\]))
(ebnf-eps-remove-context (ebnf-bnf-eps-filename))) (ebnf-eps-remove-context (ebnf-bnf-eps-filename)))
;; EPS header
((and ebnf-eps-executing (= (following-char) ?H))
(ebnf-eps-header-comment (ebnf-bnf-eps-filename)))
;; EPS footer
((and ebnf-eps-executing (= (following-char) ?F))
(ebnf-eps-footer-comment (ebnf-bnf-eps-filename)))
;; any other action in comment ;; any other action in comment
(t (t
(setq ebnf-action (aref ebnf-comment-table (following-char))) (setq ebnf-action (aref ebnf-comment-table (following-char)))
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript ;; Keywords: wp, ebnf, PostScript
;; Version: 1.0 ;; Version: 1.1
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -1306,6 +1306,12 @@ See documentation for variable `ebnf-dtd-lex'." ...@@ -1306,6 +1306,12 @@ See documentation for variable `ebnf-dtd-lex'."
;; close EPS file ;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\])) ((and ebnf-eps-executing (= (following-char) ?\]))
(ebnf-eps-remove-context (ebnf-dtd-eps-filename))) (ebnf-eps-remove-context (ebnf-dtd-eps-filename)))
;; EPS header
((and ebnf-eps-executing (= (following-char) ?H))
(ebnf-eps-header-comment (ebnf-dtd-eps-filename)))
;; EPS footer
((and ebnf-eps-executing (= (following-char) ?F))
(ebnf-eps-footer-comment (ebnf-dtd-eps-filename)))
;; any other action in comment ;; any other action in comment
(t (t
(setq ebnf-action (aref ebnf-comment-table (following-char)))) (setq ebnf-action (aref ebnf-comment-table (following-char))))
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript ;; Keywords: wp, ebnf, PostScript
;; Version: 1.1 ;; Version: 1.2
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -539,6 +539,12 @@ See documentation for variable `ebnf-ebx-lex'." ...@@ -539,6 +539,12 @@ See documentation for variable `ebnf-ebx-lex'."
;; close EPS file ;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\])) ((and ebnf-eps-executing (= (following-char) ?\]))
(ebnf-eps-remove-context (ebnf-ebx-eps-filename))) (ebnf-eps-remove-context (ebnf-ebx-eps-filename)))
;; EPS header
((and ebnf-eps-executing (= (following-char) ?H))
(ebnf-eps-header-comment (ebnf-ebx-eps-filename)))
;; EPS footer
((and ebnf-eps-executing (= (following-char) ?F))
(ebnf-eps-footer-comment (ebnf-ebx-eps-filename)))
;; any other action in comment ;; any other action in comment
(t (t
(setq ebnf-action (aref ebnf-comment-table (following-char)))) (setq ebnf-action (aref ebnf-comment-table (following-char))))
......
;;; ebnf-iso.el --- parser for ISO EBNF ;;; ebnf-iso.el --- parser for ISO EBNF
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc. ;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript ;; Keywords: wp, ebnf, PostScript
;; Version: 1.8 ;; Version: 1.9
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -504,6 +504,12 @@ See documentation for variable `ebnf-iso-lex'." ...@@ -504,6 +504,12 @@ See documentation for variable `ebnf-iso-lex'."
;; close EPS file ;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\])) ((and ebnf-eps-executing (= (following-char) ?\]))
(ebnf-eps-remove-context (ebnf-iso-eps-filename))) (ebnf-eps-remove-context (ebnf-iso-eps-filename)))
;; EPS header
((and ebnf-eps-executing (= (following-char) ?H))
(ebnf-eps-header-comment (ebnf-iso-eps-filename)))
;; EPS footer
((and ebnf-eps-executing (= (following-char) ?F))
(ebnf-eps-footer-comment (ebnf-iso-eps-filename)))
;; any other action in comment ;; any other action in comment
(t (t
(setq ebnf-action (aref ebnf-comment-table (following-char)))) (setq ebnf-action (aref ebnf-comment-table (following-char))))
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript ;; Keywords: wp, ebnf, PostScript
;; Version: 1.3 ;; Version: 1.4
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -459,6 +459,12 @@ See documentation for variable `ebnf-yac-lex'." ...@@ -459,6 +459,12 @@ See documentation for variable `ebnf-yac-lex'."
;; close EPS file ;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\])) ((and ebnf-eps-executing (= (following-char) ?\]))
(ebnf-eps-remove-context (ebnf-yac-eps-filename))) (ebnf-eps-remove-context (ebnf-yac-eps-filename)))
;; EPS header
((and ebnf-eps-executing (= (following-char) ?H))
(ebnf-eps-header-comment (ebnf-yac-eps-filename)))
;; EPS footer
((and ebnf-eps-executing (= (following-char) ?F))
(ebnf-eps-footer-comment (ebnf-yac-eps-filename)))
;; any other action in comment ;; any other action in comment
(t (t
(setq ebnf-action (aref ebnf-comment-table (following-char)))) (setq ebnf-action (aref ebnf-comment-table (following-char))))
......
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment