/* -*- c-basic-offset:2; tab-width:2; indent-tabs-mode:nil -*- */

#include <fontconfig/fontconfig.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h> /* alloca */
#include <stdbool.h>
#include <sys/stat.h>
#if defined(__sunos) || defined(__sun)
#include <alloca.h>
#endif

#define MAX_AREAS 256
#define HEADER "# Permit mlfc to ovewrite this file.\n"
#ifndef u_int
#define u_int unsigned int
#endif

static struct unicode_block {
  u_int beg;
  u_int end;

} blocks[] = {
    {0x0100, 0x024F},   /* Latin Extended */
    {0x0250, 0x02AF},   /* IPA Extensions */
    {0x02B0, 0x02FF},   /* Spacing Modifier Letters */
    {0x0300, 0x036F},   /* Combining Diacritical Marks */
    {0x0370, 0x03FF},   /* Greek and Coptic */
    {0x0400, 0x04FF},   /* Cyrillic */
    {0x0500, 0x052F},   /* Cyrillic Supplement */
    {0x0530, 0x058F},   /* Armenian */
    {0x0590, 0x05FF},   /* Hebrew */
    {0x0600, 0x06FF},   /* Arabic */
    {0x0700, 0x074F},   /* Syriac */
    {0x0750, 0x077F},   /* Arabic Supplement */
    {0x0780, 0x07BF},   /* Thaana */
    {0x07C0, 0x07FF},   /* NKo */
    {0x0800, 0x083F},   /* Samaritan */
    {0x0840, 0x085F},   /* Mandaic */
    {0x08A0, 0x08FF},   /* Arabic Extended-A */
    {0x0900, 0x097F},   /* Devanagari */
    {0x0980, 0x09FF},   /* Bengali */
    {0x0A00, 0x0A7F},   /* Gurmukhi */
    {0x0A80, 0x0AFF},   /* Gujarati */
    {0x0B00, 0x0B7F},   /* Oriya */
    {0x0B80, 0x0BFF},   /* Tamil */
    {0x0C00, 0x0C7F},   /* Telugu */
    {0x0C80, 0x0CFF},   /* Kannada */
    {0x0D00, 0x0D7F},   /* Malayalam */
    {0x0D80, 0x0DFF},   /* Sinhala */
    {0x0E00, 0x0E7F},   /* Thai */
    {0x0E80, 0x0EFF},   /* Lao */
    {0x0F00, 0x0FFF},   /* Tibetan */
    {0x1000, 0x109F},   /* Myanmar */
    {0x10A0, 0x10FF},   /* Georgian */
    {0x1100, 0x11FF},   /* Hangul Jamo */
    {0x1200, 0x137F},   /* Ethiopic */
    {0x1380, 0x139F},   /* Ethiopic Supplement */
    {0x13A0, 0x13FF},   /* Cherokee */
    {0x1400, 0x167F},   /* Unified Canadian Aboriginal */
    {0x1680, 0x169F},   /* Ogham */
    {0x16A0, 0x16FF},   /* Runic */
    {0x1700, 0x171F},   /* Tagalog */
    {0x1720, 0x173F},   /* Hanunoo */
    {0x1740, 0x175F},   /* Buhid */
    {0x1760, 0x177F},   /* Tagbanwa */
    {0x1780, 0x17FF},   /* Khmer */
    {0x1800, 0x18AF},   /* Mongolian */
    {0x18B0, 0x18FF},   /* Unified Canadian Aboriginal Syllabics Extended */
    {0x1900, 0x194F},   /* Limbu */
    {0x1950, 0x197F},   /* Tai Le */
    {0x1980, 0x19DF},   /* New Tai Lue */
    {0x19E0, 0x19FF},   /* Khmer Symbols */
    {0x1A00, 0x1A1F},   /* Buginese */
    {0x1A20, 0x1AAF},   /* Tai Tham */
    {0x1AB0, 0x1AFF},   /* Combining Diacritical Marks Extended */
    {0x1B00, 0x1B7F},   /* Balinese */
    {0x1B80, 0x1BBF},   /* Sundanese */
    {0x1BC0, 0x1BFF},   /* Batak */
    {0x1C00, 0x1C4F},   /* Lepcha */
    {0x1C50, 0x1C7F},   /* Ol Chiki */
    {0x1CC0, 0x1CCF},   /* Sundanese Supplement */
    {0x1CD0, 0x1CFF},   /* Vedic Extensions */
    {0x1D00, 0x1D7F},   /* Phonetic Extensions */
    {0x1D80, 0x1DBF},   /* Phonetic Extensions Supplement */
    {0x1DC0, 0x1DFF},   /* Combining Diacritical Marks Supplement */
    {0x1E00, 0x1EFF},   /* Latin Extended Additional */
    {0x1F00, 0x1FFF},   /* Greek Extended */
    {0x2000, 0x206F},   /* General Punctuation */
    {0x2070, 0x209F},   /* Superscripts and Subscripts */
    {0x20A0, 0x20CF},   /* Currency Symbols */
    {0x20D0, 0x20FF},   /* Combining Diacritical Marks for Symbols */
    {0x2100, 0x214F},   /* Letterlike Symbols */
    {0x2150, 0x218F},   /* Number Forms */
    {0x2190, 0x21FF},   /* Arrows */
    {0x2200, 0x22FF},   /* Mathematical Operators */
    {0x2300, 0x23FF},   /* Miscellaneous Technical */
    {0x2400, 0x243F},   /* Control Pictures */
    {0x2440, 0x245F},   /* Optical Character Recognition */
    {0x2460, 0x24FF},   /* Enclosed Alphanumerics */
    {0x2500, 0x257F},   /* Box Drawing */
    {0x2580, 0x259F},   /* Block Elements */
    {0x25A0, 0x25FF},   /* Geometric Shapes */
    {0x2600, 0x26FF},   /* Miscellaneous Symbols */
    {0x2700, 0x27BF},   /* Dingbats */
    {0x27C0, 0x27EF},   /* Miscellaneous Mathematical Symbols-A */
    {0x27F0, 0x27FF},   /* Supplemental Arrows-A */
    {0x2800, 0x28FF},   /* Braille Patterns */
    {0x2900, 0x297F},   /* Supplemental Arrows-B */
    {0x2980, 0x29FF},   /* Miscellaneous Mathematical Symbols-B */
    {0x2A00, 0x2AFF},   /* Supplemental Mathematical Operators */
    {0x2B00, 0x2BFF},   /* Miscellaneous Symbols and Arrows */
    {0x2C00, 0x2C5F},   /* Glagolitic */
    {0x2C60, 0x2C7F},   /* Latin Extended-C */
    {0x2C80, 0x2CFF},   /* Coptic */
    {0x2D00, 0x2D2F},   /* Georgian Supplement */
    {0x2D30, 0x2D7F},   /* Tifinagh */
    {0x2D80, 0x2DDF},   /* Ethiopic Extended */
    {0x2DE0, 0x2DFF},   /* Cyrillic Extended-A */
    {0x2E00, 0x2E7F},   /* Supplemental Punctuation */
    {0x2E80, 0x2EFF},   /* CJK Radicals Supplement */
    {0x2F00, 0x2FDF},   /* Kangxi Radicals */
    {0x2FF0, 0x2FFF},   /* Ideographic Description Characters */
    {0x3000, 0x303F},   /* CJK Symbols and Punctuation */
    {0x3040, 0x309F},   /* Hiragana */
    {0x30A0, 0x30FF},   /* Katakana */
    {0x3100, 0x312F},   /* Bopomofo */
    {0x3130, 0x318F},   /* Hangul Compatibility Jamo */
    {0x3190, 0x319F},   /* Kanbun */
    {0x31A0, 0x31BF},   /* Bopomofo Extended */
    {0x31C0, 0x31EF},   /* CJK Strokes */
    {0x31F0, 0x31FF},   /* Katakana Phonetic Extensions */
    {0x3200, 0x32FF},   /* Enclosed CJK Letters and Months */
    {0x3300, 0x33FF},   /* CJK Compatibility */
    {0x3400, 0x4DBF},   /* CJK Unified Ideographs Extension A */
    {0x4DC0, 0x4DFF},   /* Yijing Hexagram Symbols */
    {0x4E00, 0x9FFF},   /* CJK Unified Ideographs */
    {0xA000, 0xA48F},   /* Yi Syllables */
    {0xA490, 0xA4CF},   /* Yi Radicals */
    {0xA4D0, 0xA4FF},   /* Lisu */
    {0xA500, 0xA63F},   /* Vai */
    {0xA640, 0xA69F},   /* Cyrillic Extended-B */
    {0xA6A0, 0xA6FF},   /* Bamum */
    {0xA700, 0xA71F},   /* Modifier Tone Letters */
    {0xA720, 0xA7FF},   /* Latin Extended-D */
    {0xA800, 0xA82F},   /* Syloti Nagri */
    {0xA830, 0xA83F},   /* Common Indic Number Forms */
    {0xA840, 0xA87F},   /* Phags-pa */
    {0xA880, 0xA8DF},   /* Saurashtra */
    {0xA8E0, 0xA8FF},   /* Devanagari Extended */
    {0xA900, 0xA92F},   /* Kayah Li */
    {0xA930, 0xA95F},   /* Rejang */
    {0xA960, 0xA97F},   /* Hangul Jamo Extended-A */
    {0xA980, 0xA9DF},   /* Javanese */
    {0xA9E0, 0xA9FF},   /* Myanmar Extended-B */
    {0xAA00, 0xAA5F},   /* Cham */
    {0xAA60, 0xAA7F},   /* Myanmar Extended-A */
    {0xAA80, 0xAADF},   /* Tai Viet */
    {0xAAE0, 0xAAFF},   /* Meetei Mayek Extensions */
    {0xAB00, 0xAB2F},   /* Ethiopic Extended-A */
    {0xAB30, 0xAB6F},   /* Latin Extended-E */
    {0xAB70, 0xABBF},   /* Cherokee Supplement */
    {0xABC0, 0xABFF},   /* Meetei Mayek */
    {0xAC00, 0xD7AF},   /* Hangul Syllables */
    {0xD7B0, 0xD7FF},   /* Hangul Jamo Extended-B */
    {0xD800, 0xDB7F},   /* High Surrogates */
    {0xDB80, 0xDBFF},   /* High Private Use Surrogates */
    {0xDC00, 0xDFFF},   /* Low Surrogates */
    {0xE000, 0xF8FF},   /* Private Use Area */
    {0xF900, 0xFAFF},   /* CJK Compatibility Ideographs */
    {0xFB00, 0xFB4F},   /* Alphabetic Presentation Forms */
    {0xFB50, 0xFDFF},   /* Arabic Presentation Forms-A */
    {0xFE00, 0xFE0F},   /* Variation Selectors */
    {0xFE10, 0xFE1F},   /* Vertical Forms */
    {0xFE20, 0xFE2F},   /* Combining Half Marks */
    {0xFE30, 0xFE4F},   /* CJK Compatibility Forms */
    {0xFE50, 0xFE6F},   /* Small Form Variants */
    {0xFE70, 0xFEFF},   /* Arabic Presentation Forms-B */
    {0xFF00, 0xFFEF},   /* Halfwidth and Fullwidth Forms */
    {0xFFF0, 0xFFFF},   /* Specials */
    {0x10000, 0x1007F}, /* Linear B Syllabary */
    {0x10080, 0x100FF}, /* Linear B Ideograms */
    {0x10100, 0x1013F}, /* Aegean Numbers */
    {0x10140, 0x1018F}, /* Ancient Greek Numbers */
    {0x10190, 0x101CF}, /* Ancient Symbols */
    {0x101D0, 0x101FF}, /* Phaistos Disc */
    {0x10280, 0x1029F}, /* Lycian */
    {0x102A0, 0x102DF}, /* Carian */
    {0x102E0, 0x102FF}, /* Coptic Epact Numbers */
    {0x10300, 0x1032F}, /* Old Italic */
    {0x10330, 0x1034F}, /* Gothic */
    {0x10350, 0x1037F}, /* Old Permic */
    {0x10380, 0x1039F}, /* Ugaritic */
    {0x103A0, 0x103DF}, /* Old Persian */
    {0x10400, 0x1044F}, /* Deseret */
    {0x10450, 0x1047F}, /* Shavian */
    {0x10480, 0x104AF}, /* Osmanya */
    {0x10500, 0x1052F}, /* Elbasan */
    {0x10530, 0x1056F}, /* Caucasian Albanian */
    {0x10600, 0x1077F}, /* Linear A */
    {0x10800, 0x1083F}, /* Cypriot Syllabary */
    {0x10840, 0x1085F}, /* Imperial Aramaic */
    {0x10860, 0x1087F}, /* Palmyrene */
    {0x10880, 0x108AF}, /* Nabataean */
    {0x108E0, 0x108FF}, /* Hatran */
    {0x10900, 0x1091F}, /* Phoenician */
    {0x10920, 0x1093F}, /* Lydian */
    {0x10980, 0x1099F}, /* Meroitic Hieroglyphs */
    {0x109A0, 0x109FF}, /* Meroitic Cursive */
    {0x10A00, 0x10A5F}, /* Kharoshthi */
    {0x10A60, 0x10A7F}, /* Old South Arabian */
    {0x10A80, 0x10A9F}, /* Old North Arabian */
    {0x10AC0, 0x10AFF}, /* Manichaean */
    {0x10B00, 0x10B3F}, /* Avestan */
    {0x10B40, 0x10B5F}, /* Inscriptional Parthian */
    {0x10B60, 0x10B7F}, /* Inscriptional Pahlavi */
    {0x10B80, 0x10BAF}, /* Psalter Pahlavi */
    {0x10C00, 0x10C4F}, /* Old Turkic */
    {0x10C80, 0x10CFF}, /* Old Hungarian */
    {0x10E60, 0x10E7F}, /* Rumi Numeral Symbols */
    {0x11000, 0x1107F}, /* Brahmi */
    {0x11080, 0x110CF}, /* Kaithi */
    {0x110D0, 0x110FF}, /* Sora Sompeng */
    {0x11100, 0x1114F}, /* Chakma */
    {0x11150, 0x1117F}, /* Mahajani */
    {0x11180, 0x111DF}, /* Sharada */
    {0x111E0, 0x111FF}, /* Sinhala Archaic Numbers */
    {0x11200, 0x1124F}, /* Khojki */
    {0x11280, 0x112AF}, /* Multani */
    {0x112B0, 0x112FF}, /* Khudawadi */
    {0x11300, 0x1137F}, /* Grantha */
    {0x11480, 0x114DF}, /* Tirhuta */
    {0x11580, 0x115FF}, /* Siddham */
    {0x11600, 0x1165F}, /* Modi */
    {0x11680, 0x116CF}, /* Takri */
    {0x11700, 0x1173F}, /* Ahom */
    {0x118A0, 0x118FF}, /* Warang Citi */
    {0x11AC0, 0x11AFF}, /* Pau Cin Hau */
    {0x12000, 0x123FF}, /* Cuneiform */
    {0x12400, 0x1247F}, /* Cuneiform Numbers and Punctuation */
    {0x12480, 0x1254F}, /* Early Dynastic Cuneiform */
    {0x13000, 0x1342F}, /* Egyptian Hieroglyphs */
    {0x14400, 0x1467F}, /* Anatolian Hieroglyphs */
    {0x16800, 0x16A3F}, /* Bamum Supplement */
    {0x16A40, 0x16A6F}, /* Mro */
    {0x16AD0, 0x16AFF}, /* Bassa Vah */
    {0x16B00, 0x16B8F}, /* Pahawh Hmong */
    {0x16F00, 0x16F9F}, /* Miao */
    {0x1B000, 0x1B0FF}, /* Kana Supplement */
    {0x1BC00, 0x1BC9F}, /* Duployan */
    {0x1BCA0, 0x1BCAF}, /* Shorthand Format Controls */
    {0x1D000, 0x1D0FF}, /* Byzantine Musical Symbols */
    {0x1D100, 0x1D1FF}, /* Musical Symbols */
    {0x1D200, 0x1D24F}, /* Ancient Greek Musical Notation */
    {0x1D300, 0x1D35F}, /* Tai Xuan Jing Symbols */
    {0x1D360, 0x1D37F}, /* Counting Rod Numerals */
    {0x1D400, 0x1D7FF}, /* Mathematical Alphanumeric Symbols */
    {0x1D800, 0x1DAAF}, /* Sutton SignWriting */
    {0x1E800, 0x1E8DF}, /* Mende Kikakui */
    {0x1EE00, 0x1EEFF}, /* Arabic Mathematical Alphabetic Symbols */
#if 0
    {0x1F000, 0x1F02F}, /* Mahjong Tiles */
    {0x1F030, 0x1F09F}, /* Domino Tiles */
    {0x1F0A0, 0x1F0FF}, /* Playing Cards */
    {0x1F100, 0x1F1FF}, /* Enclosed Alphanumeric Supplement */
    {0x1F200, 0x1F2FF}, /* Enclosed Ideographic Supplement */
    {0x1F300, 0x1F5FF}, /* Miscellaneous Symbols And Pictographs */
    {0x1F600, 0x1F64F}, /* Emoticons */
    {0x1F650, 0x1F67F}, /* Ornamental Dingbats */
    {0x1F680, 0x1F6FF}, /* Transport And Map Symbols */
    {0x1F700, 0x1F77F}, /* Alchemical Symbols */
    {0x1F780, 0x1F7FF}, /* Geometric Shapes Extended */
    {0x1F800, 0x1F8FF}, /* Supplemental Arrows-C */
    {0x1F900, 0x1F9FF}, /* Supplemental Symbols and Pictographs */
#endif
    {0x20000, 0x2A6DF}, /* CJK Unified Ideographs Extension B */
    {0x2A700, 0x2B73F}, /* CJK Unified Ideographs Extension C */
    {0x2B740, 0x2B81F}, /* CJK Unified Ideographs Extension D */
    {0x2B820, 0x2CEAF}, /* CJK Unified Ideographs Extension E */
    {0x2F800, 0x2FA1F}, /* CJK Compatibility Ideographs Supplement */
};

/* --- static functions --- */

static char *get_user_rc_path(char *rcfile) {
  char *homedir;
  char *path;

#ifdef _WIN32
  if ((homedir = getenv("HOMEPATH")) &&
      /* Enough for "%s/%s" */
      (path = malloc(strlen(homedir) + 1 + strlen(rcfile) + 1))) {
    sprintf(path, "%s/%s", homedir, rcfile);

    return path;
  }
#else
  if ((homedir = getenv("HOME")) &&
      /* Enough for "%s/.config/%s" */
      (path = malloc(strlen(homedir) + 9 + strlen(rcfile) + 1))) {
    struct stat st;
    char *p;

    sprintf(path, "%s/.config/%s", homedir, rcfile);
    p = strrchr(path, '/');
    *p = '\0';
    if (stat(path, &st) == 0) {
      *p = '/';
    } else {
      sprintf(path, "%s/.%s", homedir, rcfile);
    }

    return path;
  }
#endif

  return NULL;
}

static FcPattern *fc_pattern_create(const FcChar8* family) {
  FcPattern *pattern;

  if (!(pattern = FcPatternCreate())) {
    return NULL;
  }

  if (family) {
    FcPatternAddString(pattern, FC_FAMILY, family);
  }

  FcConfigSubstitute(NULL, pattern, FcMatchPattern);

  FcPatternRemove(pattern, FC_FAMILYLANG, 0);
  FcPatternRemove(pattern, FC_STYLELANG, 0);
  FcPatternRemove(pattern, FC_FULLNAMELANG, 0);
#ifdef FC_NAMELANG
  FcPatternRemove(pattern, FC_NAMELANG, 0);
#endif
  FcPatternRemove(pattern, FC_LANG, 0);

  return pattern;
}

static int is_same_family(FcPattern *pattern, const char *family) {
  int count;
  FcValue val;

  for (count = 0; FcPatternGet(pattern, FC_FAMILY, count, &val) == FcResultMatch; count++) {
    if (strcmp(family, val.u.s) == 0) {
      return 1;
    }
  }

  return 0;
}

static FcPattern *search_next_font(FcPattern *pattern) {
  FcPattern *match;
  FcValue val;
  FcResult result;

  while (1) {
    if (FcPatternGet(pattern, FC_FAMILY, 0, &val) != FcResultMatch) {
      return NULL;
    }

    if (!(match = FcFontMatch(NULL, pattern, &result))) {
      continue;
    }

    if (is_same_family(match, val.u.s)) {
      FcPatternRemove(pattern, FC_FAMILY, 0);

      return match;
    }

    FcPatternRemove(pattern, FC_FAMILY, 0);

    while (1) {
      if (FcPatternGet(pattern, FC_FAMILY, 0, &val) == FcResultMatch) {
        if (is_same_family(match, val.u.s)) {
          FcPatternRemove(pattern, FC_FAMILY, 0);

          return match;
        }

        FcPatternRemove(pattern, FC_FAMILY, 0);
      } else {
        return NULL;
      }
    }
  }
}

static void backup_config(const char *path) {
  FILE* fp;

  if ((fp = fopen(path, "r"))) {
    char buf[1024];
    char *new_path;

    while (fgets(buf, sizeof(buf), fp)) {
      if (strcmp(buf, HEADER) == 0) {
        return;
      }
    }

    fclose(fp);

    if ((new_path = alloca(strlen(path) + 5))) {
      sprintf(new_path, "%s.bak", path);
      rename(path, new_path);
    }
  }
}

static int check_font_config(const char *default_family /* family name */
                             ) {
  const char *path;
  const char *default_path;
  FcPattern *pattern;
  FcPattern **matches = malloc(sizeof(*matches));
  u_int num_matches = 1;
  bool did_search = false;
  int b_idx;
  struct {
    struct unicode_block *block;
    const char *family;
    const char *path;
  } outputs[MAX_AREAS];
  u_int num_outputs = 0;
  FcValue val;
  u_int count;
  FILE* fp;

  if (!(pattern = fc_pattern_create(default_family))) {
    return 0;
  }

#if 0
  FcPatternPrint(pattern);
#endif

  matches[0] = search_next_font(pattern);

  if (*default_family == '\0') {
    if (FcPatternGet(matches[0], FC_FAMILY, 0, &val) == FcResultMatch) {
      default_family = val.u.s;
    }
  }

  if (FcPatternGet(matches[0], FC_FILE, 0, &val) == FcResultMatch) {
    default_path = val.u.s;
  } else {
    default_path = NULL;
  }

  for (b_idx = 0; b_idx < sizeof(blocks) / sizeof(blocks[0]); b_idx++) {
    u_int m_idx;

    for (m_idx = 0;; m_idx++) {
      FcCharSet *charset;

      if (m_idx == num_matches) {
        if (did_search)
          break;
        if ((matches = realloc(matches, sizeof(*matches) * (num_matches + 1))) == NULL) {
          return 0;
        }

        if (!(matches[num_matches] = search_next_font(pattern))) {
          FcPattern *pat = FcPatternCreate();
          FcObjectSet *objset = FcObjectSetBuild(FC_FAMILY, FC_FILE, FC_CHARSET, NULL);
          FcFontSet *fontset = FcFontList(NULL, pat, objset);

          did_search = true;
          if (fontset->nfont == 0) {
            break;
          } else {
            if ((matches = realloc(matches,
                                   sizeof(*matches) * (num_matches + fontset->nfont))) == NULL) {
              return 0;
            }

            count = 0;
            do {
              matches[num_matches + count] = fontset->fonts[count];
#if 0
              FcPatternGet(matches[num_matches + count], FC_FAMILY, 0, &val);
              fprintf(stderr, "%u Add Font List %s\n", num_matches + count, val.u.s);
#endif
            } while (++count < fontset->nfont);
            num_matches += fontset->nfont;
          }
        } else {
          num_matches++;
        }

      }

      if (FcPatternGetCharSet(matches[m_idx], FC_CHARSET, 0, &charset) == FcResultMatch &&
          (FcCharSetHasChar(charset, blocks[b_idx].beg) ||
           FcCharSetHasChar(charset, blocks[b_idx].beg + 1))) {
        if (FcPatternGet(matches[m_idx], FC_FAMILY, 0, &val) == FcResultMatch &&
            strcmp(val.u.s, default_family) != 0) {
          if (num_outputs > 0 &&
              outputs[num_outputs - 1].block->end + 1 == blocks[b_idx].beg &&
              strcmp(outputs[num_outputs - 1].family, val.u.s) == 0) {
            /* XXX Change blocks[b_idx - 1].end */
            outputs[num_outputs - 1].block->end = blocks[b_idx].end;
          } else {
            outputs[num_outputs].block = blocks + b_idx;
            outputs[num_outputs].family = val.u.s;

            if (FcPatternGet(matches[m_idx], FC_FILE, 0, &val) == FcResultMatch) {
              outputs[num_outputs].path = val.u.s;
            } else {
              outputs[num_outputs].path = NULL;
            }

            num_outputs++;

            if (num_outputs == sizeof(outputs) / sizeof(outputs[0])) {
              break;
            }
          }
        }

        break;
      }
    }
  }

  if ((path = get_user_rc_path("mlterm/aafont"))) {
    backup_config(path);

    if (!(fp = fopen(path, "w"))) {
      return 0;
    }

    printf("Updating %s\n", path);

    fprintf(fp, HEADER);
    fprintf(fp, "ISO10646_UCS4_1=%s\n", default_family);
    for (count = 0; count < num_outputs; count++) {
      fprintf(fp, "U+%x-%x=%s\n", outputs[count].block->beg, outputs[count].block->end,
              outputs[count].family);
    }

    fclose(fp);
  }

  if (default_path && (path = get_user_rc_path("mlterm/font-fb"))) {
    backup_config(path);

    if (!(fp = fopen(path, "w"))) {
      return 0;
    }

    printf("Updating %s\n", path);

    fprintf(fp, HEADER);
    fprintf(fp, "ISO10646_UCS4_1=%s\n", default_path);
    for (count = 0; count < num_outputs; count++) {
      fprintf(fp, "U+%x-%x=%s\n", outputs[count].block->beg, outputs[count].block->end,
              outputs[count].path);
    }

    fclose(fp);
  }

  return 1;
}

/* --- global functions --- */

int main(int argc, char **argv) {
  if ((argc != 2 || *argv[1] == '-') && argc != 1) {
    fprintf(stderr, "Usage: mlfc <Default Font Name>\n");

    return -1;
  }

#ifdef _WIN32
  if (!getenv("FONTCONFIG_PATH") && !getenv("FONTCONFIG_FILE")) {
    /*
     * See fontconfig-x.x.x/src/fccfg.c
     * (DllMain(), FcConfigFileExists(), FcConfigGetPath() and FcConfigFilename())
     *
     * [commant in DllMain]
     * If the fontconfig DLL is in a "bin" or "lib" subfolder, assume it's a Unix-style
     * installation tree, and use "etc/fonts" in there as FONTCONFIG_PATH.
     * Otherwise use the folder where the DLL is as FONTCONFIG_PATH.
     *
     * [comment in FcConfigFileExists]
     * make sure there's a single separator
     * (=> If FONTCONFIG_PATH="", FONTCONFIG_FILE="/...")
     */
    putenv("FONTCONFIG_PATH=.");
  }
#endif

  if (!check_font_config(argc == 1 ?
#ifdef _WIN32
                         "Courier"
#else
                         ""
#endif
                         : argv[1])) {
    fprintf(stderr, "Failed.\n");

    return -1;
  }

  return 0;
}
