summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/cjk-gs-integrate
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-08-16 20:37:33 +0000
committerKarl Berry <karl@freefriends.org>2019-08-16 20:37:33 +0000
commit9449c2817a83033a9394748a8441d4bac65a15d8 (patch)
treec1e9972829b9378932f7a01b7b92a6c31fe3d243 /Master/texmf-dist/scripts/cjk-gs-integrate
parent29f8471607e3a9d4b654af95f7e6a458df75b0c6 (diff)
cjk-gs-integrate (16aug19)
git-svn-id: svn://tug.org/texlive/trunk@51888 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/cjk-gs-integrate')
-rwxr-xr-xMaster/texmf-dist/scripts/cjk-gs-integrate/cjk-gs-integrate.pl20
1 files changed, 15 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/cjk-gs-integrate/cjk-gs-integrate.pl b/Master/texmf-dist/scripts/cjk-gs-integrate/cjk-gs-integrate.pl
index 3da4763053e..6fce593611f 100755
--- a/Master/texmf-dist/scripts/cjk-gs-integrate/cjk-gs-integrate.pl
+++ b/Master/texmf-dist/scripts/cjk-gs-integrate/cjk-gs-integrate.pl
@@ -39,7 +39,7 @@ use Cwd 'abs_path';
use strict;
(my $prg = basename($0)) =~ s/\.pl$//;
-my $version = '20190303.0';
+my $version = '20190816.0';
if (win32()) {
# conversion between internal (utf-8) and console (cp932):
@@ -348,6 +348,12 @@ if ($opt_help || $opt_markdown) {
exit(0);
}
+# check for the existence of kpsewhich, otherwise we cannot do anything
+if (system("kpsewhich --version >$nul 2>&1 <$nul" ) != 0) {
+ print_error("We need `kpsewhich' being installed! Exiting.\n");
+ exit(1);
+}
+
if ($opt_debug >= 2) {
require Data::Dumper;
$Data::Dumper::Indent = 1;
@@ -676,15 +682,15 @@ sub do_nonotf_fonts {
if $opt_texmflink;
for my $k (sort keys %fontdb) {
if ($fontdb{$k}{'available'} && $fontdb{$k}{'type'} eq 'TTF') {
- generate_font_snippet($fontdest,
- $k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'});
+ # generate_font_snippet($fontdest,
+ # $k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'});
$outp .= generate_cidfmap_entry($k, $fontdb{$k}{'class'}, $fontdb{$k}{'ttfname'}, -1);
link_font($fontdb{$k}{'target'}, $cidfsubst, $fontdb{$k}{'ttfname'});
link_font($fontdb{$k}{'target'}, "$opt_texmflink/$ttf_pathpart", $fontdb{$k}{'ttfname'})
if $opt_texmflink;
} elsif ($fontdb{$k}{'available'} && $fontdb{$k}{'type'} eq 'TTC') {
- generate_font_snippet($fontdest,
- $k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'});
+ # generate_font_snippet($fontdest,
+ # $k, $fontdb{$k}{'class'}, $fontdb{$k}{'target'});
$outp .= generate_cidfmap_entry($k, $fontdb{$k}{'class'}, $fontdb{$k}{'ttcname'}, $fontdb{$k}{'subfont'});
link_font($fontdb{$k}{'target'}, $cidfsubst, $fontdb{$k}{'ttcname'});
link_font($fontdb{$k}{'target'}, "$opt_texmflink/$ttf_pathpart", $fontdb{$k}{'ttcname'})
@@ -1439,6 +1445,7 @@ sub check_for_files {
$bname = $b;
last;
}
+ $actualpsname =~ s/[\r\n]+\z//; # perl's chomp() on git-bash cannot strip CR of CRLF ??
if ($actualpsname ne $k) {
print_debug("... PSName returned by otfinfo ($actualpsname) is\n");
print_debug("different from our database ($k), discarding!\n");
@@ -2030,6 +2037,9 @@ 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.
+Search is done using the kpathsea library, in particular `kpsewhich`
+program. To run this script, you will need some TeX distribution in
+your system.
";
my $operation = "