Fix unresolved implicit dependency of c_ppline.st state on c.st
[enscript.git] / states / hl / lang_overstrike.st
1
2 state lang_overstrike
3 {
4   BEGIN {
5     sub map_color (r, g, b)
6       {
7         return "";
8       }
9
10     LANGUAGE_SPECIALS = /./;
11
12     sub language_print (str)
13       {
14         if (italic_flag)
15           print (regsuball (str, /[A-Za-z0-9]/, "_\010$0"));
16         else if (bold_flag)
17           print (regsuball (str, /[^\n]/, "$0\010$0"));
18         else
19           print (str);
20       }
21
22     sub language_symbol (symbol)
23       {
24         return false;
25       }
26
27     sub header ()
28       {
29         bold_flag = 0;
30         italic_flag = 0;
31       }
32
33     sub trailer ()
34       {
35       }
36
37     sub face_on (face)
38       {
39         if (face[boldp])
40           bold_flag = 1;
41         if (face[italicp])
42           italic_flag = 1;
43       }
44
45     sub face_off (face)
46       {
47         if (face[boldp])
48           bold_flag = 0;
49         if (face[italicp])
50           italic_flag = 0;
51       }
52
53     return;
54   }
55 }
56
57 \f
58 /*
59 Local variables:
60 mode: c
61 End:
62 */