1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00

New: Header/Footer comment & Log messages

This commit is contained in:
Vinicius Jose Latorre 2007-07-26 13:41:29 +00:00
parent f4d70220be
commit 3ced5caae4
8 changed files with 754 additions and 167 deletions

View File

@ -1,3 +1,56 @@
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>
* Relicense all FSF files to GPLv3 or later.

View File

@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript
;; Version: 1.1
;; Version: 1.2
;; This file is part of GNU Emacs.
@ -589,6 +589,12 @@ See documentation for variable `ebnf-abn-lex'."
;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\]))
(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
(t
(setq ebnf-action (aref ebnf-comment-table (following-char)))

View File

@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript
;; Version: 1.9
;; Version: 1.10
;; This file is part of GNU Emacs.
@ -537,6 +537,12 @@ See documentation for variable `ebnf-bnf-lex'."
;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\]))
(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
(t
(setq ebnf-action (aref ebnf-comment-table (following-char)))

View File

@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript
;; Version: 1.0
;; Version: 1.1
;; This file is part of GNU Emacs.
@ -1306,6 +1306,12 @@ See documentation for variable `ebnf-dtd-lex'."
;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\]))
(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
(t
(setq ebnf-action (aref ebnf-comment-table (following-char))))

View File

@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript
;; Version: 1.1
;; Version: 1.2
;; This file is part of GNU Emacs.
@ -539,6 +539,12 @@ See documentation for variable `ebnf-ebx-lex'."
;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\]))
(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
(t
(setq ebnf-action (aref ebnf-comment-table (following-char))))

View File

@ -1,12 +1,12 @@
;;; ebnf-iso.el --- parser for ISO EBNF
;; 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>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript
;; Version: 1.8
;; Version: 1.9
;; This file is part of GNU Emacs.
@ -504,6 +504,12 @@ See documentation for variable `ebnf-iso-lex'."
;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\]))
(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
(t
(setq ebnf-action (aref ebnf-comment-table (following-char))))

View File

@ -6,7 +6,7 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, ebnf, PostScript
;; Version: 1.3
;; Version: 1.4
;; This file is part of GNU Emacs.
@ -459,6 +459,12 @@ See documentation for variable `ebnf-yac-lex'."
;; close EPS file
((and ebnf-eps-executing (= (following-char) ?\]))
(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
(t
(setq ebnf-action (aref ebnf-comment-table (following-char))))

File diff suppressed because it is too large Load Diff