| 1 |
04_hilight.dpatch from Debian's 1.6.4-7 patchset, with a few changes:
|
| 2 |
o hilight *.xhtml as html
|
| 3 |
o install php.st and ruby.st bits
|
| 4 |
o patch Makefile.am too
|
| 5 |
|
| 6 |
diff -Nru enscript-1.6.4.orig/states/hl/changelog.st enscript-1.6.4/states/hl/changelog.st
|
| 7 |
--- enscript-1.6.4.orig/states/hl/changelog.st 2003-03-05 09:26:33.000000000 +0200
|
| 8 |
+++ enscript-1.6.4/states/hl/changelog.st 2006-01-09 22:02:28.000000000 +0200
|
| 9 |
@@ -43,7 +43,7 @@
|
| 10 |
}
|
| 11 |
|
| 12 |
/* File descriptions without function names. */
|
| 13 |
- /(^\t\* )([^ :]+)(:)/ {
|
| 14 |
+ /(^\t\* )([^:]+)(:)/ {
|
| 15 |
language_print ($1);
|
| 16 |
|
| 17 |
function_name_face (true);
|
| 18 |
diff -Nru enscript-1.6.4.orig/states/hl/dylan.st enscript-1.6.4/states/hl/dylan.st
|
| 19 |
--- enscript-1.6.4.orig/states/hl/dylan.st 1970-01-01 02:00:00.000000000 +0200
|
| 20 |
+++ enscript-1.6.4/states/hl/dylan.st 2006-01-09 22:02:28.000000000 +0200
|
| 21 |
@@ -0,0 +1,124 @@
|
| 22 |
+/**
|
| 23 |
+ * Name: dylan
|
| 24 |
+ * Description: Dylan Programming Language template for Enscript.
|
| 25 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 26 |
+ * (based on the Scheme version by Markku Rossi <mtr@iki.fi>)
|
| 27 |
+ */
|
| 28 |
+
|
| 29 |
+dylan_mod_re =
|
| 30 |
+/* Definition Modifiers
|
| 31 |
+ (build-re '(abstract block concrete constant class domain exception exclude
|
| 32 |
+ export function functional generic handler import inherited inline
|
| 33 |
+ instance interface library macro method open primary sealed sideways
|
| 34 |
+ singleton slot subclass variable virtual))
|
| 35 |
+ */
|
| 36 |
+ /\b(subclass|abstract|block|c(on(crete|stant)|lass)|domain\
|
| 37 |
+|ex(c(eption|lude)|port)|f(unction(|al))|generic|handler\
|
| 38 |
+|i(n(herited|line|stance|terface)|mport)|library|m(acro|ethod)\
|
| 39 |
+|open|primary|sealed|si(deways|ngleton)|slot\
|
| 40 |
+|v(ariable|irtual))\b/;
|
| 41 |
+
|
| 42 |
+state dylan extends HighlightEntry
|
| 43 |
+{
|
| 44 |
+ BEGIN {
|
| 45 |
+ /*
|
| 46 |
+ * Modify regexp character syntax so that we can distinguish all
|
| 47 |
+ * dylan symbols.
|
| 48 |
+ */
|
| 49 |
+ extras = list ('!', '$', '%', '&', '*', '/', ':',
|
| 50 |
+ '=', '?', '~', '^', '.', '+', '-');
|
| 51 |
+ for (i = 0; i < length (extras); i = i + 1)
|
| 52 |
+ regexp_syntax (extras[i], 'w');
|
| 53 |
+ }
|
| 54 |
+
|
| 55 |
+ /* Modifiers */
|
| 56 |
+ dylan_mod_re {
|
| 57 |
+ reference_face (true);
|
| 58 |
+ language_print ($0);
|
| 59 |
+ reference_face (false);
|
| 60 |
+ }
|
| 61 |
+
|
| 62 |
+ /* Types */
|
| 63 |
+ /<\w+>/ {
|
| 64 |
+ type_face (true);
|
| 65 |
+ language_print ($0);
|
| 66 |
+ type_face (false);
|
| 67 |
+ }
|
| 68 |
+
|
| 69 |
+ /* Symbols */
|
| 70 |
+ /#\"/ {
|
| 71 |
+ string_face (true);
|
| 72 |
+ language_print ($0);
|
| 73 |
+ call (c_string);
|
| 74 |
+ string_face (false);
|
| 75 |
+ }
|
| 76 |
+
|
| 77 |
+ /* Comments. */
|
| 78 |
+ /\/\// {
|
| 79 |
+ comment_face (true);
|
| 80 |
+ language_print ($0);
|
| 81 |
+ call (eat_one_line);
|
| 82 |
+ comment_face (false);
|
| 83 |
+ }
|
| 84 |
+ /\/\*/ {
|
| 85 |
+ comment_face (true);
|
| 86 |
+ language_print ($0);
|
| 87 |
+ call (eat_one_line);
|
| 88 |
+ comment_face (false);
|
| 89 |
+ }
|
| 90 |
+
|
| 91 |
+ /* String constants. */
|
| 92 |
+ /\"/ {
|
| 93 |
+ string_face (true);
|
| 94 |
+ language_print ($0);
|
| 95 |
+ call (c_string);
|
| 96 |
+ string_face (false);
|
| 97 |
+ }
|
| 98 |
+
|
| 99 |
+ /* Character constants. */
|
| 100 |
+ /'.*'/ {
|
| 101 |
+ string_face (true);
|
| 102 |
+ language_print ($0);
|
| 103 |
+ string_face (false);
|
| 104 |
+ }
|
| 105 |
+
|
| 106 |
+ /* Keywords.
|
| 107 |
+ "=>" +
|
| 108 |
+ (build-re '(above afterwards begin below by case cleanup create
|
| 109 |
+ define end else elseif finally for from if in let local otherwise rename
|
| 110 |
+ select signal then to unless until use variable virtual when while
|
| 111 |
+ */
|
| 112 |
+ /=>|\b(a(bove|fterwards)|b(e(gin|low)|y)|c(ase|leanup|reate)\
|
| 113 |
+|define|else(|if)|end|f(inally|or|rom)|i[fn]|l(et|ocal)|otherwise\
|
| 114 |
+|rename|s(elect|ignal)|t(hen|o)|u(n(less|til)|se)|wh(en|ile))\b/ {
|
| 115 |
+ keyword_face (true);
|
| 116 |
+ language_print ($0);
|
| 117 |
+ keyword_face (false);
|
| 118 |
+ }
|
| 119 |
+
|
| 120 |
+ /* ':'-names, Emacs highlights these, so do we. */
|
| 121 |
+ /([ \t])([!\$%&\*\/:<=>\?~_^a-zA-Z0-9.+\-]*:)/ {
|
| 122 |
+ language_print ($1);
|
| 123 |
+ reference_face (true);
|
| 124 |
+ language_print ($2);
|
| 125 |
+ reference_face (false);
|
| 126 |
+ }
|
| 127 |
+
|
| 128 |
+ /* Function faces */
|
| 129 |
+ /([ \t]*)(\w+[^:])([ \t]*\([ \t]*)/ {
|
| 130 |
+ language_print ($1);
|
| 131 |
+ function_name_face(true);
|
| 132 |
+ face_on(face_bold_italic);
|
| 133 |
+ language_print ($2);
|
| 134 |
+ face_off(face_bold_italic);
|
| 135 |
+ function_name_face(false);
|
| 136 |
+ language_print ($3);
|
| 137 |
+ }
|
| 138 |
+}
|
| 139 |
+
|
| 140 |
+
|
| 141 |
+/*
|
| 142 |
+Local variables:
|
| 143 |
+mode: c
|
| 144 |
+End:
|
| 145 |
+*/
|
| 146 |
diff -Nru enscript-1.6.4.orig/states/hl/eiffel.st enscript-1.6.4/states/hl/eiffel.st
|
| 147 |
--- enscript-1.6.4.orig/states/hl/eiffel.st 1970-01-01 02:00:00.000000000 +0200
|
| 148 |
+++ enscript-1.6.4/states/hl/eiffel.st 2006-01-09 22:02:28.000000000 +0200
|
| 149 |
@@ -0,0 +1,132 @@
|
| 150 |
+/**
|
| 151 |
+ * Name: eiffel
|
| 152 |
+ * Description: Eiffel programming language.
|
| 153 |
+ * Author: Julien Lemoine <speedblue@happycoders.org>
|
| 154 |
+ * Brent Fulgham <bfulgham@debian.org>
|
| 155 |
+ */
|
| 156 |
+
|
| 157 |
+eiffel_types =
|
| 158 |
+/* Types */
|
| 159 |
+ /\b(ABSTRACT_(FRACTION|INTEGER)|ANY|AR(GUMENTS|RAY(|2|3|ED_COLLECTION))\
|
| 160 |
+|BASIC_(DIRECTORY|TIME)|BINARY_FILE_(READ|WRITE)|BIT_(N|STRING)|BOOLEAN\
|
| 161 |
+|CHARACTER(|_CONSTANTS)|CLOCK|COLLECTION(|2|3|_SORTER)|COMPARABLE\
|
| 162 |
+|COUNTER|DICTIONARY(|_NODE)|D(IRECTORY|OUBLE)|EXCEPTIONS|FILE(|_TOOLS)\
|
| 163 |
+|FIXED_ARRAY(|2|3)|GE(NERAL|N_RAND)|HASH(ABLE|_TABLE_SIZE)|INPUT_STREAM\
|
| 164 |
+|INTEGER(|_8|_16|_32|_64|_FRACTION|_GENERAL)\
|
| 165 |
+|ITERATOR(|_ON_(COLLECTION|DICTIONARY(_ITEMS|_KEYS)|LINKED_LIST|SET\
|
| 166 |
+|STRING|TWO_WAY_LINKED_LIST|UNICODE_STRING))\
|
| 167 |
+|LARGE(|_NEGATIVE|_POSITIVE)_INTEGER|LINK(|2|ED(_COLLECTION|_LIST))\
|
| 168 |
+|MATH_CONSTANTS|MEMO(|RY)|MICROSECOND_TIME|MINI_PARSER_BUFFER\
|
| 169 |
+|MIN_STAND|MUTABLE_BIG_INTEGER|NATIVE_ARRAY|NULL_(INPUT|OUTPUT)\
|
| 170 |
+|NUMBER(|_FRACTION|_TOOLS)|NUMERIC|OUTPUT_STREAM|PLATFORM|POINTER\
|
| 171 |
+|REAL|REVERSE_COLLECTION_SORTER|SAFE_EQUAL|SCOOP_UTILITIES|SET(|_NODE)\
|
| 172 |
+|SMALL_INTEGER|STD_(ERROR|FILE_(READ|READ_WRITE|WRITE)|INPUT(|_OUTPUT)\
|
| 173 |
+|OUTPUT|RAND)|STRING(|_HANDLER)|SYSTEM|TIME(|_IN_(ENGLISH|FRENCH|GERMAN\
|
| 174 |
+|ITALIAN|SOME_LANGUAGE|SPANISH))|TWO_WAY_LINKED_LIST\
|
| 175 |
+|UNICODE_STRING(|_HANDLER)|UTF8_PARSER)\b/;
|
| 176 |
+
|
| 177 |
+eiffel_keywords =
|
| 178 |
+/* Keywords */
|
| 179 |
+ /\b(agent|a(ll|lias)|and|as(|sign)|check|class|convert|create|Current|debug\
|
| 180 |
+|deferred|do|else(|if)|en(d|sure)|ex(panded|port|ternal)|False\
|
| 181 |
+|feature|fro(m|zen)|if|implies|in(dexing|fix|herit|spect|variant)\
|
| 182 |
+|is|like|local|loop|not|o(r|bsolete|ld|nce)|prefix|Precursor|pure\
|
| 183 |
+|re(define|ference|name|quire|scue|try)|Result|separate|then|True\
|
| 184 |
+|TUPLE|un(define|til)|creation)\b/;
|
| 185 |
+
|
| 186 |
+state eiffel extends HighlightEntry
|
| 187 |
+{
|
| 188 |
+
|
| 189 |
+ /* One line comments. */
|
| 190 |
+ /\-\-/ {
|
| 191 |
+ comment_face (true);
|
| 192 |
+ language_print ($0);
|
| 193 |
+ call (eat_one_line);
|
| 194 |
+ comment_face (false);
|
| 195 |
+ }
|
| 196 |
+
|
| 197 |
+ /* Keywords. */
|
| 198 |
+ eiffel_keywords {
|
| 199 |
+ keyword_face (true);
|
| 200 |
+ language_print ($0);
|
| 201 |
+ keyword_face (false);
|
| 202 |
+ }
|
| 203 |
+
|
| 204 |
+ /* Types. */
|
| 205 |
+ eiffel_types {
|
| 206 |
+ type_face (true);
|
| 207 |
+ language_print ($0);
|
| 208 |
+ type_face (false);
|
| 209 |
+ }
|
| 210 |
+
|
| 211 |
+ /* String constants. */
|
| 212 |
+ /\"/ {
|
| 213 |
+ string_face (true);
|
| 214 |
+ language_print ($0);
|
| 215 |
+ call (c_string);
|
| 216 |
+ string_face (false);
|
| 217 |
+ }
|
| 218 |
+
|
| 219 |
+ /* Character constants. */
|
| 220 |
+ /'.'|'\\\\.'/ {
|
| 221 |
+ string_face (true);
|
| 222 |
+ language_print ($0);
|
| 223 |
+ string_face (false);
|
| 224 |
+ }
|
| 225 |
+
|
| 226 |
+ /* Symbols, etc. */
|
| 227 |
+ /:=|==|<=|>=|=|!=|\/=|!|!!/ {
|
| 228 |
+ reference_face (true);
|
| 229 |
+ language_print ($0);
|
| 230 |
+ reference_face (false);
|
| 231 |
+ }
|
| 232 |
+
|
| 233 |
+ /* Type declarations */
|
| 234 |
+ /([ \t])*([a-zA-Z]+[, \ta-zA-Z0-9_]*):[^=]/ {
|
| 235 |
+ reference_face (true);
|
| 236 |
+ language_print ($0);
|
| 237 |
+ reference_face (false);
|
| 238 |
+ }
|
| 239 |
+
|
| 240 |
+
|
| 241 |
+ /*
|
| 242 |
+ * Function definitions, with args
|
| 243 |
+ * fct_name (args...) is
|
| 244 |
+ */
|
| 245 |
+ /^([ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*)(\([ \t]*[ \ta-z,A-Z_0-9]+)(:[ \ta-zA-Z0-9_\[\]]+)?(\)[ \t]*)(:[ \ta-zA-Z0-9_\[\]]+)?([ \t]+is)[ \t]*$/ {
|
| 246 |
+ function_name_face (true);
|
| 247 |
+ face_on(face_bold_italic);
|
| 248 |
+ language_print ($1);
|
| 249 |
+ face_off(face_bold_italic);
|
| 250 |
+ function_name_face (false);
|
| 251 |
+ language_print ($2);
|
| 252 |
+ type_face (true);
|
| 253 |
+ language_print ($3);
|
| 254 |
+ type_face (false);
|
| 255 |
+ language_print ($4);
|
| 256 |
+ type_face (true);
|
| 257 |
+ language_print ($5);
|
| 258 |
+ type_face (false);
|
| 259 |
+ keyword_face (true);
|
| 260 |
+ language_print ($6);
|
| 261 |
+ keyword_face (false);
|
| 262 |
+ language_print ($7);
|
| 263 |
+ }
|
| 264 |
+
|
| 265 |
+ /*
|
| 266 |
+ * Function definitions, without args
|
| 267 |
+ * fct_name is
|
| 268 |
+ */
|
| 269 |
+ /^([ \t]*[a-zA-Z_][a-zA-Z_0-9]*)([ \t]*)(is)[ \t]*$/ {
|
| 270 |
+ function_name_face (true);
|
| 271 |
+ face_on(face_bold_italic);
|
| 272 |
+ language_print ($1);
|
| 273 |
+ face_off(face_bold_italic);
|
| 274 |
+ function_name_face (false);
|
| 275 |
+ language_print(" ");
|
| 276 |
+ keyword_face (true);
|
| 277 |
+ language_print ($3);
|
| 278 |
+ keyword_face (false);
|
| 279 |
+ }
|
| 280 |
+
|
| 281 |
+}
|
| 282 |
diff -Nru enscript-1.6.4.orig/states/hl/enscript.st enscript-1.6.4/states/hl/enscript.st
|
| 283 |
--- enscript-1.6.4.orig/states/hl/enscript.st 2003-03-05 10:31:31.000000000 +0200
|
| 284 |
+++ enscript-1.6.4/states/hl/enscript.st 2006-01-09 22:04:22.000000000 +0200
|
| 285 |
@@ -474,24 +474,31 @@
|
| 286 |
/\.m$/ matlab;
|
| 287 |
/\.(mpl|mp|maple)$/ maple;
|
| 288 |
/\.(scm|scheme)$/ scheme;
|
| 289 |
+ /\.e$/ eiffel;
|
| 290 |
+ /\.erl$/ erlang;
|
| 291 |
/\b\.emacs$|\.el$/ elisp;
|
| 292 |
/\.ad(s|b|a)$/ ada;
|
| 293 |
/\.[Ss]$/ asm;
|
| 294 |
+ /\.sml$/ sml;
|
| 295 |
/\.st$/ states;
|
| 296 |
+ /\.lua$/ lua;
|
| 297 |
/(M|m)akefile.*/ makefile;
|
| 298 |
/\.(MOD|DEF|mi|md)$/ modula_2;
|
| 299 |
+ /\.oz$/ oz;
|
| 300 |
/\.tcl$/ tcl;
|
| 301 |
/\.(v|vh)$/ verilog;
|
| 302 |
- /\.html?$/ html;
|
| 303 |
+ /\.x?html?$/ html;
|
| 304 |
/\bChangeLog$/ changelog;
|
| 305 |
/\.(vhd|vhdl)$/ vhdl;
|
| 306 |
/\.(scr|.syn|.synth)$/ synopsys;
|
| 307 |
/\.idl$/ idl;
|
| 308 |
/\.(hs|lhs|gs|lgs)$/ haskell;
|
| 309 |
/\.(pm|pl)$/ perl;
|
| 310 |
+ /\.php[34]?$/ php;
|
| 311 |
/\.(eps|EPS|ps|PS)$/ postscript;
|
| 312 |
/\.py$/ python;
|
| 313 |
/\.pyx$/ pyrex;
|
| 314 |
+ /\.rbw?$/ ruby;
|
| 315 |
/\.js$/ javascript;
|
| 316 |
/\.java$/ java;
|
| 317 |
/\.([Pp][Aa][Ss]|[Pp][Pp]|[Pp])$/ pascal;
|
| 318 |
@@ -530,6 +537,10 @@
|
| 319 |
/-\*- [Ii][Dd][Ll] -\*-/ idl;
|
| 320 |
/-\*- [Pp][Ee][Rr][Ll] -\*-/ perl;
|
| 321 |
/^#![ \t]*\/.*\/perl/ perl;
|
| 322 |
+ /-\*- [Pp][Hh][Pp] -\*-/ php;
|
| 323 |
+ /^<\?php/ php;
|
| 324 |
+ /-\*- [Rr][Uu][Bb][Yy] -\*-/ ruby;
|
| 325 |
+ /^#![ \t]*\/.*\/ruby/ ruby;
|
| 326 |
/^From:/ mail;
|
| 327 |
/^#![ \t]*(\/usr)?\/bin\/[ngmt]?awk/ awk;
|
| 328 |
/^#![ \t]*(\/usr)?\/bin\/sh/ sh;
|
| 329 |
diff -Nru enscript-1.6.4.orig/states/hl/erlang.st enscript-1.6.4/states/hl/erlang.st
|
| 330 |
--- enscript-1.6.4.orig/states/hl/erlang.st 1970-01-01 02:00:00.000000000 +0200
|
| 331 |
+++ enscript-1.6.4/states/hl/erlang.st 2006-01-09 22:02:28.000000000 +0200
|
| 332 |
@@ -0,0 +1,161 @@
|
| 333 |
+/**
|
| 334 |
+ * Name: erlang
|
| 335 |
+ * Description: Erlang programming language.
|
| 336 |
+ * Author: Sean Hinde
|
| 337 |
+ */
|
| 338 |
+
|
| 339 |
+
|
| 340 |
+/* Erlang atom: ([a-z][a-zA-Z0-9_]*|\'[^\n]*\') */
|
| 341 |
+
|
| 342 |
+state erlang extends HighlightEntry
|
| 343 |
+{
|
| 344 |
+ /* Comments */
|
| 345 |
+ /%/ {
|
| 346 |
+ comment_face (true);
|
| 347 |
+ language_print ($0);
|
| 348 |
+ call (eat_one_line);
|
| 349 |
+ comment_face (false);
|
| 350 |
+ }
|
| 351 |
+
|
| 352 |
+ /* String constants. */
|
| 353 |
+ /\"/ {
|
| 354 |
+ string_face (true);
|
| 355 |
+ language_print ($0);
|
| 356 |
+ call (c_string);
|
| 357 |
+ string_face (false);
|
| 358 |
+ }
|
| 359 |
+
|
| 360 |
+ /* Special -record(rec_name, {}). pre-processor case */
|
| 361 |
+ /(-record)(\([ \t]*)([a-z][a-zA-Z0-9_]*|\'[^\n]*\')/ {
|
| 362 |
+ reference_face (true);
|
| 363 |
+ language_print ($1);
|
| 364 |
+ reference_face (false);
|
| 365 |
+ language_print ($2);
|
| 366 |
+ type_face (true);
|
| 367 |
+ language_print ($3);
|
| 368 |
+ type_face (false);
|
| 369 |
+ }
|
| 370 |
+
|
| 371 |
+ /* Special -define(Alter, "Hello"). pre-processor case */
|
| 372 |
+ /(-define)(\([
|
| 373 |
+\t]*)([a-z][a-zA-Z0-9_]*|\'[^\n]*\'|[A-Z_][a-zA-Z0-9_]*)/ {
|
| 374 |
+ reference_face (true);
|
| 375 |
+ language_print ($1);
|
| 376 |
+ reference_face (false);
|
| 377 |
+ language_print ($2);
|
| 378 |
+ builtin_face (true);
|
| 379 |
+ language_print ($3);
|
| 380 |
+ builtin_face (false);
|
| 381 |
+ }
|
| 382 |
+
|
| 383 |
+ /* Pre-processor lines. */
|
| 384 |
+ /^-([a-z][a-zA-Z0-9_]*)/ {
|
| 385 |
+ reference_face (true);
|
| 386 |
+ language_print ($0);
|
| 387 |
+ reference_face (false);
|
| 388 |
+ }
|
| 389 |
+
|
| 390 |
+ /* Defines */
|
| 391 |
+ /(\?)([a-z][a-zA-Z0-9_]*|\'[^\n]*\'|[A-Z_][a-zA-Z0-9_]*)/ {
|
| 392 |
+ language_print ($1);
|
| 393 |
+ builtin_face (true);
|
| 394 |
+ language_print ($2);
|
| 395 |
+ builtin_face (false);
|
| 396 |
+ }
|
| 397 |
+
|
| 398 |
+ /* Records */
|
| 399 |
+ /(#)([a-z][a-zA-Z0-9_]*|\'[^\n]*\')/ {
|
| 400 |
+ language_print ($1);
|
| 401 |
+ type_face (true);
|
| 402 |
+ language_print ($2);
|
| 403 |
+ type_face (false);
|
| 404 |
+ }
|
| 405 |
+
|
| 406 |
+ /* Keywords.
|
| 407 |
+ '(after begin case try catch end fun if of receive when)
|
| 408 |
+ Regexp taken from emacs Erlang mode R9C
|
| 409 |
+ */
|
| 410 |
+ /\b(a(fter|ndalso)|begin|c(atch|ase)\
|
| 411 |
+|end|fun|if|o(f|relse)|receive|try|when\
|
| 412 |
+|query)\b/ {
|
| 413 |
+ keyword_face (true);
|
| 414 |
+ language_print ($0);
|
| 415 |
+ keyword_face (false);
|
| 416 |
+ }
|
| 417 |
+
|
| 418 |
+ /* Guards.
|
| 419 |
+ Regexp taken from emacs Erlang mode R9C
|
| 420 |
+ */
|
| 421 |
+ /\b((is_)*(atom|function|binary|constant|float\
|
| 422 |
+|integer|list|number|p(id|ort)\
|
| 423 |
+|re(ference|cord)|tuple))\b/ {
|
| 424 |
+ builtin_face (true);
|
| 425 |
+ language_print ($0);
|
| 426 |
+ builtin_face (false);
|
| 427 |
+ }
|
| 428 |
+
|
| 429 |
+ /* Built in functions */
|
| 430 |
+
|
| 431 |
+/\b(a(bs|live|pply|tom_to_list)\
|
| 432 |
+|binary_to_(list|term)\
|
| 433 |
+|concat_binary|d(ate|isconnect_node)\
|
| 434 |
+|e(lement|rase|xit)\
|
| 435 |
+|float(|_to_list)\
|
| 436 |
+|g(arbage_collect|et(|_keys)|roup_leader)\
|
| 437 |
+|h(alt|d)\
|
| 438 |
+|i(nte(ger_to_list|rnal_bif)|s_alive)\
|
| 439 |
+|l(ength|i(nk|st_to_(atom|binary|float|integer\
|
| 440 |
+|pid|tuple)))\
|
| 441 |
+|make_ref|no(de(|_(link|unlink)|s)|talive)\
|
| 442 |
+|open_port\
|
| 443 |
+|p(id_to_list|rocess(_(flag|info)|es)|ut)\
|
| 444 |
+|r(egister(|ed)|ound)\
|
| 445 |
+|s(e(lf|telement)|ize\
|
| 446 |
+|p(awn(|_link)|lit_binary)|tatistics)\
|
| 447 |
+|t(erm_to_binary|hrow|ime|l\
|
| 448 |
+|r(ace|unc)|uple_to_list)\
|
| 449 |
+|un(link|register)|whereis)\b/ {
|
| 450 |
+ keyword_face (true);
|
| 451 |
+ language_print ($0);
|
| 452 |
+ keyword_face (false);
|
| 453 |
+ }
|
| 454 |
+
|
| 455 |
+ /*
|
| 456 |
+ * Function definitions.
|
| 457 |
+ */
|
| 458 |
+ /^([a-z][a-zA-Z0-9_]*|'[^\n]*')/ {
|
| 459 |
+ function_name_face (true);
|
| 460 |
+ language_print ($1);
|
| 461 |
+ function_name_face (false);
|
| 462 |
+ language_print ($2);
|
| 463 |
+ }
|
| 464 |
+
|
| 465 |
+ /* Atom like strings */
|
| 466 |
+ /('[^\n]*')/ {
|
| 467 |
+ string_face (true);
|
| 468 |
+ language_print ($0);
|
| 469 |
+ string_face (false);
|
| 470 |
+ }
|
| 471 |
+
|
| 472 |
+ /* Characters */
|
| 473 |
+ /(\$.)/ {
|
| 474 |
+ string_face (true);
|
| 475 |
+ language_print ($0);
|
| 476 |
+ string_face (false);
|
| 477 |
+ }
|
| 478 |
+
|
| 479 |
+ /* Variable Names */
|
| 480 |
+ /* /([\{\(\,\[ \t]+)([A-Z_][a-zA-Z0-9_]*)/ { */
|
| 481 |
+ /([^a-z0-9_\"])([A-Z_][a-zA-Z0-9_]*)/ {
|
| 482 |
+ language_print ($1);
|
| 483 |
+ variable_name_face (true);
|
| 484 |
+ language_print ($2);
|
| 485 |
+ variable_name_face (false);
|
| 486 |
+ }
|
| 487 |
+}
|
| 488 |
+
|
| 489 |
+/*
|
| 490 |
+Local variables:
|
| 491 |
+mode: erlang
|
| 492 |
+End:
|
| 493 |
+*/
|
| 494 |
diff -Nru enscript-1.6.4.orig/states/hl/forth.st enscript-1.6.4/states/hl/forth.st
|
| 495 |
--- enscript-1.6.4.orig/states/hl/forth.st 1970-01-01 02:00:00.000000000 +0200
|
| 496 |
+++ enscript-1.6.4/states/hl/forth.st 2006-01-09 22:02:28.000000000 +0200
|
| 497 |
@@ -0,0 +1,96 @@
|
| 498 |
+/**
|
| 499 |
+ * Name: forth
|
| 500 |
+ * Description: Forth Programming Language.
|
| 501 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 502 |
+ */
|
| 503 |
+
|
| 504 |
+forth_builtins =
|
| 505 |
+/* builtins */
|
| 506 |
+ /\b(abort|bye|c(atch|o(ld|ntext))|d(rop|up)|f(d(rop|up)|nip|o(r(get|th)|ver)|rot\
|
| 507 |
+|s(eal|wap)|tuck)|include|l(ink|oad)|n(ip|eeds)|o(rder|ver)|pick|ro(ll|t)|swap|t(hrow|uck)\
|
| 508 |
+|within|2(drop|nip|dup|over|tuck|swap|rot)|3dup|4dup\
|
| 509 |
+)\b/;
|
| 510 |
+
|
| 511 |
+forth_types =
|
| 512 |
+/* types */
|
| 513 |
+ /\b(base|c(ell|har)|decimal|float|hex)\b/;
|
| 514 |
+
|
| 515 |
+forth_keywords =
|
| 516 |
+/* keywords */
|
| 517 |
+ /\b(a(bs|gain|head|lso|nd)|begin|c(ase|onstant)|d(abs|efinitions|m(ax|in)|negate|o(|ne))\
|
| 518 |
+|e(lse|nd(|case|if|of)|xit)|f(a(bs|cos(|h)|log|sin(|h)|tan(|2|h))|cos(|h)|exp(|m1)|l(n(|p1)\
|
| 519 |
+|o(g|or)|s(in(|cos|h)|qrt)|tan(|h))|m(ax|in)|negate|or|round|sqrt)|h(ere|old)|i(f|nvert)\
|
| 520 |
+|l(eave|oop)|m(ax|in|od)|n(e(gate|xt)|ot)|o(f|nly|r)|r(epeat|oot)|s(eal|ign)|then\
|
| 521 |
+|un(til|loop)|v(ariable|oc(abulary|s))|while|xor\
|
| 522 |
+)\b/;
|
| 523 |
+
|
| 524 |
+state forth extends HighlightEntry
|
| 525 |
+{
|
| 526 |
+ /* Comments. */
|
| 527 |
+ /\\\\/ {
|
| 528 |
+ comment_face (true);
|
| 529 |
+ language_print ($0);
|
| 530 |
+ call (eat_one_line);
|
| 531 |
+ comment_face (false);
|
| 532 |
+ }
|
| 533 |
+
|
| 534 |
+ /* keywords. */
|
| 535 |
+ forth_keywords {
|
| 536 |
+ keyword_face (true);
|
| 537 |
+ language_print ($0);
|
| 538 |
+ keyword_face (false);
|
| 539 |
+ }
|
| 540 |
+
|
| 541 |
+ /* Types. */
|
| 542 |
+ forth_types {
|
| 543 |
+ type_face (true);
|
| 544 |
+ language_print ($0);
|
| 545 |
+ type_face (false);
|
| 546 |
+ }
|
| 547 |
+
|
| 548 |
+ /* Builtins support */
|
| 549 |
+ forth_builtins {
|
| 550 |
+ reference_face (true);
|
| 551 |
+ language_print ($0);
|
| 552 |
+ reference_face (false);
|
| 553 |
+ }
|
| 554 |
+
|
| 555 |
+ /* String constants. */
|
| 556 |
+ /\"/ {
|
| 557 |
+ string_face (true);
|
| 558 |
+ language_print ($0);
|
| 559 |
+ call (c_string);
|
| 560 |
+ string_face (false);
|
| 561 |
+ }
|
| 562 |
+
|
| 563 |
+ /* character constants. */
|
| 564 |
+ /'.'|'\\\\.'/ {
|
| 565 |
+ string_face (true);
|
| 566 |
+ language_print ($0);
|
| 567 |
+ string_face (false);
|
| 568 |
+ }
|
| 569 |
+
|
| 570 |
+ /* symbols, etc. */
|
| 571 |
+ />|>=|<=|<>|!|\+|\-|\^|\/|\*|\|/ {
|
| 572 |
+ reference_face (true);
|
| 573 |
+ language_print ($0);
|
| 574 |
+ reference_face (false);
|
| 575 |
+ }
|
| 576 |
+
|
| 577 |
+ /*
|
| 578 |
+ * function definitions, with args
|
| 579 |
+ * fct_name (args...) is
|
| 580 |
+ */
|
| 581 |
+ /^(:[ \t]+)([^ ^\t]+)([ \t]*)/ {
|
| 582 |
+ keyword_face (true);
|
| 583 |
+ language_print ($1);
|
| 584 |
+ keyword_face (false);
|
| 585 |
+ function_name_face (true);
|
| 586 |
+ face_on(face_bold_italic);
|
| 587 |
+ language_print ($2);
|
| 588 |
+ face_off(face_bold_italic);
|
| 589 |
+ function_name_face (false);
|
| 590 |
+ language_print ($3);
|
| 591 |
+ }
|
| 592 |
+}
|
| 593 |
+
|
| 594 |
diff -Nru enscript-1.6.4.orig/states/hl/icon.st enscript-1.6.4/states/hl/icon.st
|
| 595 |
--- enscript-1.6.4.orig/states/hl/icon.st 1970-01-01 02:00:00.000000000 +0200
|
| 596 |
+++ enscript-1.6.4/states/hl/icon.st 2006-01-09 22:02:28.000000000 +0200
|
| 597 |
@@ -0,0 +1,93 @@
|
| 598 |
+/**
|
| 599 |
+ * Name: icon
|
| 600 |
+ * Description: Icon Programming Language.
|
| 601 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 602 |
+ */
|
| 603 |
+
|
| 604 |
+icon_builtins =
|
| 605 |
+/* Builtins */
|
| 606 |
+ /\b(break|create|default|fail|initial|l(ink|ocal)|not|s(tatic|uspend))\b/;
|
| 607 |
+
|
| 608 |
+icon_types =
|
| 609 |
+/* Types */
|
| 610 |
+ /\b(char|error|function|integer|proc|procedure|real|variable)\b/;
|
| 611 |
+
|
| 612 |
+icon_keywords =
|
| 613 |
+/* Keywords */
|
| 614 |
+ /\b(a(bs|cos|ny|rgs|sin|tan)|b(al|y)|c(a(llout|se)|enter|hdir|lose|o(llect|py|s)|set)\
|
| 615 |
+|d(e(lay|lete|tab|isplay|tor)|o)|e(lse|n(d|tab)|rrorclear|very|xit|xp)|f(ind|lush)\
|
| 616 |
+|get(|ch|che|env)|i(and|com|f|mage|nsert|or|shift|xor)|k(bhit|ey)|l(eft|ist|o(adfunc|g))\
|
| 617 |
+|m(a(ny|p|tch)|ember|ove)|n(ame|ext|umeric)|o(f|pen|rd)|p(op|os|ull|ush|ut)\
|
| 618 |
+|r(e(ad(|s)|move|name|p(eat|l)|turn|verse)|ight|tod|unerr)|s(ave|eek|eq|et|in|ort(|f)\
|
| 619 |
+|qrt|top|tring|ystem)|t(a(b(|le)|n)|hen|o|rim|ype)|u(ntil|pto)|w(h(ere|ile)|rite(|s))\
|
| 620 |
+)\b/;
|
| 621 |
+
|
| 622 |
+state icon extends HighlightEntry
|
| 623 |
+{
|
| 624 |
+ /* Comments. */
|
| 625 |
+ /#/ {
|
| 626 |
+ comment_face (true);
|
| 627 |
+ language_print ($0);
|
| 628 |
+ call (eat_one_line);
|
| 629 |
+ comment_face (false);
|
| 630 |
+ }
|
| 631 |
+
|
| 632 |
+ /* Keywords. */
|
| 633 |
+ icon_keywords {
|
| 634 |
+ keyword_face (true);
|
| 635 |
+ language_print ($0);
|
| 636 |
+ keyword_face (false);
|
| 637 |
+ }
|
| 638 |
+
|
| 639 |
+ /* Types. */
|
| 640 |
+ icon_types {
|
| 641 |
+ type_face (true);
|
| 642 |
+ language_print ($0);
|
| 643 |
+ type_face (false);
|
| 644 |
+ }
|
| 645 |
+
|
| 646 |
+ /* Structure support */
|
| 647 |
+ icon_builtins {
|
| 648 |
+ reference_face (true);
|
| 649 |
+ language_print ($0);
|
| 650 |
+ reference_face (false);
|
| 651 |
+ }
|
| 652 |
+
|
| 653 |
+ /* String constants. */
|
| 654 |
+ /\"/ {
|
| 655 |
+ string_face (true);
|
| 656 |
+ language_print ($0);
|
| 657 |
+ call (c_string);
|
| 658 |
+ string_face (false);
|
| 659 |
+ }
|
| 660 |
+
|
| 661 |
+ /* Character constants. */
|
| 662 |
+ /'.'|'\\\\.'/ {
|
| 663 |
+ string_face (true);
|
| 664 |
+ language_print ($0);
|
| 665 |
+ string_face (false);
|
| 666 |
+ }
|
| 667 |
+
|
| 668 |
+ /* Symbols, etc. */
|
| 669 |
+ />|>=|:=|<=|#|=+|!|::|\+|\-|\^|\/|\*|\|/ {
|
| 670 |
+ reference_face (true);
|
| 671 |
+ language_print ($0);
|
| 672 |
+ reference_face (false);
|
| 673 |
+ }
|
| 674 |
+
|
| 675 |
+ /*
|
| 676 |
+ * Function definitions, with args
|
| 677 |
+ * fct_name (args...) is
|
| 678 |
+ */
|
| 679 |
+ /([ \t]*procedure[ \t]+)(\w+)([ \t]*)/ {
|
| 680 |
+ keyword_face (true);
|
| 681 |
+ language_print ($1);
|
| 682 |
+ keyword_face (false);
|
| 683 |
+ function_name_face (true);
|
| 684 |
+ face_on(face_bold_italic);
|
| 685 |
+ language_print ($2);
|
| 686 |
+ face_off(face_bold_italic);
|
| 687 |
+ function_name_face (false);
|
| 688 |
+ language_print ($3);
|
| 689 |
+ }
|
| 690 |
+}
|
| 691 |
diff -Nru enscript-1.6.4.orig/states/hl/lua.st enscript-1.6.4/states/hl/lua.st
|
| 692 |
--- enscript-1.6.4.orig/states/hl/lua.st 1970-01-01 02:00:00.000000000 +0200
|
| 693 |
+++ enscript-1.6.4/states/hl/lua.st 2006-01-09 22:02:28.000000000 +0200
|
| 694 |
@@ -0,0 +1,91 @@
|
| 695 |
+/**
|
| 696 |
+ * Name: lua
|
| 697 |
+ * Description: Lua Programming Language template for Enscript.
|
| 698 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 699 |
+ */
|
| 700 |
+
|
| 701 |
+lua_builtins =
|
| 702 |
+/* Builtins */
|
| 703 |
+ /\b(assert|call|foreach|globals|print|require|to(number|string))\b/;
|
| 704 |
+
|
| 705 |
+lua_keywords =
|
| 706 |
+/* Keywords */
|
| 707 |
+ /\b(and|break|do|e(nd|lse(|if))|f(alse|or|unction)|i(f|n)|local\
|
| 708 |
+|or|n(il|ot)|re(peat|turn)|t(hen|rue)|until|while\
|
| 709 |
+)\b/;
|
| 710 |
+
|
| 711 |
+state lua extends HighlightEntry
|
| 712 |
+{
|
| 713 |
+
|
| 714 |
+ /* One line comments. */
|
| 715 |
+ /\-\-|^#!/ {
|
| 716 |
+ comment_face (true);
|
| 717 |
+ language_print ($0);
|
| 718 |
+ call (eat_one_line);
|
| 719 |
+ comment_face (false);
|
| 720 |
+ }
|
| 721 |
+
|
| 722 |
+ /* Keywords. */
|
| 723 |
+ lua_keywords {
|
| 724 |
+ keyword_face (true);
|
| 725 |
+ language_print ($0);
|
| 726 |
+ keyword_face (false);
|
| 727 |
+ }
|
| 728 |
+
|
| 729 |
+ /* Types. */
|
| 730 |
+ lua_builtins {
|
| 731 |
+ type_face (true);
|
| 732 |
+ language_print ($0);
|
| 733 |
+ type_face (false);
|
| 734 |
+ }
|
| 735 |
+
|
| 736 |
+ /* String constants. */
|
| 737 |
+ /\"/ {
|
| 738 |
+ string_face (true);
|
| 739 |
+ language_print ($0);
|
| 740 |
+ call (c_string);
|
| 741 |
+ string_face (false);
|
| 742 |
+ }
|
| 743 |
+
|
| 744 |
+ /* Character constants. */
|
| 745 |
+ /'.'|'\\\\.'/ {
|
| 746 |
+ string_face (true);
|
| 747 |
+ language_print ($0);
|
| 748 |
+ string_face (false);
|
| 749 |
+ }
|
| 750 |
+
|
| 751 |
+ /* Symbols, etc. */
|
| 752 |
+ /+|-|\*|=|!=|==|<|>|<=|>=|~=|!/ {
|
| 753 |
+ reference_face (true);
|
| 754 |
+ language_print ($0);
|
| 755 |
+ reference_face (false);
|
| 756 |
+ }
|
| 757 |
+
|
| 758 |
+ /* Class references */
|
| 759 |
+ /([ \t])*([a-zA-Z]+[, \ta-zA-Z0-9_]*):[^=]/ {
|
| 760 |
+ reference_face (true);
|
| 761 |
+ language_print ($0);
|
| 762 |
+ reference_face (false);
|
| 763 |
+ }
|
| 764 |
+
|
| 765 |
+ /*
|
| 766 |
+ * Function definitions, with args
|
| 767 |
+ * function fct_name (args...)
|
| 768 |
+ */
|
| 769 |
+ /^([ \t]*function[ \t]+)([a-zA-Z_][a-zA-Z_:0-9]*)([ \t]*)(\([^)]*\)[ \t]*)[ \t]*$/ {
|
| 770 |
+ keyword_face (true);
|
| 771 |
+ language_print ($1);
|
| 772 |
+ keyword_face (false);
|
| 773 |
+ function_name_face (true);
|
| 774 |
+ face_on(face_bold_italic);
|
| 775 |
+ language_print ($2);
|
| 776 |
+ face_off(face_bold_italic);
|
| 777 |
+ function_name_face (false);
|
| 778 |
+ language_print(" ");
|
| 779 |
+ language_print ($3);
|
| 780 |
+ keyword_face (true);
|
| 781 |
+ language_print ($4);
|
| 782 |
+ keyword_face (false);
|
| 783 |
+ }
|
| 784 |
+
|
| 785 |
+}
|
| 786 |
diff -Nru enscript-1.6.4.orig/states/hl/mail.st enscript-1.6.4/states/hl/mail.st
|
| 787 |
--- enscript-1.6.4.orig/states/hl/mail.st 2003-03-05 09:26:33.000000000 +0200
|
| 788 |
+++ enscript-1.6.4/states/hl/mail.st 2006-01-09 22:02:28.000000000 +0200
|
| 789 |
@@ -27,7 +27,7 @@
|
| 790 |
END {
|
| 791 |
comment_face (true);
|
| 792 |
}
|
| 793 |
- /:/ {
|
| 794 |
+ /[ \t:]/ {
|
| 795 |
language_print ($0);
|
| 796 |
return;
|
| 797 |
}
|
| 798 |
diff -Nru enscript-1.6.4.orig/states/hl/Makefile.am enscript-1.6.4/states/hl/Makefile.am
|
| 799 |
--- enscript-1.6.4.orig/states/hl/Makefile.am 2003-03-05 09:26:33.000000000 +0200
|
| 800 |
+++ enscript-1.6.4/states/hl/Makefile.am 2006-01-09 22:06:23.000000000 +0200
|
| 801 |
@@ -38,7 +38,8 @@
|
| 802 |
matlab.st nroff.st objc.st outline.st pascal.st passthrough.st perl.st \
|
| 803 |
postscript.st python.st pyrex.st rfc.st scheme.st sh.st skill.st \
|
| 804 |
sql.st states.st synopsys.st tcl.st tcsh.st tex.st vba.st verilog.st \
|
| 805 |
-vhdl.st vrml.st wmlscript.st zsh.st
|
| 806 |
+vhdl.st vrml.st wmlscript.st zsh.st eiffel.st erlang.st dylan.st oz.st \
|
| 807 |
+lua.st oberon2.st icon.st smalltalk.st forth.st sml.st php.st ruby.st
|
| 808 |
|
| 809 |
states = $(misc) $(styles) $(languages) $(highlightings)
|
| 810 |
|
| 811 |
diff -Nru enscript-1.6.4.orig/states/hl/Makefile.in enscript-1.6.4/states/hl/Makefile.in
|
| 812 |
--- enscript-1.6.4.orig/states/hl/Makefile.in 2003-03-05 09:40:07.000000000 +0200
|
| 813 |
+++ enscript-1.6.4/states/hl/Makefile.in 2006-01-09 22:05:26.000000000 +0200
|
| 814 |
@@ -188,7 +188,8 @@
|
| 815 |
matlab.st nroff.st objc.st outline.st pascal.st passthrough.st perl.st \
|
| 816 |
postscript.st python.st pyrex.st rfc.st scheme.st sh.st skill.st \
|
| 817 |
sql.st states.st synopsys.st tcl.st tcsh.st tex.st vba.st verilog.st \
|
| 818 |
-vhdl.st vrml.st wmlscript.st zsh.st
|
| 819 |
+vhdl.st vrml.st wmlscript.st zsh.st eiffel.st erlang.st dylan.st oz.st \
|
| 820 |
+lua.st oberon2.st icon.st smalltalk.st forth.st sml.st php.st ruby.st
|
| 821 |
|
| 822 |
|
| 823 |
states = $(misc) $(styles) $(languages) $(highlightings)
|
| 824 |
diff -Nru enscript-1.6.4.orig/states/hl/oberon2.st enscript-1.6.4/states/hl/oberon2.st
|
| 825 |
--- enscript-1.6.4.orig/states/hl/oberon2.st 1970-01-01 02:00:00.000000000 +0200
|
| 826 |
+++ enscript-1.6.4/states/hl/oberon2.st 2006-01-09 22:02:28.000000000 +0200
|
| 827 |
@@ -0,0 +1,111 @@
|
| 828 |
+/**
|
| 829 |
+ * Name: oberon2
|
| 830 |
+ * Description: Oberon 2 Programming Language.
|
| 831 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 832 |
+ */
|
| 833 |
+
|
| 834 |
+oberon2_builtins =
|
| 835 |
+/* Builtins */
|
| 836 |
+ /\b(CONST|IMPORT)\b/;
|
| 837 |
+
|
| 838 |
+oberon2_types =
|
| 839 |
+/* Types */
|
| 840 |
+ /\b(ARRAY|B(OOLEAN|YTE)|CHAR|INTEGER|LONG(|INT|REAL)|MODULE|NIL\
|
| 841 |
+|P(OINTER|ROCEDURE)|RE(AL|CORD)|SHORT(|INT))\b/;
|
| 842 |
+
|
| 843 |
+oberon2_keywords =
|
| 844 |
+/* Keywords */
|
| 845 |
+ /\b(A(BS|ND|SH)|BEGIN|C(A(P|SE)|HR)|D(O|EC|IV)\
|
| 846 |
+|E(LS(E|IF)|N(D|TIER)|X(CL|IT))|F(ALSE|OR)|HALT|I(F|S|N(|C(|L)))\
|
| 847 |
+|L(EN|OOP)|M(AX|IN|OD)|NEW|O(F|DD|R(|D))|S(ET|IZE)|T(HEN|O|RUE|YPE)\
|
| 848 |
+|UNTIL|RE(PEAT|TURN)|VAR|W(HILE|ITH))\b/;
|
| 849 |
+
|
| 850 |
+state oberon2_comment extends Highlight
|
| 851 |
+{
|
| 852 |
+ /\*\)/ {
|
| 853 |
+ language_print ($0);
|
| 854 |
+ return;
|
| 855 |
+ }
|
| 856 |
+}
|
| 857 |
+
|
| 858 |
+state oberon2 extends HighlightEntry
|
| 859 |
+{
|
| 860 |
+ /* Comments. */
|
| 861 |
+ /\(\*/ {
|
| 862 |
+ comment_face (true);
|
| 863 |
+ language_print ($0);
|
| 864 |
+ call (oberon2_comment);
|
| 865 |
+ comment_face (false);
|
| 866 |
+ }
|
| 867 |
+
|
| 868 |
+ /* Keywords. */
|
| 869 |
+ oberon2_keywords {
|
| 870 |
+ keyword_face (true);
|
| 871 |
+ language_print ($0);
|
| 872 |
+ keyword_face (false);
|
| 873 |
+ }
|
| 874 |
+
|
| 875 |
+ /* Types. */
|
| 876 |
+ oberon2_types {
|
| 877 |
+ type_face (true);
|
| 878 |
+ language_print ($0);
|
| 879 |
+ type_face (false);
|
| 880 |
+ }
|
| 881 |
+
|
| 882 |
+ /* Structure support */
|
| 883 |
+ oberon2_builtins {
|
| 884 |
+ reference_face (true);
|
| 885 |
+ language_print ($0);
|
| 886 |
+ reference_face (false);
|
| 887 |
+ }
|
| 888 |
+
|
| 889 |
+ /* String constants. */
|
| 890 |
+ /\"/ {
|
| 891 |
+ string_face (true);
|
| 892 |
+ language_print ($0);
|
| 893 |
+ call (c_string);
|
| 894 |
+ string_face (false);
|
| 895 |
+ }
|
| 896 |
+
|
| 897 |
+ /* Character constants. */
|
| 898 |
+ /'.'|'\\\\.'/ {
|
| 899 |
+ string_face (true);
|
| 900 |
+ language_print ($0);
|
| 901 |
+ string_face (false);
|
| 902 |
+ }
|
| 903 |
+
|
| 904 |
+ /* Symbols, etc. */
|
| 905 |
+ /\->|>|>=|:=|<=|#|=|!|::|\+|\-|\^|\/|\*|\|/ {
|
| 906 |
+ reference_face (true);
|
| 907 |
+ language_print ($0);
|
| 908 |
+ reference_face (false);
|
| 909 |
+ }
|
| 910 |
+
|
| 911 |
+ /*
|
| 912 |
+ * Function definitions, with args
|
| 913 |
+ * fct_name (args...) is
|
| 914 |
+ */
|
| 915 |
+ /([ \t]*PROCEDURE[ \t]+)(\w+)([ \t]*)/ {
|
| 916 |
+ keyword_face (true);
|
| 917 |
+ language_print ($1);
|
| 918 |
+ keyword_face (false);
|
| 919 |
+ function_name_face (true);
|
| 920 |
+ face_on(face_bold_italic);
|
| 921 |
+ language_print ($2);
|
| 922 |
+ face_off(face_bold_italic);
|
| 923 |
+ function_name_face (false);
|
| 924 |
+ language_print ($3);
|
| 925 |
+ }
|
| 926 |
+
|
| 927 |
+ /([ \t]*END[ \t]+)(\w+)([ \t]*[;\.])/ {
|
| 928 |
+ keyword_face (true);
|
| 929 |
+ language_print ($1);
|
| 930 |
+ keyword_face (false);
|
| 931 |
+ function_name_face (true);
|
| 932 |
+ face_on(face_bold_italic);
|
| 933 |
+ language_print ($2);
|
| 934 |
+ face_off(face_bold_italic);
|
| 935 |
+ function_name_face (false);
|
| 936 |
+ language_print ($3);
|
| 937 |
+ }
|
| 938 |
+}
|
| 939 |
diff -Nru enscript-1.6.4.orig/states/hl/oz.st enscript-1.6.4/states/hl/oz.st
|
| 940 |
--- enscript-1.6.4.orig/states/hl/oz.st 1970-01-01 02:00:00.000000000 +0200
|
| 941 |
+++ enscript-1.6.4/states/hl/oz.st 2006-01-09 22:02:28.000000000 +0200
|
| 942 |
@@ -0,0 +1,89 @@
|
| 943 |
+/**
|
| 944 |
+ * Name: oz
|
| 945 |
+ * Description: Mozart/Oz Programming Language.
|
| 946 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 947 |
+ */
|
| 948 |
+
|
| 949 |
+oz_builtins =
|
| 950 |
+/* Builtins */
|
| 951 |
+ /\b(export|import|local|require)\b/;
|
| 952 |
+
|
| 953 |
+oz_types =
|
| 954 |
+/* Types */
|
| 955 |
+ /\b(attr|c(lass|atch)|f(eat|unctor)|nil|prop|raise|try)\b/;
|
| 956 |
+
|
| 957 |
+oz_keywords =
|
| 958 |
+/* Keywords */
|
| 959 |
+ /\b(at|c(ase|hoice|ond)|d(e(clare|fine)|o|is)|e(lse(|case|if|of)|nd)\
|
| 960 |
+|f(inally|or|rom|un)|i(f|n)|lock|meth|not|o(f|r)|p(repare|roc)|then\
|
| 961 |
+|thread)\b/;
|
| 962 |
+
|
| 963 |
+state oz extends HighlightEntry
|
| 964 |
+{
|
| 965 |
+
|
| 966 |
+ /* Comments. */
|
| 967 |
+ /%/ {
|
| 968 |
+ comment_face (true);
|
| 969 |
+ language_print ($0);
|
| 970 |
+ call (eat_one_line);
|
| 971 |
+ comment_face (false);
|
| 972 |
+ }
|
| 973 |
+
|
| 974 |
+ /* Keywords. */
|
| 975 |
+ oz_keywords {
|
| 976 |
+ keyword_face (true);
|
| 977 |
+ language_print ($0);
|
| 978 |
+ keyword_face (false);
|
| 979 |
+ }
|
| 980 |
+
|
| 981 |
+ /* Types. */
|
| 982 |
+ oz_types {
|
| 983 |
+ type_face (true);
|
| 984 |
+ language_print ($0);
|
| 985 |
+ type_face (false);
|
| 986 |
+ }
|
| 987 |
+
|
| 988 |
+ /* Structure support */
|
| 989 |
+ oz_builtins {
|
| 990 |
+ reference_face (true);
|
| 991 |
+ language_print ($0);
|
| 992 |
+ reference_face (false);
|
| 993 |
+ }
|
| 994 |
+
|
| 995 |
+ /* String constants. */
|
| 996 |
+ /\"/ {
|
| 997 |
+ string_face (true);
|
| 998 |
+ language_print ($0);
|
| 999 |
+ call (c_string);
|
| 1000 |
+ string_face (false);
|
| 1001 |
+ }
|
| 1002 |
+
|
| 1003 |
+ /* Character constants. */
|
| 1004 |
+ /'.'|'\\\\.'/ {
|
| 1005 |
+ string_face (true);
|
| 1006 |
+ language_print ($0);
|
| 1007 |
+ string_face (false);
|
| 1008 |
+ }
|
| 1009 |
+
|
| 1010 |
+ /* Symbols, etc. */
|
| 1011 |
+ /\.\.|=[=]|<\-|\\=|\|/ {
|
| 1012 |
+ reference_face (true);
|
| 1013 |
+ language_print ($0);
|
| 1014 |
+ reference_face (false);
|
| 1015 |
+ }
|
| 1016 |
+
|
| 1017 |
+ /*
|
| 1018 |
+ * Function definitions, with args
|
| 1019 |
+ * fct_name (args...) is
|
| 1020 |
+ */
|
| 1021 |
+ /([ \t]*\{)(\w+)([\. \t]*)/ {
|
| 1022 |
+ language_print ($1);
|
| 1023 |
+ function_name_face (true);
|
| 1024 |
+ face_on(face_bold_italic);
|
| 1025 |
+ language_print ($2);
|
| 1026 |
+ face_off(face_bold_italic);
|
| 1027 |
+ function_name_face (false);
|
| 1028 |
+ language_print ($3);
|
| 1029 |
+ }
|
| 1030 |
+
|
| 1031 |
+}
|
| 1032 |
diff -Nru enscript-1.6.4.orig/states/hl/perl.st enscript-1.6.4/states/hl/perl.st
|
| 1033 |
--- enscript-1.6.4.orig/states/hl/perl.st 2003-03-05 09:32:09.000000000 +0200
|
| 1034 |
+++ enscript-1.6.4/states/hl/perl.st 2006-01-09 22:02:28.000000000 +0200
|
| 1035 |
@@ -60,6 +60,11 @@
|
| 1036 |
|
| 1037 |
state perl extends HighlightEntry
|
| 1038 |
{
|
| 1039 |
+ /* stuff after $# is a variable, not a comment */
|
| 1040 |
+ /\$#\w+/ {
|
| 1041 |
+ language_print ($0);
|
| 1042 |
+ }
|
| 1043 |
+
|
| 1044 |
/* Comments. */
|
| 1045 |
/#.*$/ {
|
| 1046 |
comment_face (true);
|
| 1047 |
@@ -127,7 +132,6 @@
|
| 1048 |
|
| 1049 |
/* Variables */
|
| 1050 |
/[$%@&]+\w+/ {
|
| 1051 |
- keyword_face (false);
|
| 1052 |
language_print ($0);
|
| 1053 |
}
|
| 1054 |
|
| 1055 |
diff -Nru enscript-1.6.4.orig/states/hl/smalltalk.st enscript-1.6.4/states/hl/smalltalk.st
|
| 1056 |
--- enscript-1.6.4.orig/states/hl/smalltalk.st 1970-01-01 02:00:00.000000000 +0200
|
| 1057 |
+++ enscript-1.6.4/states/hl/smalltalk.st 2006-01-09 22:02:28.000000000 +0200
|
| 1058 |
@@ -0,0 +1,80 @@
|
| 1059 |
+/**
|
| 1060 |
+ * Name: Smalltalk
|
| 1061 |
+ * Description: Smalltalk Programming Language.
|
| 1062 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 1063 |
+ */
|
| 1064 |
+
|
| 1065 |
+smalltalk_keywords =
|
| 1066 |
+/* Keywords */
|
| 1067 |
+ /\b(class|false|inspect|isNil|new|nil|not(|Nil)|out|s(elf|uper)|true\
|
| 1068 |
+|do|whileTrue|whileFalse|ifTrue|ifFalse|put|to|at|add|new\
|
| 1069 |
+|for)\b/ ;
|
| 1070 |
+
|
| 1071 |
+state smalltalk_quot_string extends Highlight
|
| 1072 |
+{
|
| 1073 |
+ /\\\\./ {
|
| 1074 |
+ language_print ($0);
|
| 1075 |
+ }
|
| 1076 |
+ /[\']/ {
|
| 1077 |
+ language_print ($0);
|
| 1078 |
+ return;
|
| 1079 |
+ }
|
| 1080 |
+}
|
| 1081 |
+
|
| 1082 |
+state smalltalk extends HighlightEntry
|
| 1083 |
+{
|
| 1084 |
+
|
| 1085 |
+ /* Comments. */
|
| 1086 |
+ /\"/ {
|
| 1087 |
+ comment_face (true);
|
| 1088 |
+ language_print ($0);
|
| 1089 |
+ call (c_string);
|
| 1090 |
+ comment_face (false);
|
| 1091 |
+ }
|
| 1092 |
+
|
| 1093 |
+ /* Keywords. */
|
| 1094 |
+ smalltalk_keywords {
|
| 1095 |
+ keyword_face (true);
|
| 1096 |
+ language_print ($0);
|
| 1097 |
+ keyword_face (false);
|
| 1098 |
+ }
|
| 1099 |
+
|
| 1100 |
+ /* Declarations */
|
| 1101 |
+ /[ \t]*\|.*\|/ {
|
| 1102 |
+ type_face (true);
|
| 1103 |
+ language_print ($0);
|
| 1104 |
+ type_face (false);
|
| 1105 |
+ }
|
| 1106 |
+
|
| 1107 |
+ /* String constants. */
|
| 1108 |
+ /[\']/ {
|
| 1109 |
+ string_face (true);
|
| 1110 |
+ language_print ($0);
|
| 1111 |
+ call (smalltalk_quot_string);
|
| 1112 |
+ string_face (false);
|
| 1113 |
+ }
|
| 1114 |
+
|
| 1115 |
+ /* Symbols, etc. */
|
| 1116 |
+ /:=|>|>=|==|<=|<>|=|!|::|@|\+|\-|\^|\/|\*|\||\[|\]/ {
|
| 1117 |
+ reference_face (true);
|
| 1118 |
+ language_print ($0);
|
| 1119 |
+ reference_face (false);
|
| 1120 |
+ }
|
| 1121 |
+
|
| 1122 |
+ /*
|
| 1123 |
+ * Function definitions, with args
|
| 1124 |
+ * fct_name (args...) is
|
| 1125 |
+ */
|
| 1126 |
+ /([ \t]*)(\w+)(:[ \t]*)/ {
|
| 1127 |
+ keyword_face (true);
|
| 1128 |
+ language_print ($1);
|
| 1129 |
+ keyword_face (false);
|
| 1130 |
+ function_name_face (true);
|
| 1131 |
+ face_on(face_bold);
|
| 1132 |
+ language_print ($2);
|
| 1133 |
+ face_off(face_bold);
|
| 1134 |
+ function_name_face (false);
|
| 1135 |
+ language_print ($3);
|
| 1136 |
+ }
|
| 1137 |
+
|
| 1138 |
+}
|
| 1139 |
diff -Nru enscript-1.6.4.orig/states/hl/sml.st enscript-1.6.4/states/hl/sml.st
|
| 1140 |
--- enscript-1.6.4.orig/states/hl/sml.st 1970-01-01 02:00:00.000000000 +0200
|
| 1141 |
+++ enscript-1.6.4/states/hl/sml.st 2006-01-09 22:02:28.000000000 +0200
|
| 1142 |
@@ -0,0 +1,101 @@
|
| 1143 |
+/**
|
| 1144 |
+ * Name: sml
|
| 1145 |
+ * Description: Standard ML Programming Language.
|
| 1146 |
+ * Author: Brent Fulgham <bfulgham@debian.org>
|
| 1147 |
+ */
|
| 1148 |
+
|
| 1149 |
+sml_builtins =
|
| 1150 |
+/* Builtins */
|
| 1151 |
+ /\b(functor|lambda|s(ig(|nature)|truct(|ure))|NONE|SOME)\b/;
|
| 1152 |
+
|
| 1153 |
+sml_types =
|
| 1154 |
+/* Types */
|
| 1155 |
+ /\b(\'(a|b|c|d)|array|bool|char|int|list|real|string|unit|vector|word)\b/;
|
| 1156 |
+
|
| 1157 |
+sml_keywords =
|
| 1158 |
+/* Keywords */
|
| 1159 |
+ /\b(a(bs(traction|type)|nd(|also)|s|toi)|before|c(ase|oncat)|d(o|atatype)\
|
| 1160 |
+|e(lse|nd|qtype|xception)|f(n|un(|sig))|handle|i(f|n(|clude|fix|fixr))\
|
| 1161 |
+|l(et|ocal)|nonfix|o(|f|p(|en)|relse|verload)|print|r(aise|ec|ef)|sharing\
|
| 1162 |
+|t(hen|ype)|val|w(h(ere|ile)|ith(|type)))\b/ ;
|
| 1163 |
+
|
| 1164 |
+state sml_comment extends Highlight
|
| 1165 |
+{
|
| 1166 |
+ /\*\)/ {
|
| 1167 |
+ language_print ($0);
|
| 1168 |
+ return;
|
| 1169 |
+ }
|
| 1170 |
+}
|
| 1171 |
+
|
| 1172 |
+state sml extends HighlightEntry
|
| 1173 |
+{
|
| 1174 |
+
|
| 1175 |
+ /* Comments. */
|
| 1176 |
+ /\(\*/ {
|
| 1177 |
+ comment_face (true);
|
| 1178 |
+ language_print ($0);
|
| 1179 |
+ call (sml_comment);
|
| 1180 |
+ comment_face (false);
|
| 1181 |
+ }
|
| 1182 |
+
|
| 1183 |
+ /* Keywords. */
|
| 1184 |
+ sml_keywords {
|
| 1185 |
+ keyword_face (true);
|
| 1186 |
+ language_print ($0);
|
| 1187 |
+ keyword_face (false);
|
| 1188 |
+ }
|
| 1189 |
+
|
| 1190 |
+ /* Types. */
|
| 1191 |
+ sml_types {
|
| 1192 |
+ type_face (true);
|
| 1193 |
+ language_print ($0);
|
| 1194 |
+ type_face (false);
|
| 1195 |
+ }
|
| 1196 |
+
|
| 1197 |
+ /* Structure support */
|
| 1198 |
+ sml_builtins {
|
| 1199 |
+ reference_face (true);
|
| 1200 |
+ language_print ($0);
|
| 1201 |
+ reference_face (false);
|
| 1202 |
+ }
|
| 1203 |
+
|
| 1204 |
+ /* String constants. */
|
| 1205 |
+ /\"/ {
|
| 1206 |
+ string_face (true);
|
| 1207 |
+ language_print ($0);
|
| 1208 |
+ call (c_string);
|
| 1209 |
+ string_face (false);
|
| 1210 |
+ }
|
| 1211 |
+
|
| 1212 |
+ /* Character constants. */
|
| 1213 |
+ /'.'|'\\\\.'/ {
|
| 1214 |
+ string_face (true);
|
| 1215 |
+ language_print ($0);
|
| 1216 |
+ string_face (false);
|
| 1217 |
+ }
|
| 1218 |
+
|
| 1219 |
+ /* Symbols, etc. */
|
| 1220 |
+ /:=|>|>=|==|<=|<>|=|!|::|@|\+|\-|\^|\/|\*|\||\b(quot|rem|div|mod\
|
| 1221 |
+|hd|tl)\b/ {
|
| 1222 |
+ reference_face (true);
|
| 1223 |
+ language_print ($0);
|
| 1224 |
+ reference_face (false);
|
| 1225 |
+ }
|
| 1226 |
+
|
| 1227 |
+ /*
|
| 1228 |
+ * Function definitions, with args
|
| 1229 |
+ * fct_name (args...) is
|
| 1230 |
+ */
|
| 1231 |
+ /([ \t]*f[u]n[ \t]+)(\w+)([ \t]*)/ {
|
| 1232 |
+ keyword_face (true);
|
| 1233 |
+ language_print ($1);
|
| 1234 |
+ keyword_face (false);
|
| 1235 |
+ function_name_face (true);
|
| 1236 |
+ face_on(face_bold_italic);
|
| 1237 |
+ language_print ($2);
|
| 1238 |
+ face_off(face_bold_italic);
|
| 1239 |
+ function_name_face (false);
|
| 1240 |
+ language_print ($3);
|
| 1241 |
+ }
|
| 1242 |
+
|
| 1243 |
+}
|
| 1244 |
diff -Nru enscript-1.6.4.orig/states/hl/tcl.st enscript-1.6.4/states/hl/tcl.st
|
| 1245 |
--- enscript-1.6.4.orig/states/hl/tcl.st 2003-03-05 09:26:33.000000000 +0200
|
| 1246 |
+++ enscript-1.6.4/states/hl/tcl.st 2006-01-09 22:02:28.000000000 +0200
|
| 1247 |
@@ -128,7 +128,7 @@
|
| 1248 |
|e(ntry|of|rror|v(al|ent)|x(ec|it|pr))\
|
| 1249 |
|f(blocked|configure|ile(|event|name)|lush|o(cus|nt|r(|each|mat))|rame)\
|
| 1250 |
|g(ets|lob(|al)|r(ab|id))|history|i(f|mage|n(cr|fo|terp))|join\
|
| 1251 |
-|l(a(bel|ppend)|i(brary|n(dex|sert)|st(|box))|length|o(ad|se|wer)\
|
| 1252 |
+|l(a(bel|ppend|st)|i(brary|n(dex|sert)|st(|box))|length|o(ad|se|wer)\
|
| 1253 |
|r(ange|eplace)|s(earch|ort))\
|
| 1254 |
|me(nu(|button)|ssage)|op(en|tion(|s))\
|
| 1255 |
|p(ack(|age)|hoto|id|kg_mkIndex|lace|roc|uts|wd)\
|