/[emacs]/emacs/lisp/progmodes/ebnf2ps.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ebnf2ps.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by wl, Fri Mar 25 08:47:00 2005 UTC revision 1.30 by lektu, Mon Jul 4 03:01:10 2005 UTC
# Line 1135  Elements of ALIST that are not conses ar Line 1135  Elements of ALIST that are not conses ar
1135  ;;; Interface to the command system  ;;; Interface to the command system
1136    
1137  (defgroup postscript nil  (defgroup postscript nil
1138    "PostScript Group"    "PostScript Group."
1139    :tag "PostScript"    :tag "PostScript"
1140    :version "20"    :version "20"
1141    :group 'emacs)    :group 'emacs)
1142    
1143    
1144  (defgroup ebnf2ps nil  (defgroup ebnf2ps nil
1145    "Translate an EBNF to a syntactic chart on PostScript"    "Translate an EBNF to a syntactic chart on PostScript."
1146    :prefix "ebnf-"    :prefix "ebnf-"
1147    :version "20"    :version "20"
1148    :group 'wp    :group 'wp
# Line 1150  Elements of ALIST that are not conses ar Line 1150  Elements of ALIST that are not conses ar
1150    
1151    
1152  (defgroup ebnf-special nil  (defgroup ebnf-special nil
1153    "Special customization"    "Special customization."
1154    :prefix "ebnf-"    :prefix "ebnf-"
1155    :tag "Special"    :tag "Special"
1156    :version "20"    :version "20"
# Line 1158  Elements of ALIST that are not conses ar Line 1158  Elements of ALIST that are not conses ar
1158    
1159    
1160  (defgroup ebnf-except nil  (defgroup ebnf-except nil
1161    "Except customization"    "Except customization."
1162    :prefix "ebnf-"    :prefix "ebnf-"
1163    :tag "Except"    :tag "Except"
1164    :version "20"    :version "20"
# Line 1166  Elements of ALIST that are not conses ar Line 1166  Elements of ALIST that are not conses ar
1166    
1167    
1168  (defgroup ebnf-repeat nil  (defgroup ebnf-repeat nil
1169    "Repeat customization"    "Repeat customization."
1170    :prefix "ebnf-"    :prefix "ebnf-"
1171    :tag "Repeat"    :tag "Repeat"
1172    :version "20"    :version "20"
# Line 1174  Elements of ALIST that are not conses ar Line 1174  Elements of ALIST that are not conses ar
1174    
1175    
1176  (defgroup ebnf-terminal nil  (defgroup ebnf-terminal nil
1177    "Terminal customization"    "Terminal customization."
1178    :prefix "ebnf-"    :prefix "ebnf-"
1179    :tag "Terminal"    :tag "Terminal"
1180    :version "20"    :version "20"
# Line 1182  Elements of ALIST that are not conses ar Line 1182  Elements of ALIST that are not conses ar
1182    
1183    
1184  (defgroup ebnf-non-terminal nil  (defgroup ebnf-non-terminal nil
1185    "Non-Terminal customization"    "Non-Terminal customization."
1186    :prefix "ebnf-"    :prefix "ebnf-"
1187    :tag "Non-Terminal"    :tag "Non-Terminal"
1188    :version "20"    :version "20"
# Line 1190  Elements of ALIST that are not conses ar Line 1190  Elements of ALIST that are not conses ar
1190    
1191    
1192  (defgroup ebnf-production nil  (defgroup ebnf-production nil
1193    "Production customization"    "Production customization."
1194    :prefix "ebnf-"    :prefix "ebnf-"
1195    :tag "Production"    :tag "Production"
1196    :version "20"    :version "20"
# Line 1198  Elements of ALIST that are not conses ar Line 1198  Elements of ALIST that are not conses ar
1198    
1199    
1200  (defgroup ebnf-shape nil  (defgroup ebnf-shape nil
1201    "Shapes customization"    "Shapes customization."
1202    :prefix "ebnf-"    :prefix "ebnf-"
1203    :tag "Shape"    :tag "Shape"
1204    :version "20"    :version "20"
# Line 1206  Elements of ALIST that are not conses ar Line 1206  Elements of ALIST that are not conses ar
1206    
1207    
1208  (defgroup ebnf-displacement nil  (defgroup ebnf-displacement nil
1209    "Displacement customization"    "Displacement customization."
1210    :prefix "ebnf-"    :prefix "ebnf-"
1211    :tag "Displacement"    :tag "Displacement"
1212    :version "20"    :version "20"
# Line 1214  Elements of ALIST that are not conses ar Line 1214  Elements of ALIST that are not conses ar
1214    
1215    
1216  (defgroup ebnf-syntactic nil  (defgroup ebnf-syntactic nil
1217    "Syntactic customization"    "Syntactic customization."
1218    :prefix "ebnf-"    :prefix "ebnf-"
1219    :tag "Syntactic"    :tag "Syntactic"
1220    :version "20"    :version "20"
# Line 1222  Elements of ALIST that are not conses ar Line 1222  Elements of ALIST that are not conses ar
1222    
1223    
1224  (defgroup ebnf-optimization nil  (defgroup ebnf-optimization nil
1225    "Optimization customization"    "Optimization customization."
1226    :prefix "ebnf-"    :prefix "ebnf-"
1227    :tag "Optimization"    :tag "Optimization"
1228    :version "20"    :version "20"
# Line 4623  killed after process termination." Line 4623  killed after process termination."
4623  (defun ebnf-eps-filename (str)  (defun ebnf-eps-filename (str)
4624    (let* ((len  (length str))    (let* ((len  (length str))
4625           (stri 0)           (stri 0)
4626           (new  (make-string len ?\ )))           (new  (make-string len ?\s)))
4627      (while (< stri len)      (while (< stri len)
4628        (aset new stri (aref ebnf-map-name (aref str stri)))        (aset new stri (aref ebnf-map-name (aref str stri)))
4629        (setq stri (1+ stri)))        (setq stri (1+ stri)))
# Line 5523  killed after process termination." Line 5523  killed after process termination."
5523  (defun ebnf-trim-right (str)  (defun ebnf-trim-right (str)
5524    (let* ((len   (1- (length str)))    (let* ((len   (1- (length str)))
5525           (index len))           (index len))
5526      (while (and (> index 0) (= (aref str index) ?\ ))      (while (and (> index 0) (= (aref str index) ?\s))
5527        (setq index (1- index)))        (setq index (1- index)))
5528      (if (= index len)      (if (= index len)
5529          str          str

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26