[Emacs-diffs] Changes to emacs/lisp/progmodes/ebnf2ps.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/ebnf2ps.el
diff -c emacs/lisp/progmodes/ebnf2ps.el:1.11 
emacs/lisp/progmodes/ebnf2ps.el:1.12
*** emacs/lisp/progmodes/ebnf2ps.el:1.11        Mon Sep 24 13:41:19 2001
--- emacs/lisp/progmodes/ebnf2ps.el     Mon Feb 10 04:58:05 2003
***************
*** 1,11 ****
! ;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript
  
  ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, ebnf, PostScript
! ;; Time-stamp: <2001/09/24 10:31:13 vinicius>
  ;; Version: 3.6.1
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
--- 1,11 ----
! ;;; ebnf2ps.el --- translate an EBNF to a syntactic chart on PostScript
  
  ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, ebnf, PostScript
! ;; Time-stamp: <2003-02-10 10:40:14 jbarranquero>
  ;; Version: 3.6.1
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
***************
*** 44,50 ****
  ;; Introduction
  ;; ------------
  ;;
! ;; This package translates an EBNF to a syntatic chart on PostScript.
  ;;
  ;; To use ebnf2ps, insert in your ~/.emacs:
  ;;
--- 44,50 ----
  ;; Introduction
  ;; ------------
  ;;
! ;; This package translates an EBNF to a syntactic chart on PostScript.
  ;;
  ;; To use ebnf2ps, insert in your ~/.emacs:
  ;;
***************
*** 69,75 ****
  ;; Using ebnf2ps
  ;; -------------
  ;;
! ;; ebnf2ps provides six commands for generating PostScript syntatic chart
  ;; images of Emacs buffers:
  ;;
  ;;    ebnf-print-buffer
--- 69,75 ----
  ;; Using ebnf2ps
  ;; -------------
  ;;
! ;; ebnf2ps provides six commands for generating PostScript syntactic chart
  ;; images of Emacs buffers:
  ;;
  ;;    ebnf-print-buffer
***************
*** 80,86 ****
  ;;    ebnf-eps-region
  ;;
  ;; These commands all perform essentially the same function: they generate
! ;; PostScript syntatic chart images suitable for printing on a PostScript
  ;; printer or displaying with GhostScript.  These commands are collectively
  ;; referred to as "ebnf- commands".
  ;;
--- 80,86 ----
  ;;    ebnf-eps-region
  ;;
  ;; These commands all perform essentially the same function: they generate
! ;; PostScript syntactic chart images suitable for printing on a PostScript
  ;; printer or displaying with GhostScript.  These commands are collectively
  ;; referred to as "ebnf- commands".
  ;;
***************
*** 482,491 ****
  ;;
  ;; `ebnf-setup' returns the current setup.
  ;;
! ;; `ebnf-syntax-buffer' does a syntatic analysis of your EBNF in the current
  ;; buffer.
  ;;
! ;; `ebnf-syntax-region' does a syntatic analysis of your EBNF in the current
  ;; region.
  ;;
  ;; `ebnf-customize' activates a customization buffer for ebnf2ps options.
--- 482,491 ----
  ;;
  ;; `ebnf-setup' returns the current setup.
  ;;
! ;; `ebnf-syntax-buffer' does a syntactic analysis of your EBNF in the current
  ;; buffer.
  ;;
! ;; `ebnf-syntax-region' does a syntactic analysis of your EBNF in the current
  ;; region.
  ;;
  ;; `ebnf-customize' activates a customization buffer for ebnf2ps options.
***************
*** 637,643 ****
  ;;
  ;; `ebnf-ignore-empty-rule'           Non-nil means ignore empty rules.
  ;;
! ;; `ebnf-optimize'                    Non-nil means optimize syntatic chart
  ;;                                    of rules.
  ;;
  ;; To set the above options you may:
--- 637,643 ----
  ;;
  ;; `ebnf-ignore-empty-rule'           Non-nil means ignore empty rules.
  ;;
! ;; `ebnf-optimize'                    Non-nil means optimize syntactic chart
  ;;                                    of rules.
  ;;
  ;; To set the above options you may:
***************
*** 931,944 ****
  ;; Internal Structures
  ;; -------------------
  ;;
! ;; ebnf2ps has two passes.  The first pass does a lexical and syntatic 
analysis
  ;; of current buffer and generates an intermediate representation.  The second
  ;; pass uses the intermediate representation to generate the PostScript
! ;; syntatic chart.
  ;;
  ;; The intermediate representation is a list of vectors, the vector element
! ;; represents a syntatic chart element.  Below is a vector representation for
! ;; each syntatic chart element.
  ;;
  ;; [production   WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH NAME   PRODUCTION 
ACTION]
  ;; [alternative  WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH LIST]
--- 931,944 ----
  ;; Internal Structures
  ;; -------------------
  ;;
! ;; ebnf2ps has two passes.  The first pass does a lexical and syntactic 
analysis
  ;; of current buffer and generates an intermediate representation.  The second
  ;; pass uses the intermediate representation to generate the PostScript
! ;; syntactic chart.
  ;;
  ;; The intermediate representation is a list of vectors, the vector element
! ;; represents a syntactic chart element.  Below is a vector representation for
! ;; each syntactic chart element.
  ;;
  ;; [production   WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH NAME   PRODUCTION 
ACTION]
  ;; [alternative  WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH LIST]
***************
*** 986,992 ****
  ;; Things To Change
  ;; ----------------
  ;;
! ;; . Handle situations when syntatic chart is out of paper.
  ;; . Use other alphabet than ascii.
  ;; . Optimizations...
  ;;
--- 986,992 ----
  ;; Things To Change
  ;; ----------------
  ;;
! ;; . Handle situations when syntactic chart is out of paper.
  ;; . Use other alphabet than ascii.
  ;; . Optimizations...
  ;;
***************
*** 1021,1027 ****
  
  
  (defgroup ebnf2ps nil
!   "Translate an EBNF to a syntatic chart on PostScript"
    :prefix "ebnf-"
    :group 'wp
    :group 'postscript)
--- 1021,1027 ----
  
  
  (defgroup ebnf2ps nil
!   "Translate an EBNF to a syntactic chart on PostScript"
    :prefix "ebnf-"
    :group 'wp
    :group 'postscript)
***************
*** 1083,1092 ****
    :group 'ebnf2ps)
  
  
! (defgroup ebnf-syntatic nil
!   "Syntatic customization"
    :prefix "ebnf-"
!   :tag "Syntatic"
    :group 'ebnf2ps)
  
  
--- 1083,1092 ----
    :group 'ebnf2ps)
  
  
! (defgroup ebnf-syntactic nil
!   "Syntactic customization"
    :prefix "ebnf-"
!   :tag "Syntactic"
    :group 'ebnf2ps)
  
  
***************
*** 1568,1574 ****
  Any other value is treated as `ebnf'."
    :type '(radio :tag "Syntax"
                (const ebnf) (const iso-ebnf) (const yacc))
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-lex-comment-char ?\;
--- 1568,1574 ----
  Any other value is treated as `ebnf'."
    :type '(radio :tag "Syntax"
                (const ebnf) (const iso-ebnf) (const yacc))
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-lex-comment-char ?\;
***************
*** 1576,1582 ****
  
  It's used only when `ebnf-syntax' is `ebnf'."
    :type 'character
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-lex-eop-char ?.
--- 1576,1582 ----
  
  It's used only when `ebnf-syntax' is `ebnf'."
    :type 'character
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-lex-eop-char ?.
***************
*** 1584,1590 ****
  
  It's used only when `ebnf-syntax' is `ebnf'."
    :type 'character
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-terminal-regexp nil
--- 1584,1590 ----
  
  It's used only when `ebnf-syntax' is `ebnf'."
    :type 'character
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-terminal-regexp nil
***************
*** 1597,1603 ****
  It's used only when `ebnf-syntax' is `ebnf'."
    :type '(radio :tag "Terminal Name"
                (const nil) regexp)
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-case-fold-search nil
--- 1597,1603 ----
  It's used only when `ebnf-syntax' is `ebnf'."
    :type '(radio :tag "Terminal Name"
                (const nil) regexp)
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-case-fold-search nil
***************
*** 1606,1612 ****
  It's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' 
is
  `ebnf'."
    :type 'boolean
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-iso-alternative-p nil
--- 1606,1612 ----
  It's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' 
is
  `ebnf'."
    :type 'boolean
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-iso-alternative-p nil
***************
*** 1624,1630 ****
        }    ==>   :)
        ;    ==>   ."
    :type 'boolean
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-iso-normalize-p nil
--- 1624,1630 ----
        }    ==>   :)
        ;    ==>   ."
    :type 'boolean
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-iso-normalize-p nil
***************
*** 1635,1641 ****
  
  It's only used when `ebnf-syntax' is `iso-ebnf'."
    :type 'boolean
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-eps-prefix "ebnf--"
--- 1635,1641 ----
  
  It's only used when `ebnf-syntax' is `iso-ebnf'."
    :type 'boolean
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-eps-prefix "ebnf--"
***************
*** 1709,1715 ****
  
  It's only used when `ebnf-syntax' is `yacc'."
    :type 'boolean
!   :group 'ebnf-syntatic)
  
  
  (defcustom ebnf-ignore-empty-rule nil
--- 1709,1715 ----
  
  It's only used when `ebnf-syntax' is `yacc'."
    :type 'boolean
!   :group 'ebnf-syntactic)
  
  
  (defcustom ebnf-ignore-empty-rule nil
***************
*** 1722,1728 ****
  
  
  (defcustom ebnf-optimize nil
!   "*Non-nil means optimize syntatic chart of rules.
  
  The following optimizations are done:
  
--- 1722,1728 ----
  
  
  (defcustom ebnf-optimize nil
!   "*Non-nil means optimize syntactic chart of rules.
  
  The following optimizations are done:
  
***************
*** 1764,1770 ****
  
  ;;;###autoload
  (defun ebnf-print-buffer (&optional filename)
!   "Generate and print a PostScript syntatic chart image of the buffer.
  
  When called with a numeric prefix argument (C-u), prompts the user for
  the name of a file to save the PostScript image in, instead of sending
--- 1764,1770 ----
  
  ;;;###autoload
  (defun ebnf-print-buffer (&optional filename)
!   "Generate and print a PostScript syntactic chart image of the buffer.
  
  When called with a numeric prefix argument (C-u), prompts the user for
  the name of a file to save the PostScript image in, instead of sending
***************
*** 1780,1786 ****
  
  ;;;###autoload
  (defun ebnf-print-region (from to &optional filename)
!   "Generate and print a PostScript syntatic chart image of the region.
  Like `ebnf-print-buffer', but prints just the current region."
    (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
    (run-hooks 'ebnf-hook)
--- 1780,1786 ----
  
  ;;;###autoload
  (defun ebnf-print-region (from to &optional filename)
!   "Generate and print a PostScript syntactic chart image of the region.
  Like `ebnf-print-buffer', but prints just the current region."
    (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
    (run-hooks 'ebnf-hook)
***************
*** 1790,1796 ****
  
  ;;;###autoload
  (defun ebnf-spool-buffer ()
!   "Generate and spool a PostScript syntatic chart image of the buffer.
  Like `ebnf-print-buffer' except that the PostScript image is saved in a
  local buffer to be sent to the printer later.
  
--- 1790,1796 ----
  
  ;;;###autoload
  (defun ebnf-spool-buffer ()
!   "Generate and spool a PostScript syntactic chart image of the buffer.
  Like `ebnf-print-buffer' except that the PostScript image is saved in a
  local buffer to be sent to the printer later.
  
***************
*** 1801,1807 ****
  
  ;;;###autoload
  (defun ebnf-spool-region (from to)
!   "Generate a PostScript syntatic chart image of the region and spool locally.
  Like `ebnf-spool-buffer', but spools just the current region.
  
  Use the command `ebnf-despool' to send the spooled images to the printer."
--- 1801,1807 ----
  
  ;;;###autoload
  (defun ebnf-spool-region (from to)
!   "Generate a PostScript syntactic chart image of the region and spool 
locally.
  Like `ebnf-spool-buffer', but spools just the current region.
  
  Use the command `ebnf-despool' to send the spooled images to the printer."
***************
*** 1811,1817 ****
  
  ;;;###autoload
  (defun ebnf-eps-buffer ()
!   "Generate a PostScript syntatic chart image of the buffer in a EPS file.
  
  Indeed, for each production is generated a EPS file.
  The EPS file name has the following form:
--- 1811,1817 ----
  
  ;;;###autoload
  (defun ebnf-eps-buffer ()
!   "Generate a PostScript syntactic chart image of the buffer in a EPS file.
  
  Indeed, for each production is generated a EPS file.
  The EPS file name has the following form:
***************
*** 1833,1839 ****
  
  ;;;###autoload
  (defun ebnf-eps-region (from to)
!   "Generate a PostScript syntatic chart image of the region in a EPS file.
  
  Indeed, for each production is generated a EPS file.
  The EPS file name has the following form:
--- 1833,1839 ----
  
  ;;;###autoload
  (defun ebnf-eps-region (from to)
!   "Generate a PostScript syntactic chart image of the region in a EPS file.
  
  Indeed, for each production is generated a EPS file.
  The EPS file name has the following form:
***************
*** 1860,1873 ****
  
  ;;;###autoload
  (defun ebnf-syntax-buffer ()
!   "Does a syntatic analysis of the current buffer."
    (interactive)
    (ebnf-syntax-region (point-min) (point-max)))
  
  
  ;;;###autoload
  (defun ebnf-syntax-region (from to)
!   "Does a syntatic analysis of a region."
    (interactive "r")
    (ebnf-generate-region from to nil))
  
--- 1860,1873 ----
  
  ;;;###autoload
  (defun ebnf-syntax-buffer ()
!   "Does a syntactic analysis of the current buffer."
    (interactive)
    (ebnf-syntax-region (point-min) (point-max)))
  
  
  ;;;###autoload
  (defun ebnf-syntax-region (from to)
!   "Does a syntactic analysis of a region."
    (interactive "r")
    (ebnf-generate-region from to nil))
  
***************
*** 4163,4169 ****
       (gen-func
        nil)
       (t
!       (message "EBNF syntatic analysis: NO ERRORS.")))))
  
  
  (defun ebnf-parse-and-sort (start)
--- 4163,4169 ----
       (gen-func
        nil)
       (t
!       (message "EBNF syntactic analysis: NO ERRORS.")))))
  
  
  (defun ebnf-parse-and-sort (start)
***************
*** 5283,5289 ****
    "Eliminate empty rules.")
  
  (autoload 'ebnf-optimize              "ebnf-otz"
!   "Syntatic chart optimizer.")
  
  (autoload 'ebnf-otz-initialize        "ebnf-otz"
    "Initialize optimizer.")
--- 5283,5289 ----
    "Eliminate empty rules.")
  
  (autoload 'ebnf-optimize              "ebnf-otz"
!   "Syntactic chart optimizer.")
  
  (autoload 'ebnf-otz-initialize        "ebnf-otz"
    "Initialize optimizer.")