add new script cjk-gs-integrate (uploaded to CTAN today)

git-svn-id: svn://tug.org/texlive/trunk@37223 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 2179 insertions, 0 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/cjk-gs-integrate/cjk-gs-integrate.pl b/Build/source/texk/texlive/linked_scripts/cjk-gs-integrate/cjk-gs-integrate.pl
new file mode 100755
index 00000000000..980e41329be
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/cjk-gs-integrate/cjk-gs-integrate.pl
@@ -0,0 +1,2179 @@
+#!/usr/bin/env perl
+#
+# cjk-gs-integrate - setup ghostscript for CID/TTF CJK fonts
+#
+# Copyright 2015 by Norbert Preining
+#
+# Based on research and work by Yusuke Kuroki, Bruno Voisin, Munehiro Yamamoto
+# and the TeX Q&A wiki page
+#
+# This file is licensed under GPL version 3 or any later version.
+# For copyright statements see end of file.
+#
+# For development see
+#  https://github.com/norbusan/cjk-gs-support
+#
+# TODO:
+# - how to deal with MacTeX pre-shipped configuration files?
+# - interoperability with updmap-config-kanji
+# - input from CK about font priorities
+#
+
+$^W = 1;
+use Getopt::Long qw(:config no_autoabbrev ignore_case_always);
+use File::Basename;
+use strict;
+
+(my $prg = basename($0)) =~ s/\.pl$//;
+my $version = '20150506.0';
+
+if (win32()) {
+  print_error("Sorry, currently not supported on Windows!\n");
+  exit(1);
+}
+
+my %encode_list = (
+  Japan => [ qw/
+    78-EUC-H
+    78-EUC-V
+    78-H
+    78-RKSJ-H
+    78-RKSJ-V
+    78-V
+    78ms-RKSJ-H
+    78ms-RKSJ-V
+    83pv-RKSJ-H
+    90ms-RKSJ-H
+    90ms-RKSJ-V
+    90msp-RKSJ-H
+    90msp-RKSJ-V
+    90pv-RKSJ-H
+    90pv-RKSJ-V
+    Add-H
+    Add-RKSJ-H
+    Add-RKSJ-V
+    Add-V
+    Adobe-Japan1-0
+    Adobe-Japan1-1
+    Adobe-Japan1-2
+    Adobe-Japan1-3
+    Adobe-Japan1-4
+    Adobe-Japan1-5
+    Adobe-Japan1-6
+    EUC-H
+    EUC-V
+    Ext-H
+    Ext-RKSJ-H
+    Ext-RKSJ-V
+    Ext-V
+    H
+    Hankaku
+    Hiragana
+    Identity-H
+    Identity-V
+    Katakana
+    NWP-H
+    NWP-V
+    RKSJ-H
+    RKSJ-V
+    Roman
+    UniJIS-UCS2-H
+    UniJIS-UCS2-HW-H
+    UniJIS-UCS2-HW-V
+    UniJIS-UCS2-V
+    UniJIS-UTF16-H
+    UniJIS-UTF16-V
+    UniJIS-UTF32-H
+    UniJIS-UTF32-V
+    UniJIS-UTF8-H
+    UniJIS-UTF8-V
+    UniJIS2004-UTF16-H
+    UniJIS2004-UTF16-V
+    UniJIS2004-UTF32-H
+    UniJIS2004-UTF32-V
+    UniJIS2004-UTF8-H
+    UniJIS2004-UTF8-V
+    UniJISPro-UCS2-HW-V
+    UniJISPro-UCS2-V
+    UniJISPro-UTF8-V
+    UniJISX0213-UTF32-H
+    UniJISX0213-UTF32-V
+    UniJISX02132004-UTF32-H
+    UniJISX02132004-UTF32-V
+    V
+    WP-Symbol/ ],
+  GB => [ qw/
+    Adobe-GB1-0
+    Adobe-GB1-1
+    Adobe-GB1-2
+    Adobe-GB1-3
+    Adobe-GB1-4
+    Adobe-GB1-5
+    GB-EUC-H
+    GB-EUC-V
+    GB-H
+    GB-RKSJ-H
+    GB-V
+    GBK-EUC-H
+    GBK-EUC-V
+    GBK2K-H
+    GBK2K-V
+    GBKp-EUC-H
+    GBKp-EUC-V
+    GBT-EUC-H
+    GBT-EUC-V
+    GBT-H
+    GBT-RKSJ-H
+    GBT-V
+    GBTpc-EUC-H
+    GBTpc-EUC-V
+    GBpc-EUC-H
+    GBpc-EUC-V
+    Identity-H
+    Identity-V
+    UniGB-UCS2-H
+    UniGB-UCS2-V
+    UniGB-UTF16-H
+    UniGB-UTF16-V
+    UniGB-UTF32-H
+    UniGB-UTF32-V
+    UniGB-UTF8-H
+    UniGB-UTF8-V/ ],
+  CNS => [ qw/
+    Adobe-CNS1-0
+    Adobe-CNS1-1
+    Adobe-CNS1-2
+    Adobe-CNS1-3
+    Adobe-CNS1-4
+    Adobe-CNS1-5
+    Adobe-CNS1-6
+    B5-H
+    B5-V
+    B5pc-H
+    B5pc-V
+    CNS-EUC-H
+    CNS-EUC-V
+    CNS1-H
+    CNS1-V
+    CNS2-H
+    CNS2-V
+    ETHK-B5-H
+    ETHK-B5-V
+    ETen-B5-H
+    ETen-B5-V
+    ETenms-B5-H
+    ETenms-B5-V
+    HKdla-B5-H
+    HKdla-B5-V
+    HKdlb-B5-H
+    HKdlb-B5-V
+    HKgccs-B5-H
+    HKgccs-B5-V
+    HKm314-B5-H
+    HKm314-B5-V
+    HKm471-B5-H
+    HKm471-B5-V
+    HKscs-B5-H
+    HKscs-B5-V
+    Identity-H
+    Identity-V
+    UniCNS-UCS2-H
+    UniCNS-UCS2-V
+    UniCNS-UTF16-H
+    UniCNS-UTF16-V
+    UniCNS-UTF32-H
+    UniCNS-UTF32-V
+    UniCNS-UTF8-H
+    UniCNS-UTF8-V/ ],
+  Korea => [ qw/
+    Adobe-Korea1-0
+    Adobe-Korea1-1
+    Adobe-Korea1-2
+    Identity-H
+    Identity-V
+    KSC-EUC-H
+    KSC-EUC-V
+    KSC-H
+    KSC-Johab-H
+    KSC-Johab-V
+    KSC-RKSJ-H
+    KSC-V
+    KSCms-UHC-H
+    KSCms-UHC-HW-H
+    KSCms-UHC-HW-V
+    KSCms-UHC-V
+    KSCpc-EUC-H
+    KSCpc-EUC-V
+    UniKS-UCS2-H
+    UniKS-UCS2-V
+    UniKS-UTF16-H
+    UniKS-UTF16-V
+    UniKS-UTF32-H
+    UniKS-UTF32-V
+    UniKS-UTF8-H
+    UniKS-UTF8-V/ ] );
+
+my $dry_run = 0;
+my $opt_help = 0;
+my $opt_quiet = 0;
+my $opt_debug = 0;
+my $opt_listaliases = 0;
+my $opt_listallaliases = 0;
+my $opt_listfonts = 0;
+my $opt_info = 0;
+my $opt_fontdef;
+my $opt_output;
+my @opt_aliases;
+my $opt_only_aliases = 0;
+my $opt_machine = 0;
+my $opt_filelist;
+my $opt_force = 0;
+my $opt_texmflink = 0;
+my $opt_markdown = 0;
+
+if (! GetOptions(
+        "n|dry-run"   => \$dry_run,
+        "info"        => \$opt_info,
+        "list-aliases" => \$opt_listaliases,
+        "list-all-aliases" => \$opt_listallaliases,
+        "list-fonts"  => \$opt_listfonts,
+        "link-texmflocal" => \$opt_texmflink,
+        "only-aliases" => \$opt_only_aliases,
+        "machine-readable" => \$opt_machine,
+        "force"       => \$opt_force,
+        "filelist=s"  => \$opt_filelist,
+        "markdown"    => \$opt_markdown,
+        "o|output=s"  => \$opt_output,
+	      "h|help"      => \$opt_help,
+        "q|quiet"     => \$opt_quiet,
+        "d|debug+"    => \$opt_debug,
+        "f|fontdef=s" => \$opt_fontdef,
+        "a|alias=s"   => \@opt_aliases,
+        "v|version"   => sub { print &version(); exit(0); }, ) ) {
+  die "Try \"$0 --help\" for more information.\n";
+}
+
+sub win32 { return ($^O=~/^MSWin(32|64)$/i); }
+my $nul = (win32() ? 'nul' : '/dev/null') ;
+my $sep = (win32() ? ';' : ':');
+my %fontdb;
+my %aliases;
+my %user_aliases;
+
+if ($opt_help) {
+  Usage();
+  exit 0;
+}
+
+if ($opt_debug) {
+  require Data::Dumper;
+  $Data::Dumper::Indent = 1;
+}
+
+chomp (my $TEXMFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
+
+main(@ARGV);
+
+#
+# only sub definitions from here on
+#
+sub main {
+  print_info("reading font database ...\n");
+  read_font_database();
+  if (!$opt_listallaliases) {
+    print_info("checking for files ...\n");
+    check_for_files();
+  } else {
+    make_all_available();
+  }
+  compute_aliases();
+  if ($opt_info) {
+    $opt_listfonts = 1;
+    $opt_listaliases = 1;
+  }
+  if ($opt_listfonts) {
+    info_found_fonts();
+  }
+  if ($opt_listaliases || $opt_listallaliases) {
+    print "List of ", ($opt_listaliases ? "all" : "available"), " aliases and their options (in decreasing priority):\n" unless $opt_machine;
+    my (@jal, @kal, @tal, @sal);
+    for my $al (sort keys %aliases) {
+      my $cl;
+      my @ks = sort { $a <=> $b} keys(%{$aliases{$al}});
+      my $foo = '';
+      $foo = "$al:\n" unless $opt_machine;
+      for my $p (@ks) {
+        my $t = $aliases{$al}{$p};
+        my $fn = ($opt_listallaliases ? "-" : $fontdb{$t}{'target'} );
+        # should always be the same ;-)
+        $cl = $fontdb{$t}{'class'};
+        if (!$opt_listallaliases && $fontdb{$t}{'type'} eq 'TTF' && $fontdb{$t}{'subfont'} > 0) {
+          $fn .= "($fontdb{$t}{'subfont'})";
+        }
+        if ($opt_machine) {
+          $foo .= "$al:$p:$aliases{$al}{$p}:$fn\n";
+        } else {
+          $foo .= "\t($p) $aliases{$al}{$p} ($fn)\n";
+        }
+      }
+      if ($cl eq 'Japan') {
+        push @jal, $foo;
+      } elsif ($cl eq 'Korea') {
+        push @kal, $foo;
+      } elsif ($cl eq 'GB') {
+        push @sal, $foo;
+      } elsif ($cl eq 'CNS') {
+        push @tal, $foo;
+      } else {
+        print STDERR "unknown class $cl for $al\n";
+      }
+    }
+    if ($opt_machine) {
+      print @jal if @jal;
+      print @kal if @kal;
+      print @tal if @tal;
+      print @sal if @sal;
+    } else {
+      print "Aliases for Japanese fonts:\n", @jal, "\n" if @jal;
+      print "Aliases for Korean fonts:\n", @kal, "\n" if @kal;
+      print "Aliases for Traditional Chinese fonts:\n", @tal, "\n" if @tal;
+      print "Aliases for Simplified Chinese fonts:\n", @sal, "\n" if @sal;
+    }
+  }
+  exit(0) if ($opt_listfonts || $opt_listaliases || $opt_listallaliases);
+
+  if (! $opt_output) {
+    print_info("searching for GhostScript resource\n");
+    my $gsres = find_gs_resource();
+    if (!$gsres) {
+      print_error("Cannot find GhostScript, terminating!\n");
+      exit(1);
+    } else {
+      $opt_output = $gsres;
+    }
+  }
+  if (! -d $opt_output) {
+    $dry_run || mkdir($opt_output) || 
+      die ("Cannot create directory $opt_output: $!");
+  }
+  print_info("output is going to $opt_output\n");
+  if (!$opt_only_aliases) {
+    print_info("generating font snippets and link CID fonts ...\n");
+    do_otf_fonts();
+    print_info("generating font snippets, links, and cidfmap.local for TTF fonts ...\n");
+    do_ttf_fonts();
+  }
+  print_info("generating font aliases ...\n");
+  do_aliases();
+  print_info("finished\n");
+}
+
+sub update_master_cidfmap {
+  my $add = shift;
+  my $cidfmap_master = "$opt_output/Init/cidfmap";
+  if (-r $cidfmap_master) {
+    open(FOO, "<", $cidfmap_master) ||
+      die ("Cannot open $cidfmap_master for reading: $!");
+    my $found = 0;
+    while(<FOO>) {
+      $found = 1 if
+        m/^\s*\(\Q$add\E\)\s\s*\.runlibfile\s*$/;
+    }
+    if ($found) {
+      print_info("$add already loaded in $cidfmap_master, no changes\n");
+    } else {
+      return if $dry_run;
+      open(FOO, ">>", $cidfmap_master) ||
+        die ("Cannot open $cidfmap_master for appending: $!");
+      print FOO "($add) .runlibfile\n";
+      close(FOO);
+    }
+  } else {
+    return if $dry_run;
+    open(FOO, ">", $cidfmap_master) ||
+      die ("Cannot open $cidfmap_master for writing: $!");
+    print FOO "($add) .runlibfile\n";
+    close(FOO);
+  }
+}
+
+sub make_dir {
+  my ($d, $w) = @_;
+  if (-r $d) {
+    if (! -d $d) {
+      print_error("$d is not a directory, $w\n");
+      exit 1;
+    }
+  } else {
+    $dry_run || mkdir($d);
+  }
+}
+
+sub do_otf_fonts {
+  my $fontdest = "$opt_output/Font";
+  my $ciddest  = "$opt_output/CIDFont";
+  make_dir($fontdest, "cannot create CID snippets there!");
+  make_dir($ciddest,  "cannot link CID fonts there!");
+  print "opt_texfmlink = $opt_texmflink\n";
+  make_dir("$TEXMFLOCAL/fonts/opentype/cjk-gs-integrate",
+           "cannot link fonts to it!")
+    if $opt_texmflink;
+  for my $k (keys %fontdb) {
+    if ($fontdb{$k}{'available'} && $fontdb{$k}{'type'} eq 'CID') {
+      generate_font_snippet($fontdest,
+        $k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'});
+      link_font($fontdb{$k}{'target'}, $ciddest, $k);
+      link_font($fontdb{$k}{'target'}, "$TEXMFLOCAL/fonts/opentype/cjk-gs-integrate")
+        if $opt_texmflink;
+    }
+  }
+}
+
+sub generate_font_snippet {
+  my ($fd, $n, $c, $f) = @_;
+  return if $dry_run;
+  for my $enc (@{$encode_list{$c}}) {
+    open(FOO, ">$fd/$n-$enc") || 
+      die("cannot open $fd/$n-$enc for writing: $!");
+    print FOO "%%!PS-Adobe-3.0 Resource-Font
+%%%%DocumentNeededResources: $enc (CMap)
+%%%%IncludeResource: $enc (CMap)
+%%%%BeginResource: Font ($n-$enc)
+($n-$enc)
+($enc) /CMap findresource
+[($n) /CIDFont findresource]
+composefont
+pop
+%%%%EndResource
+%%%%EOF
+";
+    close(FOO);
+  }
+}
+
+sub link_font {
+  my ($f, $cd, $n) = @_;
+  return if $dry_run;
+  if (!$n) {
+    $n = basename($f);
+  }
+  my $target = "$cd/$n";
+  printf STDERR "link try to $target\n";
+  if ($opt_force && -e $target) {
+    print_info("Removing $target prior to recreation due to --force\n");
+    unlink($target) || die "Cannot unlink $target prior to recreation under --force: $!";
+  }
+  if (-l $target) {
+    my $linkt = readlink($target);
+    if ($linkt && -r $linkt) {
+      if ($linkt eq $f) {
+        # do nothing, it is the same link
+      } else {
+        print_error("link $target already existing, but different target then $target, exiting!\n");
+        exit(1);
+      }
+    } else {
+      print_warning("removing dangling symlink $target to $linkt\n");
+      unlink($target);
+    }
+  } else {
+    if (-e $target) {
+      print_error("$target already existing, but not a link, exiting!\n");
+      exit(1);
+    } else {
+      symlink($f, $target) || die("Cannot link font $f to $target: $!");
+    }
+  }
+}
+
+sub do_ttf_fonts {
+  my $fontdest = "$opt_output/Font";
+  my $cidfsubst = "$opt_output/CIDFSubst";
+  my $outp = '';
+  make_dir($fontdest, "cannot create CID snippets there!");
+  make_dir($cidfsubst,  "cannot link TTF fonts there!");
+  make_dir("$TEXMFLOCAL/fonts/truetype/cjk-gs-integrate",
+           "cannot link fonts to it!")
+    if $opt_texmflink;
+  for my $k (keys %fontdb) {
+    if ($fontdb{$k}{'available'} && $fontdb{$k}{'type'} eq 'TTF') {
+      generate_font_snippet($fontdest,
+        $k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'});
+      $outp .= generate_cidfmap_entry($k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'}, $fontdb{$k}{'subfont'});
+      link_font($fontdb{$k}{'target'}, $cidfsubst);
+      link_font($fontdb{$k}{'target'}, "$TEXMFLOCAL/fonts/truetype/cjk-gs-integrate")
+        if $opt_texmflink;
+    }
+  }
+  return if $dry_run;
+  if ($outp) {
+    if (! -d "$opt_output/Init") {
+      mkdir("$opt_output/Init") ||
+        die("Cannot create directory $opt_output/Init: $!");
+    }
+    open(FOO, ">$opt_output/Init/cidfmap.local") || 
+      die "Cannot open $opt_output/cidfmap.local: $!";
+    print FOO $outp;
+    close(FOO);
+  }
+  print_info("adding cidfmap.local to cidfmap file ...\n");
+  update_master_cidfmap('cidfmap.local');
+}
+
+sub do_aliases {
+  my $fontdest = "$opt_output/Font";
+  my $cidfsubst = "$opt_output/CIDFSubst";
+  my $outp = '';
+  #
+  # alias handling
+  # we use two levels of aliases, one is for the default names that
+  # are not actual fonts:
+  # Ryumin-Light, GothicBBB-Medium, FutoMinA101-Bold, FutoGoB101-Bold, 
+  # Jun101-Light which are the original Morisawa names.
+  #
+  # the second level of aliases is for Morisawa OTF font names:
+  # RyuminPro-Light, GothicBBBPro-Medium,
+  # FutoMinA101Pro-Bold, FutoGoB101Pro-Bold
+  # Jun101Pro-Light
+  #
+  # the order of fonts selected is
+  # Morisawa Pr6, Morisawa, Hiragino ProN, Hiragino, 
+  # Yu OSX, Yu Win, Kozuka ProN, Kozuka, IPAex, IPA
+  # but is defined in the Provides(Priority): Name in the font definiton
+  #
+  $outp .= "\n\n% Aliases\n";
+  #
+  my (@jal, @kal, @tal, @sal);
+  #
+  for my $al (sort keys %aliases) {
+    my $target;
+    my $class;
+    if ($user_aliases{$al}) {
+      $target = $user_aliases{$al};
+      # determine class
+      if ($fontdb{$target}{'available'}) {
+        $class = $fontdb{$target}{'class'};
+      } else {
+        # must be an aliases, we checked this when initializing %user_aliases
+        # reset the $al value
+        # and since $class is still undefined we will use the next code below
+        $al = $target;
+      }
+    }
+    if (!$class) {
+      # search lowest number
+      my @ks = keys(%{$aliases{$al}});
+      my $first = (sort { $a <=> $b} @ks)[0];
+      $target = $aliases{$al}{$first};
+      $class  = $fontdb{$target}{'class'};
+    }
+    # we also need to create font snippets in Font for the aliases!
+    generate_font_snippet($fontdest, $al, $class, $target);
+    if ($class eq 'Japan') {
+      push @jal, "/$al /$target ;";
+    } elsif ($class eq 'Korea') {
+      push @kal, "/$al /$target ;";
+    } elsif ($class eq 'GB') {
+      push @sal, "/$al /$target ;";
+    } elsif ($class eq 'CNS') {
+      push @tal, "/$al /$target ;";
+    } else {
+      print STDERR "unknown class $class for $al\n";
+    }
+  }
+  $outp .= "\n% Japanese fonts\n" . join("\n", @jal) . "\n" if @jal;
+  $outp .= "\n% Korean fonts\n" . join("\n", @kal) . "\n" if @kal;
+  $outp .= "\n% Traditional Chinese fonts\n" . join("\n", @tal) . "\n" if @tal;
+  $outp .= "\n% Simplified Chinese fonts\n" . join("\n", @sal) . "\n" if @sal;
+  #
+  return if $dry_run;
+  if ($outp) {
+    if (! -d "$opt_output/Init") {
+      mkdir("$opt_output/Init") ||
+        die("Cannot create directory $opt_output/Init: $!");
+    }
+    open(FOO, ">$opt_output/Init/cidfmap.aliases") || 
+      die "Cannot open $opt_output/cidfmap.aliases: $!";
+    print FOO $outp;
+    close(FOO);
+  }
+  print_info("adding cidfmap.aliases to cidfmap file ...\n");
+  update_master_cidfmap('cidfmap.aliases');
+}
+
+sub generate_cidfmap_entry {
+  my ($n, $c, $f, $sf) = @_;
+  # we link the ttf fonts, so we use only the base name
+  # otherwise the ps2pdf breaks due to -dSAFER
+  my $bn = basename($f);
+  # extract subfont
+  my $s = "/$n << /FileType /TrueType 
+  /Path pssystemparams /GenericResourceDir get 
+  (CIDFSubst/$bn) concatstrings
+  /SubfontID $sf
+  /CSI [($c";
+  if ($c eq "Japan") {
+    $s .= "1) 6]";
+  } elsif ($c eq "GB") {
+    $s .= "1) 5]";
+  } elsif ($c eq "CNS") {
+    $s .= "1) 5]";
+  } elsif ($c eq "Korea") {
+    $s .= "1) 2]";
+  } else {
+    print_warning("unknown class $c for $n, skipping.\n");
+    return '';
+  }
+  $s .= " >> ;\n";
+  return $s;
+}
+
+#
+# dump found files
+sub info_found_fonts {
+  print "List of found fonts:\n\n";
+  for my $k (keys %fontdb) {
+    my @foundfiles;
+    if ($fontdb{$k}{'available'}) {
+      print "Font:  $k\n";
+      print "Type:  $fontdb{$k}{'type'}\n";
+      print "Class: $fontdb{$k}{'class'}\n";
+      my $fn = $fontdb{$k}{'target'};
+      if ($fontdb{$k}{'type'} eq 'TTF' && $fontdb{$k}{'subfont'} > 0) {
+        $fn .= "($fontdb{$k}{'subfont'})";
+      }
+      print "File:  $fn\n";
+      print "\n";
+    }
+  }
+}
+
+
+#
+# make all fonts available for listing all aliases
+sub make_all_available {
+  for my $k (keys %fontdb) {
+    $fontdb{$k}{'available'} = 1;
+    delete $fontdb{$k}{'files'};
+  }
+}
+
+#
+# checks all file names listed in %fontdb
+# and sets
+sub check_for_files {
+  my @foundfiles;
+  if ($opt_filelist) {
+    open(FOO, "<", $opt_filelist) || die "Cannot open $opt_filelist: $!";
+    @foundfiles = <FOO>;
+    close(FOO) || warn "Cannot close $opt_filelist: $!";
+  } else {
+    # first collect all files:
+    my @fn;
+    for my $k (keys %fontdb) {
+      for my $f (keys %{$fontdb{$k}{'files'}}) {
+        # check for subfont extension 
+        if ($f =~ m/^(.*)\(\d*\)$/) {
+          push @fn, $1;
+        } else {
+          push @fn, $f;
+        }
+      }
+    }
+    #
+    # collect extra directories for search
+    my @extradirs;
+    if (win32()) {
+      push @extradirs, "c:/windows/fonts//";
+    } else {
+      # other dirs to check, for normal unix?
+      for my $d (qw!/Library/Fonts /System/Library/Fonts /Library/Fonts/Microsoft/ /Network/Library/Fonts!) {
+        push @extradirs, $d if (-d $d);
+      }
+      my $home = $ENV{'HOME'};
+      push @extradirs, "$home/Library/Fonts" if (-d "$home/Library/Fonts");
+    }
+    #
+    if (@extradirs) {
+      # final dummy directory
+      push @extradirs, "/this/does/not/really/exists/unless/you/are/stupid";
+      # push current value of OSFONTDIR
+      push @extradirs, $ENV{'OSFONTDIR'} if $ENV{'OSFONTDIR'};
+      # compose OSFONTDIR
+      my $osfontdir = join ':', @extradirs;
+      $ENV{'OSFONTDIR'} = $osfontdir;
+    }
+    if ($ENV{'OSFONTDIR'}) {
+      print_debug("final setting of OSFONTDIR: $ENV{'OSFONTDIR'}\n");
+    }
+    # prepare for kpsewhich call, we need to do quoting
+    my $cmdl = 'kpsewhich ';
+    for my $f (@fn) {
+      $cmdl .= " \"$f\" ";
+    }
+    # shoot up kpsewhich
+    print_ddebug("checking for $cmdl\n");
+    @foundfiles = `$cmdl`;
+  }
+  chomp(@foundfiles);
+  print_ddebug("Found files @foundfiles\n");
+  # map basenames to filenames
+  my %bntofn;
+  for my $f (@foundfiles) {
+    my $bn = basename($f);
+    $bntofn{$bn} = $f;
+  }
+  if ($opt_debug > 1) {
+    print_ddebug("dumping basename to filename list:\n");
+    print_ddebug(Data::Dumper::Dumper(\%bntofn));
+  }
+
+  # update the %fontdb with the found files
+  for my $k (keys %fontdb) {
+    $fontdb{$k}{'available'} = 0;
+    for my $f (keys %{$fontdb{$k}{'files'}}) {
+      # check for subfont extension 
+      my $realfile = $f;
+      $realfile =~ s/^(.*)\(\d*\)$/$1/;
+      if ($bntofn{$realfile}) {
+        # we found a representative, make it available
+        $fontdb{$k}{'files'}{$f}{'target'} = $bntofn{$realfile};
+        $fontdb{$k}{'available'} = 1;
+      } else {
+        # delete the entry for convenience
+        delete $fontdb{$k}{'files'}{$f};
+      }
+    }
+  }
+  # second round to determine the winner in case of more targets
+  for my $k (keys %fontdb) {
+    if ($fontdb{$k}{'available'}) {
+      my $mp = 1000000; my $mf;
+      for my $f (keys %{$fontdb{$k}{'files'}}) {
+        if ($fontdb{$k}{'files'}{$f}{'priority'} < $mp) {
+          $mp = $fontdb{$k}{'files'}{$f}{'priority'};
+          $mf = $f;
+        }
+      }
+      # extract subfont if necessary
+      my $sf = 0;
+      if ($mf =~ m/^(.*)\((\d*)\)$/) { $sf = $2; }
+      $fontdb{$k}{'target'} = $fontdb{$k}{'files'}{$mf}{'target'};
+      $fontdb{$k}{'subfont'} = $sf if ($fontdb{$k}{'type'} eq 'TTF');
+    }
+    # not needed anymore
+    delete $fontdb{$k}{'files'};
+  }
+  if ($opt_debug > 0) {
+    print_debug("dumping font database:\n");
+    print_debug(Data::Dumper::Dumper(\%fontdb));
+  }
+}
+
+sub compute_aliases {
+  # go through fontdb to check for provides
+  # accumulate all provided fonts in @provides
+  for my $k (keys %fontdb) {
+    if ($fontdb{$k}{'available'}) {
+      for my $p (keys %{$fontdb{$k}{'provides'}}) {
+        # do not check alias if the real font is available
+        next if $fontdb{$p}{'available'};
+        # use the priority as key
+        # if priorities are double, this will pick one at chance
+        if ($aliases{$p}{$fontdb{$k}{'provides'}{$p}}) {
+          print_warning("duplicate provide levels:\n");
+          print_warning("  current $p $fontdb{$k}{'provides'}{$p} $aliases{$p}{$fontdb{$k}{'provides'}{$p}}\n");
+          print_warning("  ignored $p $fontdb{$k}{'provides'}{$p} $k\n");
+        } else {
+          $aliases{$p}{$fontdb{$k}{'provides'}{$p}} = $k;
+        }
+      }
+    }
+  }
+  # check for user supplied aliases
+  for my $a (@opt_aliases) {
+    if ($a =~ m/^(.*)=(.*)$/) {
+      my $ll = $1;
+      my $rr = $2;
+      # check for consistency of user provided aliases:
+      # - ll must not be available
+      # - rr needs to be available as font or alias
+      # check whether $rr is available, either as real font or as alias
+      if ($fontdb{$ll}{'available'}) {
+        print_error("left side of alias spec is provided by a real font: $a\n");
+        print_error("stopping here\n");
+        exit(1);
+      }
+      if (!($fontdb{$rr}{'available'} || $aliases{$rr})) {
+        print_error("right side of alias spec is not available as real font or alias: $a\n");
+        print_error("stopping here\n");
+        exit(1);
+      }
+      $user_aliases{$ll} = $rr;
+    }
+  }
+  if ($opt_debug > 0) {
+    print_debug("dumping aliases:\n");
+    print_debug(Data::Dumper::Dumper(\%aliases));
+  }
+}
+
+sub read_font_database {
+  my @dbl;
+  if ($opt_fontdef) {
+    open (FDB, "<$opt_fontdef") ||
+      die "Cannot find $opt_fontdef: $!";
+    @dbl = <FDB>;
+    close(FDB);
+  } else {
+    @dbl = <DATA>;
+  }
+  chomp(@dbl);
+  # add a "final empty line" to easy parsing
+  push @dbl, "";
+  my $fontname = "";
+  my $fonttype = "";
+  my $fontclass = "";
+  my %fontprovides = ();
+  my %fontfiles;
+  my $psname = "";
+  my $lineno = 0;
+  for my $l (@dbl) {
+    $lineno++;
+
+    next if ($l =~ m/^\s*#/);
+    if ($l =~ m/^\s*$/) {
+      if ($fontname || $fonttype || $fontclass || keys(%fontfiles)) {
+        if ($fontname && $fonttype && $fontclass && keys(%fontfiles)) {
+          my $realfontname = ($psname ? $psname : $fontname);
+          $fontdb{$realfontname}{'type'} = $fonttype;
+          $fontdb{$realfontname}{'class'} = $fontclass;
+          $fontdb{$realfontname}{'files'} = { %fontfiles };
+          $fontdb{$realfontname}{'provides'} = { %fontprovides };
+          # reset to start
+          $fontname = $fonttype = $fontclass = $psname = "";
+          %fontfiles = ();
+          %fontprovides = ();
+        } else {
+          print_warning("incomplete entry above line $lineno for $fontname/$fonttype/$fontclass, skipping!\n");
+          # reset to start
+          $fontname = $fonttype = $fontclass = $psname = "";
+          %fontfiles = ();
+          %fontprovides = ();
+        }
+      } else {
+        # no term is set, so nothing to warn about
+      }
+      next;
+    }
+    if ($l =~ m/^Name:\s*(.*)$/) { $fontname = $1; next; }
+    if ($l =~ m/^PSName:\s*(.*)$/) { $psname = $1; next; }
+    if ($l =~ m/^Type:\s*(.*)$/) { $fonttype = $1 ; next ; }
+    if ($l =~ m/^Class:\s*(.*)$/) { $fontclass = $1 ; next ; }
+    if ($l =~ m/^Filename(\((\d+)\))?:\s*(.*)$/) { 
+      $fontfiles{$3}{'priority'} = ($2 ? $2 : 10);
+      next;
+    }
+    if ($l =~ m/^Provides\((\d+)\):\s*(.*)$/) { $fontprovides{$2} = $1; next; }
+    # we are still here??
+    print_error("Cannot parse this file at line $lineno, exiting. Strange line: >>>$l<<<\n");
+    exit (1);
+  }
+}
+
+sub find_gs_resource {
+  # we assume that gs is in the path
+  # on Windows we probably have to try something else
+  my @ret = `gs --help 2>$nul`;
+  my $foundres = '';
+  if ($?) {
+    print_error("Cannot find gs ...\n");
+  } else {
+    # try to find resource line
+    for (@ret) {
+      if (m!Resource/Font!) {
+        $foundres = $_;
+        $foundres =~ s/^\s*//;
+        $foundres =~ s/\s*:\s*$//;
+        $foundres =~ s!/Font!!;
+        last;
+      }
+    }
+    if (!$foundres) {
+      print_error("Found gs but no resource???\n");
+    }
+  }
+  return $foundres;
+}
+
+sub version {
+  my $ret = sprintf "%s version %s\n", $prg, $version;
+  return $ret;
+}
+
+sub Usage {
+  my $headline = "Configuring GhostScript for CJK CID/TTF fonts";
+  my $usage = "[perl] $prg\[.pl\] [OPTIONS]";
+  my $options = "
+-n, --dry-run         do not actually output anything
+-f, --fontdef FILE    specify alternate set of font definitions, if not
+                      given, the built-in set is used
+-o, --output DIR      specifies the base output dir, if not provided,
+                      the Resource directory of an install GhostScript
+                      is searched and used.
+-a, --alias LL=RR     defines an alias, or overrides a given alias
+                      illegal if LL is provided by a real font, or
+                      RR is neither available as real font or alias
+                      can be given multiple times
+--filelist FILE       read list of available font files from FILE
+                      instead of searching with kpathsea
+--link-texmflocal     link fonts into
+                         TEXMFLOCAL/fonts/opentype/cjk-gs-integrate
+                      and
+                         TEXMFLOCAL/fonts/truetype/cjk-gs-integrate
+--machine-readable    output of --list-aliases is machine readable
+--force               do not bail out if linked fonts already exist
+-q, --quiet           be less verbose
+-d, --debug           output debug information, can be given multiple times
+-v, --version         outputs only the version information
+-h, --help            this help
+";
+
+  my $commandoptions = "
+--only-aliases        do only regenerate the cidfmap.alias file instead of all
+--list-aliases        lists the available aliases and their options, with the
+                      selected option on top
+--list-all-aliases    list all possible aliases without searching for actually
+                      present files
+--list-fonts          lists the fonts found on the system
+--info                combines the above two information
+";
+
+  my $shortdesc = "
+This script searches a list of directories for CJK fonts, and makes
+them available to an installed GhostScript. In the simplest case with
+sufficient privileges, a run without arguments should effect in a
+complete setup of GhostScript.
+";
+
+my $operation = "
+For each found TrueType (TTF) font it creates a cidfmap entry in
+
+    <Resource>/Init/cidfmap.local
+
+and links the font to
+
+    <Resource>/CIDFSubst/
+
+For each CID font it creates a snippet in
+
+    <Resource>/Font/
+
+and links the font to
+
+    <Resource>/CIDFont/
+
+The `<Resource>` dir is either given by `-o`/`--output`, or otherwise searched
+from an installed GhostScript (binary name is assumed to be 'gs').
+
+Aliases are added to 
+
+    <Resource>/Init/cidfmap.aliases
+
+Finally, it tries to add runlib calls to
+
+    <Resource>/Init/cidfmap
+
+to load the cidfmap.local and cidfmap.aliases.
+";
+
+  my $dirsearch = '
+Search is done using the kpathsea library, in particular using kpsewhich
+program. By default the following directories are searched:
+  - all TEXMF trees
+  - `/Library/Fonts`, `/Library/Fonts/Microsoft`, `/System/Library/Fonts`, 
+    `/Network/Library/Fonts`, and `~/Library/Fonts` (all if available)
+  - `c:/windows/fonts` (on Windows)
+  - the directories in `OSFONTDIR` environment variable
+
+In case you want to add some directories to the search path, adapt the
+`OSFONTDIR` environment variable accordingly: Example:
+
+`````
+    OSFONTDIR="/usr/local/share/fonts/truetype//:/usr/local/share/fonts/opentype//" $prg
+`````
+
+will result in fonts found in the above two given directories to be
+searched in addition.
+';
+
+  my $outputfile = "
+If no output option is given, the program searches for a GhostScript
+interpreter 'gs' and determines its Resource directory. This might
+fail, in which case one need to pass the output directory manually.
+
+Since the program adds files and link to this directory, sufficient
+permissions are necessary.
+";
+
+  my $aliases = "
+Aliases are managed via the Provides values in the font database.
+At the moment entries for the basic font names for CJK fonts
+are added:
+
+Japanese:
+
+    Ryumin-Light GothicBBB-Medium FutoMinA101-Bold FutoGoB101-Bold Jun101-Light
+
+Korean:
+
+    HYGoThic-Medium HYSMyeongJo-Medium
+
+Simplified Chinese:
+
+    STSong-Light STHeiti-Regular STHeiti-Light STKaiti-Regular
+
+Traditional Chinese:
+
+    MSung-Light MHei-Medium MKai-Medium
+
+In addition, we also includes provide entries for the OTF Morisawa names:
+    RyuminPro-Light GothicBBBPro-Medium FutoMinA101Pro-Bold
+    FutoGoB101Pro-Bold Jun101Pro-Light
+
+The order is determined by the Provides setting in the font database,
+and for the Japanese fonts it is currently:
+    Morisawa Pr6, Morisawa, Hiragino ProN, Hiragino, 
+    Yu OSX, Yu Win, Kozuka ProN, Kozuka, IPAex, IPA
+
+That is, the first font found in this order will be used to provide the
+alias if necessary.
+
+#### Overriding aliases ####
+
+Using the command line option `--alias LL=RR` one can add arbitrary aliases,
+or override ones selected by the program. For this to work the following
+requirements of `LL` and `RR` must be fulfilled:
+  * `LL` is not provided by a real font
+  * `RR` is available either as real font, or as alias (indirect alias)
+";
+
+  my $authors = "
+The script and its documentation was written by Norbert Preining, based
+on research and work by Yusuke Kuroki, Bruno Voisin, Munehiro Yamamoto
+and the TeX Q&A wiki page.
+
+The script is licensed under GNU General Public License Version 3 or later.
+The contained font data is not copyrightable.
+";
+
+
+  if ($opt_markdown) {
+    print "$headline\n";
+    print ("=" x length($headline));
+    print "\n$shortdesc\nUsage\n-----\n\n`````\n$usage\n`````\n\n";
+    print "#### Options ####\n\n`````";
+    print_for_out($options, "  ");
+    print "`````\n\n#### Command like options ####\n\n`````";
+    print_for_out($commandoptions, "  ");
+    print "`````\n\nOperation\n---------\n$operation\n";
+    print "How and which directories are searched\n";
+    print "--------------------------------------\n$dirsearch\n";
+    print "Output files\n";
+    print "------------\n$outputfile\n";
+    print "Aliases\n";
+    print "-------\n$aliases\n";
+    print "Authors, Contributors, and Copyright\n";
+    print "------------------------------------\n$authors\n";
+  } else {
+    print "\nUsage: $usage\n\n$headline\n$shortdesc";
+    print "\nOptions:\n";
+    print_for_out($options, "  ");
+    print "\nCommand like options:\n";
+    print_for_out($commandoptions, "  ");
+    print "\nOperation:\n";
+    print_for_out($operation, "  ");
+    print "\nHow and which directories are searched:\n";
+    print_for_out($dirsearch, "  ");
+    print "\nOutput files:\n";
+    print_for_out($outputfile, "  ");
+    print "\nAliases:\n";
+    print_for_out($aliases, "  ");
+    print "\nAuthors, Contributors, and Copyright:\n";
+    print_for_out($authors, "  ");
+    print "\n";
+  }
+  exit 0;
+}
+
+sub print_for_out {
+  my ($what, $indent) = @_;
+  for (split /\n/, $what) { 
+    next if m/`````/;
+    s/\s*####\s*//g;
+    if ($_ eq '') {
+      print "\n";
+    } else {
+      print "$indent$_\n";
+    }
+  }
+}
+
+# info/warning can be suppressed
+# verbose/error cannot be suppressed
+sub print_info {
+  print STDOUT "$prg: ", @_ if (!$opt_quiet);
+}
+sub print_verbose {
+  print STDOUT "$prg: ", @_;
+}
+sub print_warning {
+  print STDERR "$prg [WARNING]: ", @_ if (!$opt_quiet) 
+}
+sub print_error {
+  print STDERR "$prg [ERROR]: ", @_;
+}
+sub print_debug {
+  print STDERR "$prg [DEBUG]: ", @_ if ($opt_debug >= 1);
+}
+sub print_ddebug {
+  print STDERR "$prg [DEBUG]: ", @_ if ($opt_debug >= 2);
+}
+
+
+__DATA__
+#
+# CJK FONT DEFINITIONS
+#
+
+# JAPAN
+
+# Morisawa
+
+Name: A-OTF-FutoGoB101Pr6N-Bold
+PSName: FutoGoB101Pr6N-Bold
+Type: CID
+Class: Japan
+Provides(10): FutoGoB101-Bold
+Provides(10): FutoGoB101Pro-Bold
+Filename: A-OTF-FutoGoB101Pr6N-Bold.otf
+
+Name: A-OTF-FutoGoB101Pro-Bold
+PSName: FutoGoB101Pro-Bold
+Type: CID
+Class: Japan
+Provides(20): FutoGoB101-Bold
+Filename: A-OTF-FutoGoB101Pro-Bold.otf
+
+Name: A-OTF-FutoMinA101Pr6N-Bold
+PSName: FutoMinA101Pr6N-Bold
+Type: CID
+Class: Japan
+Provides(10): FutoMinA101-Bold
+Provides(10): FutoMinA101Pro-Bold
+Filename: A-OTF-FutoMinA101Pr6N-Bold.otf
+
+Name: A-OTF-FutoMinA101Pro-Bold
+PSName: FutoMinA101Pro-Bold
+Type: CID
+Class: Japan
+Provides(20): FutoMinA101-Bold
+Filename: A-OTF-FutoMinA101Pro-Bold.otf
+
+Name: A-OTF-GothicBBBPr6N-Medium
+PSName: GothicBBBPr6N-Medium
+Type: CID
+Class: Japan
+Provides(10): GothicBBB-Medium
+Provides(10): GothicBBBPro-Medium
+Filename: A-OTF-GothicBBBPr6N-Medium.otf
+
+Name: A-OTF-GothicBBBPro-Medium
+PSName: GothicBBBPro-Medium
+Type: CID
+Class: Japan
+Provides(20): GothicBBB-Medium
+Filename: A-OTF-GothicBBBPro-Medium.otf
+
+Name: A-OTF-Jun101Pro-Light
+PSName: Jun101Pro-Light
+Type: CID
+Class: Japan
+Provides(20): Jun101-Light
+Filename: A-OTF-Jun101Pro-Light.otf
+
+Name: A-OTF-MidashiGoPr6N-MB31
+PSName: MidashiGoPr6N-MB31
+Type: CID
+Class: Japan
+Provides(10): MidashiGo-MB31
+Provides(10): MidashiGoPro-MB31
+Filename: A-OTF-MidashiGoPr6N-MB31.otf
+
+Name: A-OTF-MidashiGoPro-MB31
+PSName: MidashiGoPro-MB31
+Type: CID
+Class: Japan
+Provides(20): MidashiGo-MB31
+Filename: A-OTF-MidashiGoPro-MB31.otf
+
+Name: A-OTF-RyuminPr6N-Light
+PSName: RyuminPr6N-Light
+Type: CID
+Class: Japan
+Provides(10): Ryumin-Light
+Provides(10): RyuminPro-Light
+Filename: A-OTF-RyuminPr6N-Light.otf
+
+Name: A-OTF-RyuminPro-Light
+PSName: RyuminPro-Light
+Type: CID
+Class: Japan
+Provides(20): Ryumin-Light
+Filename: A-OTF-RyuminPro-Light.otf
+
+Name: A-OTF-ShinMGoPr6N-Light
+PSName: ShinMGoPr6N-Light
+Type: CID
+Class: Japan
+Provides(10): Jun101-Light
+Provides(10): Jun101Pro-Light
+Filename: A-OTF-ShinMGoPr6N-Light.otf
+
+
+# Hiragino
+
+Name: HiraKakuPro-W3
+Type: CID
+Class: Japan
+Provides(40): GothicBBB-Medium
+Provides(40): GothicBBBPro-Medium
+# the following two are *not* the same
+# one is in decomposed form (for Mac), one is in composed form (for the rest)
+Filename(20): ヒラギノ角ゴ Pro W3.otf
+Filename(19): ヒラギノ角ゴ Pro W3.otf
+Filename(10): HiraKakuPro-W3.otf
+
+Name: HiraKakuPro-W6
+Type: CID
+Class: Japan
+Provides(40): FutoGoB101-Bold
+Provides(40): FutoGoB101Pro-Bold
+Filename(20): ヒラギノ角ゴ Pro W6.otf
+Filename(19): ヒラギノ角ゴ Pro W6.otf
+Filename(10): HiraKakuPro-W6.otf
+
+Name: HiraKakuProN-W3
+Type: CID
+Class: Japan
+Provides(30): GothicBBB-Medium
+Provides(30): GothicBBBPro-Medium
+Filename(20): ヒラギノ角ゴ ProN W3.otf
+Filename(19): ヒラギノ角ゴ ProN W3.otf
+Filename(10): HiraKakuProN-W3.otf
+
+Name: HiraKakuProN-W6
+Type: CID
+Class: Japan
+Provides(30): FutoGoB101-Bold
+Provides(30): FutoGoB101Pro-Bold
+Filename(20): ヒラギノ角ゴ ProN W6.otf
+Filename(19): ヒラギノ角ゴ ProN W6.otf
+Filename(10): HiraKakuProN-W6.otf
+
+Name: HiraKakuStd-W8
+Type: CID
+Class: Japan
+Provides(40): MidashiGo-MB31
+Provides(40): MidashiGoPro-MB31
+Filename(20): ヒラギノ角ゴ Std W8.otf
+Filename(19): ヒラギノ角ゴ Std W8.otf
+Filename(10): HiraKakuStd-W8.otf
+
+Name: HiraKakuStdN-W8
+Type: CID
+Class: Japan
+Provides(30): MidashiGo-MB31
+Provides(30): MidashiGoPro-MB31
+Filename(20): ヒラギノ角ゴ StdN W8.otf
+Filename(19): ヒラギノ角ゴ StdN W8.otf
+Filename(10): HiraKakuStdN-W8.otf
+
+Name: HiraMaruPro-W4
+Type: CID
+Class: Japan
+Provides(40): Jun101-Light
+Provides(40): Jun101Pro-Light
+Filename(20): ヒラギノ丸ゴ Pro W4.otf
+Filename(19): ヒラギノ丸ゴ Pro W4.otf
+Filename(10): HiraMaruPro-W4.otf
+
+Name: HiraMaruProN-W4
+Type: CID
+Class: Japan
+Provides(30): Jun101-Light
+Provides(30): Jun101Pro-Light
+Filename(20): ヒラギノ丸ゴ ProN W4.otf
+Filename(19): ヒラギノ丸ゴ ProN W4.otf
+Filename(10): HiraMaruProN-W4.otf
+
+Name: HiraMinPro-W3
+Type: CID
+Class: Japan
+Provides(40): Ryumin-Light
+Provides(40): RyuminPro-Light
+Filename(20): ヒラギノ明朝 Pro W3.otf
+Filename(19): ヒラギノ明朝 Pro W3.otf
+Filename(10): HiraMinPro-W3.otf
+
+Name: HiraMinPro-W6
+Type: CID
+Class: Japan
+Provides(40): FutoMinA101-Bold
+Provides(40): FutoMinA101Pro-Bold
+Filename(20): ヒラギノ明朝 Pro W6.otf
+Filename(19): ヒラギノ明朝 Pro W6.otf
+Filename(10): HiraMinPro-W6.otf
+
+Name: HiraMinProN-W3
+Type: CID
+Class: Japan
+Provides(30): Ryumin-Light
+Provides(30): RyuminPro-Light
+Filename(20): ヒラギノ明朝 ProN W3.otf
+Filename(19): ヒラギノ明朝 ProN W3.otf
+Filename(10): HiraMinProN-W3.otf
+
+Name: HiraMinProN-W6
+Type: CID
+Class: Japan
+Provides(30): FutoMinA101-Bold
+Provides(30): FutoMinA101Pro-Bold
+Filename(20): ヒラギノ明朝 ProN W6.otf
+Filename(19): ヒラギノ明朝 ProN W6.otf
+Filename(10): HiraMinProN-W6.otf
+
+
+Name: HiraginoSansGB-W3
+Type: CID
+Class: GB
+Filename(20): Hiragino Sans GB W3.otf
+Filename(10): HiraginoSansGB-W3.otf
+
+Name: HiraginoSansGB-W6
+Type: CID
+Class: GB
+Filename(20): Hiragino Sans GB W6.otf
+Filename(10): HiraginoSansGB-W6.otf
+
+
+# Yu-fonts MacOS version
+
+Name: YuGo-Medium
+Type: CID
+Class: Japan
+Provides(50): GothicBBB-Medium
+Provides(50): GothicBBBPro-Medium
+Filename(20): Yu Gothic Medium.otf
+Filename(10): YuGo-Medium.otf
+
+Name: YuGo-Bold
+Type: CID
+Class: Japan
+Provides(50): FutoGoB101-Bold
+Provides(50): FutoGoB101Pro-Bold
+Provides(50): Jun101-Light
+Provides(50): Jun101Pro-Light
+Provides(50): MidashiGo-MB31
+Provides(50): MidashiGoPro-MB31
+Filename(20): Yu Gothic Bold.otf
+Filename(10): YuGo-Bold.otf
+
+Name: YuMin-Medium
+Type: CID
+Class: Japan
+Provides(50): Ryumin-Light
+Provides(50): RyuminPro-Light
+Filename(20): Yu Mincho Medium.otf
+Filename(10): YuMin-Medium.otf
+
+Name: YuMin-Demibold
+Type: CID
+Class: Japan
+Provides(50): FutoMinA101-Bold
+Provides(50): FutoMinA101Pro-Bold
+Filename(20): Yu Mincho Demibold.otf
+Filename(10): YuMin-Demibold.otf
+
+# Yu-fonts Windows version
+
+Name: YuMincho-Regular
+Type: TTF
+Class: Japan
+Provides(60): Ryumin-Light
+Provides(60): RyuminPro-Light
+Filename(20): yumin.ttf
+Filename(10): YuMincho-Regular.ttf
+
+Name: YuMincho-Light
+Type: TTF
+Class: Japan
+Filename(20): yuminl.ttf
+Filename(10): YuMincho-Light.ttf
+
+Name: YuMincho-DemiBold
+Type: TTF
+Class: Japan
+Provides(60): FutoMinA101-Bold
+Provides(60): FutoMinA101Pro-Bold
+Filename(20): yumindb.ttf
+Filename(10): YuMincho-DemiBold.ttf
+
+Name: YuGothic-Regular
+Type: TTF
+Class: Japan
+Provides(60): GothicBBB-Medium
+Provides(60): GothicBBBPro-Medium
+Filename(20): yugothic.ttf
+Filename(10): YuGothic-Regular.ttf
+
+Name: YuGothic-Light
+Type: TTF
+Class: Japan
+Filename(20): yugothil.ttf
+Filename(10): YuGothic-Light.ttf
+
+Name: YuGothic-Bold
+Type: TTF
+Class: Japan
+Provides(60): FutoGoB101-Bold
+Provides(60): FutoGoB101Pro-Bold
+Provides(60): Jun101-Light
+Provides(60): Jun101Pro-Light
+Provides(60): MidashiGo-MB31
+Provides(60): MidashiGoPro-MB31
+Filename(20): yugothib.ttf
+Filename(10): YuGothic-Bold.ttf
+
+# IPA fonts
+
+Name: IPAMincho
+Type: TTF
+Class: Japan
+Provides(110): Ryumin-Light
+Provides(110): RyuminPro-Light
+Provides(110): FutoMinA101-Bold
+Provides(110): FutoMinA101Pro-Bold
+Filename(20): ipam.ttf
+Filename(10): IPAMincho.ttf
+
+Name: IPAGothic
+Type: TTF
+Class: Japan
+Provides(110): GothicBBB-Medium
+Provides(110): GothicBBBPro-Medium
+Provides(110): FutoGoB101-Bold
+Provides(110): FutoGoB101Pro-Bold
+Provides(110): Jun101-Light
+Provides(110): Jun101Pro-Light
+Provides(110): MidashiGo-MB31
+Provides(110): MidashiGoPro-MB31
+Filename(20): ipag.ttf
+Filename(10): IPAGothic.ttf
+
+Name: IPAexMincho
+Type: TTF
+Class: Japan
+Provides(100): Ryumin-Light
+Provides(100): RyuminPro-Light
+Provides(100): FutoMinA101-Bold
+Provides(100): FutoMinA101Pro-Bold
+Filename(20): ipaexm.ttf
+Filename(10): IPAexMincho.ttf
+
+Name: IPAexGothic
+Type: TTF
+Class: Japan
+Provides(100): GothicBBB-Medium
+Provides(100): GothicBBBPro-Medium
+Provides(100): FutoGoB101-Bold
+Provides(100): FutoGoB101Pro-Bold
+Provides(100): Jun101-Light
+Provides(100): Jun101Pro-Light
+Provides(100): MidashiGo-MB31
+Provides(100): MidashiGoPro-MB31
+Filename(20): ipaexg.ttf
+Filename(10): IPAexGothic.ttf
+
+# Kozuka fonts
+
+Name: KozGoPr6N-Bold
+Type: CID
+Class: Japan
+Provides(70): FutoGoB101-Bold
+Provides(70): FutoGoB101Pro-Bold
+Filename: KozGoPr6N-Bold.otf
+
+Name: KozGoPr6N-Heavy
+Type: CID
+Class: Japan
+Provides(70): Jun101-Light
+Provides(70): Jun101Pro-Light
+Provides(70): MidashiGo-MB31
+Provides(70): MidashiGoPro-MB31
+Filename: KozGoPr6N-Heavy.otf
+
+Name: KozGoPr6N-Medium
+Type: CID
+Class: Japan
+Provides(70): GothicBBB-Medium
+Provides(70): GothicBBBPro-Medium
+Filename: KozGoPr6N-Medium.otf
+
+Name: KozGoPr6N-Regular
+Type: CID
+Class: Japan
+Filename: KozGoPr6N-Regular.otf
+
+Name: KozGoPr6N-ExtraLight
+Type: CID
+Class: Japan
+Filename: KozGoPr6N-ExtraLight.otf
+
+Name: KozGoPr6N-Light
+Type: CID
+Class: Japan
+Filename: KozGoPr6N-Light.otf
+
+Name: KozGoPro-ExtraLight
+Type: CID
+Class: Japan
+Filename: KozGoPro-ExtraLight.otf
+
+Name: KozGoPro-Light
+Type: CID
+Class: Japan
+Filename: KozGoPro-Light.otf
+
+
+Name: KozGoPro-Bold
+Type: CID
+Class: Japan
+Provides(90): FutoGoB101-Bold
+Provides(90): FutoGoB101Pro-Bold
+Filename: KozGoPro-Bold.otf
+
+Name: KozGoPro-Heavy
+Type: CID
+Class: Japan
+Provides(90): Jun101-Light
+Provides(90): Jun101Pro-Light
+Provides(90): MidashiGo-MB31
+Provides(90): MidashiGoPro-MB31
+Filename: KozGoPro-Heavy.otf
+
+Name: KozGoPro-Medium
+Type: CID
+Class: Japan
+Provides(90): GothicBBB-Medium
+Provides(90): GothicBBBPro-Medium
+Filename: KozGoPro-Medium.otf
+
+Name: KozGoPro-Regular
+Type: CID
+Class: Japan
+Filename: KozGoPro-Regular.otf
+
+Name: KozGoProVI-Bold
+Type: CID
+Class: Japan
+Provides(80): FutoGoB101-Bold
+Provides(80): FutoGoB101Pro-Bold
+Filename: KozGoProVI-Bold.otf
+
+Name: KozGoProVI-Heavy
+Type: CID
+Class: Japan
+Provides(80): Jun101-Light
+Provides(80): Jun101Pro-Light
+Provides(80): MidashiGo-MB31
+Provides(80): MidashiGoPro-MB31
+Filename: KozGoProVI-Heavy.otf
+
+Name: KozGoProVI-Medium
+Type: CID
+Class: Japan
+Provides(80): GothicBBB-Medium
+Provides(80): GothicBBBPro-Medium
+Filename: KozGoProVI-Medium.otf
+
+Name: KozGoProVI-Regular
+Type: CID
+Class: Japan
+Filename: KozGoProVI-Regular.otf
+
+Name: KozMinPr6N-Bold
+Type: CID
+Class: Japan
+Provides(70): FutoMinA101-Bold
+Provides(70): FutoMinA101Pro-Bold
+Filename: KozMinPr6N-Bold.otf
+
+Name: KozMinPr6N-Light
+Type: CID
+Class: Japan
+Filename: KozMinPr6N-Light.otf
+
+Name: KozMinPr6N-Regular
+Type: CID
+Class: Japan
+Provides(70): Ryumin-Light
+Provides(70): RyuminPro-Light
+Filename: KozMinPr6N-Regular.otf
+
+Name: KozMinPro-Bold
+Type: CID
+Class: Japan
+Provides(90): FutoMinA101-Bold
+Provides(90): FutoMinA101Pro-Bold
+Filename: KozMinPro-Bold.otf
+
+Name: KozMinPro-Light
+Type: CID
+Class: Japan
+Filename: KozMinPro-Light.otf
+
+Name: KozMinPro-Regular
+Type: CID
+Class: Japan
+Provides(90): Ryumin-Light
+Provides(90): RyuminPro-Light
+Filename: KozMinPro-Regular.otf
+
+Name: KozMinProVI-Bold
+Type: CID
+Class: Japan
+Provides(80): FutoMinA101-Bold
+Provides(80): FutoMinA101Pro-Bold
+Filename: KozMinProVI-Bold.otf
+
+Name: KozMinProVI-Light
+Type: CID
+Class: Japan
+Filename: KozMinProVI-Light.otf
+
+Name: KozMinProVI-Regular
+Type: CID
+Class: Japan
+Provides(80): Ryumin-Light
+Provides(80): RyuminPro-Light
+Filename: KozMinProVI-Regular.otf
+
+Name: KozMinPr6N-ExtraLight
+Type: CID
+Class: Japan
+Filename: KozMinPr6N-ExtraLight.otf
+
+Name: KozMinPr6N-Medium
+Type: CID
+Class: Japan
+Filename: KozMinPr6N-Medium.otf
+
+Name: KozMinPr6N-Heavy
+Type: CID
+Class: Japan
+Filename: KozMinPr6N-Heavy.otf
+
+Name: KozMinPro-ExtraLight
+Type: CID
+Class: Japan
+Filename: KozMinPro-ExtraLight.otf
+
+Name: KozMinPro-Medium
+Type: CID
+Class: Japan
+Filename: KozMinPro-Medium.otf
+
+Name: KozMinPro-Heavy
+Type: CID
+Class: Japan
+Filename: KozMinPro-Heavy.otf
+
+
+#
+# CHINESE FONTS
+#
+
+Name: LiHeiPro
+Type: TTF
+Class: CNS
+Provides(50): MHei-Medium
+Filename(20): 儷黑 Pro.ttf
+Filename(10): LiHeiPro.ttf
+
+Name: LiSongPro
+Type: TTF
+Class: CNS
+# Provides(50): MSung-Medium
+Provides(50): MSung-Light
+Filename(20): 儷宋 Pro.ttf
+Filename(10): LiSongPro.ttf
+
+Name: STXihei
+Type: TTF
+Class: GB
+Provides(20): STHeiti-Light
+Filename(20): 华文细黑.ttf
+Filename(10): STXihei.ttf
+
+Name: STHeiti
+Type: TTF
+Class: GB
+Provides(50): STHeiti-Regular
+Filename(20): 华文黑体.ttf
+Filename(10): STHeiti.ttf
+
+Name: STHeitiSC-Light
+Type: TTF
+Class: GB
+Provides(10): STHeiti-Light
+Filename(10): STHeiti Light.ttc(1)
+Filename(20): STHeitiSC-Light.ttf
+
+Name: STHeitiSC-Medium
+Type: TTF
+Class: GB
+Provides(40): STHeiti-Regular
+Filename(10): STHeiti Medium.ttc(1)
+Filename(20): STHeitiSC-Medium.ttf
+
+Name: STHeitiTC-Light
+Type: TTF
+Class: CNS
+Filename(10): STHeiti Light.ttc(0)
+Filename(20): STHeitiTC-Light.ttf
+
+Name: STHeitiTC-Medium
+Type: TTF
+Class: CNS
+Provides(40): MHei-Medium
+Filename(10): STHeiti Medium.ttc(0)
+Filename(20): STHeitiTC-Medium.ttf
+
+Name: STFangsong
+Type: TTF
+Class: GB
+# Provides(40): STFangsong-Light
+Provides(40): STFangsong-Regular
+Filename(20): 华文仿宋.ttf
+Filename(10): STFangsong.ttf
+
+Name: STSong
+Type: TTF
+Class: GB
+Provides(50): STSong-Light
+Filename(10): Songti.ttc(4)
+Filename(20): 宋体.ttc(3)
+Filename(30): 华文宋体.ttf
+Filename(40): STSong.ttf
+
+Name: STSongti-SC-Light
+Type: TTF
+Class: GB
+Provides(40): STSong-Light
+Filename(10): Songti.ttc(3)
+Filename(20): 宋体.ttc(2)
+Filename(30): STSongti-SC-Light.ttf
+
+Name: STSongti-SC-Regular
+Type: TTF
+Class: GB
+Filename(10): Songti.ttc(6)
+Filename(20): 宋体.ttc(4)
+Filename(30): STSongti-SC-Regular.ttf
+
+Name: STSongti-SC-Bold
+Type: TTF
+Class: GB
+Filename(10): Songti.ttc(1)
+Filename(20): 宋体.ttc(1)
+Filename(30): STSongti-SC-Bold.ttf
+
+Name: STSongti-SC-Black
+Type: TTF
+Class: GB
+Filename(10): Songti.ttc(0)
+Filename(20): 宋体.ttc(0)
+Filename(30): STSongti-SC-Black.ttf
+
+Name: STSongti-TC-Light
+Type: TTF
+Class: CNS
+Provides(40): MSung-Light
+Filename(10): Songti.ttc(5)
+Filename(20): STSongti-TC-Light.ttf
+
+Name: STSongti-TC-Regular
+Type: TTF
+Class: CNS
+# Provides(40): MSung-Medium
+Filename(10): Songti.ttc(7)
+Filename(20): STSongti-TC-Regular.ttf
+
+Name: STSongti-TC-Bold
+Type: TTF
+Class: CNS
+Filename(10): Songti.ttc(2)
+Filename(20): STSongti-TC-Bold.ttf
+
+Name: STKaiti
+Type: TTF
+Class: GB
+Provides(50): STKaiti-Regular
+Filename(10): Kaiti.ttc(4)
+Filename(20): 楷体.ttc(3)
+Filename(30): 华文楷体.ttf
+Filename(40): STKaiti.ttf
+
+Name: STKaiti-SC-Regular
+Type: TTF
+Class: GB
+Provides(40): STKaiti-Regular
+Filename(10): Kaiti.ttc(3)
+Filename(20): 楷体.ttc(2)
+Filename(30): STKaiti-SC-Regular.ttf
+
+Name: STKaiti-SC-Bold
+Type: TTF
+Class: GB
+Filename(10): Kaiti.ttc(1)
+Filename(20): 楷体.ttc(1)
+Filename(30): STKaiti-SC-Bold.ttf
+
+Name: STKaiti-SC-Black
+Type: TTF
+Class: GB
+Filename(10): Kaiti.ttc(0)
+Filename(20): 楷体.ttc(0)
+Filename(30): STKaiti-SC-Black.ttf
+
+Name: STKaiTi-TC-Regular
+Type: TTF
+Class: CNS
+Provides(40): MKai-Medium
+Filename(10): Kaiti.ttc(5)
+Filename(20): STKaiTi-TC-Regular.ttf
+
+Name: STKaiTi-TC-Bold
+Type: TTF
+Class: CNS
+Filename(10): Kaiti.ttc(2)
+Filename(20): STKaiTi-TC-Bold.ttf
+
+Name: STKaiti-Adobe-CNS1
+Type: TTF
+Class: CNS
+Provides(50): MKai-Medium
+Filename(10): Kaiti.ttc(4)
+Filename(20): 楷体.ttc(3)
+Filename(30): 华文楷体.ttf
+Filename(40): STKaiti.ttf
+
+# Adobe fonts
+
+# simplified chinese
+
+Name: AdobeSongStd-Light
+Type: CID
+Class: GB
+Provides(30): STSong-Light
+Filename(10): AdobeSongStd-Light.otf
+
+Name: AdobeHeitiStd-Regular
+Type: CID
+Class: GB
+Provides(30): STHeiti-Regular
+Provides(30): STHeiti-Light
+Filename(20): AdobeHeitiStd-Regular.otf
+
+Name: AdobeKaitiStd-Regular
+Type: CID
+Class: GB
+Provides(30): STKaiti-Regular
+Filename(20): AdobeKaitiStd-Regular.otf
+
+Name: AdobeFangsongStd-Regular
+Type: CID
+Class: GB
+# Provides(30): STFangsong-Light
+Provides(30): STFangsong-Regular
+Filename(20): AdobeFangsongStd-Regular.otf
+
+# traditional chinese
+
+Name: AdobeMingStd-Light
+Type: CID
+Class: CNS
+Provides(30): MSung-Light
+# Provides(30): MSung-Medium
+Filename(20): AdobeMingStd-Light.otf
+
+Name: AdobeFanHeitiStd-Bold
+Type: CID
+Class: CNS
+Provides(30): MHei-Medium
+Provides(30): MKai-Medium
+Filename(20): AdobeFanHeitiStd-Bold.otf
+
+# korean
+
+Name: AdobeMyungjoStd-Medium
+Type: CID
+Class: Korea
+Provides(20): HYSMyeongJo-Medium
+Filename: AdobeMyungjoStd-Medium.otf
+
+Name: AdobeGothicStd-Bold
+Type: CID
+Class: Korea
+Provides(20): HYGoThic-Medium
+Provides(50): HYRGoThic-Medium
+Filename: AdobeGothicStd-Bold.otf
+
+#
+# KOREAN FONTS
+#
+
+# apple fonts
+
+Name: AppleMyungjo
+Type: TTF
+Class: Korea
+Provides(50): HYSMyeongJo-Medium
+Filename: AppleMyungjo.ttf
+
+Name: AppleGothic
+Type: TTF
+Class: Korea
+Provides(50): HYGoThic-Medium
+Provides(80): HYRGoThic-Medium
+Filename: AppleGothic.ttf
+
+Name: NanumMyeongjo
+Type: TTF
+Class: Korea
+Provides(30): HYSMyeongJo-Medium
+Filename: NanumMyeongjo.ttc(0)
+
+Name: NanumMyeongjoBold
+Type: TTF
+Class: Korea
+Filename: NanumMyeongjo.ttc(1)
+
+Name: NanumMyeongjoExtraBold
+Type: TTF
+Class: Korea
+Filename: NanumMyeongjo.ttc(2)
+
+Name: NanumGothic
+Type: TTF
+Class: Korea
+Provides(30): HYGoThic-Medium
+Provides(60): HYRGoThic-Medium
+Filename: NanumGothic.ttc(0)
+
+Name: NanumGothicBold
+Type: TTF
+Class: Korea
+Filename: NanumGothic.ttc(1)
+
+Name: NanumGothicExtraBold
+Type: TTF
+Class: Korea
+Filename: NanumGothic.ttc(2)
+
+Name: NanumBrush
+Type: TTF
+Class: Korea
+Filename: NanumScript.ttc(0)
+
+Name: NanumPen
+Type: TTF
+Class: Korea
+Filename: NanumScript.ttc(1)
+
+Name: AppleSDGothicNeo-Thin
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-Thin.otf
+
+Name: AppleSDGothicNeo-UltraLight
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-UltraLight.otf
+
+Name: AppleSDGothicNeo-Light
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-Light.otf
+
+Name: AppleSDGothicNeo-Regular
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-Regular.otf
+
+Name: AppleSDGothicNeo-Medium
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-Medium.otf
+
+Name: AppleSDGothicNeo-SemiBold
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-SemiBold.otf
+
+Name: AppleSDGothicNeo-Bold
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-Bold.otf
+
+Name: AppleSDGothicNeo-ExtraBold
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-ExtraBold.otf
+
+Name: AppleSDGothicNeo-Heavy
+Type: CID
+Class: Korea
+Filename: AppleSDGothicNeo-Heavy.otf
+
+#
+# Microsoft Mac Office fonts
+#
+
+# Korea
+
+Name: Gulim
+Type: TTF
+Class: Korea
+Provides(70): HYRGoThic-Medium
+Provides(70): HYGoThic-Medium
+Filename(30): Gulim.ttf
+Filename(50): gulim.ttc
+
+Name: Dotum
+Type: TTF
+Class: Korea
+Provides(40): HYGoThic-Medium
+Filename(50): Dotum.ttf
+
+Name: Batang
+Type: TTF
+Class: Korea
+Provides(40): HYSMyeongJo-Medium
+Filename(50): Batang.ttf
+
+# simplified chinese
+
+Name: SimHei
+Type: TTF
+Class: GB
+Provides(60): STHeiti-Regular
+Provides(60): STKaiti-Regular
+Provides(60): STHeiti-Light
+Filename(50): SimHei.ttf
+
+Name: SimSun
+Type: TTF
+Class: GB
+Provides(60): STSong-Light
+# Provides(60): STFangsong-Light
+Provides(60): STFangsong-Regular
+Filename(50): SimSun.ttf
+
+# traditional chinese
+
+Name: MingLiU
+Type: TTF
+Class: CNS
+Provides(60): MHei-Medium
+Provides(60): MKai-Medium
+# Provides(60): MSung-Medium
+Provides(60): MSung-Light
+Filename(50): MingLiU.ttf
+
+Name: PMingLiU
+Type: TTF
+Class: CNS
+Filename(50): PMingLiU.ttf
+
+# japanese
+
+Name: MS-Gothic
+Type: TTF
+Class: Japan
+Provides(95): GothicBBB-Medium
+Provides(95): GothicBBBPro-Medium
+Provides(95): MidashiGo-MB31
+Provides(95): MidashiGoPro-MB31
+Provides(95): FutoGoB101-Bold
+Provides(95): FutoGoB101Pro-Bold
+Provides(95): MidashiGo-MB31
+Provides(95): MidashiGoPro-MB31
+Provides(95): Jun101-Light
+Provides(95): Jun101Pro-Light
+Filename(50): MS Gothic.ttf
+Filename(30): MS-Gothic.ttf
+
+Name: MS-Mincho
+Type: TTF
+Class: Japan
+Provides(95): Ryumin-Light
+Provides(95): RyuminPro-Light
+Provides(95): FutoMinA101-Bold
+Provides(95): FutoMinA101Pro-Bold
+Filename(50): MS Mincho.ttf
+Filename(30): MS-Mincho.ttf
+
+Name: MS-PGothic
+Type: TTF
+Class: Japan
+Filename(50): MS PGothic.ttf
+Filename(30): MS-PGothic.ttf
+
+Name: MS-PMincho
+Type: TTF
+Class: Japan
+Filename(50): MS PMincho.ttf
+Filename(30): MS-PMincho.ttf
+
+Name: Meiryo
+Type: TTF
+Class: Japan
+Filename(50): Meiryo.ttf
+
+Name: Meiryo-Bold
+Type: TTF
+Class: Japan
+Filename(50): Meiryo Bold.ttf
+Filename(30): Meiryo-Bold.ttf
+
+Name: Meiryo-BoldItalic
+Type: TTF
+Class: Japan
+Filename(50): Meiryo Bold Italic.ttf
+Filename(30): Meiryo-BoldItalic.ttf
+
+Name: Meiryo-Italic
+Type: TTF
+Class: Japan
+Filename(50): Meiryo Italic.ttf
+Filename(30): Meiryo-Italic.ttf
+
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim: set tabstop=2 expandtab autoindent: