Small change to getopt stuff
[enscript.git] / states / hl / style_msvc.st
1 /* MS Visual C -styled style */
2
3 state style_msvc
4 {
5   BEGIN {
6     /* This is really boring style. */
7     call (default_faces);
8
9     face_bold           = make_face (bold_font, 1, 0);
10     face_italic         = make_face (italic_font, 0, 1);
11     face_bold_italic    = make_face (bold_italic_font, 1, 1);
12     face_function_name  = make_face (font, 0, 0);
13     face_variable_name  = make_face (font, 0, 0);
14     face_string         = make_face (font, 0, 0);
15     face_builtin        = make_face (font, 0, 0);
16
17     /* These are the only faces which are highlighted. */
18     if (color)
19       {
20         face_comment                    = make_face (font, 0, 0);
21         face_comment[fg_color]          = language_color("forest green");
22
23         face_keyword                    = make_face (font, 0, 0);
24         face_keyword[fg_color]          = language_color("blue");
25
26         face_type                       = make_face (font, 0, 0);
27         face_type[fg_color]             = language_color("blue");
28
29         face_reference                  = make_face (font, 0, 0);
30         face_reference[fg_color]        = language_color("blue");
31       }
32     else
33       {
34         face_comment    = make_face (italic_font, 1, 0);
35         face_keyword    = make_face (bold_font, 1, 0);
36         face_type       = make_face (bold_font, 1, 0);
37         face_reference  = make_face (bold_font, 1, 0);
38       }
39
40     return;
41   }
42 }
43
44 \f
45 /*
46 Local variables:
47 mode: c
48 End:
49 */