193139Sru/* lang.c -- language-dependent support. 2146515Sru $Id: lang.c,v 1.14 2004/11/22 23:57:33 karl Exp $ 356160Sru 4146515Sru Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 Free Software 5146515Sru Foundation, Inc. 656160Sru 756160Sru This program is free software; you can redistribute it and/or modify 856160Sru it under the terms of the GNU General Public License as published by 956160Sru the Free Software Foundation; either version 2, or (at your option) 1056160Sru any later version. 1156160Sru 1256160Sru This program is distributed in the hope that it will be useful, 1356160Sru but WITHOUT ANY WARRANTY; without even the implied warranty of 1456160Sru MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1556160Sru GNU General Public License for more details. 1656160Sru 1756160Sru You should have received a copy of the GNU General Public License 1856160Sru along with this program; if not, write to the Free Software 1956160Sru Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 2056160Sru 2193139Sru Originally written by Karl Heinz Marbaise <kama@hippo.fido.de>. */ 2256160Sru 2356160Sru#include "system.h" 2456160Sru#include "cmds.h" 25146515Sru#include "files.h" 2656160Sru#include "lang.h" 2756160Sru#include "makeinfo.h" 2893139Sru#include "xml.h" 2956160Sru 3056160Sru/* Current document encoding. */ 3193139Sruencoding_code_type document_encoding_code = no_encoding; 3256160Sru 3356160Sru/* Current language code; default is English. */ 3456160Srulanguage_code_type language_code = en; 3556160Sru 36146515Sru/* By default, unsupported encoding is an empty string. */ 37146515Sruchar *unknown_encoding = NULL; 38146515Sru 39116525Srustatic iso_map_type us_ascii_map [] = {{NULL, 0, 0}}; /* ASCII map is trivial */ 40114472Sru 4193139Sru/* Translation table between HTML and ISO Codes. The last item is 4293139Sru hopefully the Unicode. It might be possible that those Unicodes are 4393139Sru not correct, cause I didn't check them. kama */ 44116525Srustatic iso_map_type iso8859_1_map [] = { 4593139Sru { "nbsp", 0xA0, 0x00A0 }, 4693139Sru { "iexcl", 0xA1, 0x00A1 }, 4793139Sru { "cent", 0xA2, 0x00A2 }, 4893139Sru { "pound", 0xA3, 0x00A3 }, 4993139Sru { "curren", 0xA4, 0x00A4 }, 5093139Sru { "yen", 0xA5, 0x00A5 }, 5193139Sru { "brkbar", 0xA6, 0x00A6 }, 5293139Sru { "sect", 0xA7, 0x00A7 }, 5393139Sru { "uml", 0xA8, 0x00A8 }, 5493139Sru { "copy", 0xA9, 0x00A9 }, 5593139Sru { "ordf", 0xAA, 0x00AA }, 5693139Sru { "laquo", 0xAB, 0x00AB }, 5793139Sru { "not", 0xAC, 0x00AC }, 5893139Sru { "shy", 0xAD, 0x00AD }, 5993139Sru { "reg", 0xAE, 0x00AE }, 6093139Sru { "hibar", 0xAF, 0x00AF }, 6193139Sru { "deg", 0xB0, 0x00B0 }, 6293139Sru { "plusmn", 0xB1, 0x00B1 }, 6393139Sru { "sup2", 0xB2, 0x00B2 }, 6493139Sru { "sup3", 0xB3, 0x00B3 }, 6593139Sru { "acute", 0xB4, 0x00B4 }, 6693139Sru { "micro", 0xB5, 0x00B5 }, 6793139Sru { "para", 0xB6, 0x00B6 }, 6893139Sru { "middot", 0xB7, 0x00B7 }, 6993139Sru { "cedil", 0xB8, 0x00B8 }, 7093139Sru { "sup1", 0xB9, 0x00B9 }, 7193139Sru { "ordm", 0xBA, 0x00BA }, 7293139Sru { "raquo", 0xBB, 0x00BB }, 7393139Sru { "frac14", 0xBC, 0x00BC }, 7493139Sru { "frac12", 0xBD, 0x00BD }, 7593139Sru { "frac34", 0xBE, 0x00BE }, 7693139Sru { "iquest", 0xBF, 0x00BF }, 7793139Sru { "Agrave", 0xC0, 0x00C0 }, 7893139Sru { "Aacute", 0xC1, 0x00C1 }, 7993139Sru { "Acirc", 0xC2, 0x00C2 }, 8093139Sru { "Atilde", 0xC3, 0x00C3 }, 8193139Sru { "Auml", 0xC4, 0x00C4 }, 8293139Sru { "Aring", 0xC5, 0x00C5 }, 8393139Sru { "AElig", 0xC6, 0x00C6 }, 8493139Sru { "Ccedil", 0xC7, 0x00C7 }, 8593139Sru { "Ccedil", 0xC7, 0x00C7 }, 8693139Sru { "Egrave", 0xC8, 0x00C8 }, 8793139Sru { "Eacute", 0xC9, 0x00C9 }, 8893139Sru { "Ecirc", 0xCA, 0x00CA }, 8993139Sru { "Euml", 0xCB, 0x00CB }, 9093139Sru { "Igrave", 0xCC, 0x00CC }, 9193139Sru { "Iacute", 0xCD, 0x00CD }, 9293139Sru { "Icirc", 0xCE, 0x00CE }, 9393139Sru { "Iuml", 0xCF, 0x00CF }, 94116525Sru { "ETH", 0xD0, 0x00D0 }, 9593139Sru { "Ntilde", 0xD1, 0x00D1 }, 9693139Sru { "Ograve", 0xD2, 0x00D2 }, 9793139Sru { "Oacute", 0xD3, 0x00D3 }, 9893139Sru { "Ocirc", 0xD4, 0x00D4 }, 9993139Sru { "Otilde", 0xD5, 0x00D5 }, 10093139Sru { "Ouml", 0xD6, 0x00D6 }, 10193139Sru { "times", 0xD7, 0x00D7 }, 10293139Sru { "Oslash", 0xD8, 0x00D8 }, 10393139Sru { "Ugrave", 0xD9, 0x00D9 }, 10493139Sru { "Uacute", 0xDA, 0x00DA }, 10593139Sru { "Ucirc", 0xDB, 0x00DB }, 10693139Sru { "Uuml", 0xDC, 0x00DC }, 10793139Sru { "Yacute", 0xDD, 0x00DD }, 10893139Sru { "THORN", 0xDE, 0x00DE }, 10993139Sru { "szlig", 0xDF, 0x00DF }, 11093139Sru { "agrave", 0xE0, 0x00E0 }, 11193139Sru { "aacute", 0xE1, 0x00E1 }, 11293139Sru { "acirc", 0xE2, 0x00E2 }, 11393139Sru { "atilde", 0xE3, 0x00E3 }, 11493139Sru { "auml", 0xE4, 0x00E4 }, 11593139Sru { "aring", 0xE5, 0x00E5 }, 11693139Sru { "aelig", 0xE6, 0x00E6 }, 11793139Sru { "ccedil", 0xE7, 0x00E7 }, 11893139Sru { "egrave", 0xE8, 0x00E8 }, 11993139Sru { "eacute", 0xE9, 0x00E9 }, 12093139Sru { "ecirc", 0xEA, 0x00EA }, 12193139Sru { "euml", 0xEB, 0x00EB }, 12293139Sru { "igrave", 0xEC, 0x00EC }, 12393139Sru { "iacute", 0xED, 0x00ED }, 12493139Sru { "icirc", 0xEE, 0x00EE }, 12593139Sru { "iuml", 0xEF, 0x00EF }, 12693139Sru { "eth", 0xF0, 0x00F0 }, 12793139Sru { "ntilde", 0xF1, 0x00F1 }, 12893139Sru { "ograve", 0xF2, 0x00F2 }, 12993139Sru { "oacute", 0xF3, 0x00F3 }, 13093139Sru { "ocirc", 0xF4, 0x00F4 }, 13193139Sru { "otilde", 0xF5, 0x00F5 }, 13293139Sru { "ouml", 0xF6, 0x00F6 }, 13393139Sru { "divide", 0xF7, 0x00F7 }, 13493139Sru { "oslash", 0xF8, 0x00F8 }, 13593139Sru { "ugrave", 0xF9, 0x00F9 }, 13693139Sru { "uacute", 0xFA, 0x00FA }, 13793139Sru { "ucirc", 0xFB, 0x00FB }, 13893139Sru { "uuml", 0xFC, 0x00FC }, 13993139Sru { "yacute", 0xFD, 0x00FD }, 14093139Sru { "thorn", 0xFE, 0x00FE }, 141114472Sru { "yuml", 0xFF, 0x00FF }, 142114472Sru { NULL, 0, 0 } 14393139Sru}; 14493139Sru 145146515Sru 146146515Sru/* ISO 8859-15, also known as Latin 9, differs from Latin 1 in only a 147146515Sru few positions. http://www.cs.tut.fi/~jkorpela/latin9.html has a good 148146515Sru explanation and listing, summarized here. The names are abbreviated 149146515Sru from the official Unicode names, to fit in a decent line length. 150116525Sru 151146515Sru code position 152146515Sru dec oct hex latin1 latin1 name latin9 latin9 name 153146515Sru 154146515Sru 164 0244 0xA4 U+00A4 currency symbol U+20AC euro sign 155146515Sru 166 0246 0xA6 U+00A6 broken bar U+0160 S with caron 156146515Sru 168 0250 0xA8 U+00A8 diaeresis U+0161 s with caron 157146515Sru 180 0264 0xB4 U+00B4 acute accent U+017D Z with caron 158146515Sru 184 0270 0xB8 U+00B8 cedilla U+017E z with caron 159146515Sru 188 0274 0xBC U+00BC fraction 1/4 U+0152 ligature OE 160146515Sru 189 0275 0xBD U+00BD fraction 1/2 U+0153 ligature oe 161146515Sru 190 0276 0xBE U+00BE fraction 3/4 U+0178 Y with diaeresis 162146515Sru*/ 163146515Sru 164146515Srustatic iso_map_type iso8859_15_map [] = { 165146515Sru { "nbsp", 0xA0, 0x00A0 }, 166146515Sru { "iexcl", 0xA1, 0x00A1 }, 167146515Sru { "cent", 0xA2, 0x00A2 }, 168146515Sru { "pound", 0xA3, 0x00A3 }, 169146515Sru { "euro", 0xA4, 0x20AC }, 170146515Sru { "yen", 0xA5, 0x00A5 }, 171146515Sru { "Scaron", 0xA6, 0x0160 }, 172146515Sru { "sect", 0xA7, 0x00A7 }, 173146515Sru { "scaron", 0xA8, 0x0161 }, 174146515Sru { "copy", 0xA9, 0x00A9 }, 175146515Sru { "ordf", 0xAA, 0x00AA }, 176146515Sru { "laquo", 0xAB, 0x00AB }, 177146515Sru { "not", 0xAC, 0x00AC }, 178146515Sru { "shy", 0xAD, 0x00AD }, 179146515Sru { "reg", 0xAE, 0x00AE }, 180146515Sru { "hibar", 0xAF, 0x00AF }, 181146515Sru { "deg", 0xB0, 0x00B0 }, 182146515Sru { "plusmn", 0xB1, 0x00B1 }, 183146515Sru { "sup2", 0xB2, 0x00B2 }, 184146515Sru { "sup3", 0xB3, 0x00B3 }, 185146515Sru { "Zcaron", 0xB4, 0x017D }, 186146515Sru { "micro", 0xB5, 0x00B5 }, 187146515Sru { "para", 0xB6, 0x00B6 }, 188146515Sru { "middot", 0xB7, 0x00B7 }, 189146515Sru { "zcaron", 0xB8, 0x017E }, 190146515Sru { "sup1", 0xB9, 0x00B9 }, 191146515Sru { "ordm", 0xBA, 0x00BA }, 192146515Sru { "raquo", 0xBB, 0x00BB }, 193146515Sru { "OElig", 0xBC, 0x0152 }, 194146515Sru { "oelig", 0xBD, 0x0153 }, 195146515Sru { "Yuml", 0xBE, 0x0178 }, 196146515Sru { "iquest", 0xBF, 0x00BF }, 197146515Sru { "Agrave", 0xC0, 0x00C0 }, 198146515Sru { "Aacute", 0xC1, 0x00C1 }, 199146515Sru { "Acirc", 0xC2, 0x00C2 }, 200146515Sru { "Atilde", 0xC3, 0x00C3 }, 201146515Sru { "Auml", 0xC4, 0x00C4 }, 202146515Sru { "Aring", 0xC5, 0x00C5 }, 203146515Sru { "AElig", 0xC6, 0x00C6 }, 204146515Sru { "Ccedil", 0xC7, 0x00C7 }, 205146515Sru { "Ccedil", 0xC7, 0x00C7 }, 206146515Sru { "Egrave", 0xC8, 0x00C8 }, 207146515Sru { "Eacute", 0xC9, 0x00C9 }, 208146515Sru { "Ecirc", 0xCA, 0x00CA }, 209146515Sru { "Euml", 0xCB, 0x00CB }, 210146515Sru { "Igrave", 0xCC, 0x00CC }, 211146515Sru { "Iacute", 0xCD, 0x00CD }, 212146515Sru { "Icirc", 0xCE, 0x00CE }, 213146515Sru { "Iuml", 0xCF, 0x00CF }, 214146515Sru { "ETH", 0xD0, 0x00D0 }, 215146515Sru { "Ntilde", 0xD1, 0x00D1 }, 216146515Sru { "Ograve", 0xD2, 0x00D2 }, 217146515Sru { "Oacute", 0xD3, 0x00D3 }, 218146515Sru { "Ocirc", 0xD4, 0x00D4 }, 219146515Sru { "Otilde", 0xD5, 0x00D5 }, 220146515Sru { "Ouml", 0xD6, 0x00D6 }, 221146515Sru { "times", 0xD7, 0x00D7 }, 222146515Sru { "Oslash", 0xD8, 0x00D8 }, 223146515Sru { "Ugrave", 0xD9, 0x00D9 }, 224146515Sru { "Uacute", 0xDA, 0x00DA }, 225146515Sru { "Ucirc", 0xDB, 0x00DB }, 226146515Sru { "Uuml", 0xDC, 0x00DC }, 227146515Sru { "Yacute", 0xDD, 0x00DD }, 228146515Sru { "THORN", 0xDE, 0x00DE }, 229146515Sru { "szlig", 0xDF, 0x00DF }, 230146515Sru { "agrave", 0xE0, 0x00E0 }, 231146515Sru { "aacute", 0xE1, 0x00E1 }, 232146515Sru { "acirc", 0xE2, 0x00E2 }, 233146515Sru { "atilde", 0xE3, 0x00E3 }, 234146515Sru { "auml", 0xE4, 0x00E4 }, 235146515Sru { "aring", 0xE5, 0x00E5 }, 236146515Sru { "aelig", 0xE6, 0x00E6 }, 237146515Sru { "ccedil", 0xE7, 0x00E7 }, 238146515Sru { "egrave", 0xE8, 0x00E8 }, 239146515Sru { "eacute", 0xE9, 0x00E9 }, 240146515Sru { "ecirc", 0xEA, 0x00EA }, 241146515Sru { "euml", 0xEB, 0x00EB }, 242146515Sru { "igrave", 0xEC, 0x00EC }, 243146515Sru { "iacute", 0xED, 0x00ED }, 244146515Sru { "icirc", 0xEE, 0x00EE }, 245146515Sru { "iuml", 0xEF, 0x00EF }, 246146515Sru { "eth", 0xF0, 0x00F0 }, 247146515Sru { "ntilde", 0xF1, 0x00F1 }, 248146515Sru { "ograve", 0xF2, 0x00F2 }, 249146515Sru { "oacute", 0xF3, 0x00F3 }, 250146515Sru { "ocirc", 0xF4, 0x00F4 }, 251146515Sru { "otilde", 0xF5, 0x00F5 }, 252146515Sru { "ouml", 0xF6, 0x00F6 }, 253146515Sru { "divide", 0xF7, 0x00F7 }, 254146515Sru { "oslash", 0xF8, 0x00F8 }, 255146515Sru { "ugrave", 0xF9, 0x00F9 }, 256146515Sru { "uacute", 0xFA, 0x00FA }, 257146515Sru { "ucirc", 0xFB, 0x00FB }, 258146515Sru { "uuml", 0xFC, 0x00FC }, 259146515Sru { "yacute", 0xFD, 0x00FD }, 260146515Sru { "thorn", 0xFE, 0x00FE }, 261146515Sru { "yuml", 0xFF, 0x00FF }, 262146515Sru { NULL, 0, 0 } 263146515Sru}; 264146515Sru 265146515Sru 266116525Sru 267116525Sru/* Date: Mon, 31 Mar 2003 00:19:28 +0200 268116525Sru From: Wojciech Polak <polak@gnu.org> 269116525Sru... 270116525Sru * Primary Polish site for ogonki is http://www.agh.edu.pl/ogonki/, 271116525Sru but it's only in Polish language (it has some interesting links). 272116525Sru 273116525Sru * A general site about ISO 8859-2 at http://nl.ijs.si/gnusl/cee/iso8859-2.html 274116525Sru 275116525Sru * ISO 8859-2 Character Set at http://nl.ijs.si/gnusl/cee/charset.html 276116525Sru This site provides almost all information about iso-8859-2, 277116525Sru including the character table!!! (must see!) 278116525Sru 279116525Sru * ISO 8859-2 and even HTML entities !!! (must see!) 280116525Sru http://people.ssh.fi/mtr/genscript/88592.txt 281116525Sru 282116525Sru * (minor) http://www.agh.edu.pl/ogonki/plchars.html 283116525Sru One more table, this time it includes even information about Polish 284116525Sru characters in Unicode. 285116525Sru*/ 286116525Sru 287116525Srustatic iso_map_type iso8859_2_map [] = { 288116525Sru { "nbsp", 0xA0, 0x00A0 }, /* NO-BREAK SPACE */ 289116525Sru { "", 0xA1, 0x0104 }, /* LATIN CAPITAL LETTER A WITH OGONEK */ 290116525Sru { "", 0xA2, 0x02D8 }, /* BREVE */ 291116525Sru { "", 0xA3, 0x0141 }, /* LATIN CAPITAL LETTER L WITH STROKE */ 292116525Sru { "curren", 0xA4, 0x00A4 }, /* CURRENCY SIGN */ 293116525Sru { "", 0xA5, 0x013D }, /* LATIN CAPITAL LETTER L WITH CARON */ 294116525Sru { "", 0xA6, 0x015A }, /* LATIN CAPITAL LETTER S WITH ACUTE */ 295116525Sru { "sect", 0xA7, 0x00A7 }, /* SECTION SIGN */ 296116525Sru { "uml", 0xA8, 0x00A8 }, /* DIAERESIS */ 297116525Sru { "", 0xA9, 0x0160 }, /* LATIN CAPITAL LETTER S WITH CARON */ 298116525Sru { "", 0xAA, 0x015E }, /* LATIN CAPITAL LETTER S WITH CEDILLA */ 299116525Sru { "", 0xAB, 0x0164 }, /* LATIN CAPITAL LETTER T WITH CARON */ 300116525Sru { "", 0xAC, 0x0179 }, /* LATIN CAPITAL LETTER Z WITH ACUTE */ 301116525Sru { "shy", 0xAD, 0x00AD }, /* SOFT HYPHEN */ 302116525Sru { "", 0xAE, 0x017D }, /* LATIN CAPITAL LETTER Z WITH CARON */ 303116525Sru { "", 0xAF, 0x017B }, /* LATIN CAPITAL LETTER Z WITH DOT ABOVE */ 304116525Sru { "deg", 0xB0, 0x00B0 }, /* DEGREE SIGN */ 305116525Sru { "", 0xB1, 0x0105 }, /* LATIN SMALL LETTER A WITH OGONEK */ 306116525Sru { "", 0xB2, 0x02DB }, /* OGONEK */ 307116525Sru { "", 0xB3, 0x0142 }, /* LATIN SMALL LETTER L WITH STROKE */ 308116525Sru { "acute", 0xB4, 0x00B4 }, /* ACUTE ACCENT */ 309116525Sru { "", 0xB5, 0x013E }, /* LATIN SMALL LETTER L WITH CARON */ 310116525Sru { "", 0xB6, 0x015B }, /* LATIN SMALL LETTER S WITH ACUTE */ 311116525Sru { "", 0xB7, 0x02C7 }, /* CARON (Mandarin Chinese third tone) */ 312116525Sru { "cedil", 0xB8, 0x00B8 }, /* CEDILLA */ 313116525Sru { "", 0xB9, 0x0161 }, /* LATIN SMALL LETTER S WITH CARON */ 314116525Sru { "", 0xBA, 0x015F }, /* LATIN SMALL LETTER S WITH CEDILLA */ 315116525Sru { "", 0xBB, 0x0165 }, /* LATIN SMALL LETTER T WITH CARON */ 316116525Sru { "", 0xBC, 0x017A }, /* LATIN SMALL LETTER Z WITH ACUTE */ 317116525Sru { "", 0xBD, 0x02DD }, /* DOUBLE ACUTE ACCENT */ 318116525Sru { "", 0xBE, 0x017E }, /* LATIN SMALL LETTER Z WITH CARON */ 319116525Sru { "", 0xBF, 0x017C }, /* LATIN SMALL LETTER Z WITH DOT ABOVE */ 320116525Sru { "", 0xC0, 0x0154 }, /* LATIN CAPITAL LETTER R WITH ACUTE */ 321116525Sru { "", 0xC1, 0x00C1 }, /* LATIN CAPITAL LETTER A WITH ACUTE */ 322116525Sru { "", 0xC2, 0x00C2 }, /* LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ 323116525Sru { "", 0xC3, 0x0102 }, /* LATIN CAPITAL LETTER A WITH BREVE */ 324116525Sru { "", 0xC4, 0x00C4 }, /* LATIN CAPITAL LETTER A WITH DIAERESIS */ 325116525Sru { "", 0xC5, 0x0139 }, /* LATIN CAPITAL LETTER L WITH ACUTE */ 326116525Sru { "", 0xC6, 0x0106 }, /* LATIN CAPITAL LETTER C WITH ACUTE */ 327116525Sru { "", 0xC7, 0x00C7 }, /* LATIN CAPITAL LETTER C WITH CEDILLA */ 328116525Sru { "", 0xC8, 0x010C }, /* LATIN CAPITAL LETTER C WITH CARON */ 329116525Sru { "", 0xC9, 0x00C9 }, /* LATIN CAPITAL LETTER E WITH ACUTE */ 330116525Sru { "", 0xCA, 0x0118 }, /* LATIN CAPITAL LETTER E WITH OGONEK */ 331116525Sru { "", 0xCB, 0x00CB }, /* LATIN CAPITAL LETTER E WITH DIAERESIS */ 332116525Sru { "", 0xCC, 0x011A }, /* LATIN CAPITAL LETTER E WITH CARON */ 333116525Sru { "", 0xCD, 0x00CD }, /* LATIN CAPITAL LETTER I WITH ACUTE */ 334116525Sru { "", 0xCE, 0x00CE }, /* LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ 335116525Sru { "", 0xCF, 0x010E }, /* LATIN CAPITAL LETTER D WITH CARON */ 336116525Sru { "", 0xD0, 0x0110 }, /* LATIN CAPITAL LETTER D WITH STROKE */ 337116525Sru { "", 0xD1, 0x0143 }, /* LATIN CAPITAL LETTER N WITH ACUTE */ 338116525Sru { "", 0xD2, 0x0147 }, /* LATIN CAPITAL LETTER N WITH CARON */ 339116525Sru { "", 0xD3, 0x00D3 }, /* LATIN CAPITAL LETTER O WITH ACUTE */ 340116525Sru { "", 0xD4, 0x00D4 }, /* LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ 341116525Sru { "", 0xD5, 0x0150 }, /* LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */ 342116525Sru { "", 0xD6, 0x00D6 }, /* LATIN CAPITAL LETTER O WITH DIAERESIS */ 343116525Sru { "times", 0xD7, 0x00D7 }, /* MULTIPLICATION SIGN */ 344116525Sru { "", 0xD8, 0x0158 }, /* LATIN CAPITAL LETTER R WITH CARON */ 345116525Sru { "", 0xD9, 0x016E }, /* LATIN CAPITAL LETTER U WITH RING ABOVE */ 346116525Sru { "", 0xDA, 0x00DA }, /* LATIN CAPITAL LETTER U WITH ACUTE */ 347116525Sru { "", 0xDB, 0x0170 }, /* LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */ 348116525Sru { "", 0xDC, 0x00DC }, /* LATIN CAPITAL LETTER U WITH DIAERESIS */ 349116525Sru { "", 0xDD, 0x00DD }, /* LATIN CAPITAL LETTER Y WITH ACUTE */ 350116525Sru { "", 0xDE, 0x0162 }, /* LATIN CAPITAL LETTER T WITH CEDILLA */ 351116525Sru { "", 0xDF, 0x00DF }, /* LATIN SMALL LETTER SHARP S (German) */ 352116525Sru { "", 0xE0, 0x0155 }, /* LATIN SMALL LETTER R WITH ACUTE */ 353116525Sru { "", 0xE1, 0x00E1 }, /* LATIN SMALL LETTER A WITH ACUTE */ 354116525Sru { "", 0xE2, 0x00E2 }, /* LATIN SMALL LETTER A WITH CIRCUMFLEX */ 355116525Sru { "", 0xE3, 0x0103 }, /* LATIN SMALL LETTER A WITH BREVE */ 356116525Sru { "", 0xE4, 0x00E4 }, /* LATIN SMALL LETTER A WITH DIAERESIS */ 357116525Sru { "", 0xE5, 0x013A }, /* LATIN SMALL LETTER L WITH ACUTE */ 358116525Sru { "", 0xE6, 0x0107 }, /* LATIN SMALL LETTER C WITH ACUTE */ 359116525Sru { "", 0xE7, 0x00E7 }, /* LATIN SMALL LETTER C WITH CEDILLA */ 360116525Sru { "", 0xE8, 0x010D }, /* LATIN SMALL LETTER C WITH CARON */ 361116525Sru { "", 0xE9, 0x00E9 }, /* LATIN SMALL LETTER E WITH ACUTE */ 362116525Sru { "", 0xEA, 0x0119 }, /* LATIN SMALL LETTER E WITH OGONEK */ 363116525Sru { "", 0xEB, 0x00EB }, /* LATIN SMALL LETTER E WITH DIAERESIS */ 364116525Sru { "", 0xEC, 0x011B }, /* LATIN SMALL LETTER E WITH CARON */ 365116525Sru { "", 0xED, 0x00ED }, /* LATIN SMALL LETTER I WITH ACUTE */ 366116525Sru { "", 0xEE, 0x00EE }, /* LATIN SMALL LETTER I WITH CIRCUMFLEX */ 367116525Sru { "", 0xEF, 0x010F }, /* LATIN SMALL LETTER D WITH CARON */ 368116525Sru { "", 0xF0, 0x0111 }, /* LATIN SMALL LETTER D WITH STROKE */ 369116525Sru { "", 0xF1, 0x0144 }, /* LATIN SMALL LETTER N WITH ACUTE */ 370116525Sru { "", 0xF2, 0x0148 }, /* LATIN SMALL LETTER N WITH CARON */ 371116525Sru { "", 0xF3, 0x00F3 }, /* LATIN SMALL LETTER O WITH ACUTE */ 372116525Sru { "", 0xF4, 0x00F4 }, /* LATIN SMALL LETTER O WITH CIRCUMFLEX */ 373116525Sru { "", 0xF5, 0x0151 }, /* LATIN SMALL LETTER O WITH DOUBLE ACUTE */ 374116525Sru { "", 0xF6, 0x00F6 }, /* LATIN SMALL LETTER O WITH DIAERESIS */ 375116525Sru { "divide", 0xF7, 0x00F7 }, /* DIVISION SIGN */ 376116525Sru { "", 0xF8, 0x0159 }, /* LATIN SMALL LETTER R WITH CARON */ 377116525Sru { "", 0xF9, 0x016F }, /* LATIN SMALL LETTER U WITH RING ABOVE */ 378116525Sru { "", 0xFA, 0x00FA }, /* LATIN SMALL LETTER U WITH ACUTE */ 379116525Sru { "", 0xFB, 0x0171 }, /* LATIN SMALL LETTER U WITH DOUBLE ACUTE */ 380116525Sru { "", 0xFC, 0x00FC }, /* LATIN SMALL LETTER U WITH DIAERESIS */ 381116525Sru { "", 0xFD, 0x00FD }, /* LATIN SMALL LETTER Y WITH ACUTE */ 382116525Sru { "", 0xFE, 0x0163 }, /* LATIN SMALL LETTER T WITH CEDILLA */ 383116525Sru { "", 0xFF, 0x02D9 }, /* DOT ABOVE (Mandarin Chinese light tone) */ 384116525Sru { NULL, 0, 0 } 385116525Sru}; 386116525Sru 38793139Sruencoding_type encoding_table[] = { 38893139Sru { no_encoding, "(no encoding)", NULL }, 389114472Sru { US_ASCII, "US-ASCII", us_ascii_map }, 390146515Sru { ISO_8859_1, "iso-8859-1", (iso_map_type *) iso8859_1_map }, 391146515Sru { ISO_8859_2, "iso-8859-2", (iso_map_type *) iso8859_2_map }, 392146515Sru { ISO_8859_3, "iso-8859-3", NULL }, 393146515Sru { ISO_8859_4, "iso-8859-4", NULL }, 394146515Sru { ISO_8859_5, "iso-8859-5", NULL }, 395146515Sru { ISO_8859_6, "iso-8859-6", NULL }, 396146515Sru { ISO_8859_7, "iso-8859-7", NULL }, 397146515Sru { ISO_8859_8, "iso-8859-8", NULL }, 398146515Sru { ISO_8859_9, "iso-8859-9", NULL }, 399146515Sru { ISO_8859_10, "iso-8859-10", NULL }, 400146515Sru { ISO_8859_11, "iso-8859-11", NULL }, 401146515Sru { ISO_8859_12, "iso-8859-12", NULL }, 402146515Sru { ISO_8859_13, "iso-8859-13", NULL }, 403146515Sru { ISO_8859_14, "iso-8859-14", NULL }, 404146515Sru { ISO_8859_15, "iso-8859-15", (iso_map_type *) iso8859_15_map }, 40593139Sru { last_encoding_code, NULL, NULL } 40693139Sru}; 40793139Sru 40893139Sru 40993139Srulanguage_type language_table[] = { 41056160Sru { aa, "aa", "Afar" }, 41156160Sru { ab, "ab", "Abkhazian" }, 41256160Sru { af, "af", "Afrikaans" }, 41356160Sru { am, "am", "Amharic" }, 41456160Sru { ar, "ar", "Arabic" }, 41556160Sru { as, "as", "Assamese" }, 41656160Sru { ay, "ay", "Aymara" }, 41756160Sru { az, "az", "Azerbaijani" }, 41856160Sru { ba, "ba", "Bashkir" }, 41956160Sru { be, "be", "Byelorussian" }, 42056160Sru { bg, "bg", "Bulgarian" }, 42156160Sru { bh, "bh", "Bihari" }, 42256160Sru { bi, "bi", "Bislama" }, 42356160Sru { bn, "bn", "Bengali; Bangla" }, 42456160Sru { bo, "bo", "Tibetan" }, 42556160Sru { br, "br", "Breton" }, 42656160Sru { ca, "ca", "Catalan" }, 42756160Sru { co, "co", "Corsican" }, 42856160Sru { cs, "cs", "Czech" }, 42956160Sru { cy, "cy", "Welsh" }, 43056160Sru { da, "da", "Danish" }, 43156160Sru { de, "de", "German" }, 43256160Sru { dz, "dz", "Bhutani" }, 43356160Sru { el, "el", "Greek" }, 43456160Sru { en, "en", "English" }, 43556160Sru { eo, "eo", "Esperanto" }, 43656160Sru { es, "es", "Spanish" }, 43756160Sru { et, "et", "Estonian" }, 43856160Sru { eu, "eu", "Basque" }, 43956160Sru { fa, "fa", "Persian" }, 44056160Sru { fi, "fi", "Finnish" }, 44156160Sru { fj, "fj", "Fiji" }, 44256160Sru { fo, "fo", "Faroese" }, 44356160Sru { fr, "fr", "French" }, 44456160Sru { fy, "fy", "Frisian" }, 44556160Sru { ga, "ga", "Irish" }, 44656160Sru { gd, "gd", "Scots Gaelic" }, 44756160Sru { gl, "gl", "Galician" }, 44856160Sru { gn, "gn", "Guarani" }, 44956160Sru { gu, "gu", "Gujarati" }, 45056160Sru { ha, "ha", "Hausa" }, 45156160Sru { he, "he", "Hebrew" } /* (formerly iw) */, 45256160Sru { hi, "hi", "Hindi" }, 45356160Sru { hr, "hr", "Croatian" }, 45456160Sru { hu, "hu", "Hungarian" }, 45556160Sru { hy, "hy", "Armenian" }, 45656160Sru { ia, "ia", "Interlingua" }, 45756160Sru { id, "id", "Indonesian" } /* (formerly in) */, 45856160Sru { ie, "ie", "Interlingue" }, 45956160Sru { ik, "ik", "Inupiak" }, 46056160Sru { is, "is", "Icelandic" }, 46156160Sru { it, "it", "Italian" }, 46256160Sru { iu, "iu", "Inuktitut" }, 46356160Sru { ja, "ja", "Japanese" }, 46456160Sru { jw, "jw", "Javanese" }, 46556160Sru { ka, "ka", "Georgian" }, 46656160Sru { kk, "kk", "Kazakh" }, 46756160Sru { kl, "kl", "Greenlandic" }, 46856160Sru { km, "km", "Cambodian" }, 46956160Sru { kn, "kn", "Kannada" }, 47056160Sru { ko, "ko", "Korean" }, 47156160Sru { ks, "ks", "Kashmiri" }, 47256160Sru { ku, "ku", "Kurdish" }, 47356160Sru { ky, "ky", "Kirghiz" }, 47456160Sru { la, "la", "Latin" }, 47556160Sru { ln, "ln", "Lingala" }, 47656160Sru { lo, "lo", "Laothian" }, 47756160Sru { lt, "lt", "Lithuanian" }, 47856160Sru { lv, "lv", "Latvian, Lettish" }, 47956160Sru { mg, "mg", "Malagasy" }, 48056160Sru { mi, "mi", "Maori" }, 48156160Sru { mk, "mk", "Macedonian" }, 48256160Sru { ml, "ml", "Malayalam" }, 48356160Sru { mn, "mn", "Mongolian" }, 48456160Sru { mo, "mo", "Moldavian" }, 48556160Sru { mr, "mr", "Marathi" }, 48656160Sru { ms, "ms", "Malay" }, 48756160Sru { mt, "mt", "Maltese" }, 48856160Sru { my, "my", "Burmese" }, 48956160Sru { na, "na", "Nauru" }, 49056160Sru { ne, "ne", "Nepali" }, 49156160Sru { nl, "nl", "Dutch" }, 49256160Sru { no, "no", "Norwegian" }, 49356160Sru { oc, "oc", "Occitan" }, 49456160Sru { om, "om", "(Afan) Oromo" }, 49556160Sru { or, "or", "Oriya" }, 49656160Sru { pa, "pa", "Punjabi" }, 49756160Sru { pl, "pl", "Polish" }, 49856160Sru { ps, "ps", "Pashto, Pushto" }, 49956160Sru { pt, "pt", "Portuguese" }, 50056160Sru { qu, "qu", "Quechua" }, 50156160Sru { rm, "rm", "Rhaeto-Romance" }, 50256160Sru { rn, "rn", "Kirundi" }, 50356160Sru { ro, "ro", "Romanian" }, 50456160Sru { ru, "ru", "Russian" }, 50556160Sru { rw, "rw", "Kinyarwanda" }, 50656160Sru { sa, "sa", "Sanskrit" }, 50756160Sru { sd, "sd", "Sindhi" }, 50856160Sru { sg, "sg", "Sangro" }, 50956160Sru { sh, "sh", "Serbo-Croatian" }, 51056160Sru { si, "si", "Sinhalese" }, 51156160Sru { sk, "sk", "Slovak" }, 51256160Sru { sl, "sl", "Slovenian" }, 51356160Sru { sm, "sm", "Samoan" }, 51456160Sru { sn, "sn", "Shona" }, 51556160Sru { so, "so", "Somali" }, 51656160Sru { sq, "sq", "Albanian" }, 51756160Sru { sr, "sr", "Serbian" }, 51856160Sru { ss, "ss", "Siswati" }, 51956160Sru { st, "st", "Sesotho" }, 52056160Sru { su, "su", "Sundanese" }, 52156160Sru { sv, "sv", "Swedish" }, 52256160Sru { sw, "sw", "Swahili" }, 52356160Sru { ta, "ta", "Tamil" }, 52456160Sru { te, "te", "Telugu" }, 52556160Sru { tg, "tg", "Tajik" }, 52656160Sru { th, "th", "Thai" }, 52756160Sru { ti, "ti", "Tigrinya" }, 52856160Sru { tk, "tk", "Turkmen" }, 52956160Sru { tl, "tl", "Tagalog" }, 53056160Sru { tn, "tn", "Setswana" }, 53156160Sru { to, "to", "Tonga" }, 53256160Sru { tr, "tr", "Turkish" }, 53356160Sru { ts, "ts", "Tsonga" }, 53456160Sru { tt, "tt", "Tatar" }, 53556160Sru { tw, "tw", "Twi" }, 53656160Sru { ug, "ug", "Uighur" }, 53756160Sru { uk, "uk", "Ukrainian" }, 53856160Sru { ur, "ur", "Urdu" }, 53956160Sru { uz, "uz", "Uzbek" }, 54056160Sru { vi, "vi", "Vietnamese" }, 54156160Sru { vo, "vo", "Volapuk" }, 54256160Sru { wo, "wo", "Wolof" }, 54356160Sru { xh, "xh", "Xhosa" }, 54456160Sru { yi, "yi", "Yiddish" } /* (formerly ji) */, 54556160Sru { yo, "yo", "Yoruba" }, 54656160Sru { za, "za", "Zhuang" }, 54756160Sru { zh, "zh", "Chinese" }, 54856160Sru { zu, "zu", "Zulu" }, 54956160Sru { last_language_code, NULL, NULL } 55056160Sru}; 55193139Sru 55256160Sru/* @documentlanguage. Maybe we'll do something useful with this in the 55356160Sru future. For now, we just recognize it. */ 554146515Sru 555146515Sru/* XML documents can make use of this data. Unfortunately, it clashes with 556146515Sru the structure currently used. So instead of enclosing content into 557146515Sru a language block, we just output an empty element. Anyways, a stream based 558146515Sru parser can make good use of it. */ 55956160Sruvoid 560146515Srucm_documentlanguage (void) 56156160Sru{ 56256160Sru language_code_type c; 563116525Sru char *lang_arg; 56456160Sru 56556160Sru /* Read the line with the language code on it. */ 56693139Sru get_rest_of_line (0, &lang_arg); 56756160Sru 56856160Sru /* Linear search is fine these days. */ 56956160Sru for (c = aa; c != last_language_code; c++) 57056160Sru { 57156160Sru if (strcmp (lang_arg, language_table[c].abbrev) == 0) 57256160Sru { /* Set current language code. */ 57356160Sru language_code = c; 57456160Sru break; 57556160Sru } 57656160Sru } 57756160Sru 57856160Sru /* If we didn't find this code, complain. */ 57956160Sru if (c == last_language_code) 58056160Sru warning (_("%s is not a valid ISO 639 language code"), lang_arg); 58156160Sru 582146515Sru if (xml && !docbook) 583146515Sru { 584146515Sru xml_insert_element_with_attribute (DOCUMENTLANGUAGE, START, "xml:lang=\"%s\"", lang_arg); 585146515Sru xml_insert_element (DOCUMENTLANGUAGE, END); 586146515Sru } 587146515Sru 58856160Sru free (lang_arg); 58956160Sru} 59056160Sru 59156160Sru 59256160Sru 59393139Sru/* Search through the encoding table for the given character, returning 59493139Sru its equivalent. */ 59593139Sru 59693139Srustatic int 597146515Srucm_search_iso_map (char *html) 59893139Sru{ 59993139Sru int i; 60093139Sru iso_map_type *iso = encoding_table[document_encoding_code].isotab; 60193139Sru 60293139Sru /* If no conversion table for this encoding, quit. */ 60393139Sru if (!iso) 60493139Sru return -1; 60593139Sru 606114472Sru for (i = 0; iso[i].html; i++) 60793139Sru { 60893139Sru if (strcmp (html, iso[i].html) == 0) 60993139Sru return i; 61093139Sru } 61193139Sru 61293139Sru return -1; 61393139Sru} 61493139Sru 61593139Sru 61693139Sru/* @documentencoding. Set the translation table. */ 61793139Sru 61856160Sruvoid 619146515Srucm_documentencoding (void) 62056160Sru{ 621146515Sru if (!handling_delayed_writes) 622146515Sru { 623146515Sru encoding_code_type enc; 624146515Sru char *enc_arg; 625116525Sru 626146515Sru /* This is ugly and probably needs to apply to other commands' 627146515Sru argument parsing as well. When we're doing @documentencoding, 628146515Sru we're generally in the frontmatter of the document, and so the. 629146515Sru expansion in html/xml/docbook would generally be the empty string. 630146515Sru (Because those modes wait until the first normal text of the 631146515Sru document to start outputting.) The result would thus be a warning 632146515Sru "unrecognized encoding name `'". Sigh. */ 633146515Sru int save_html = html; 634146515Sru int save_xml = xml; 63593139Sru 636146515Sru html = 0; 637146515Sru xml = 0; 638146515Sru get_rest_of_line (1, &enc_arg); 639146515Sru html = save_html; 640146515Sru xml = save_xml; 641146515Sru 642146515Sru /* See if we have this encoding. */ 643146515Sru for (enc = no_encoding+1; enc != last_encoding_code; enc++) 64493139Sru { 645146515Sru if (strcasecmp (enc_arg, encoding_table[enc].encname) == 0) 646146515Sru { 647146515Sru document_encoding_code = enc; 648146515Sru break; 649146515Sru } 65093139Sru } 651146515Sru 652146515Sru /* If we didn't find this code, complain. */ 653146515Sru if (enc == last_encoding_code) 654146515Sru { 655146515Sru warning (_("unrecognized encoding name `%s'"), enc_arg); 656146515Sru /* Let the previous one go. */ 657146515Sru if (unknown_encoding && *unknown_encoding) 658146515Sru free (unknown_encoding); 659146515Sru unknown_encoding = xstrdup (enc_arg); 660146515Sru } 661146515Sru 662146515Sru else if (encoding_table[document_encoding_code].isotab == NULL) 663146515Sru warning (_("sorry, encoding `%s' not supported"), enc_arg); 664146515Sru 665146515Sru free (enc_arg); 66693139Sru } 667146515Sru else if (xml) 668146515Sru { 669146515Sru char *encoding = current_document_encoding (); 67093139Sru 671146515Sru if (encoding && *encoding) 672146515Sru { 673146515Sru insert_string (" encoding=\""); 674146515Sru insert_string (encoding); 675146515Sru insert_string ("\""); 676146515Sru } 67793139Sru 678146515Sru free (encoding); 679146515Sru } 680146515Sru} 68193139Sru 682146515Sruchar * 683146515Srucurrent_document_encoding (void) 684146515Sru{ 685146515Sru if (document_encoding_code != no_encoding) 686146515Sru return xstrdup (encoding_table[document_encoding_code].encname); 687146515Sru else if (unknown_encoding && *unknown_encoding) 688146515Sru return xstrdup (unknown_encoding); 689146515Sru else 690146515Sru return xstrdup (""); 69156160Sru} 69256160Sru 69356160Sru 694146515Sru/* If html or xml output, add &HTML_STR; to the output. If not html and 69593139Sru the user requested encoded output, add the real 8-bit character 69693139Sru corresponding to HTML_STR from the translation tables. Otherwise, 69793139Sru add INFO_STR. */ 69893139Sru 699146515Srustatic void 700146515Sruadd_encoded_char (char *html_str, char *info_str) 70193139Sru{ 702114472Sru if (html) 70393139Sru add_word_args ("&%s;", html_str); 704114472Sru else if (xml) 705114472Sru xml_insert_entity (html_str); 70693139Sru else if (enable_encoding) 70793139Sru { 70893139Sru /* Look for HTML_STR in the current translation table. */ 70993139Sru int rc = cm_search_iso_map (html_str); 71093139Sru if (rc >= 0) 71193139Sru /* We found it, add the real character. */ 71293139Sru add_char (encoding_table[document_encoding_code].isotab[rc].bytecode); 71393139Sru else 71493139Sru { /* We didn't find it, that seems bad. */ 71593139Sru warning (_("invalid encoded character `%s'"), html_str); 71693139Sru add_word (info_str); 71793139Sru } 71893139Sru } 71993139Sru else 72093139Sru add_word (info_str); 72193139Sru} 72293139Sru 72393139Sru 72456160Sru 72593139Sru/* Output an accent for HTML or XML. */ 72693139Sru 72793139Srustatic void 728146515Srucm_accent_generic_html (int arg, int start, int end, char *html_supported, 729146515Sru int single, int html_solo_standalone, char *html_solo) 73093139Sru{ 73193139Sru static int valid_html_accent; /* yikes */ 732116525Sru 73393139Sru if (arg == START) 73493139Sru { /* If HTML has good support for this character, use it. */ 73593139Sru if (strchr (html_supported, curchar ())) 73693139Sru { /* Yes; start with an ampersand. The character itself 73793139Sru will be added later in read_command (makeinfo.c). */ 738114472Sru int saved_escape_html = escape_html; 739114472Sru escape_html = 0; 74093139Sru valid_html_accent = 1; 74193139Sru add_char ('&'); 742114472Sru escape_html = saved_escape_html; 74393139Sru } 74493139Sru else 745146515Sru { /* @dotless{i} is not listed in html_supported but HTML entities 746146515Sru starting with `i' can be used, such as î. */ 747146515Sru int save_input_text_offset = input_text_offset; 748146515Sru char *accent_contents; 749146515Sru 750146515Sru get_until_in_braces ("\n", &accent_contents); 751146515Sru canon_white (accent_contents); 752146515Sru 753146515Sru if (strstr (accent_contents, "@dotless{i")) 754146515Sru { 755146515Sru add_word_args ("&%c", accent_contents[9]); 756146515Sru valid_html_accent = 1; 757146515Sru } 758146515Sru else 759146515Sru { 760146515Sru /* Search for @dotless{} wasn't successful, so rewind. */ 761146515Sru input_text_offset = save_input_text_offset; 762146515Sru valid_html_accent = 0; 763146515Sru if (html_solo_standalone) 764146515Sru { /* No special HTML support, so produce standalone char. */ 765146515Sru if (xml) 766146515Sru xml_insert_entity (html_solo); 767146515Sru else 768146515Sru add_word_args ("&%s;", html_solo); 769146515Sru } 770114472Sru else 771146515Sru /* If the html_solo does not exist as standalone character 772146515Sru (namely ˆ ` ˜), then we use 773146515Sru the single character version instead. */ 774146515Sru add_char (single); 775146515Sru } 776146515Sru 777146515Sru free (accent_contents); 77893139Sru } 77993139Sru } 78093139Sru else if (arg == END) 78193139Sru { /* Only if we saw a valid_html_accent can we use the full 78293139Sru HTML accent (umlaut, grave ...). */ 78393139Sru if (valid_html_accent) 78493139Sru { 78593139Sru add_word (html_solo); 78693139Sru add_char (';'); 78793139Sru } 78893139Sru } 78993139Sru} 79093139Sru 79193139Sru 79293139Srustatic void 793146515Srucm_accent_generic_no_headers (int arg, int start, int end, int single, 794146515Sru char *html_solo) 79593139Sru{ 79693139Sru if (arg == END) 79793139Sru { 79893139Sru if (no_encoding) 79993139Sru add_char (single); 80093139Sru else 80193139Sru { 80293139Sru int rc; 80393139Sru char *buffer = xmalloc (1 + strlen (html_solo) + 1); 80493139Sru buffer[0] = output_paragraph[end - 1]; 80593139Sru buffer[1] = 0; 80693139Sru strcat (buffer, html_solo); 807116525Sru 80893139Sru rc = cm_search_iso_map (buffer); 80993139Sru if (rc >= 0) 81093139Sru /* A little bit tricky ;-) 81193139Sru Here we replace the character which has 81293139Sru been inserted in read_command with 81393139Sru the value we have found in converting table 81493139Sru Does there exist a better way to do this? kama. */ 81593139Sru output_paragraph[end - 1] 81693139Sru = encoding_table[document_encoding_code].isotab[rc].bytecode; 81793139Sru else 81893139Sru { /* If we didn't find a translation for this character, 81993139Sru put the single instead. E.g., &Xuml; does not exist so X¨ 820116525Sru should be produced. */ 821146515Sru /* When the below warning is issued, an author has nothing 822146515Sru wrong in their document, let alone anything ``fixable'' 823146515Sru on their side. So it is commented out for now. */ 824146515Sru /* warning (_("%s is an invalid ISO code, using %c"), 825146515Sru buffer, single); */ 82693139Sru add_char (single); 82793139Sru } 828116525Sru 82993139Sru free (buffer); 83093139Sru } 83193139Sru } 83293139Sru} 83393139Sru 83493139Sru 83593139Sru 83656160Sru/* Accent commands that take explicit arguments and don't have any 83756160Sru special HTML support. */ 83856160Sru 83956160Sruvoid 840146515Srucm_accent (int arg) 84156160Sru{ 84293139Sru int old_escape_html = escape_html; 84393139Sru escape_html = 0; 84456160Sru if (arg == START) 84556160Sru { 84656160Sru /* Must come first to avoid ambiguity with overdot. */ 84756160Sru if (strcmp (command, "udotaccent") == 0) /* underdot */ 84856160Sru add_char ('.'); 84956160Sru } 85056160Sru else if (arg == END) 85156160Sru { 85256160Sru if (strcmp (command, "=") == 0) /* macron */ 85393139Sru add_word ((html || xml) ? "¯" : "="); 85456160Sru else if (strcmp (command, "H") == 0) /* Hungarian umlaut */ 85556160Sru add_word ("''"); 85656160Sru else if (strcmp (command, "dotaccent") == 0) /* overdot */ 85756160Sru add_meta_char ('.'); 85856160Sru else if (strcmp (command, "ringaccent") == 0) /* ring */ 85956160Sru add_char ('*'); 86056160Sru else if (strcmp (command, "tieaccent") == 0) /* long tie */ 86156160Sru add_char ('['); 86256160Sru else if (strcmp (command, "u") == 0) /* breve */ 86356160Sru add_char ('('); 86456160Sru else if (strcmp (command, "ubaraccent") == 0) /* underbar */ 86556160Sru add_char ('_'); 86656160Sru else if (strcmp (command, "v") == 0) /* hacek/check */ 86793139Sru add_word ((html || xml) ? "<" : "<"); 86856160Sru } 86993139Sru escape_html = old_escape_html; 87056160Sru} 87156160Sru 87256160Sru/* Common routine for the accent characters that have support in HTML. 87356160Sru If the character being accented is in the HTML_SUPPORTED set, then 87456160Sru produce &CHTML_SOLO;, for example, Ä for an A-umlaut. If not in 87556160Sru HTML_SUPPORTED, just produce &HTML_SOLO;X for the best we can do with 87693139Sru at an X-umlaut. If not producing HTML, just use SINGLE, a 87756160Sru character such as " which is the best plain text representation we 87893139Sru can manage. If HTML_SOLO_STANDALONE is nonzero the given HTML_SOLO 87993139Sru exists as valid standalone character in HTML, e.g., ¨. */ 88056160Sru 88156160Srustatic void 882146515Srucm_accent_generic (int arg, int start, int end, char *html_supported, 883146515Sru int single, int html_solo_standalone, char *html_solo) 88456160Sru{ 885146515Sru /* Accentuating space characters makes no sense, so issue a warning. */ 886146515Sru if (arg == START && isspace (input_text[input_text_offset])) 887146515Sru warning ("Accent command `@%s' must not be followed by whitespace", 888146515Sru command); 889146515Sru 89093139Sru if (html || xml) 89193139Sru cm_accent_generic_html (arg, start, end, html_supported, 89293139Sru single, html_solo_standalone, html_solo); 89393139Sru else if (no_headers) 89493139Sru cm_accent_generic_no_headers (arg, start, end, single, html_solo); 89556160Sru else if (arg == END) 896116525Sru { 89793139Sru if (enable_encoding) 89893139Sru /* use 8-bit if available */ 89993139Sru cm_accent_generic_no_headers (arg, start, end, single, html_solo); 90093139Sru else 90193139Sru /* use regular character */ 90293139Sru add_char (single); 90356160Sru } 90456160Sru} 90556160Sru 90656160Sruvoid 907146515Srucm_accent_umlaut (int arg, int start, int end) 90856160Sru{ 90956160Sru cm_accent_generic (arg, start, end, "aouAOUEeIiy", '"', 1, "uml"); 91056160Sru} 91156160Sru 91256160Sruvoid 913146515Srucm_accent_acute (int arg, int start, int end) 91456160Sru{ 91556160Sru cm_accent_generic (arg, start, end, "AEIOUYaeiouy", '\'', 1, "acute"); 91656160Sru} 91756160Sru 91856160Sruvoid 919146515Srucm_accent_cedilla (int arg, int start, int end) 92056160Sru{ 92156160Sru cm_accent_generic (arg, start, end, "Cc", ',', 1, "cedil"); 92256160Sru} 92356160Sru 92456160Sruvoid 925146515Srucm_accent_hat (int arg, int start, int end) 92656160Sru{ 92756160Sru cm_accent_generic (arg, start, end, "AEIOUaeiou", '^', 0, "circ"); 92856160Sru} 92956160Sru 93056160Sruvoid 931146515Srucm_accent_grave (int arg, int start, int end) 93256160Sru{ 93356160Sru cm_accent_generic (arg, start, end, "AEIOUaeiou", '`', 0, "grave"); 93456160Sru} 93556160Sru 93656160Sruvoid 937146515Srucm_accent_tilde (int arg, int start, int end) 93856160Sru{ 93993139Sru cm_accent_generic (arg, start, end, "ANOano", '~', 0, "tilde"); 94056160Sru} 94156160Sru 94256160Sru 94356160Sru 94456160Sru/* Non-English letters/characters that don't insert themselves. */ 94556160Sruvoid 946146515Srucm_special_char (int arg) 94756160Sru{ 94893139Sru int old_escape_html = escape_html; 94993139Sru escape_html = 0; 95093139Sru 95156160Sru if (arg == START) 95256160Sru { 95356160Sru if ((*command == 'L' || *command == 'l' 95456160Sru || *command == 'O' || *command == 'o') 95556160Sru && command[1] == 0) 95656160Sru { /* Lslash lslash Oslash oslash. 95756160Sru Lslash and lslash aren't supported in HTML. */ 958146515Sru if (command[0] == 'O') 95993139Sru add_encoded_char ("Oslash", "/O"); 960146515Sru else if (command[0] == 'o') 96193139Sru add_encoded_char ("oslash", "/o"); 96256160Sru else 96356160Sru add_word_args ("/%c", command[0]); 96456160Sru } 96556160Sru else if (strcmp (command, "exclamdown") == 0) 96693139Sru add_encoded_char ("iexcl", "!"); 967146515Sru else if (strcmp (command, "questiondown") == 0) 968146515Sru add_encoded_char ("iquest", "?"); 969146515Sru else if (strcmp (command, "euro") == 0) 970146515Sru /* http://www.cs.tut.fi/~jkorpela/html/euro.html suggests that 971146515Sru € degrades best in old browsers. */ 972146515Sru add_encoded_char ("euro", "Euro "); 97356160Sru else if (strcmp (command, "pounds") == 0) 97493139Sru add_encoded_char ("pound" , "#"); 975146515Sru else if (strcmp (command, "ordf") == 0) 976146515Sru add_encoded_char ("ordf" , "a"); 977146515Sru else if (strcmp (command, "ordm") == 0) 978146515Sru add_encoded_char ("ordm" , "o"); 97956160Sru else if (strcmp (command, "AE") == 0) 98093139Sru add_encoded_char ("AElig", command); 98156160Sru else if (strcmp (command, "ae") == 0) 98293139Sru add_encoded_char ("aelig", command); 98356160Sru else if (strcmp (command, "OE") == 0) 984146515Sru add_encoded_char ("OElig", command); 98556160Sru else if (strcmp (command, "oe") == 0) 986146515Sru add_encoded_char ("oelig", command); 98756160Sru else if (strcmp (command, "AA") == 0) 98893139Sru add_encoded_char ("Aring", command); 98956160Sru else if (strcmp (command, "aa") == 0) 99093139Sru add_encoded_char ("aring", command); 99156160Sru else if (strcmp (command, "ss") == 0) 99293139Sru add_encoded_char ("szlig", command); 99356160Sru else 99456160Sru line_error ("cm_special_char internal error: command=@%s", command); 99556160Sru } 99693139Sru escape_html = old_escape_html; 99756160Sru} 99856160Sru 99956160Sru/* Dotless i or j. */ 100056160Sruvoid 1001146515Srucm_dotless (int arg, int start, int end) 100256160Sru{ 100356160Sru if (arg == END) 100456160Sru { 100593139Sru xml_no_para --; 100656160Sru if (output_paragraph[start] != 'i' && output_paragraph[start] != 'j') 100756160Sru /* This error message isn't perfect if the argument is multiple 100856160Sru characters, but it doesn't seem worth getting right. */ 100956160Sru line_error (_("%c%s expects `i' or `j' as argument, not `%c'"), 101056160Sru COMMAND_PREFIX, command, output_paragraph[start]); 101156160Sru 101256160Sru else if (end - start != 1) 101356160Sru line_error (_("%c%s expects a single character `i' or `j' as argument"), 101456160Sru COMMAND_PREFIX, command); 101556160Sru 101656160Sru /* We've already inserted the `i' or `j', so nothing to do. */ 101756160Sru } 101893139Sru else 101993139Sru xml_no_para ++; 102056160Sru} 1021