/usr/share/enscript/hl/idl.st is in enscript 1.6.5.90-2+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | /**
* Name: idl
* Description: IDL (CORBA Interface Definition Language)
*/
state idl extends HighlightEntry
{
/* Comments. */
/\/\*/ {
comment_face (true);
language_print ($0);
call (c_comment);
comment_face (false);
}
/\/\// {
comment_face (true);
language_print ($0);
call (eat_one_line);
comment_face (false);
}
/* Character constants. */
/'.'|'\\\\.'/ {
string_face (true);
language_print ($0);
string_face (false);
}
/* String constants. */
/\"/ {
string_face (true);
language_print ($0);
call (c_string);
string_face (false);
}
/* Pre-processor lines. */
/^#/ {
reference_face (true);
language_print ($0);
call (c_ppline);
reference_face (false);
}
/* Boolean literals */
/\b(TRUE|FALSE)\b/ {
string_face (true);
language_print ($0);
string_face (false);
}
/* Keywords.
(build-re '(any attribute boolean case char const context default double
enum exception fixed float in inout interface long module Object
octet oneway out native raises readonly sequence short string struct switch
typedef unsigned union void wchar wstring))
*/
/\b(Object|a(ny|ttribute)|boolean|c(ase|har|on(st|text))|d(efault|ouble)\
|e(num|xception)|f(ixed|loat)|in(|out|terface)|long|module|native\
|o(ctet|neway|ut)|r(aises|eadonly)|s(equence|hort|tr(ing|uct)|witch)\
|typedef|un(ion|signed)|void|w(char|string))\b/ {
keyword_face (true);
language_print ($0);
keyword_face (false);
}
}
/*
Local variables:
mode: c
End:
*/
|