home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / TEKST / GRECODE / ASCILAT1.L < prev    next >
Text File  |  1993-12-10  |  4KB  |  174 lines
  1. /* Conversion of files between different charsets and usages.
  2.    Copyright (C) 1990, 1993 Free Software Foundation, Inc.
  3.    Francois Pinard <pinard@iro.umontreal.ca>, 1988.
  4.  
  5.    This program is free software; you can redistribute it and/or modify
  6.    it under the terms of the GNU General Public License as published by
  7.    the Free Software Foundation; either version 2, or (at your option)
  8.    any later version.
  9.  
  10.    This program is distributed in the hope that it will be useful, but
  11.    WITHOUT ANY WARRANTY; without even the implied warranty of
  12.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13.    General Public License for more details.
  14.  
  15.    You should have received a copy of the GNU General Public License
  16.    along with this program; if not, write to the Free Software
  17.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. /* Step name: ascii_latin1.  */
  21.  
  22. %%
  23.  
  24. \<\b\"|\"\b\<            { output (171); }
  25. \>\b\"|\"\b\>            { output (187); }
  26. A\b`|`\bA            { output (192); }
  27. A\b'|'\bA            { output (193); }
  28. A\b^|^\bA            { output (194); }
  29. A\b~|~\bA            { output (195); }
  30. A\b\"|\"\bA            { if (diaeresis_char == '"')
  31.                     output (196);
  32.                   else
  33.                     ECHO;
  34.                 }
  35. A\b\:|\:\bA            { if (diaeresis_char == ':')
  36.                     output (196);
  37.                   else
  38.                     ECHO;
  39.                 }
  40. C\b,|,\bC            { output (199); }
  41. E\b`|`\bE            { output (200); }
  42. E\b'|'\bE            { output (201); }
  43. E\b^|^\bE            { output (202); }
  44. E\b\"|\"\bE            { if (diaeresis_char == '"')
  45.                     output (203);
  46.                   else
  47.                     ECHO;
  48.                 }
  49. E\b\:|\:\bE            { if (diaeresis_char == ':')
  50.                     output (203);
  51.                   else
  52.                     ECHO;
  53.                 }
  54. I\b`|`\bI            { output (204); }
  55. I\b'|'\bI            { output (205); }
  56. I\b^|^\bI            { output (206); }
  57. I\b\"|\"\bI            { if (diaeresis_char == '"')
  58.                     output (207);
  59.                   else
  60.                     ECHO;
  61.                 }
  62. I\b\:|\:\bI            { if (diaeresis_char == ':')
  63.                     output (207);
  64.                   else
  65.                     ECHO;
  66.                 }
  67. N\b~|~\bN            { output (209); }
  68. O\b`|`\bO            { output (210); }
  69. O\b'|'\bO            { output (211); }
  70. O\b^|^\bO            { output (212); }
  71. O\b~|~\bO            { output (213); }
  72. O\b\"|\"\bO            { if (diaeresis_char == '"')
  73.                     output (214);
  74.                   else
  75.                     ECHO;
  76.                 }
  77. O\b\:|\:\bO            { if (diaeresis_char == ':')
  78.                     output (214);
  79.                   else
  80.                     ECHO;
  81.                 }
  82. U\b`|`\bU            { output (217); }
  83. U\b'|'\bU            { output (218); }
  84. U\b^|^\bU            { output (219); }
  85. U\b\"|\"\bU            { if (diaeresis_char == '"')
  86.                     output (220);
  87.                   else
  88.                     ECHO;
  89.                 }
  90. U\b\:|\:\bU            { if (diaeresis_char == ':')
  91.                     output (220);
  92.                   else
  93.                     ECHO;
  94.                 }
  95. Y\b'|'\bY            { output (221); }
  96. a\b`|`\ba            { output (224); }
  97. a\b'|'\ba            { output (225); }
  98. a\b^|^\ba            { output (226); }
  99. a\b~|~\ba            { output (227); }
  100. a\b\"|\"\ba            { if (diaeresis_char == '"')
  101.                     output (228);
  102.                   else
  103.                     ECHO;
  104.                 }
  105. a\b\:|\:\ba            { if (diaeresis_char == ':')
  106.                     output (228);
  107.                   else
  108.                     ECHO;
  109.                 }
  110. c\b,|,\bc            { output (231); }
  111. e\b`|`\be            { output (232); }
  112. e\b'|'\be            { output (233); }
  113. e\b^|^\be            { output (234); }
  114. e\b\"|\"\be            { if (diaeresis_char == '"')
  115.                     output (235);
  116.                   else
  117.                     ECHO;
  118.                 }
  119. e\b\:|\:\be            { if (diaeresis_char == ':')
  120.                     output (235);
  121.                   else
  122.                     ECHO;
  123.                 }
  124. i\b`|`\bi            { output (236); }
  125. i\b'|'\bi            { output (237); }
  126. i\b^|^\bi            { output (238); }
  127. i\b\"|\"\bi            { if (diaeresis_char == '"')
  128.                     output (239);
  129.                   else
  130.                     ECHO;
  131.                 }
  132. i\b\:|\:\bi            { if (diaeresis_char == ':')
  133.                     output (239);
  134.                   else
  135.                     ECHO;
  136.                 }
  137. n\b~|~\bn            { output (241); }
  138. o\b`|`\bo            { output (242); }
  139. o\b'|'\bo            { output (243); }
  140. o\b^|^\bo            { output (244); }
  141. o\b~|~\bo            { output (245); }
  142. o\b\"|\"\bo            { if (diaeresis_char == '"')
  143.                     output (246);
  144.                   else
  145.                     ECHO;
  146.                 }
  147. o\b\:|\:\bo            { if (diaeresis_char == ':')
  148.                     output (246);
  149.                   else
  150.                     ECHO;
  151.                 }
  152. u\b`|`\bu            { output (249); }
  153. u\b'|'\bu            { output (250); }
  154. u\b^|^\bu            { output (251); }
  155. u\b\"|\"\bu            { if (diaeresis_char == '"')
  156.                     output (252);
  157.                   else
  158.                     ECHO;
  159.                 }
  160. u\b\:|\:\bu            { if (diaeresis_char == ':')
  161.                     output (252);
  162.                   else
  163.                     ECHO;
  164.                 }
  165. y\b'|'\by            { output (253); }
  166.  
  167. %%
  168.  
  169. void
  170. module_ascii_latin1 (void)
  171. {
  172.   declare_step ("ascii-bs", "latin1", MANY_TO_ONE, NULL, file_ascii_latin1);
  173. }
  174.