1 rizwank 1.1 /*
  2              * Definition for RTF output
  3              * Kevin Grover, <grover@wizard.com>
  4              */
  5             
  6             state lang_rtf
  7             {
  8               BEGIN {
  9                 sub rtf_color_map()
 10                   {
 11             	local i;
 12             
 13             	print ("{\\colortbl;");
 14             	for (i = 0; i < length (rgb_values); i = i + 1)
 15             	  print (sprintf ("\\red%d\\green%d\\blue%d;",
 16             			  rgb_values[i][1],
 17             			  rgb_values[i][2],
 18             			  rgb_values[i][3]));
 19             
 20             	print ("}\n");
 21             
 22 rizwank 1.1 	return;
 23                   }
 24             
 25                 sub language_color (name)
 26                   {
 27             	local idx;
 28             
 29             	idx = color_index (name);
 30             	if (idx < 0)
 31             	  panic ("unknown color `", name, "'");
 32             
 33             	return sprintf("\\cf%d", idx + 1);
 34                   }
 35             
 36                 LANGUAGE_SPECIALS = /[\\{}\n]/;
 37             
 38                 sub language_print (str)
 39                   {
 40             	str = regsuball (str, /\\\\/, "\\\\");
 41             	str = regsuball (str, /{/, "\\{");
 42             	str = regsuball (str, /}/, "\\}");
 43 rizwank 1.1 	str = regsuball (str, /\n/, "\\line\n");
 44             	print (str);
 45                   }
 46             
 47                 sub language_symbol (symbol)
 48                   {
 49             	return false;
 50                   }
 51             
 52                 sub header ()
 53                   {
 54             	local i;
 55             
 56             	if (current_input_file == 1)
 57             	  {
 58             	    print ("{\\rtf\\ansi\\deff0\n");
 59             	    print ("{\\fonttbl{\\f0\\fswiss Courier New;}}\n");
 60             	    rtf_color_map();
 61             	  }
 62                   }
 63             
 64 rizwank 1.1     sub trailer ()
 65                   {
 66             	if (current_input_file == int (num_input_files))
 67             	  print ("}\n");
 68                   }
 69             
 70                 sub color_on (name)
 71                   {
 72             	print ("{", name, " ");
 73                   }
 74             
 75                 sub color_off ()
 76                   {
 77             	print ("}");
 78                   }
 79             
 80                 sub face_on (face)
 81                   {
 82             	if (face[boldp] || face[italicp])
 83             	  {
 84             	    print ("{");
 85 rizwank 1.1 	    if (face[boldp])
 86             	      print ("\\b");
 87             	    if (face[italicp])
 88             	      print ("\\i");
 89             	    print (" ");
 90             	  }
 91             
 92             	if (face[fg_color])
 93             	  color_on (face[fg_color]);
 94                   }
 95             
 96                 sub face_off (face)
 97                   {
 98             	if (face[fg_color])
 99             	  color_off ();
100             	if (face[boldp] || face[italicp])
101             	  print ("}");
102                   }
103             
104                 return;
105               }
106 rizwank 1.1 }
107             
108             
109             /*
110             Local variables:
111             mode: c
112             End:
113             */