1 rizwank 1.1 
 2             state lang_texinfo
 3             {
 4               BEGIN {
 5                 /* Nop since Texinfo doesn't have colors. */
 6                 sub map_color (r, g, b)
 7                   {
 8             	return "";
 9                   }
10             
11                 LANGUAGE_SPECIALS = /[{}@]/;
12             
13                 sub language_print (str)
14                   {
15             	str = regsuball (str, /@/, "@@");
16             	str = regsuball (str, /{/, "@{");
17             	str = regsuball (str, /}/, "@}");
18             	print (str);
19                   }
20             
21                 sub language_symbol (symbol)
22 rizwank 1.1       {
23             	return false;
24                   }
25             
26                 sub header ()
27                   {
28             	print ("@example\n");
29                   }
30             
31                 sub trailer ()
32                   {
33             	print ("@end example\n");
34                   }
35             
36                 sub face_on (face)
37                   {
38             	if (face[boldp])
39             	  print ("@strong{");
40             	if (face[italicp])
41             	  print ("@emph{");
42                   }
43 rizwank 1.1 
44                 sub face_off (face)
45                   {
46             	if (face[italicp])
47             	  print ("}");
48             	if (face[boldp])
49             	  print ("}");
50                   }
51             
52                 return;
53               }
54             }
55             
56             
57             /*
58             Local variables:
59             mode: c
60             End:
61             */