home *** CD-ROM | disk | FTP | other *** search
/ Big Green CD 8 / BGCD_8_Dev.iso / NEXTSTEP / UNIX / GNU / recode-3.4-MIHS / src / lat1txte.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-10  |  7.5 KB  |  213 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. #include "recode.h"
  21.  
  22. static const char *const translation_table[128] =
  23.   {
  24.     NULL,            /* 128 */
  25.     NULL,            /* 129 */
  26.     NULL,            /* 130 */
  27.     NULL,            /* 131 */
  28.     NULL,            /* 132 */
  29.     NULL,            /* 133 */
  30.     NULL,            /* 134 */
  31.     NULL,            /* 135 */
  32.     NULL,            /* 136 */
  33.     NULL,            /* 137 */
  34.     NULL,            /* 138 */
  35.     NULL,            /* 139 */
  36.     NULL,            /* 140 */
  37.     NULL,            /* 141 */
  38.     NULL,            /* 142 */
  39.     NULL,            /* 143 */
  40.     NULL,            /* 144 */
  41.     NULL,            /* 145 */
  42.     NULL,            /* 146 */
  43.     NULL,            /* 147 */
  44.     NULL,            /* 148 */
  45.     NULL,            /* 149 */
  46.     NULL,            /* 150 */
  47.     NULL,            /* 151 */
  48.     NULL,            /* 152 */
  49.     NULL,            /* 153 */
  50.     NULL,            /* 154 */
  51.     NULL,            /* 155 */
  52.     NULL,            /* 156 */
  53.     NULL,            /* 157 */
  54.     NULL,            /* 158 */
  55.     NULL,            /* 159 */
  56.  
  57.     " ",            /* 160 no-break space */
  58.     NULL,            /* 161 inverted exclamation mark */
  59.     NULL,            /* 162 cent sign */
  60.     NULL,            /* 163 pound sign */
  61.     NULL,            /* 164 currency sign */
  62.     NULL,            /* 165 yen sign */
  63.     NULL,            /* 166 broken bar */
  64.     NULL,            /* 167 paragraph sign, section sign */
  65.     NULL,            /* 168 diaeresis */
  66.     NULL,            /* 169 copyright sign */
  67.     NULL,            /* 170 feminine ordinal indicator */
  68.     "``",            /* 171 left angle quotation mark */
  69.     NULL,            /* 172 not sign */
  70.     NULL,            /* 173 soft hyphen */
  71.     NULL,            /* 174 registered trade mark sign */
  72.     NULL,            /* 175 macron */
  73.     NULL,            /* 176 degree sign */
  74.     NULL,            /* 177 plus-minus sign */
  75.     NULL,            /* 178 superscript two */
  76.     NULL,            /* 179 superscript three */
  77.     NULL,            /* 180 acute accent */
  78.     NULL,            /* 181 small greek mu, micro sign */
  79.     NULL,            /* 182 pilcrow sign */
  80.     NULL,            /* 183 middle dot */
  81.     NULL,            /* 184 cedilla */
  82.     NULL,            /* 185 superscript one */
  83.     NULL,            /* 186 masculine ordinal indicator */
  84.     "''",            /* 187 right angle quotation mark */
  85.     NULL,            /* 188 vulgar fraction one quarter */
  86.     NULL,            /* 189 vulgar fraction one half */
  87.     NULL,            /* 190 vulgar fraction three quarters */
  88.     NULL,            /* 191 inverted question mark */
  89.     "A`",            /* 192 capital A with grave accent */
  90.     NULL,            /* 193 capital A with acute accent */
  91.     "A^",            /* 194 capital A with circumflex accent */
  92.     NULL,            /* 195 capital A with tilde */
  93.     "A\"",            /* 196 capital A diaeresis */
  94.     NULL,            /* 197 capital A with ring above */
  95.     NULL,            /* 198 capital diphthong A with E */
  96.     "C,",            /* 199 capital C with cedilla */
  97.     "E`",            /* 200 capital E with grave accent */
  98.     "E\'",            /* 201 capital E with acute accent */
  99.     "E^",            /* 202 capital E with circumflex accent */
  100.     "E\"",            /* 203 capital E with diaeresis */
  101.     NULL,            /* 204 capital I with grave accent */
  102.     NULL,            /* 205 capital I with acute accent */
  103.     "I^",            /* 206 capital I with circumflex accent */
  104.     "I\"",            /* 207 capital I with diaeresis */
  105.     NULL,            /* 208 capital icelandic ETH */
  106.     NULL,            /* 209 capital N with tilde */
  107.     "O`",            /* 210 capital O with grave accent */
  108.     NULL,            /* 211 capital O with acute accent */
  109.     "O^",            /* 212 capital O with circumflex accent */
  110.     NULL,            /* 213 capital O with tilde */
  111.     "O\"",            /* 214 capital O with diaeresis */
  112.     NULL,            /* 215 multiplication sign */
  113.     NULL,            /* 216 capital O with oblique stroke */
  114.     "U`",            /* 217 capital U with grave accent */
  115.     NULL,            /* 218 capital U with acute accent */
  116.     "U^",            /* 219 capital U with circumflex accent */
  117.     "U\"",            /* 220 capital U with diaeresis */
  118.     NULL,            /* 221 capital Y with acute accent */
  119.     NULL,            /* 222 capital icelandic THORN */
  120.     NULL,            /* 223 small german sharp s */
  121.     "a`",            /* 224 small a with grave accent */
  122.     NULL,            /* 225 small a with acute accent */
  123.     "a^",            /* 226 small a with circumflex accent */
  124.     NULL,            /* 227 small a with tilde */
  125.     "a\"",            /* 228 small a with diaeresis */
  126.     NULL,            /* 229 small a with ring above */
  127.     NULL,            /* 230 small diphthong a with e */
  128.     "c,",            /* 231 small c with cedilla */
  129.     "e`",            /* 232 small e with grave accent */
  130.     "e\'",            /* 233 small e with acute accent */
  131.     "e^",            /* 234 small e with circumflex accent */
  132.     "e\"",            /* 235 small e with diaeresis */
  133.     NULL,            /* 236 small i with grave accent */
  134.     NULL,            /* 237 small i with acute accent */
  135.     "i^",            /* 238 small i with circumflex accent */
  136.     "i\"",            /* 239 small i with diaeresis */
  137.     NULL,            /* 240 small icelandic eth */
  138.     NULL,            /* 241 small n with tilde */
  139.     "o`",            /* 242 small o with grave accent */
  140.     NULL,            /* 243 small o with acute accent */
  141.     "o^",            /* 244 small o with circumflex accent */
  142.     NULL,            /* 245 small o with tilde */
  143.     "o\"",            /* 246 small o with diaeresis */
  144.     NULL,            /* 247 division sign */
  145.     NULL,            /* 248 small o with oblique stroke */
  146.     "u`",            /* 249 small u with grave accent */
  147.     NULL,            /* 250 small u with acute accent */
  148.     "u^",            /* 251 small u with circumflex accent */
  149.     "u\"",            /* 252 small u with diaeresis */
  150.     NULL,            /* 253 small y with acute accent */
  151.     NULL,            /* 254 small icelandic thorn */
  152.     NULL,            /* 255 small y with diaeresis */
  153.   };
  154.  
  155. static void
  156. init_latin1_texte (STEP *step)
  157. {
  158.   int rewritten;        /* number of rewritten translations */
  159.   const char **table;        /* allocated structure, including pool */
  160.   char *pool;            /* cursor in character pool */
  161.   int counter;            /* general purpose counter */
  162.  
  163.   /* The algorithm for proper processing of -c option depends on the fact
  164.      that quotes to be changed in colons are exactly those, in strings
  165.      from translation_table, which are in second position while the
  166.      string is two characters in length.  This is sufficient for now.  */
  167.  
  168.   rewritten = 0;
  169.   if (diaeresis_char != '"')
  170.     for (counter = 128; counter < 256; counter++)
  171.       if (translation_table[counter - 128]
  172.       && translation_table[counter - 128][1] == '"'
  173.       && translation_table[counter - 128][2] == '\0')
  174.     rewritten++;
  175.  
  176.   table = (const char **) xmalloc (sizeof (char *) * 256
  177.                    + 2 * 128
  178.                    + 3 * rewritten);
  179.   pool = (char *) (table + 256);
  180.  
  181.   for (counter = 0; counter < 128; counter++)
  182.     {
  183.       table[counter] = pool;
  184.       *pool++ = counter;
  185.       *pool++ = '\0';
  186.     }
  187.  
  188.   for (; counter < 256; counter++)
  189.     if (diaeresis_char != '"'
  190.     && translation_table[counter - 128]
  191.     && translation_table[counter - 128][1] == '"'
  192.     && translation_table[counter - 128][2] == '\0')
  193.       {
  194.     table[counter] = pool;
  195.     *pool++ = translation_table[counter - 128][0];
  196.     *pool++ = diaeresis_char;
  197.     *pool++ = '\0';
  198.       }
  199.     else
  200.       table[counter] = translation_table[counter - 128];
  201.  
  202.   step->one_to_many = table;
  203. }
  204.  
  205. void
  206. module_latin1_texte (void)
  207. {
  208.   declare_step ("Latin-1", "Texte", ONE_TO_MANY, init_latin1_texte,
  209.         file_one_to_many);
  210.  
  211.   declare_alias ("txte", "Texte");
  212. }
  213.