/*

 * Copyright © 2009  Red Hat, Inc.

 * Copyright © 2011  Google, Inc.

 *

 *  This is part of HarfBuzz, a text shaping library.

 *

 * Permission is hereby granted, without written agreement and without

 * license or royalty fees, to use, copy, modify, and distribute this

 * software and its documentation for any purpose, provided that the

 * above copyright notice and the following two paragraphs appear in

 * all copies of this software.

 *

 * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR

 * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES

 * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN

 * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH

 * DAMAGE.

 *

 * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,

 * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND

 * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS

 * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO

 * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.

 *

 * Red Hat Author(s): Behdad Esfahbod

 * Google Author(s): Behdad Esfahbod, Roozbeh Pournader

 */

#include "hb-private.hh"

#include <string.h>

/* hb_script_t */

static hb_tag_t

hb_ot_old_tag_from_script (hb_script_t script)

{

  /* This seems to be accurate as of end of 2012. */

  switch ((hb_tag_t) script) {

    case HB_SCRIPT_INVALID:             return HB_OT_TAG_DEFAULT_SCRIPT;

    /* KATAKANA and HIRAGANA both map to 'kana' */

    case HB_SCRIPT_HIRAGANA:            return HB_TAG('k','a','n','a');

    /* Spaces at the end are preserved, unlike ISO 15924 */

    case HB_SCRIPT_LAO:                 return HB_TAG('l','a','o',' ');

    case HB_SCRIPT_YI:                  return HB_TAG('y','i',' ',' ');

    /* Unicode-5.0 additions */

    case HB_SCRIPT_NKO:                 return HB_TAG('n','k','o',' ');

    /* Unicode-5.1 additions */

    case HB_SCRIPT_VAI:                 return HB_TAG('v','a','i',' ');

    /* Unicode-5.2 additions */

    /* Unicode-6.0 additions */

  }

  /* Else, just change first char to lowercase and return */

  return ((hb_tag_t) script) | 0x20000000u;

}

static hb_script_t

hb_ot_old_tag_to_script (hb_tag_t tag)

{

  if (unlikely (tag == HB_OT_TAG_DEFAULT_SCRIPT))

    return HB_SCRIPT_INVALID;

  /* This side of the conversion is fully algorithmic. */

  /* Any spaces at the end of the tag are replaced by repeating the last

   * letter.  Eg 'nko ' -> 'Nkoo' */

  if (unlikely ((tag & 0x0000FF00u) == 0x00002000u))

    tag |= (tag >> 8) & 0x0000FF00u; /* Copy second letter to third */

  if (unlikely ((tag & 0x000000FFu) == 0x00000020u))

    tag |= (tag >> 8) & 0x000000FFu; /* Copy third letter to fourth */

  /* Change first char to uppercase and return */

  return (hb_script_t) (tag & ~0x20000000u);

}

static hb_tag_t

hb_ot_new_tag_from_script (hb_script_t script)

{

  switch ((hb_tag_t) script) {

    case HB_SCRIPT_BENGALI:             return HB_TAG('b','n','g','2');

    case HB_SCRIPT_DEVANAGARI:          return HB_TAG('d','e','v','2');

    case HB_SCRIPT_GUJARATI:            return HB_TAG('g','j','r','2');

    case HB_SCRIPT_GURMUKHI:            return HB_TAG('g','u','r','2');

    case HB_SCRIPT_KANNADA:             return HB_TAG('k','n','d','2');

    case HB_SCRIPT_MALAYALAM:           return HB_TAG('m','l','m','2');

    case HB_SCRIPT_ORIYA:               return HB_TAG('o','r','y','2');

    case HB_SCRIPT_TAMIL:               return HB_TAG('t','m','l','2');

    case HB_SCRIPT_TELUGU:              return HB_TAG('t','e','l','2');

    case HB_SCRIPT_MYANMAR:             return HB_TAG('m','y','m','2');

  }

  return HB_OT_TAG_DEFAULT_SCRIPT;

}

static hb_script_t

hb_ot_new_tag_to_script (hb_tag_t tag)

{

  switch (tag) {

    case HB_TAG('b','n','g','2'):       return HB_SCRIPT_BENGALI;

    case HB_TAG('d','e','v','2'):       return HB_SCRIPT_DEVANAGARI;

    case HB_TAG('g','j','r','2'):       return HB_SCRIPT_GUJARATI;

    case HB_TAG('g','u','r','2'):       return HB_SCRIPT_GURMUKHI;

    case HB_TAG('k','n','d','2'):       return HB_SCRIPT_KANNADA;

    case HB_TAG('m','l','m','2'):       return HB_SCRIPT_MALAYALAM;

    case HB_TAG('o','r','y','2'):       return HB_SCRIPT_ORIYA;

    case HB_TAG('t','m','l','2'):       return HB_SCRIPT_TAMIL;

    case HB_TAG('t','e','l','2'):       return HB_SCRIPT_TELUGU;

    case HB_TAG('m','y','m','2'):       return HB_SCRIPT_MYANMAR;

  }

  return HB_SCRIPT_UNKNOWN;

}

/*

 * Complete list at:

 * https://www.microsoft.com/typography/otspec/scripttags.htm

 * https://www.microsoft.com/typography/otspec160/scripttagsProposed.htm

 *

 * Most of the script tags are the same as the ISO 15924 tag but lowercased.

 * So we just do that, and handle the exceptional cases in a switch.

 */

void

hb_ot_tags_from_script (hb_script_t  script,

                        hb_tag_t    *script_tag_1,

                        hb_tag_t    *script_tag_2)

{

  hb_tag_t new_tag;

  *script_tag_2 = HB_OT_TAG_DEFAULT_SCRIPT;

  *script_tag_1 = hb_ot_old_tag_from_script (script);

  new_tag = hb_ot_new_tag_from_script (script);

  if (unlikely (new_tag != HB_OT_TAG_DEFAULT_SCRIPT)) {

    *script_tag_2 = *script_tag_1;

    *script_tag_1 = new_tag;

  }

}

hb_script_t

hb_ot_tag_to_script (hb_tag_t tag)

{

  if (unlikely ((tag & 0x000000FFu) == '2'))

    return hb_ot_new_tag_to_script (tag);

  return hb_ot_old_tag_to_script (tag);

}

/* hb_language_t */

typedef struct {

  char language[4];

  hb_tag_t tag;

} LangTag;

/*

 * Complete list at:

 * http://www.microsoft.com/typography/otspec/languagetags.htm

 *

 * Generated by intersecting the OpenType language tag list from

 * Draft OpenType 1.5 spec, with with the ISO 639-3 codes from

 * 2008-08-04, matching on name, and finally adjusted manually.

 *

 * Updated on 2012-12-07 with more research into remaining codes.

 *

 * Updated on 2013-11-23 based on usage in SIL and Microsoft fonts,

 * the new proposal from Microsoft, and latest ISO 639-3 names.

 *

 * Some items still missing.  Those are commented out at the end.

 * Keep sorted for bsearch.

 *

 * Updated as of 2015-05-06: OT1.7 on MS website has some newer

 * items that we don't have here, eg. Zazaki.  This is the new

 * items in OpenType 1.7 (red items), most of which we have:

 * http://www.microsoft.com/typography/otspec170/languagetags.htm

 */

static const LangTag ot_languages[] = {

  {"aa",        HB_TAG('A','F','R',' ')},       /* Afar */

  {"ab",        HB_TAG('A','B','K',' ')},       /* Abkhazian */

  {"abq",       HB_TAG('A','B','A',' ')},       /* Abaza */

  {"acf",       HB_TAG('F','A','N',' ')},       /* French Antillean */

  {"ach",       HB_TAG('A','C','H',' ')},       /* Acoli */

  {"acr",       HB_TAG('A','C','R',' ')},       /* Achi */

  {"ada",       HB_TAG('D','N','G',' ')},       /* Dangme */

  {"ady",       HB_TAG('A','D','Y',' ')},       /* Adyghe */

  {"af",        HB_TAG('A','F','K',' ')},       /* Afrikaans */

  {"ahg",       HB_TAG('A','G','W',' ')},       /* Agaw */

  {"aii",       HB_TAG('S','W','A',' ')},       /* Swadaya Aramaic */

  {"aio",       HB_TAG('A','I','O',' ')},       /* Aiton */

  {"aiw",       HB_TAG('A','R','I',' ')},       /* Aari */

  {"ak",        HB_TAG('T','W','I',' ')},       /* Akan [macrolanguage] */

  {"aka",       HB_TAG('A','K','A',' ')},       /* Akan */

  {"alt",       HB_TAG('A','L','T',' ')},       /* [Southern] Altai */

  {"am",        HB_TAG('A','M','H',' ')},       /* Amharic */

  {"amf",       HB_TAG('H','B','N',' ')},       /* Hammer-Banna */

  {"an",        HB_TAG('A','R','G',' ')},       /* Aragonese */

  {"ang",       HB_TAG('A','N','G',' ')},       /* Old English (ca. 450-1100) */

  {"ar",        HB_TAG('A','R','A',' ')},       /* Arabic [macrolanguage] */

  {"arb",       HB_TAG('A','R','A',' ')},       /* Standard Arabic */

  {"arn",       HB_TAG('M','A','P',' ')},       /* Mapudungun */

  {"ary",       HB_TAG('M','O','R',' ')},       /* Moroccan Arabic */

  {"as",        HB_TAG('A','S','M',' ')},       /* Assamese */

  {"ast",       HB_TAG('A','S','T',' ')},       /* Asturian/Asturleonese/Bable/Leonese */

  {"ath",       HB_TAG('A','T','H',' ')},       /* Athapaskan [family] */

  {"atj",       HB_TAG('R','C','R',' ')},       /* R-Cree */

  {"atv",       HB_TAG('A','L','T',' ')},       /* [Northern] Altai */

  {"av",        HB_TAG('A','V','R',' ')},       /* Avaric */

  {"awa",       HB_TAG('A','W','A',' ')},       /* Awadhi */

  {"ay",        HB_TAG('A','Y','M',' ')},       /* Aymara [macrolanguage] */

  {"az",        HB_TAG('A','Z','E',' ')},       /* Azerbaijani [macrolanguage] */

  {"azb",       HB_TAG('A','Z','B',' ')},       /* South Azerbaijani */

  {"azj",       HB_TAG('A','Z','E',' ')},       /* North Azerbaijani */

  {"ba",        HB_TAG('B','S','H',' ')},       /* Bashkir */

  {"bad",       HB_TAG('B','A','D','0')},       /* Banda */

  {"bai",       HB_TAG('B','M','L',' ')},       /* Bamileke [family] */

  {"bal",       HB_TAG('B','L','I',' ')},       /* Baluchi [macrolangauge] */

  {"ban",       HB_TAG('B','A','N',' ')},       /* Balinese */

  {"bar",       HB_TAG('B','A','R',' ')},       /* Bavarian */

  {"bbc",       HB_TAG('B','B','C',' ')},       /* Batak Toba */

  {"bci",       HB_TAG('B','A','U',' ')},       /* Baoulé */

  {"bcl",       HB_TAG('B','I','K',' ')},       /* Central Bikol */

  {"bcq",       HB_TAG('B','C','H',' ')},       /* Bench */

  {"bdy",       HB_TAG('B','D','Y',' ')},       /* Bandjalang */

  {"be",        HB_TAG('B','E','L',' ')},       /* Belarusian */

  {"bem",       HB_TAG('B','E','M',' ')},       /* Bemba (Zambia) */

  {"ber",       HB_TAG('B','E','R',' ')},       /* Berber [family] */

  {"bfq",       HB_TAG('B','A','D',' ')},       /* Badaga */

  {"bft",       HB_TAG('B','L','T',' ')},       /* Balti */

  {"bfu",       HB_TAG('L','A','H',' ')},       /* Lahuli */

  {"bfy",       HB_TAG('B','A','G',' ')},       /* Baghelkhandi */

  {"bg",        HB_TAG('B','G','R',' ')},       /* Bulgarian */

  {"bgc",       HB_TAG('B','G','C',' ')},       /* Haryanvi */

  {"bgq",       HB_TAG('B','G','Q',' ')},       /* Bagri */

  {"bhb",       HB_TAG('B','H','I',' ')},       /* Bhili */

  {"bhk",       HB_TAG('B','I','K',' ')},       /* Albay Bicolano (retired code) */

  {"bho",       HB_TAG('B','H','O',' ')},       /* Bhojpuri */

  {"bi",        HB_TAG('B','I','S',' ')},       /* Bislama */

  {"bik",       HB_TAG('B','I','K',' ')},       /* Bikol [macrolanguage] */

  {"bin",       HB_TAG('E','D','O',' ')},       /* Bini */

  {"bjj",       HB_TAG('B','J','J',' ')},       /* Kanauji */

  {"bjt",       HB_TAG('B','L','N',' ')},       /* Balanta-Ganja */

  {"bla",       HB_TAG('B','K','F',' ')},       /* Blackfoot */

  {"ble",       HB_TAG('B','L','N',' ')},       /* Balanta-Kentohe */

  {"blk",       HB_TAG('B','L','K',' ')},       /* Pa'O/Pa'o Karen */

  {"bln",       HB_TAG('B','I','K',' ')},       /* Southern Catanduanes Bikol */

  {"bm",        HB_TAG('B','M','B',' ')},       /* Bambara */

  {"bn",        HB_TAG('B','E','N',' ')},       /* Bengali */

  {"bo",        HB_TAG('T','I','B',' ')},       /* Tibetan */

  {"bpy",       HB_TAG('B','P','Y',' ')},       /* Bishnupriya */

  {"bqi",       HB_TAG('L','R','C',' ')},       /* Bakhtiari */

  {"br",        HB_TAG('B','R','E',' ')},       /* Breton */

  {"bra",       HB_TAG('B','R','I',' ')},       /* Braj Bhasha */

  {"brh",       HB_TAG('B','R','H',' ')},       /* Brahui */

  {"brx",       HB_TAG('B','R','X',' ')},       /* Bodo (India) */

  {"bs",        HB_TAG('B','O','S',' ')},       /* Bosnian */

  {"btb",       HB_TAG('B','T','I',' ')},       /* Beti (Cameroon) */

  {"bto",       HB_TAG('B','I','K',' ')},       /* Rinconada Bikol */

  {"bts",       HB_TAG('B','T','S',' ')},       /* Batak Simalungun */

  {"bug",       HB_TAG('B','U','G',' ')},       /* Buginese */

  {"bxr",       HB_TAG('R','B','U',' ')},       /* Russian Buriat */

  {"byn",       HB_TAG('B','I','L',' ')},       /* Bilen */

  {"ca",        HB_TAG('C','A','T',' ')},       /* Catalan */

  {"cak",       HB_TAG('C','A','K',' ')},       /* Kaqchikel */

  {"cbk",       HB_TAG('C','B','K',' ')},       /* Chavacano */

  {"ce",        HB_TAG('C','H','E',' ')},       /* Chechen */

  {"ceb",       HB_TAG('C','E','B',' ')},       /* Cebuano */

  {"cgg",       HB_TAG('C','G','G',' ')},       /* Chiga */

  {"ch",        HB_TAG('C','H','A',' ')},       /* Chamorro */

  {"chk",       HB_TAG('C','H','K','0')},       /* Chuukese */

  {"cho",       HB_TAG('C','H','O',' ')},       /* Choctaw */

  {"chp",       HB_TAG('C','H','P',' ')},       /* Chipewyan */

  {"chr",       HB_TAG('C','H','R',' ')},       /* Cherokee */

  {"chy",       HB_TAG('C','H','Y',' ')},       /* Cheyenne */

  {"ckb",       HB_TAG('K','U','R',' ')},       /* Central Kurdish (Sorani) */

  {"ckt",       HB_TAG('C','H','K',' ')},       /* Chukchi */

  {"cop",       HB_TAG('C','O','P',' ')},       /* Coptic */

  {"cpp",       HB_TAG('C','P','P',' ')},       /* Creoles */

  {"cr",        HB_TAG('C','R','E',' ')},       /* Cree */

  {"cre",       HB_TAG('Y','C','R',' ')},       /* Y-Cree */

  {"crh",       HB_TAG('C','R','T',' ')},       /* Crimean Tatar */

  {"crj",       HB_TAG('E','C','R',' ')},       /* [Southern] East Cree */

  {"crk",       HB_TAG('W','C','R',' ')},       /* West-Cree */

  {"crl",       HB_TAG('E','C','R',' ')},       /* [Northern] East Cree */

  {"crm",       HB_TAG('M','C','R',' ')},       /* Moose Cree */

  {"crx",       HB_TAG('C','R','R',' ')},       /* Carrier */

  {"cs",        HB_TAG('C','S','Y',' ')},       /* Czech */

  {"csb",       HB_TAG('C','S','B',' ')},       /* Kashubian */

  {"ctg",       HB_TAG('C','T','G',' ')},       /* Chittagonian */

  {"cts",       HB_TAG('B','I','K',' ')},       /* Northern Catanduanes Bikol */

  {"cu",        HB_TAG('C','S','L',' ')},       /* Church Slavic */

  {"cuk",       HB_TAG('C','U','K',' ')},       /* San Blas Kuna */

  {"cv",        HB_TAG('C','H','U',' ')},       /* Chuvash */

  {"cwd",       HB_TAG('D','C','R',' ')},       /* Woods Cree */

  {"cy",        HB_TAG('W','E','L',' ')},       /* Welsh */

  {"da",        HB_TAG('D','A','N',' ')},       /* Danish */

  {"dap",       HB_TAG('N','I','S',' ')},       /* Nisi (India) */

  {"dar",       HB_TAG('D','A','R',' ')},       /* Dargwa */

  {"dax",       HB_TAG('D','A','X',' ')},       /* Dayi */

  {"de",        HB_TAG('D','E','U',' ')},       /* German */

  {"dgo",       HB_TAG('D','G','O',' ')},       /* Dogri */

  {"dhd",       HB_TAG('M','A','W',' ')},       /* Dhundari */

  {"dhg",       HB_TAG('D','H','G',' ')},       /* Dhangu */

  {"din",       HB_TAG('D','N','K',' ')},       /* Dinka [macrolanguage] */

  {"diq",       HB_TAG('D','I','Q',' ')},       /* Dimli */

  {"dje",       HB_TAG('D','J','R',' ')},       /* Zarma */

  {"djr",       HB_TAG('D','J','R','0')},       /* Djambarrpuyngu */

  {"dng",       HB_TAG('D','U','N',' ')},       /* Dungan */

  {"dnj",       HB_TAG('D','N','J',' ')},       /* Dan */

  {"doi",       HB_TAG('D','G','R',' ')},       /* Dogri [macrolanguage] */

  {"dsb",       HB_TAG('L','S','B',' ')},       /* Lower Sorbian */

  {"duj",       HB_TAG('D','U','J',' ')},       /* Dhuwal */

  {"dv",        HB_TAG('D','I','V',' ')},       /* Dhivehi/Divehi/Maldivian */

  {"dyu",       HB_TAG('J','U','L',' ')},       /* Jula */

  {"dz",        HB_TAG('D','Z','N',' ')},       /* Dzongkha */

  {"ee",        HB_TAG('E','W','E',' ')},       /* Ewe */

  {"efi",       HB_TAG('E','F','I',' ')},       /* Efik */

  {"ekk",       HB_TAG('E','T','I',' ')},       /* Standard Estonian */

  {"el",        HB_TAG('E','L','L',' ')},       /* Modern Greek (1453-) */

  {"emk",       HB_TAG('M','N','K',' ')},       /* Eastern Maninkakan */

  {"en",        HB_TAG('E','N','G',' ')},       /* English */

  {"enf",       HB_TAG('F','N','E',' ')},       /* Forest Nenets */

  {"enh",       HB_TAG('T','N','E',' ')},       /* Tundra Nenets */

  {"eo",        HB_TAG('N','T','O',' ')},       /* Esperanto */

  {"eot",       HB_TAG('B','T','I',' ')},       /* Beti (Côte d'Ivoire) */

  {"es",        HB_TAG('E','S','P',' ')},       /* Spanish */

  {"esu",       HB_TAG('E','S','U',' ')},       /* Central Yupik */

  {"et",        HB_TAG('E','T','I',' ')},       /* Estonian [macrolanguage] */

  {"eu",        HB_TAG('E','U','Q',' ')},       /* Basque */

  {"eve",       HB_TAG('E','V','N',' ')},       /* Even */

  {"evn",       HB_TAG('E','V','K',' ')},       /* Evenki */

  {"fa",        HB_TAG('F','A','R',' ')},       /* Persian [macrolanguage] */

  {"fan",       HB_TAG('F','A','N','0')},       /* Fang */

  {"fat",       HB_TAG('F','A','T',' ')},       /* Fanti */

  {"ff",        HB_TAG('F','U','L',' ')},       /* Fulah [macrolanguage] */

  {"fi",        HB_TAG('F','I','N',' ')},       /* Finnish */

  {"fil",       HB_TAG('P','I','L',' ')},       /* Filipino */

  {"fj",        HB_TAG('F','J','I',' ')},       /* Fijian */

  {"flm",       HB_TAG('H','A','L',' ')},       /* Halam */

  {"fo",        HB_TAG('F','O','S',' ')},       /* Faroese */

  {"fon",       HB_TAG('F','O','N',' ')},       /* Fon */

  {"fr",        HB_TAG('F','R','A',' ')},       /* French */

  {"frc",       HB_TAG('F','R','C',' ')},       /* Cajun French */

  {"frp",       HB_TAG('F','R','P',' ')},       /* Arpitan/Francoprovençal */

  {"fuf",       HB_TAG('F','T','A',' ')},       /* Futa */

  {"fur",       HB_TAG('F','R','L',' ')},       /* Friulian */

  {"fuv",       HB_TAG('F','U','V',' ')},       /* Nigerian Fulfulde */

  {"fy",        HB_TAG('F','R','I',' ')},       /* Western Frisian */

  {"ga",        HB_TAG('I','R','I',' ')},       /* Irish */

  {"gaa",       HB_TAG('G','A','D',' ')},       /* Ga */

  {"gag",       HB_TAG('G','A','G',' ')},       /* Gagauz */

  {"gbm",       HB_TAG('G','A','W',' ')},       /* Garhwali */

  {"gd",        HB_TAG('G','A','E',' ')},       /* Scottish Gaelic */

  {"gez",       HB_TAG('G','E','Z',' ')},       /* Ge'ez */

  {"ggo",       HB_TAG('G','O','N',' ')},       /* Southern Gondi */

  {"gih",       HB_TAG('G','I','H',' ')},       /* Githabul */

  {"gil",       HB_TAG('G','I','L','0')},       /* Kiribati (Gilbertese) */

  {"gkp",       HB_TAG('G','K','P',' ')},       /* Kpelle (Guinea) */

  {"gl",        HB_TAG('G','A','L',' ')},       /* Galician */

  {"gld",       HB_TAG('N','A','N',' ')},       /* Nanai */

  {"gle",       HB_TAG('I','R','T',' ')},       /* Irish Traditional */

  {"glk",       HB_TAG('G','L','K',' ')},       /* Gilaki */

  {"gn",        HB_TAG('G','U','A',' ')},       /* Guarani [macrolanguage] */

  {"gnn",       HB_TAG('G','N','N',' ')},       /* Gumatj */

  {"gno",       HB_TAG('G','O','N',' ')},       /* Northern Gondi */

  {"gog",       HB_TAG('G','O','G',' ')},       /* Gogo */

  {"gon",       HB_TAG('G','O','N',' ')},       /* Gondi [macrolanguage] */

  {"grt",       HB_TAG('G','R','O',' ')},       /* Garo */

  {"gru",       HB_TAG('S','O','G',' ')},       /* Sodo Gurage */

  {"gsw",       HB_TAG('A','L','S',' ')},       /* Alsatian */

  {"gu",        HB_TAG('G','U','J',' ')},       /* Gujarati */

  {"guc",       HB_TAG('G','U','C',' ')},       /* Wayuu */

  {"guf",       HB_TAG('G','U','F',' ')},       /* Gupapuyngu */

  {"guk",       HB_TAG('G','M','Z',' ')},       /* Gumuz */

/*{"guk",       HB_TAG('G','U','K',' ')},*/     /* Gumuz (in SIL fonts) */

  {"guz",       HB_TAG('G','U','Z',' ')},       /* Ekegusii/Gusii */

  {"gv",        HB_TAG('M','N','X',' ')},       /* Manx */

  {"ha",        HB_TAG('H','A','U',' ')},       /* Hausa */

  {"har",       HB_TAG('H','R','I',' ')},       /* Harari */

  {"haw",       HB_TAG('H','A','W',' ')},       /* Hawaiian */

  {"hay",       HB_TAG('H','A','Y',' ')},       /* Haya */

  {"haz",       HB_TAG('H','A','Z',' ')},       /* Hazaragi */

  {"he",        HB_TAG('I','W','R',' ')},       /* Hebrew */

  {"hi",        HB_TAG('H','I','N',' ')},       /* Hindi */

  {"hil",       HB_TAG('H','I','L',' ')},       /* Hiligaynon */

  {"hmn",       HB_TAG('H','M','N',' ')},       /* Hmong */

  {"hnd",       HB_TAG('H','N','D',' ')},       /* [Southern] Hindko */

  {"hne",       HB_TAG('C','H','H',' ')},       /* Chattisgarhi */

  {"hno",       HB_TAG('H','N','D',' ')},       /* [Northern] Hindko */

  {"ho",        HB_TAG('H','M','O',' ')},       /* Hiri Motu */

  {"hoc",       HB_TAG('H','O',' ',' ')},       /* Ho */

  {"hoj",       HB_TAG('H','A','R',' ')},       /* Harauti */

  {"hr",        HB_TAG('H','R','V',' ')},       /* Croatian */

  {"hsb",       HB_TAG('U','S','B',' ')},       /* Upper Sorbian */

  {"ht",        HB_TAG('H','A','I',' ')},       /* Haitian/Haitian Creole */

  {"hu",        HB_TAG('H','U','N',' ')},       /* Hungarian */

  {"hy",        HB_TAG('H','Y','E',' ')},       /* Armenian */

  {"hz",        HB_TAG('H','E','R',' ')},       /* Herero */

  {"ia",        HB_TAG('I','N','A',' ')},       /* Interlingua (International Auxiliary Language Association) */

  {"iba",       HB_TAG('I','B','A',' ')},       /* Iban */

  {"ibb",       HB_TAG('I','B','B',' ')},       /* Ibibio */

  {"id",        HB_TAG('I','N','D',' ')},       /* Indonesian */

  {"ie",        HB_TAG('I','L','E',' ')},       /* Interlingue/Occidental */

  {"ig",        HB_TAG('I','B','O',' ')},       /* Igbo */

  {"igb",       HB_TAG('E','B','I',' ')},       /* Ebira */

  {"ii",        HB_TAG('Y','I','M',' ')},       /* Yi Modern */

  {"ijc",       HB_TAG('I','J','O',' ')},       /* Izon */

  {"ijo",       HB_TAG('I','J','O',' ')},       /* Ijo [family] */

  {"ik",        HB_TAG('I','P','K',' ')},       /* Inupiaq [macrolanguage] */

  {"ilo",       HB_TAG('I','L','O',' ')},       /* Ilokano */

  {"inh",       HB_TAG('I','N','G',' ')},       /* Ingush */

  {"io",        HB_TAG('I','D','O',' ')},       /* Ido */

  {"is",        HB_TAG('I','S','L',' ')},       /* Icelandic */

  {"it",        HB_TAG('I','T','A',' ')},       /* Italian */

  {"iu",        HB_TAG('I','N','U',' ')},       /* Inuktitut [macrolanguage] */

  {"ja",        HB_TAG('J','A','N',' ')},       /* Japanese */

  {"jam",       HB_TAG('J','A','M',' ')},       /* Jamaican Creole English */

  {"jbo",       HB_TAG('J','B','O',' ')},       /* Lojban */

  {"jv",        HB_TAG('J','A','V',' ')},       /* Javanese */

  {"ka",        HB_TAG('K','A','T',' ')},       /* Georgian */

  {"kaa",       HB_TAG('K','R','K',' ')},       /* Karakalpak */

  {"kab",       HB_TAG('K','A','B','0')},       /* Kabyle */

  {"kam",       HB_TAG('K','M','B',' ')},       /* Kamba (Kenya) */

  {"kar",       HB_TAG('K','R','N',' ')},       /* Karen [family] */

  {"kat",       HB_TAG('K','G','E',' ')},       /* Khutsuri Georgian */

  {"kbd",       HB_TAG('K','A','B',' ')},       /* Kabardian */

  {"kde",       HB_TAG('K','D','E',' ')},       /* Makonde */

  {"kdr",       HB_TAG('K','R','M',' ')},       /* Karaim */

  {"kdt",       HB_TAG('K','U','Y',' ')},       /* Kuy */

  {"kea",       HB_TAG('K','E','A',' ')},       /* Kabuverdianu (Crioulo) */

  {"kek",       HB_TAG('K','E','K',' ')},       /* Kekchi */

  {"kex",       HB_TAG('K','K','N',' ')},       /* Kokni */

  {"kfa",       HB_TAG('K','O','D',' ')},       /* Kodagu */

  {"kfr",       HB_TAG('K','A','C',' ')},       /* Kachchi */

  {"kfx",       HB_TAG('K','U','L',' ')},       /* Kulvi */

  {"kfy",       HB_TAG('K','M','N',' ')},       /* Kumaoni */

  {"kg",        HB_TAG('K','O','N',' ')},       /* Kongo [macrolanguage] */

  {"kha",       HB_TAG('K','S','I',' ')},       /* Khasi */

  {"khb",       HB_TAG('X','B','D',' ')},       /* Lü */

  {"kht",       HB_TAG('K','H','N',' ')},       /* Khamti (Microsoft fonts) */

/*{"kht",       HB_TAG('K','H','T',' ')},*/     /* Khamti (OpenType spec and SIL fonts) */

  {"khw",       HB_TAG('K','H','W',' ')},       /* Khowar */

  {"ki",        HB_TAG('K','I','K',' ')},       /* Gikuyu/Kikuyu */

  {"kiu",       HB_TAG('K','I','U',' ')},       /* Kirmanjki */

  {"kj",        HB_TAG('K','U','A',' ')},       /* Kuanyama/Kwanyama */

  {"kjd",       HB_TAG('K','J','D',' ')},       /* Southern Kiwai */

  {"kjh",       HB_TAG('K','H','A',' ')},       /* Khakass */

  {"kjp",       HB_TAG('K','J','P',' ')},       /* Pwo Eastern Karen */

  {"kk",        HB_TAG('K','A','Z',' ')},       /* Kazakh */

  {"kl",        HB_TAG('G','R','N',' ')},       /* Kalaallisut */

  {"kln",       HB_TAG('K','A','L',' ')},       /* Kalenjin */

  {"km",        HB_TAG('K','H','M',' ')},       /* Central Khmer */

  {"kmb",       HB_TAG('M','B','N',' ')},       /* Kimbundu */

  {"kmw",       HB_TAG('K','M','O',' ')},       /* Komo (Democratic Republic of Congo) */

  {"kn",        HB_TAG('K','A','N',' ')},       /* Kannada */

  {"knn",       HB_TAG('K','O','K',' ')},       /* Konkani */

  {"ko",        HB_TAG('K','O','R',' ')},       /* Korean */

  {"koi",       HB_TAG('K','O','P',' ')},       /* Komi-Permyak */

  {"kok",       HB_TAG('K','O','K',' ')},       /* Konkani [macrolanguage] */

  {"kon",       HB_TAG('K','O','N','0')},       /* Kongo */

  {"kos",       HB_TAG('K','O','S',' ')},       /* Kosraean */

  {"kpe",       HB_TAG('K','P','L',' ')},       /* Kpelle [macrolanguage] */

  {"kpv",       HB_TAG('K','O','Z',' ')},       /* Komi-Zyrian */

  {"kpy",       HB_TAG('K','Y','K',' ')},       /* Koryak */

  {"kqy",       HB_TAG('K','R','T',' ')},       /* Koorete */

  {"kr",        HB_TAG('K','N','R',' ')},       /* Kanuri [macrolanguage] */

  {"kri",       HB_TAG('K','R','I',' ')},       /* Krio */

  {"krl",       HB_TAG('K','R','L',' ')},       /* Karelian */

  {"kru",       HB_TAG('K','U','U',' ')},       /* Kurukh */

  {"ks",        HB_TAG('K','S','H',' ')},       /* Kashmiri */

  {"ksh",       HB_TAG('K','S','H','0')},       /* Ripuarian, Kölsch */

/*{"ksw",       HB_TAG('K','R','N',' ')},*/     /* S'gaw Karen (Microsoft fonts?) */

  {"ksw",       HB_TAG('K','S','W',' ')},       /* S'gaw Karen (OpenType spec and SIL fonts) */

  {"ktb",       HB_TAG('K','E','B',' ')},       /* Kebena */

  {"ktu",       HB_TAG('K','O','N',' ')},       /* Kikongo */

  {"ku",        HB_TAG('K','U','R',' ')},       /* Kurdish [macrolanguage] */

  {"kum",       HB_TAG('K','U','M',' ')},       /* Kumyk */

  {"kv",        HB_TAG('K','O','M',' ')},       /* Komi [macrolanguage] */

  {"kvd",       HB_TAG('K','U','I',' ')},       /* Kui (Indonesia) */

  {"kw",        HB_TAG('C','O','R',' ')},       /* Cornish */

  {"kxc",       HB_TAG('K','M','S',' ')},       /* Komso */

  {"kxu",       HB_TAG('K','U','I',' ')},       /* Kui (India) */

  {"ky",        HB_TAG('K','I','R',' ')},       /* Kirghiz/Kyrgyz */

  {"kyu",       HB_TAG('K','Y','U',' ')},       /* Western Kayah */

  {"la",        HB_TAG('L','A','T',' ')},       /* Latin */

  {"lad",       HB_TAG('J','U','D',' ')},       /* Ladino */

  {"lb",        HB_TAG('L','T','Z',' ')},       /* Luxembourgish */

  {"lbe",       HB_TAG('L','A','K',' ')},       /* Lak */

  {"lbj",       HB_TAG('L','D','K',' ')},       /* Ladakhi */

  {"lez",       HB_TAG('L','E','Z',' ')},       /* Lezgi */

  {"lg",        HB_TAG('L','U','G',' ')},       /* Ganda */

  {"li",        HB_TAG('L','I','M',' ')},       /* Limburgan/Limburger/Limburgish */

  {"lif",       HB_TAG('L','M','B',' ')},       /* Limbu */

  {"lij",       HB_TAG('L','I','J',' ')},       /* Ligurian */

  {"lis",       HB_TAG('L','I','S',' ')},       /* Lisu */

  {"ljp",       HB_TAG('L','J','P',' ')},       /* Lampung Api */

  {"lki",       HB_TAG('L','K','I',' ')},       /* Laki */

  {"lld",       HB_TAG('L','A','D',' ')},       /* Ladin */

  {"lmn",       HB_TAG('L','A','M',' ')},       /* Lambani */

  {"lmo",       HB_TAG('L','M','O',' ')},       /* Lombard */

  {"ln",        HB_TAG('L','I','N',' ')},       /* Lingala */

  {"lo",        HB_TAG('L','A','O',' ')},       /* Lao */

  {"lom",       HB_TAG('L','O','M',' ')},       /* Loma */

  {"lrc",       HB_TAG('L','R','C',' ')},       /* Northern Luri */

  {"lt",        HB_TAG('L','T','H',' ')},       /* Lithuanian */

  {"lu",        HB_TAG('L','U','B',' ')},       /* Luba-Katanga */

  {"lua",       HB_TAG('L','U','B',' ')},       /* Luba-Kasai */

  {"luo",       HB_TAG('L','U','O',' ')},       /* Luo (Kenya and Tanzania) */

  {"lus",       HB_TAG('M','I','Z',' ')},       /* Mizo */

  {"luy",       HB_TAG('L','U','H',' ')},       /* Luyia/Oluluyia [macrolanguage] */

  {"luz",       HB_TAG('L','R','C',' ')},       /* Southern Luri */

  {"lv",        HB_TAG('L','V','I',' ')},       /* Latvian */

  {"lzz",       HB_TAG('L','A','Z',' ')},       /* Laz */