From 3086a4d0d5221ab0c66b369e32ada32679b5c840 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 8 Mar 2018 15:46:39 +0900 Subject: add cjk-gs-integrate-macos --- .../cjk-gs-integrate-macos.pl | 70 ++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100755 texmf-dist/scripts/cjk-gs-integrate-macos/cjk-gs-integrate-macos.pl (limited to 'texmf-dist/scripts') diff --git a/texmf-dist/scripts/cjk-gs-integrate-macos/cjk-gs-integrate-macos.pl b/texmf-dist/scripts/cjk-gs-integrate-macos/cjk-gs-integrate-macos.pl new file mode 100755 index 00000000..074723f5 --- /dev/null +++ b/texmf-dist/scripts/cjk-gs-integrate-macos/cjk-gs-integrate-macos.pl @@ -0,0 +1,70 @@ +#!/usr/bin/env perl +# +# cjk-gs-integrate-macos - wrapper for cjk-gs-integrate on macOS +# +# Copyright 2017-2018 by Japanese TeX Development Community +# +# 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/texjporg/cjk-gs-support +# + +$^W = 1; +use Getopt::Long qw(:config no_autoabbrev ignore_case_always pass_through); +use File::Basename; +use strict; +(my $prg = basename($0)) =~ s/\.pl$//; + +my $opt_help = 0; +GetOptions("h|help" => \$opt_help); + +sub macosx { return ($^O=~/^darwin$/i); } + +if ($opt_help) { + print "Usage: [perl] $prg\[.pl\] [OPTIONS]\n"; + print "This is a wrapper for cjk-gs-integrate on macOS.\n"; + exit 0; +} + +my $addname; +if (macosx()) { + my $macos_ver = `sw_vers -productVersion`; + my $macos_ver_major = $macos_ver; + $macos_ver_major =~ s/^(\d+)\.(\d+).*/$1/; + my $macos_ver_minor = $macos_ver; + $macos_ver_minor =~ s/^(\d+)\.(\d+).*/$2/; + if ($macos_ver_major==10) { + if ($macos_ver_minor==8) { + $addname = "mountainlion"; + } elsif ($macos_ver_minor==9) { + $addname = "mavericks"; + } elsif ($macos_ver_minor==10) { + $addname = "mavericks"; # yosemite + } elsif ($macos_ver_minor==11) { + $addname = "elcapitan"; + } elsif ($macos_ver_minor==12) { + $addname = "sierra"; + } elsif ($macos_ver_minor==13) { + $addname = "highsierra"; + } + } +} + +my @newarg; +push @newarg, "--fontdef-add=cjkgs-macos-$addname.dat" if ($addname); +push @newarg, @ARGV; +if (-f "cjk-gs-integrate.pl") { + system("perl cjk-gs-integrate.pl @newarg"); +} else { + system("cjk-gs-integrate @newarg"); +} + + +### Local Variables: +### perl-indent-level: 2 +### tab-width: 2 +### indent-tabs-mode: nil +### End: +# vim: set tabstop=2 expandtab autoindent: -- cgit v1.2.3