awk.st - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       awk.st (1108B)
       ---
            1 /**
            2  * Name: awk
            3  * Description: AWK programming language.
            4  * Author: Juergen Kahrs <Juergen.Kahrs@t-online.de>
            5  */
            6 
            7 state awk extends HighlightEntry
            8 {
            9   /* Comments. */
           10   /#/ {
           11     comment_face (true);
           12     language_print ($0);
           13     call (eat_one_line);
           14     comment_face (false);
           15   }
           16 
           17   /* String constants. */
           18   /\"/ {
           19     string_face (true);
           20     language_print ($0);
           21     call (c_string);
           22     string_face (false);
           23   }
           24 
           25   /* Excutable script. */
           26   /^#!/ {
           27     reference_face (true);
           28     language_print ($0);
           29     call (eat_one_line);
           30     reference_face (false);
           31   }
           32 
           33   /* Keywords. */
           34   /\b(ARG(C|V|IND)|BEGIN|CONVFMT|E(N(D|VIRON)|RRNO)\
           35 |F(I(ELDWIDTHS|LENAME)|NR|S)|IGNORECASE|N[FR]|O(FMT|FS|RS)\
           36 |R(LENGTH|S(TART)?|T)|SUBSEP\
           37 |atan2|break|c(lose|o(ntinue|s))|d(elete|o)|e(lse|x(it|p))\
           38 |f(flush|or|unction)|g(((en)?sub)|etline)|i(f|n(dex|t)?)\
           39 |l(ength|og)|match|next(file)?|return|while|print[f]?\
           40 |rand|s(in|ub(str)?|ystem|p(lit|rintf)|qrt|rand|trftime|ystime)\
           41 |to(lower|upper))\b/ {
           42     keyword_face (true);
           43     language_print ($0);
           44     keyword_face (false);
           45   }
           46 }
           47 
           48 
           49 /*
           50 Local variables:
           51 mode: c
           52 End:
           53 */