comparison lisp/progmodes/ebnf2ps.el @ 39342:73061d0eb82e

Replace "Prologue" by "Prolog" in PostScript programming. Doc fix. (ebnf-version): New version (3.6). (ebnf-eps-begin): Data fix. (ebnf-begin-file): Code fix.

39341:3c7fb43900bd

;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript

;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.

;; Author:     Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords:   wp, ebnf, PostScript
;; Time-stamp:        <2001-07-15 01:05:00 pavel>
;; Version:   3.5
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

(defconst ebnf-version "3.5"
  "ebnf2ps.el, v 3.5 <2001/02/02 vinicius>


Vinicius's last change version.  When reporting bugs, please also
report the version of Emacs, if any, that ebnf2ps was running with.

;;           | "{" body [ "||" body ] "}+"      ;; one-or-more
;;           | "{" body [ "||" body ] "}*"      ;; zero-or-more
;;           | "{" body [ "||" body ] "}"       ;; zero-or-more
;;           .
;;
;;    non_terminal = "[A-Za-z\\240-\\377][!#%&'*-,0-:<>@-Z\\^-z~\\240-\\377]*".
;;
;;    terminal = "\\([^\"\\]\\|\\\\[ -~\\240-\\377]\\)+".
;;
;;    special = "[^?\\n\\000-\\010\\016-\\037\\177-\\237]*".
;;

{#ebnf2ps#dict begin /#ebnf2ps#save save def
 moveto false BG 0.0 0.0 0.0 setrgbcolor}def

/#ebnf2ps#end{showpage #ebnf2ps#save restore end}def

%%EndPrologue
"
  "EBNF EPS begin")


(defconst ebnf-eps-end

	   (end-of-line)
	   (backward-char)
	   (insert " & ebnf2ps v" ebnf-version)
	   ;; insert ebnf settings & engine
	   (goto-char (point-max))
	   (search-backward "\n%%EndPrologue\n")
	   (ebnf-insert-ebnf-prologue)
	   (ps-output "\n")))))


(defun ebnf-eps-finish-and-write (buffer filename)

					 ebnf-non-terminal-font
					 ebnf-special-font
					 ebnf-except-font
					 ebnf-repeat-font)))
			  "\n%%+ font ")))
     "\n%%Pages: 0\n%%EndComments\n\n%%BeginPrologue\n"
     ebnf-eps-prologue)
    (ebnf-insert-ebnf-prologue)
    (insert ebnf-eps-begin
	    "\n0 " (ebnf-format-float
		    (- ebnf-eps-upper-y (* ebnf-font-height-P 0.7)))

39342:73061d0eb82e

;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript

;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, ebnf, PostScript
;; Time-stamp: <2001/09/18 21:29:37 vinicius>
;; Version: 3.6
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

(defconst ebnf-version "3.6"
  "ebnf2ps.el, v 3.6 <2001/09/18 vinicius>


Vinicius's last change version.  When reporting bugs, please also
report the version of Emacs, if any, that ebnf2ps was running with.

;;           | "{" body [ "||" body ] "}+"      ;; one-or-more
;;           | "{" body [ "||" body ] "}*"      ;; zero-or-more
;;           | "{" body [ "||" body ] "}"       ;; zero-or-more
;;           .
;;
;;    non_terminal = "[!#%&'*-,0-:<>@-Z\\\\^-z~\\240-\\377]+".
;;
;;    terminal = "\\([^\"\\]\\|\\\\[ -~\\240-\\377]\\)+".
;;
;;    special = "[^?\\n\\000-\\010\\016-\\037\\177-\\237]*".
;;

{#ebnf2ps#dict begin /#ebnf2ps#save save def
 moveto false BG 0.0 0.0 0.0 setrgbcolor}def

/#ebnf2ps#end{showpage #ebnf2ps#save restore end}def

%%EndProlog
"
  "EBNF EPS begin")


(defconst ebnf-eps-end

	   (end-of-line)
	   (backward-char)
	   (insert " & ebnf2ps v" ebnf-version)
	   ;; insert ebnf settings & engine
	   (goto-char (point-max))
	   (search-backward "\n%%EndProlog\n")
	   (ebnf-insert-ebnf-prologue)
	   (ps-output "\n")))))


(defun ebnf-eps-finish-and-write (buffer filename)

					 ebnf-non-terminal-font
					 ebnf-special-font
					 ebnf-except-font
					 ebnf-repeat-font)))
			  "\n%%+ font ")))
     "\n%%Pages: 0\n%%EndComments\n\n%%BeginProlog\n"
     ebnf-eps-prologue)
    (ebnf-insert-ebnf-prologue)
    (insert ebnf-eps-begin
	    "\n0 " (ebnf-format-float
		    (- ebnf-eps-upper-y (* ebnf-font-height-P 0.7)))