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 |
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" |
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" |
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" |
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" |
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" |
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" |
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" |
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" |
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" |
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" |
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))) |
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 |