04_hilight.dpatch from Debian's 1.6.4-7 patchset, with a few changes:

o hilight *.xhtml as html

o install php.st and ruby.st bits

o patch Makefile.am too

diff -Nru enscript-1.6.4.orig/states/hl/changelog.st enscript-1.6.4/states/hl/changelog.st

--- enscript-1.6.4.orig/states/hl/changelog.st	2003-03-05 09:26:33.000000000 +0200

+++ enscript-1.6.4/states/hl/changelog.st	2006-01-09 22:02:28.000000000 +0200

@@ -43,7 +43,7 @@

   }

   /* File descriptions without function names. */

-  /(^\t\* )([^ :]+)(:)/ {

+  /(^\t\* )([^:]+)(:)/ {

     language_print ($1);

     function_name_face (true);

diff -Nru enscript-1.6.4.orig/states/hl/dylan.st enscript-1.6.4/states/hl/dylan.st

--- enscript-1.6.4.orig/states/hl/dylan.st	1970-01-01 02:00:00.000000000 +0200

+++ enscript-1.6.4/states/hl/dylan.st	2006-01-09 22:02:28.000000000 +0200

@@ -0,0 +1,124 @@

+/**

+ * Name: dylan

+ * Description: Dylan Programming Language template for Enscript.

+ * Author: Brent Fulgham <[email protected]>

+ * (based on the Scheme version by Markku Rossi <[email protected]>)

+ */

+

+dylan_mod_re =

+/* Definition Modifiers

+  (build-re '(abstract block concrete constant class domain exception exclude

+  export function functional generic handler import inherited inline

+  instance interface library macro method open primary sealed sideways

+  singleton slot subclass variable virtual))

+  */

+  /\b(subclass|abstract|block|c(on(crete|stant)|lass)|domain\

+|ex(c(eption|lude)|port)|f(unction(|al))|generic|handler\

+|i(n(herited|line|stance|terface)|mport)|library|m(acro|ethod)\

+|open|primary|sealed|si(deways|ngleton)|slot\

+|v(ariable|irtual))\b/;

+

+state dylan extends HighlightEntry

+{

+  BEGIN {

+    /*

+     * Modify regexp character syntax so that we can distinguish all

+     * dylan symbols.

+     */

+    extras = list ('!', '$', '%', '&', '*', '/', ':', 

+		   '=', '?', '~', '^', '.', '+', '-');

+    for (i = 0; i < length (extras); i = i + 1)

+      regexp_syntax (extras[i], 'w');

+  }

+

+  /* Modifiers */

+  dylan_mod_re {

+    reference_face (true);

+    language_print ($0);

+    reference_face (false);

+  }

+

+  /* Types */

+  /<\w+>/ {

+    type_face (true);

+    language_print ($0);

+    type_face (false);

+  }

+

+  /* Symbols */

+  /#\"/ {

+    string_face (true);

+    language_print ($0);

+    call (c_string);

+    string_face (false);

+  }

+

+  /* Comments. */

+  /\/\// {

+    comment_face (true);

+    language_print ($0);

+    call (eat_one_line);

+    comment_face (false);

+  }

+  /\/\*/ {

+    comment_face (true);

+    language_print ($0);

+    call (eat_one_line);

+    comment_face (false);

+  }

+

+  /* String constants. */

+  /\"/ {

+    string_face (true);

+    language_print ($0);

+    call (c_string);

+    string_face (false);

+  }

+

+  /* Character constants. */

+  /'.*'/ {

+    string_face (true);

+    language_print ($0);

+    string_face (false);

+  }

+    

+  /* Keywords.

+     "=>" +

+     (build-re '(above afterwards begin below by case cleanup create

+     define end else elseif finally for from if in let local otherwise rename

+     select signal then to unless until use variable virtual when while

+   */

+  /=>|\b(a(bove|fterwards)|b(e(gin|low)|y)|c(ase|leanup|reate)\

+|define|else(|if)|end|f(inally|or|rom)|i[fn]|l(et|ocal)|otherwise\

+|rename|s(elect|ignal)|t(hen|o)|u(n(less|til)|se)|wh(en|ile))\b/ {

+    keyword_face (true);

+    language_print ($0);

+    keyword_face (false);

+  }

+

+  /* ':'-names, Emacs highlights these, so do we. */

+  /([ \t])([!\$%&\*\/:<=>\?~_^a-zA-Z0-9.+\-]*:)/ {

+    language_print ($1);

+    reference_face (true);

+    language_print ($2);

+    reference_face (false);

+  }

+

+  /* Function faces */

+  /([ \t]*)(\w+[^:])([ \t]*\([ \t]*)/ {

+    language_print ($1);

+    function_name_face(true);

+    face_on(face_bold_italic);

+    language_print ($2);

+    face_off(face_bold_italic);

+    function_name_face(false);

+    language_print ($3);

+  }

+}

+

+

+/*

+Local variables:

+mode: c

+End:

+*/

diff -Nru enscript-1.6.4.orig/states/hl/eiffel.st enscript-1.6.4/states/hl/eiffel.st

--- enscript-1.6.4.orig/states/hl/eiffel.st	1970-01-01 02:00:00.000000000 +0200

+++ enscript-1.6.4/states/hl/eiffel.st	2006-01-09 22:02:28.000000000 +0200

@@ -0,0 +1,132 @@

+/**

+ * Name: eiffel

+ * Description: Eiffel programming language.

+ * Author: Julien Lemoine <[email protected]>

+ *         Brent Fulgham <[email protected]>

+ */

+

+eiffel_types =

+/* Types */

+  /\b(ABSTRACT_(FRACTION|INTEGER)|ANY|AR(GUMENTS|RAY(|2|3|ED_COLLECTION))\

+|BASIC_(DIRECTORY|TIME)|BINARY_FILE_(READ|WRITE)|BIT_(N|STRING)|BOOLEAN\

+|CHARACTER(|_CONSTANTS)|CLOCK|COLLECTION(|2|3|_SORTER)|COMPARABLE\

+|COUNTER|DICTIONARY(|_NODE)|D(IRECTORY|OUBLE)|EXCEPTIONS|FILE(|_TOOLS)\

+|FIXED_ARRAY(|2|3)|GE(NERAL|N_RAND)|HASH(ABLE|_TABLE_SIZE)|INPUT_STREAM\

+|INTEGER(|_8|_16|_32|_64|_FRACTION|_GENERAL)\

+|ITERATOR(|_ON_(COLLECTION|DICTIONARY(_ITEMS|_KEYS)|LINKED_LIST|SET\

+|STRING|TWO_WAY_LINKED_LIST|UNICODE_STRING))\

+|LARGE(|_NEGATIVE|_POSITIVE)_INTEGER|LINK(|2|ED(_COLLECTION|_LIST))\

+|MATH_CONSTANTS|MEMO(|RY)|MICROSECOND_TIME|MINI_PARSER_BUFFER\

+|MIN_STAND|MUTABLE_BIG_INTEGER|NATIVE_ARRAY|NULL_(INPUT|OUTPUT)\

+|NUMBER(|_FRACTION|_TOOLS)|NUMERIC|OUTPUT_STREAM|PLATFORM|POINTER\

+|REAL|REVERSE_COLLECTION_SORTER|SAFE_EQUAL|SCOOP_UTILITIES|SET(|_NODE)\

+|SMALL_INTEGER|STD_(ERROR|FILE_(READ|READ_WRITE|WRITE)|INPUT(|_OUTPUT)\

+|OUTPUT|RAND)|STRING(|_HANDLER)|SYSTEM|TIME(|_IN_(ENGLISH|FRENCH|GERMAN\

+|ITALIAN|SOME_LANGUAGE|SPANISH))|TWO_WAY_LINKED_LIST\

+|UNICODE_STRING(|_HANDLER)|UTF8_PARSER)\b/;

+

+eiffel_keywords =

+/* Keywords */

+  /\b(agent|a(ll|lias)|and|as(|sign)|check|class|convert|create|Current|debug\

+|deferred|do|else(|if)|en(d|sure)|ex(panded|port|ternal)|False\

+|feature|fro(m|zen)|if|implies|in(dexing|fix|herit|spect|variant)\

+|is|like|local|loop|not|o(r|bsolete|ld|nce)|prefix|Precursor|pure\

+|re(define|ference|name|quire|scue|try)|Result|separate|then|True\

+|TUPLE|un(define|til)|creation)\b/;

+

+state eiffel extends HighlightEntry

+{

+

+  /* One line comments. */

+  /\-\-/ {

+    comment_face (true);

+    language_print ($0);

+    call (eat_one_line);

+    comment_face (false);

+  }

+

+  /* Keywords. */

+  eiffel_keywords {

+    keyword_face (true);

+    language_print ($0);

+    keyword_face (false);

+  }

+

+  /* Types. */

+  eiffel_types {

+    type_face (true);

+    language_print ($0);

+    type_face (false);

+  } 

+

+  /* String constants. */

+  /\"/ {

+    string_face (true);

+    language_print ($0);

+    call (c_string);

+    string_face (false);

+  }

+

+  /* Character constants. */

+  /'.'|'\\\\.'/ {

+    string_face (true);

+    language_print ($0);

+    string_face (false);

+  }

+

+  /* Symbols, etc. */

+  /:=|==|<=|>=|=|!=|\/=|!|!!/ {

+    reference_face (true);

+    language_print ($0);

+    reference_face (false);

+  }

+

+  /* Type declarations */

+  /([ \t])*([a-zA-Z]+[, \ta-zA-Z0-9_]*):[^=]/ {

+    reference_face (true);

+    language_print ($0);

+    reference_face (false);

+  }

+  

+

+  /*

+   * Function definitions, with args

+   * fct_name (args...) is

+   */

+  /^([ \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]*$/ {

+    function_name_face (true);

+    face_on(face_bold_italic);

+    language_print ($1);

+    face_off(face_bold_italic);

+    function_name_face (false);

+    language_print ($2);

+    type_face (true);

+    language_print ($3);

+    type_face (false);

+    language_print ($4);

+    type_face (true);

+    language_print ($5);

+    type_face (false);

+    keyword_face (true);

+    language_print ($6);

+    keyword_face (false);

+    language_print ($7);

+  }

+

+  /*

+   * Function definitions, without args

+   * fct_name is

+   */

+  /^([ \t]*[a-zA-Z_][a-zA-Z_0-9]*)([ \t]*)(is)[ \t]*$/ {

+    function_name_face (true);

+    face_on(face_bold_italic);

+    language_print ($1);

+    face_off(face_bold_italic);

+    function_name_face (false);

+    language_print(" ");

+    keyword_face (true);

+    language_print ($3);

+    keyword_face (false);

+  }

+

+}

diff -Nru enscript-1.6.4.orig/states/hl/enscript.st enscript-1.6.4/states/hl/enscript.st

--- enscript-1.6.4.orig/states/hl/enscript.st	2003-03-05 10:31:31.000000000 +0200

+++ enscript-1.6.4/states/hl/enscript.st	2006-01-09 22:04:22.000000000 +0200

@@ -474,24 +474,31 @@

   /\.m$/					matlab;

   /\.(mpl|mp|maple)$/				maple;

   /\.(scm|scheme)$/				scheme;

+  /\.e$/					eiffel;

+  /\.erl$/					erlang;

   /\b\.emacs$|\.el$/				elisp;

   /\.ad(s|b|a)$/				ada;

   /\.[Ss]$/					asm;

+  /\.sml$/					sml;

   /\.st$/					states;

+  /\.lua$/					lua;

   /(M|m)akefile.*/				makefile;

   /\.(MOD|DEF|mi|md)$/				modula_2;

+  /\.oz$/					oz;

   /\.tcl$/					tcl;

   /\.(v|vh)$/					verilog;

-  /\.html?$/					html;

+  /\.x?html?$/					html;

   /\bChangeLog$/				changelog;

   /\.(vhd|vhdl)$/				vhdl;

   /\.(scr|.syn|.synth)$/			synopsys;

   /\.idl$/					idl;

   /\.(hs|lhs|gs|lgs)$/				haskell;

   /\.(pm|pl)$/					perl;

+  /\.php[34]?$/					php;

   /\.(eps|EPS|ps|PS)$/				postscript;

   /\.py$/					python;

   /\.pyx$/					pyrex;

+  /\.rbw?$/					ruby;

   /\.js$/					javascript;

   /\.java$/					java;

   /\.([Pp][Aa][Ss]|[Pp][Pp]|[Pp])$/		pascal;

@@ -530,6 +537,10 @@

   /-\*- [Ii][Dd][Ll] -\*-/				idl;

   /-\*- [Pp][Ee][Rr][Ll] -\*-/				perl;

   /^#![ \t]*\/.*\/perl/					perl;

+  /-\*- [Pp][Hh][Pp] -\*-/				php;

+  /^<\?php/						php;

+  /-\*- [Rr][Uu][Bb][Yy] -\*-/				ruby;

+  /^#![ \t]*\/.*\/ruby/					ruby;

   /^From:/						mail;

   /^#![ \t]*(\/usr)?\/bin\/[ngmt]?awk/			awk;

   /^#![ \t]*(\/usr)?\/bin\/sh/				sh;

diff -Nru enscript-1.6.4.orig/states/hl/erlang.st enscript-1.6.4/states/hl/erlang.st

--- enscript-1.6.4.orig/states/hl/erlang.st	1970-01-01 02:00:00.000000000 +0200

+++ enscript-1.6.4/states/hl/erlang.st	2006-01-09 22:02:28.000000000 +0200

@@ -0,0 +1,161 @@

+/**

+  * Name: erlang

+  * Description: Erlang programming language.

+  * Author: Sean Hinde 

+  */

+

+

+/* Erlang atom: ([a-z][a-zA-Z0-9_]*|\'[^\n]*\') */

+

+state erlang extends HighlightEntry

+{

+   /* Comments */

+   /%/ {

+     comment_face (true);

+     language_print ($0);

+     call (eat_one_line);

+     comment_face (false);

+   }

+

+   /* String constants. */

+   /\"/ {

+     string_face (true);

+     language_print ($0);

+     call (c_string);

+     string_face (false);

+   }

+

+   /* Special -record(rec_name, {}).  pre-processor case */

+   /(-record)(\([ \t]*)([a-z][a-zA-Z0-9_]*|\'[^\n]*\')/ {

+     reference_face (true);

+     language_print ($1);

+     reference_face (false);

+     language_print ($2);

+     type_face (true);

+     language_print ($3);

+     type_face (false);

+   }

+

+   /* Special -define(Alter, "Hello").  pre-processor case */

+   /(-define)(\([ 

+\t]*)([a-z][a-zA-Z0-9_]*|\'[^\n]*\'|[A-Z_][a-zA-Z0-9_]*)/ {

+     reference_face (true);

+     language_print ($1);

+     reference_face (false);

+     language_print ($2);

+     builtin_face (true);

+     language_print ($3);

+     builtin_face (false);

+   }

+

+   /* Pre-processor lines. */

+   /^-([a-z][a-zA-Z0-9_]*)/ {

+     reference_face (true);

+     language_print ($0);

+     reference_face (false);

+   }

+

+   /* Defines */

+   /(\?)([a-z][a-zA-Z0-9_]*|\'[^\n]*\'|[A-Z_][a-zA-Z0-9_]*)/ {

+     language_print ($1);

+     builtin_face (true);

+     language_print ($2);

+     builtin_face (false);

+   }

+

+   /* Records */

+   /(#)([a-z][a-zA-Z0-9_]*|\'[^\n]*\')/ {

+     language_print ($1);

+     type_face (true);

+     language_print ($2);

+     type_face (false);

+   }

+

+   /* Keywords.

+      '(after begin case try catch end fun if of receive when)

+      Regexp taken from emacs Erlang mode R9C

+   */

+   /\b(a(fter|ndalso)|begin|c(atch|ase)\

+|end|fun|if|o(f|relse)|receive|try|when\

+|query)\b/ {

+     keyword_face (true);

+     language_print ($0);

+     keyword_face (false);

+   }

+

+   /* Guards.

+    Regexp taken from emacs Erlang mode R9C

+   */

+   /\b((is_)*(atom|function|binary|constant|float\

+|integer|list|number|p(id|ort)\

+|re(ference|cord)|tuple))\b/ {

+     builtin_face (true);

+     language_print ($0);

+     builtin_face (false);

+   }

+

+   /* Built in functions */

+

+/\b(a(bs|live|pply|tom_to_list)\

+|binary_to_(list|term)\

+|concat_binary|d(ate|isconnect_node)\

+|e(lement|rase|xit)\

+|float(|_to_list)\

+|g(arbage_collect|et(|_keys)|roup_leader)\

+|h(alt|d)\

+|i(nte(ger_to_list|rnal_bif)|s_alive)\

+|l(ength|i(nk|st_to_(atom|binary|float|integer\

+|pid|tuple)))\

+|make_ref|no(de(|_(link|unlink)|s)|talive)\

+|open_port\

+|p(id_to_list|rocess(_(flag|info)|es)|ut)\

+|r(egister(|ed)|ound)\

+|s(e(lf|telement)|ize\

+|p(awn(|_link)|lit_binary)|tatistics)\

+|t(erm_to_binary|hrow|ime|l\

+|r(ace|unc)|uple_to_list)\

+|un(link|register)|whereis)\b/ {

+     keyword_face (true);

+     language_print ($0);

+     keyword_face (false);

+   }

+

+   /*

+    * Function definitions.

+    */

+   /^([a-z][a-zA-Z0-9_]*|'[^\n]*')/ {

+     function_name_face (true);

+     language_print ($1);

+     function_name_face (false);

+     language_print ($2);

+   }

+

+   /* Atom like strings */

+   /('[^\n]*')/ {

+     string_face (true);

+     language_print ($0);

+     string_face (false);

+   }

+

+   /* Characters */

+   /(\$.)/ {

+     string_face (true);

+     language_print ($0);

+     string_face (false);

+   }

+

+   /* Variable Names */

+   /*  /([\{\(\,\[ \t]+)([A-Z_][a-zA-Z0-9_]*)/ { */

+   /([^a-z0-9_\"])([A-Z_][a-zA-Z0-9_]*)/ {

+     language_print ($1);

+     variable_name_face (true);

+     language_print ($2);

+     variable_name_face (false);

+   }

+}

+

+/*

+Local variables:

+mode: erlang

+End:

+*/

diff -Nru enscript-1.6.4.orig/states/hl/forth.st enscript-1.6.4/states/hl/forth.st

--- enscript-1.6.4.orig/states/hl/forth.st	1970-01-01 02:00:00.000000000 +0200

+++ enscript-1.6.4/states/hl/forth.st	2006-01-09 22:02:28.000000000 +0200

@@ -0,0 +1,96 @@

+/**

+ * Name: forth

+ * Description: Forth Programming Language.

+ * Author: Brent Fulgham <[email protected]>

+ */

+

+forth_builtins =

+/* builtins */

+  /\b(abort|bye|c(atch|o(ld|ntext))|d(rop|up)|f(d(rop|up)|nip|o(r(get|th)|ver)|rot\

+|s(eal|wap)|tuck)|include|l(ink|oad)|n(ip|eeds)|o(rder|ver)|pick|ro(ll|t)|swap|t(hrow|uck)\

+|within|2(drop|nip|dup|over|tuck|swap|rot)|3dup|4dup\

+)\b/;

+

+forth_types =

+/* types */

+  /\b(base|c(ell|har)|decimal|float|hex)\b/;

+  

+forth_keywords =

+/* keywords */

+  /\b(a(bs|gain|head|lso|nd)|begin|c(ase|onstant)|d(abs|efinitions|m(ax|in)|negate|o(|ne))\

+|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)\

+|o(g|or)|s(in(|cos|h)|qrt)|tan(|h))|m(ax|in)|negate|or|round|sqrt)|h(ere|old)|i(f|nvert)\

+|l(eave|oop)|m(ax|in|od)|n(e(gate|xt)|ot)|o(f|nly|r)|r(epeat|oot)|s(eal|ign)|then\

+|un(til|loop)|v(ariable|oc(abulary|s))|while|xor\

+)\b/;

+

+state forth extends HighlightEntry

+{

+  /* Comments. */

+  /\\\\/ {

+    comment_face (true);