Annotation of cvsweb/enscript/lang_cvsweb.st, Revision 3.2
3.1 scop 1: /*
2: GNU Enscript language file for FreeBSD-CVSweb.
3: $FreeBSD$
4: */
5:
6: state lang_cvsweb
7: {
8: BEGIN {
9: /* RGB -> HTML color mapper function. */
10: sub map_color (r, g, b)
11: {
12: return sprintf ("#%02X%02X%02X", r, g, b);
13: }
14:
15: LANGUAGE_SPECIALS = /[<>\&\"]/;
16:
17: sub language_print (str)
18: {
19: str = regsuball (str, /\&/, "&");
20: str = regsuball (str, /</, "<");
21: str = regsuball (str, />/, ">");
22: str = regsuball (str, /\"/, """);
23: print (str);
24: }
25:
26: sub language_symbol (symbol)
27: {
28: return false;
29: }
30:
31: sub header ()
32: {
33: }
34:
35: sub trailer ()
36: {
37: }
38:
39: sub face_on (face)
40: {
41: if (face[boldp])
42: print ("<b>");
43: if (face[italicp])
44: print ("<i>");
45:
46: if (face[fg_color])
47: print ("<span style=\"color: ", face[fg_color], "\">");
48: if (face[bg_color])
49: print ("<span style=\"background-color: ", face[bg_color], "\">");
50: }
51:
52: sub face_off (face)
53: {
54: if (face[fg_color])
55: print ("</span>");
56: if (face[bg_color])
57: print ("</span>");
58:
59: if (face[italicp])
60: print ("</i>");
61: if (face[boldp])
62: print ("</b>");
63: }
64:
65: return;
66: }
67: }
68:
69:
70: /*
71: Local variables:
72: mode: c
73: End:
74: */
CVSweb