aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJuanma Barranquero2003-02-10 09:59:35 +0000
committerJuanma Barranquero2003-02-10 09:59:35 +0000
commitab3256edb620d5481831c612ab96d0665d50d798 (patch)
tree6b8ce93daa31a3cfff01cc8530e48ac387e11ae6 /lisp
parentf504d5162f380c7b89dbd0f91b72fb6a57cd201a (diff)
downloademacs-ab3256edb620d5481831c612ab96d0665d50d798.tar.gz
emacs-ab3256edb620d5481831c612ab96d0665d50d798.zip
(ebnf2ps): Fix typo.
(ebnf-syntactic): Change group name and tag from "ebnf-syntatic". (ebnf-syntax, ebnf-lex-comment-char, ebnf-lex-eop-char, ebnf-terminal-regexp) (ebnf-case-fold-search, ebnf-iso-alternative-p, ebnf-iso-normalize-p) (ebnf-yac-ignore-error-recovery): Add to group "ebnf-syntactic", not "ebnf-syntatic". (ebnf-optimize, ebnf-print-buffer, ebnf-print-region, ebnf-spool-buffer) (ebnf-spool-region, ebnf-eps-buffer, ebnf-eps-region, ebnf-syntax-buffer) (ebnf-syntax-region, ebnf-generate-region): Fix typo.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog16
-rw-r--r--lisp/progmodes/ebnf2ps.el72
2 files changed, 52 insertions, 36 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb555909b10..70ea4146d76 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
12003-02-10 Juanma Barranquero <lektu@terra.es>
2
3 * progmodes/ebnf-otz.el (ebnf-optimize, ebnf-optimize1): Fix typo.
4
5 * progmodes/ebnf2ps.el (ebnf2ps): Fix typo.
6 (ebnf-syntactic): Change group name and tag from "ebnf-syntatic".
7 (ebnf-syntax, ebnf-lex-comment-char, ebnf-lex-eop-char)
8 (ebnf-terminal-regexp, ebnf-case-fold-search)
9 (ebnf-iso-alternative-p, ebnf-iso-normalize-p)
10 (ebnf-yac-ignore-error-recovery): Add to group "ebnf-syntactic", not
11 "ebnf-syntatic".
12 (ebnf-optimize, ebnf-print-buffer, ebnf-print-region)
13 (ebnf-spool-buffer, ebnf-spool-region, ebnf-eps-buffer)
14 (ebnf-eps-region, ebnf-syntax-buffer, ebnf-syntax-region)
15 (ebnf-generate-region): Fix typo.
16
12003-02-10 KAWABATA, Taichi <batta@beige.ocn.ne.jp> 172003-02-10 KAWABATA, Taichi <batta@beige.ocn.ne.jp>
2 18
3 * language/ind-util.el (indian-itrans-v5-table): Add entries for 19 * language/ind-util.el (indian-itrans-v5-table): Add entries for
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 27a6865468c..e68bcabc9df 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1,11 +1,11 @@
1;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript 1;;; ebnf2ps.el --- translate an EBNF to a syntactic chart on PostScript
2 2
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: <2001/09/24 10:31:13 vinicius> 8;; Time-stamp: <2003-02-10 10:40:14 jbarranquero>
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
@@ -44,7 +44,7 @@ Please send all bug fixes and enhancements to
44;; Introduction 44;; Introduction
45;; ------------ 45;; ------------
46;; 46;;
47;; This package translates an EBNF to a syntatic chart on PostScript. 47;; This package translates an EBNF to a syntactic chart on PostScript.
48;; 48;;
49;; To use ebnf2ps, insert in your ~/.emacs: 49;; To use ebnf2ps, insert in your ~/.emacs:
50;; 50;;
@@ -69,7 +69,7 @@ Please send all bug fixes and enhancements to
69;; Using ebnf2ps 69;; Using ebnf2ps
70;; ------------- 70;; -------------
71;; 71;;
72;; ebnf2ps provides six commands for generating PostScript syntatic chart 72;; ebnf2ps provides six commands for generating PostScript syntactic chart
73;; images of Emacs buffers: 73;; images of Emacs buffers:
74;; 74;;
75;; ebnf-print-buffer 75;; ebnf-print-buffer
@@ -80,7 +80,7 @@ Please send all bug fixes and enhancements to
80;; ebnf-eps-region 80;; ebnf-eps-region
81;; 81;;
82;; These commands all perform essentially the same function: they generate 82;; These commands all perform essentially the same function: they generate
83;; PostScript syntatic chart images suitable for printing on a PostScript 83;; PostScript syntactic chart images suitable for printing on a PostScript
84;; printer or displaying with GhostScript. These commands are collectively 84;; printer or displaying with GhostScript. These commands are collectively
85;; referred to as "ebnf- commands". 85;; referred to as "ebnf- commands".
86;; 86;;
@@ -482,10 +482,10 @@ Please send all bug fixes and enhancements to
482;; 482;;
483;; `ebnf-setup' returns the current setup. 483;; `ebnf-setup' returns the current setup.
484;; 484;;
485;; `ebnf-syntax-buffer' does a syntatic analysis of your EBNF in the current 485;; `ebnf-syntax-buffer' does a syntactic analysis of your EBNF in the current
486;; buffer. 486;; buffer.
487;; 487;;
488;; `ebnf-syntax-region' does a syntatic analysis of your EBNF in the current 488;; `ebnf-syntax-region' does a syntactic analysis of your EBNF in the current
489;; region. 489;; region.
490;; 490;;
491;; `ebnf-customize' activates a customization buffer for ebnf2ps options. 491;; `ebnf-customize' activates a customization buffer for ebnf2ps options.
@@ -637,7 +637,7 @@ Please send all bug fixes and enhancements to
637;; 637;;
638;; `ebnf-ignore-empty-rule' Non-nil means ignore empty rules. 638;; `ebnf-ignore-empty-rule' Non-nil means ignore empty rules.
639;; 639;;
640;; `ebnf-optimize' Non-nil means optimize syntatic chart 640;; `ebnf-optimize' Non-nil means optimize syntactic chart
641;; of rules. 641;; of rules.
642;; 642;;
643;; To set the above options you may: 643;; To set the above options you may:
@@ -931,14 +931,14 @@ Please send all bug fixes and enhancements to
931;; Internal Structures 931;; Internal Structures
932;; ------------------- 932;; -------------------
933;; 933;;
934;; ebnf2ps has two passes. The first pass does a lexical and syntatic analysis 934;; ebnf2ps has two passes. The first pass does a lexical and syntactic analysis
935;; of current buffer and generates an intermediate representation. The second 935;; of current buffer and generates an intermediate representation. The second
936;; pass uses the intermediate representation to generate the PostScript 936;; pass uses the intermediate representation to generate the PostScript
937;; syntatic chart. 937;; syntactic chart.
938;; 938;;
939;; The intermediate representation is a list of vectors, the vector element 939;; The intermediate representation is a list of vectors, the vector element
940;; represents a syntatic chart element. Below is a vector representation for 940;; represents a syntactic chart element. Below is a vector representation for
941;; each syntatic chart element. 941;; each syntactic chart element.
942;; 942;;
943;; [production WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH NAME PRODUCTION ACTION] 943;; [production WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH NAME PRODUCTION ACTION]
944;; [alternative WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH LIST] 944;; [alternative WIDTH-FUN DIM-FUN ENTRY HEIGHT WIDTH LIST]
@@ -986,7 +986,7 @@ Please send all bug fixes and enhancements to
986;; Things To Change 986;; Things To Change
987;; ---------------- 987;; ----------------
988;; 988;;
989;; . Handle situations when syntatic chart is out of paper. 989;; . Handle situations when syntactic chart is out of paper.
990;; . Use other alphabet than ascii. 990;; . Use other alphabet than ascii.
991;; . Optimizations... 991;; . Optimizations...
992;; 992;;
@@ -1021,7 +1021,7 @@ Please send all bug fixes and enhancements to
1021 1021
1022 1022
1023(defgroup ebnf2ps nil 1023(defgroup ebnf2ps nil
1024 "Translate an EBNF to a syntatic chart on PostScript" 1024 "Translate an EBNF to a syntactic chart on PostScript"
1025 :prefix "ebnf-" 1025 :prefix "ebnf-"
1026 :group 'wp 1026 :group 'wp
1027 :group 'postscript) 1027 :group 'postscript)
@@ -1083,10 +1083,10 @@ Please send all bug fixes and enhancements to
1083 :group 'ebnf2ps) 1083 :group 'ebnf2ps)
1084 1084
1085 1085
1086(defgroup ebnf-syntatic nil 1086(defgroup ebnf-syntactic nil
1087 "Syntatic customization" 1087 "Syntactic customization"
1088 :prefix "ebnf-" 1088 :prefix "ebnf-"
1089 :tag "Syntatic" 1089 :tag "Syntactic"
1090 :group 'ebnf2ps) 1090 :group 'ebnf2ps)
1091 1091
1092 1092
@@ -1568,7 +1568,7 @@ Valid values are:
1568Any other value is treated as `ebnf'." 1568Any other value is treated as `ebnf'."
1569 :type '(radio :tag "Syntax" 1569 :type '(radio :tag "Syntax"
1570 (const ebnf) (const iso-ebnf) (const yacc)) 1570 (const ebnf) (const iso-ebnf) (const yacc))
1571 :group 'ebnf-syntatic) 1571 :group 'ebnf-syntactic)
1572 1572
1573 1573
1574(defcustom ebnf-lex-comment-char ?\; 1574(defcustom ebnf-lex-comment-char ?\;
@@ -1576,7 +1576,7 @@ Any other value is treated as `ebnf'."
1576 1576
1577It's used only when `ebnf-syntax' is `ebnf'." 1577It's used only when `ebnf-syntax' is `ebnf'."
1578 :type 'character 1578 :type 'character
1579 :group 'ebnf-syntatic) 1579 :group 'ebnf-syntactic)
1580 1580
1581 1581
1582(defcustom ebnf-lex-eop-char ?. 1582(defcustom ebnf-lex-eop-char ?.
@@ -1584,7 +1584,7 @@ It's used only when `ebnf-syntax' is `ebnf'."
1584 1584
1585It's used only when `ebnf-syntax' is `ebnf'." 1585It's used only when `ebnf-syntax' is `ebnf'."
1586 :type 'character 1586 :type 'character
1587 :group 'ebnf-syntatic) 1587 :group 'ebnf-syntactic)
1588 1588
1589 1589
1590(defcustom ebnf-terminal-regexp nil 1590(defcustom ebnf-terminal-regexp nil
@@ -1597,7 +1597,7 @@ terminal name; terminal name may also be enclosed by `\"'.
1597It's used only when `ebnf-syntax' is `ebnf'." 1597It's used only when `ebnf-syntax' is `ebnf'."
1598 :type '(radio :tag "Terminal Name" 1598 :type '(radio :tag "Terminal Name"
1599 (const nil) regexp) 1599 (const nil) regexp)
1600 :group 'ebnf-syntatic) 1600 :group 'ebnf-syntactic)
1601 1601
1602 1602
1603(defcustom ebnf-case-fold-search nil 1603(defcustom ebnf-case-fold-search nil
@@ -1606,7 +1606,7 @@ It's used only when `ebnf-syntax' is `ebnf'."
1606It's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' is 1606It's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' is
1607`ebnf'." 1607`ebnf'."
1608 :type 'boolean 1608 :type 'boolean
1609 :group 'ebnf-syntatic) 1609 :group 'ebnf-syntactic)
1610 1610
1611 1611
1612(defcustom ebnf-iso-alternative-p nil 1612(defcustom ebnf-iso-alternative-p nil
@@ -1624,7 +1624,7 @@ This variable affects the following symbol set:
1624 } ==> :) 1624 } ==> :)
1625 ; ==> ." 1625 ; ==> ."
1626 :type 'boolean 1626 :type 'boolean
1627 :group 'ebnf-syntatic) 1627 :group 'ebnf-syntactic)
1628 1628
1629 1629
1630(defcustom ebnf-iso-normalize-p nil 1630(defcustom ebnf-iso-normalize-p nil
@@ -1635,7 +1635,7 @@ single space, so \"A B C\" is normalized to \"A B C\".
1635 1635
1636It's only used when `ebnf-syntax' is `iso-ebnf'." 1636It's only used when `ebnf-syntax' is `iso-ebnf'."
1637 :type 'boolean 1637 :type 'boolean
1638 :group 'ebnf-syntatic) 1638 :group 'ebnf-syntactic)
1639 1639
1640 1640
1641(defcustom ebnf-eps-prefix "ebnf--" 1641(defcustom ebnf-eps-prefix "ebnf--"
@@ -1709,7 +1709,7 @@ when executing ebnf2ps, set `ebnf-use-float-format' to nil."
1709 1709
1710It's only used when `ebnf-syntax' is `yacc'." 1710It's only used when `ebnf-syntax' is `yacc'."
1711 :type 'boolean 1711 :type 'boolean
1712 :group 'ebnf-syntatic) 1712 :group 'ebnf-syntactic)
1713 1713
1714 1714
1715(defcustom ebnf-ignore-empty-rule nil 1715(defcustom ebnf-ignore-empty-rule nil
@@ -1722,7 +1722,7 @@ middle action rule."
1722 1722
1723 1723
1724(defcustom ebnf-optimize nil 1724(defcustom ebnf-optimize nil
1725 "*Non-nil means optimize syntatic chart of rules. 1725 "*Non-nil means optimize syntactic chart of rules.
1726 1726
1727The following optimizations are done: 1727The following optimizations are done:
1728 1728
@@ -1764,7 +1764,7 @@ The above optimizations are specially useful when `ebnf-syntax' is `yacc'."
1764 1764
1765;;;###autoload 1765;;;###autoload
1766(defun ebnf-print-buffer (&optional filename) 1766(defun ebnf-print-buffer (&optional filename)
1767 "Generate and print a PostScript syntatic chart image of the buffer. 1767 "Generate and print a PostScript syntactic chart image of the buffer.
1768 1768
1769When called with a numeric prefix argument (C-u), prompts the user for 1769When called with a numeric prefix argument (C-u), prompts the user for
1770the name of a file to save the PostScript image in, instead of sending 1770the name of a file to save the PostScript image in, instead of sending
@@ -1780,7 +1780,7 @@ number, prompt the user for the name of the file to save in."
1780 1780
1781;;;###autoload 1781;;;###autoload
1782(defun ebnf-print-region (from to &optional filename) 1782(defun ebnf-print-region (from to &optional filename)
1783 "Generate and print a PostScript syntatic chart image of the region. 1783 "Generate and print a PostScript syntactic chart image of the region.
1784Like `ebnf-print-buffer', but prints just the current region." 1784Like `ebnf-print-buffer', but prints just the current region."
1785 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg))) 1785 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
1786 (run-hooks 'ebnf-hook) 1786 (run-hooks 'ebnf-hook)
@@ -1790,7 +1790,7 @@ Like `ebnf-print-buffer', but prints just the current region."
1790 1790
1791;;;###autoload 1791;;;###autoload
1792(defun ebnf-spool-buffer () 1792(defun ebnf-spool-buffer ()
1793 "Generate and spool a PostScript syntatic chart image of the buffer. 1793 "Generate and spool a PostScript syntactic chart image of the buffer.
1794Like `ebnf-print-buffer' except that the PostScript image is saved in a 1794Like `ebnf-print-buffer' except that the PostScript image is saved in a
1795local buffer to be sent to the printer later. 1795local buffer to be sent to the printer later.
1796 1796
@@ -1801,7 +1801,7 @@ Use the command `ebnf-despool' to send the spooled images to the printer."
1801 1801
1802;;;###autoload 1802;;;###autoload
1803(defun ebnf-spool-region (from to) 1803(defun ebnf-spool-region (from to)
1804 "Generate a PostScript syntatic chart image of the region and spool locally. 1804 "Generate a PostScript syntactic chart image of the region and spool locally.
1805Like `ebnf-spool-buffer', but spools just the current region. 1805Like `ebnf-spool-buffer', but spools just the current region.
1806 1806
1807Use the command `ebnf-despool' to send the spooled images to the printer." 1807Use the command `ebnf-despool' to send the spooled images to the printer."
@@ -1811,7 +1811,7 @@ Use the command `ebnf-despool' to send the spooled images to the printer."
1811 1811
1812;;;###autoload 1812;;;###autoload
1813(defun ebnf-eps-buffer () 1813(defun ebnf-eps-buffer ()
1814 "Generate a PostScript syntatic chart image of the buffer in a EPS file. 1814 "Generate a PostScript syntactic chart image of the buffer in a EPS file.
1815 1815
1816Indeed, for each production is generated a EPS file. 1816Indeed, for each production is generated a EPS file.
1817The EPS file name has the following form: 1817The EPS file name has the following form:
@@ -1833,7 +1833,7 @@ WARNING: It's *NOT* asked any confirmation to override an existing file."
1833 1833
1834;;;###autoload 1834;;;###autoload
1835(defun ebnf-eps-region (from to) 1835(defun ebnf-eps-region (from to)
1836 "Generate a PostScript syntatic chart image of the region in a EPS file. 1836 "Generate a PostScript syntactic chart image of the region in a EPS file.
1837 1837
1838Indeed, for each production is generated a EPS file. 1838Indeed, for each production is generated a EPS file.
1839The EPS file name has the following form: 1839The EPS file name has the following form:
@@ -1860,14 +1860,14 @@ WARNING: It's *NOT* asked any confirmation to override an existing file."
1860 1860
1861;;;###autoload 1861;;;###autoload
1862(defun ebnf-syntax-buffer () 1862(defun ebnf-syntax-buffer ()
1863 "Does a syntatic analysis of the current buffer." 1863 "Does a syntactic analysis of the current buffer."
1864 (interactive) 1864 (interactive)
1865 (ebnf-syntax-region (point-min) (point-max))) 1865 (ebnf-syntax-region (point-min) (point-max)))
1866 1866
1867 1867
1868;;;###autoload 1868;;;###autoload
1869(defun ebnf-syntax-region (from to) 1869(defun ebnf-syntax-region (from to)
1870 "Does a syntatic analysis of a region." 1870 "Does a syntactic analysis of a region."
1871 (interactive "r") 1871 (interactive "r")
1872 (ebnf-generate-region from to nil)) 1872 (ebnf-generate-region from to nil))
1873 1873
@@ -4163,7 +4163,7 @@ end
4163 (gen-func 4163 (gen-func
4164 nil) 4164 nil)
4165 (t 4165 (t
4166 (message "EBNF syntatic analysis: NO ERRORS."))))) 4166 (message "EBNF syntactic analysis: NO ERRORS.")))))
4167 4167
4168 4168
4169(defun ebnf-parse-and-sort (start) 4169(defun ebnf-parse-and-sort (start)
@@ -5283,7 +5283,7 @@ end
5283 "Eliminate empty rules.") 5283 "Eliminate empty rules.")
5284 5284
5285(autoload 'ebnf-optimize "ebnf-otz" 5285(autoload 'ebnf-optimize "ebnf-otz"
5286 "Syntatic chart optimizer.") 5286 "Syntactic chart optimizer.")
5287 5287
5288(autoload 'ebnf-otz-initialize "ebnf-otz" 5288(autoload 'ebnf-otz-initialize "ebnf-otz"
5289 "Initialize optimizer.") 5289 "Initialize optimizer.")