Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
SUSE:SLE-12-SP1:GA
ghostscript-cjk
ghostscript-cjk-config
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File ghostscript-cjk-config of Package ghostscript-cjk
#! /usr/bin/perl -w # -*- mode: perl coding: utf-8 -*- # # Tue Mar 15 12:05:45 2005 Mike FABIAN <mfabian@suse.de> # ######################################################################## # create a man-page with: # # pod2man --section 1 --center=" " ghostscript-cjk-config | gzip -9 -c > ghostscript-cjk-config.1.gz # cp ghostscript-cjk-config.1.gz /usr/share/man/man1/ghostscript-cjk-config.1.gz =head1 NAME ghostscript-cjk-config - setup the available fonts for use with ghostscript-cjk =head1 SYNOPSIS ghostscript-cjk-config [B<OPTION>]... =head1 OPTIONS =over 4 =item B<-h>, B<--help> Display a short help message and exit. =back =head1 DESCRIPTION setup the available fonts for use with ghostscript-cjk =head1 AUTHOR Mike FABIAN <I<mfabian@suse.de>>, 2005. =cut ###################################################################### use strict; use utf8; use English; use Getopt::Long; ###################################################################### # global variables: my $script_start_time = time(); my $cvs_id = '$Id: ghostscript-cjk-config,v 1.8 2005/03/17 11:29:45 mfabian Exp $'; my $cvs_date = '$Date: 2005/03/17 11:29:45 $'; $cvs_date =~ /^\$[[:alpha:]]+: (.*) \$$/; my $version = $1; my $original_wd; chomp ($original_wd = `pwd`); # external binaries: my $fc_list_bin = search_executable ("/usr/bin/fc-list", "/usr/X11R6/bin/fc-list"); my $ftdump_bin = search_executable ("/usr/bin/ftdump"); # directories: my $xfontdir = "/usr/X11R6/lib/X11/fonts/truetype"; my $gsresourcedir = "/usr/share/ghostscript/Resource"; # only for Ghostscript 8.x my $autogen_tag = "autogenerated by ghostscript-cjk-config"; my $cidfmap_header = "" . "%!\n" . "% The map is a set of records, which must use one of the two formats :\n" . "%\n" . "% 1. A substitution of a CIF font with another CID font :\n" . "%\n" . "% /substituted /original ;\n" . "%\n" . "% Where 'substituted' is a name being used in a document,\n" . "% 'original' is a name of an available resource.\n" . "%\n" . "% 2. A substutution of a CIF font with a True Type font :\n" . "%\n" . "% /substituted << /FileType /TrueType /Path (path) /SubfontID 1 /CSI [(ordering) supplement] >> ;\n" . "%\n" . "% Where 'substituted' is a name being used in a document,\n" . "% 'path' is a path to a True Type font file,\n" . "% 'ordering' is a value of Ordering required for CIDSystemInfo dictionary,\n" . "% 'supplement' is a value of Supplement required for CIDSystemInfo dictionary.\n" . "%\n" . "% Examples :\n" . "% \n" . "% /ShinGo-Bold /HeiseiKakuGo-W5 ;\n" . "% /Ryumin-Medium << /FileType /TrueType /Path (/usr/X11R6/lib/X11/fonts/truetype/sazanami-mincho.ttf) /SubfontID 0 /CSI [(Japan1) 2] >> ;\n" . "%\n" . "% When there are two entries for the same substitution, the first one\n" . "% will win.\n" . "% Therefore, if you want to add manually tuned substitutions,\n" . "% add them above all autogenerated entries.\n" . "% Each autogenerated entry is marked by a comment:\n" . "% '% $autogen_tag'\n" . "%\n"; my %cidfmap_auto = (); # only for Ghostscript 7.x my %install_scripts = ( "alias-aj1.sh" , "Adobe-Japan1", "alias-aj2.sh" , "Adobe-Japan2", "alias-ak1.sh" , "Adobe-Korea1", "alias-ac1.sh" , "Adobe-CNS1", "alias-ag1.sh" , "Adobe-GB1" ); # wrapper files to fake bold and italic: # (only for Ghostscript 7.x) my $fake_tag = "faked by ghostscript-cjk-config"; my $fake_bold_wrapper_template = "" . "%!PS-Adobe-3.0 Resource-CIDFont\n" . "%%BeginResource: CIDFont (__Font-Faked__)\n" . "%% $fake_tag\n" . "/__Font-Faked__\n" . "/__Font-Original__ /CIDFont findresource\n" . "16 dict begin\n" . " /basecidfont exch def\n" . " /basefont-H /.basefont-H /Identity-H [ basecidfont ] composefont def\n" . " /basefont-V /.basefont-V /Identity-V [ basecidfont ] composefont def\n" . " /CIDFontName dup basecidfont exch get def\n" . " /CIDFontType 1 def\n" . " /CIDSystemInfo dup basecidfont exch get def\n" . " /FontInfo dup basecidfont exch get def\n" . " /FontMatrix [ 1 0 0 1 0 0 ] def\n" . " /FontBBox [\n" . " basecidfont /FontBBox get cvx exec\n" . " 4 2 roll basecidfont /FontMatrix get transform\n" . " 4 2 roll basecidfont /FontMatrix get transform\n" . " ] def\n" . " /cid 2 string def\n" . " /BuildGlyph {\n" . " gsave\n" . " exch begin\n" . " dup 256 idiv cid exch 0 exch put\n" . " 256 mod cid exch 1 exch put\n" . " rootfont /WMode known { rootfont /WMode get 1 eq } { false } ifelse\n" . " { basefont-V } { basefont-H } ifelse setfont\n" . " .03 setlinewidth 1 setlinejoin\n" . " newpath\n" . " 0 0 moveto cid false charpath stroke\n" . " 0 0 moveto cid show\n" . " currentpoint setcharwidth\n" . " end\n" . " grestore\n" . " } bind def\n" . " currentdict\n" . "end\n" . "/CIDFont defineresource pop\n" . "%%EndResource\n" . "%%EOF\n"; my $fake_italic_wrapper_template = "" . "%!PS-Adobe-3.0 Resource-CIDFont\n" . "%%BeginResource: CIDFont (__Font-Faked__)\n" . "%% $fake_tag\n" . "/__Font-Faked__\n" . "/__Font-Original__ /CIDFont findresource\n" . "dup length dict begin { 1 index /FontMatrix eq { [1 0 .3 1 0 0] matrix concatmatrix def } { def } ifelse } forall currentdict end\n" . "/CIDFont defineresource pop\n" . "%%EndResource\n" . "%%EOF\n"; my $fake_bolditalic_wrapper_template = "" . "%!PS-Adobe-3.0 Resource-CIDFont\n" . "%%BeginResource: CIDFont (__Font-Faked__)\n" . "%% $fake_tag\n" . "/__Font-Faked__\n" . "/__Font-Original__ /CIDFont findresource\n" . "16 dict begin\n" . " /basecidfont exch def\n" . " /basefont-H /.basefont-H /Identity-H [ basecidfont ] composefont def\n" . " /basefont-V /.basefont-V /Identity-V [ basecidfont ] composefont def\n" . " /CIDFontName dup basecidfont exch get def\n" . " /CIDFontType 1 def\n" . " /CIDSystemInfo dup basecidfont exch get def\n" . " /FontInfo dup basecidfont exch get def\n" . " /FontMatrix [ 1 0 0 1 0 0 ] def\n" . " /FontBBox [\n" . " basecidfont /FontBBox get cvx exec\n" . " 4 2 roll basecidfont /FontMatrix get transform\n" . " 4 2 roll basecidfont /FontMatrix get transform\n" . " ] def\n" . " /cid 2 string def\n" . " /BuildGlyph {\n" . " gsave\n" . " exch begin\n" . " dup 256 idiv cid exch 0 exch put\n" . " 256 mod cid exch 1 exch put\n" . " rootfont /WMode known { rootfont /WMode get 1 eq } { false } ifelse\n" . " { basefont-V } { basefont-H } ifelse setfont\n" . " .03 setlinewidth 1 setlinejoin\n" . " newpath\n" . " 0 0 moveto cid false charpath stroke\n" . " 0 0 moveto cid show\n" . " currentpoint setcharwidth\n" . " end\n" . " grestore\n" . " } bind def\n" . " currentdict\n" . "end\n" . "dup length dict begin { 1 index /FontMatrix eq { [1 0 .3 1 0 0] matrix concatmatrix def } { def } ifelse } forall currentdict end\n" . "/CIDFont defineresource pop\n" . "%%EndResource\n" . "%%EOF\n"; my $cmap_wrapper_template = "" . "%!PS-Adobe-3.0 Resource-Font\n" . "%%Creator: $fake_tag\n" . "%%DocumentNeededResources: __CMap__ (CMap)\n" . "%%IncludeResource: __CMap__ (CMap)\n" . "%%BeginResource: Font (__Font__-__CMap__)\n" . "(__Font__-__CMap__)\n" . "(__CMap__) /CMap findresource\n" . "[(__Font__) /CIDFont findresource]\n" . "composefont pop\n" . "%%EndResource\n" . "%%EOF\n"; my @cmaps = ("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-UCS2", "90ms-RKSJ-V", "90msp-RKSJ-H", "90msp-RKSJ-V", "90pv-RKSJ-H", "90pv-RKSJ-UCS2", "90pv-RKSJ-UCS2C", "90pv-RKSJ-V", "Add-H", "Add-RKSJ-H", "Add-RKSJ-V", "Add-V", "Adobe-CNS1-0", "Adobe-CNS1-1", "Adobe-CNS1-2", "Adobe-CNS1-3", "Adobe-CNS1-4", "Adobe-CNS1-B5pc", "Adobe-CNS1-ETen-B5", "Adobe-CNS1-H-CID", "Adobe-CNS1-H-Host", "Adobe-CNS1-H-Mac", "Adobe-CNS1-UCS2", "Adobe-GB1-0", "Adobe-GB1-1", "Adobe-GB1-2", "Adobe-GB1-3", "Adobe-GB1-4", "Adobe-GB1-GBK-EUC", "Adobe-GB1-GBpc-EUC", "Adobe-GB1-H-CID", "Adobe-GB1-H-Host", "Adobe-GB1-H-Mac", "Adobe-GB1-UCS2", "Adobe-Japan1-0", "Adobe-Japan1-1", "Adobe-Japan1-2", "Adobe-Japan1-3", "Adobe-Japan1-4", "Adobe-Japan1-90ms-RKSJ", "Adobe-Japan1-90pv-RKSJ", "Adobe-Japan1-H-CID", "Adobe-Japan1-H-Host", "Adobe-Japan1-H-Mac", "Adobe-Japan1-PS-H", "Adobe-Japan1-PS-V", "Adobe-Japan1-UCS2", "Adobe-Japan2-0", "Adobe-Korea1-0", "Adobe-Korea1-1", "Adobe-Korea1-2", "Adobe-Korea1-H-CID", "Adobe-Korea1-H-Host", "Adobe-Korea1-H-Mac", "Adobe-Korea1-KSCms-UHC", "Adobe-Korea1-KSCpc-EUC", "Adobe-Korea1-UCS2", "B5-H", "B5-V", "B5pc-H", "B5pc-UCS2", "B5pc-UCS2C", "B5pc-V", "CNS-EUC-H", "CNS-EUC-V", "CNS01-RKSJ-H", "CNS02-RKSJ-H", "CNS03-RKSJ-H", "CNS04-RKSJ-H", "CNS05-RKSJ-H", "CNS06-RKSJ-H", "CNS07-RKSJ-H", "CNS1-H", "CNS1-V", "CNS15-RKSJ-H", "CNS2-H", "CNS2-V", "ETHK-B5-H", "ETHK-B5-V", "ETen-B5-H", "ETen-B5-UCS2", "ETen-B5-V", "ETenms-B5-H", "ETenms-B5-V", "EUC-H", "EUC-V", "Ext-H", "Ext-RKSJ-H", "Ext-RKSJ-V", "Ext-V", "GB-EUC-H", "GB-EUC-V", "GB-H", "GB-RKSJ-H", "GB-V", "GBK-EUC-H", "GBK-EUC-UCS2", "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-UCS2", "GBpc-EUC-UCS2C", "GBpc-EUC-V", "H", "HK-RKSJ-H", "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", "Hankaku", "Hiragana", "Hojo-EUC-H", "Hojo-EUC-V", "Hojo-H", "Hojo-RKSJ-H", "Hojo-V", "Identity-H", "Identity-V", "KSC-EUC-H", "KSC-EUC-V", "KSC-H", "KSC-Johab-H", "KSC-Johab-V", "KSC-RKSJ-H", "KSC-V", "KSC2-RKSJ-H", "KSCms-UHC-H", "KSCms-UHC-HW-H", "KSCms-UHC-HW-V", "KSCms-UHC-UCS2", "KSCms-UHC-V", "KSCpc-EUC-H", "KSCpc-EUC-UCS2", "KSCpc-EUC-UCS2C", "KSCpc-EUC-V", "Katakana", "NWP-H", "NWP-V", "RKSJ-H", "RKSJ-V", "Roman", "TCVN-RKSJ-H", "UCS2-90ms-RKSJ", "UCS2-90pv-RKSJ", "UCS2-B5pc", "UCS2-ETen-B5", "UCS2-GBK-EUC", "UCS2-GBpc-EUC", "UCS2-KSCms-UHC", "UCS2-KSCpc-EUC", "UniCNS-UCS2-H", "UniCNS-UCS2-V", "UniCNS-UTF16-H", "UniCNS-UTF16-V", "UniCNS-UTF32-H", "UniCNS-UTF32-V", "UniCNS-UTF8-H", "UniCNS-UTF8-V", "UniGB-UCS2-H", "UniGB-UCS2-V", "UniGB-UTF8-H", "UniGB-UTF8-V", "UniHojo-UCS2-H", "UniHojo-UCS2-V", "UniHojo-UTF16-H", "UniHojo-UTF16-V", "UniHojo-UTF32-H", "UniHojo-UTF32-V", "UniHojo-UTF8-H", "UniHojo-UTF8-V", "UniJIS-UCS2-H", "UniJIS-UCS2-HW-H", "UniJIS-UCS2-HW-V", "UniJIS-UCS2-V", "UniJIS-UTF8-H", "UniJIS-UTF8-V", "UniJISPro-UCS2-HW-V", "UniJISPro-UCS2-V", "UniJISPro-UTF8-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", "V", "WP-Symbol"); # command line options: my $OPT_VERBOSITY; my $OPT_VERSION; my $OPT_HELP; my $OPT_FORCE; my $OPT_REMOVE_FAKES; ###################################################################### sub install_ps_name { # only for Ghostscript 7.x # # installs the first existing font from the list using the supplied # PostScript-name. # my ($install_script, $postscript_name, @font_list) = @_; if ( -x "$gsresourcedir/$install_script" ) { for my $font (@font_list) { my $font_full_path; if ($font !~ /\//) { $font_full_path = "$xfontdir/$font"; } else { $font_full_path = $font; } if ( -f "$font_full_path" ) { if ( -f "$gsresourcedir/CIDFont/$postscript_name" ) { open (FONT, "$gsresourcedir/CIDFont/$postscript_name") || die "can't open file $gsresourcedir/CIDFont/$postscript_name: $!"; while (<FONT>) { if ($ARG =~ /$font_full_path/) { my $registry_ordering = $install_scripts{$install_script}; if ( -f "$gsresourcedir/Font/$postscript_name-$registry_ordering-0") { # this font is already installed, save some time and don't # do it again close (FONT); return; } } } close (FONT); } chdir "$gsresourcedir"; print "+${postscript_name}=${font_full_path}\n"; my_system (" ./$install_script uninstall $postscript_name > /dev/null"); my_system (" ./$install_script install $postscript_name=$font_full_path > /dev/null"); return; } } } } ###################################################################### sub install { # only for Ghostscript 7.x my ($install_script, @font_list) = @_; for my $font (@font_list) { my $font_full_path; if ($font !~ /\//) { $font_full_path = "$xfontdir/$font"; } else { $font_full_path = $font; } if ( -f "$font_full_path" && $ftdump_bin ) { my $postscript_name = get_ps_name_from_file_name ("$font_full_path"); if ($postscript_name ne "") { install_ps_name ($install_script, $postscript_name, $font_full_path); } } } } ###################################################################### sub get_ps_name_from_file_name { my ($font) = @_; # quote " in font names: $font =~ s/\"/\\\"/g; open (FONT, "ftdump \"$font\" 2>/dev/null |"); # Apparently there are some fonts which have non-ASCII PostScript names. # If we are running in a UTF-8 locale, Perl will complain # "Malformed UTF-8 character" # when reading the ftdump output of such a font. # Avoid that error by using the layer ":bytes" for this file handle. binmode FONT, ":bytes"; my $postscript = ""; while (<FONT>) { # the following regexp should work with ftdump from # either Freetype-1 or Freetype-2 if ($ARG =~ /postscript.*:\s+([[:alnum:]\-.]+?)\s*$/i) { $postscript = $1; if ($postscript eq "UNAVAILABLE") { $postscript = ""; } last; } } close (FONT); return ($postscript); } ###################################################################### sub add_cidfmap_auto_entry { my ($postscript, $font_file, $face_number, $ordering, $supplement) = @_; my $entry = "/$postscript << /FileType /TrueType /Path ($font_file) /SubfontID $face_number /CSI [($ordering) $supplement] >> ; % $autogen_tag \n"; if ($OPT_VERBOSITY >= 1) { print "entry: $entry"; } $cidfmap_auto{$entry} = 1; } ###################################################################### sub add_cidfmap_auto_entry_for_postscript_name { my ($postscript, $ordering, $supplement, @family_names) = @_; for my $family_name (@family_names) { if ($OPT_VERBOSITY >= 1) { print "searching for family name \"$family_name\" ...\n"; } open (FONT_LIST, "fc-list \"$family_name\" file index|"); binmode FONT_LIST, ":bytes"; while (<FONT_LIST>) { my $font_file = ""; my $face_number = -1; $ARG =~ /(.*):[[:space:]]*:index=([0-9]+)[[:space:]]*$/; $font_file = $1; $face_number = $2; if ($OPT_VERBOSITY >=1) { print "fc-list output: $ARG"; print " -> font_file=$font_file, face_number=$face_number\n"; } # resolve symlink: while (-l $font_file) { $font_file = readlink ($font_file); } if (-r $font_file && $font_file =~ /\.ttf$|\.ttc$|\.otf/i && $face_number >= 0) { add_cidfmap_auto_entry($postscript, $font_file, $face_number, $ordering, $supplement); if ($OPT_VERBOSITY >= 1) { print "\"$postscript\" entry for \"$family_name\" created sucessfully\n"; } return; } } close (FONT_LIST); } } ###################################################################### sub add_all_cidfmap_auto_entries_from_file_name { # generate config entries for using the "real" PostScript name # for all faces found in the file $font_file my ($font_file, $ordering, $supplement) = @_; # resolve symlink: while (-l $font_file) { $font_file = readlink ($font_file); } if (-r $font_file ) { # quote " in font names: my $font_file_quoted; ($font_file_quoted = $font_file) =~ s/\"/\\\"/g; open (FONT, "ftdump \"$font_file_quoted\" 2>/dev/null |"); # Apparently there are some fonts which have non-ASCII PostScript names. # If we are running in a UTF-8 locale, Perl will complain # "Malformed UTF-8 character" # when reading the ftdump output of such a font. # Avoid that error by using the layer ":bytes" for this file handle. binmode FONT, ":bytes"; my $postscript = ""; my $family = ""; my $style = ""; my $face_number = -1; while (<FONT>) { if ($ARG =~ /face.*number.*:\s*([0-9]+)\s*/i) { $face_number = $1; $postscript = ""; $family = ""; $style = ""; } # the following regexp should work with ftdump from # either Freetype-1 or Freetype-2 if ($ARG =~ /postscript.*:\s+([[:alnum:]\-]+?)\s*$/i) { $postscript = $1; if ($postscript eq "UNAVAILABLE") { $postscript = ""; } } if ($ARG =~ /family.*:\s+([[:alnum:]].*[[:alnum:]])\s*$/i) { $family = $1; } if ($ARG =~ /style.*:\s+([[:alnum:]].*[[:alnum:]])\s*$/i) { $style = $1; } if ($face_number >= 0 && $postscript ne "" && $family ne "" && $style ne "") { add_cidfmap_auto_entry($postscript, $font_file, $face_number, $ordering, $supplement); $face_number = -1; } } close (FONT); } } ###################################################################### sub update_cidfmap { for my $cidfmap_dir (glob ("/etc/ghostscript/[0-9]*")) { if (-e $cidfmap_dir) { my $file = "$cidfmap_dir/cidfmap"; my $cidfmap_user = ""; if (-r $file) { open (CIDFMAP, "<$file") || die "can't open file $file: $!"; if ($OPT_VERBOSITY >= 1) { printf "reading user data from $file ...\n"; } while (<CIDFMAP>) { # skip autogenerated data if ($ARG =~ /$autogen_tag/) { next; } # skip empty lines if ($ARG =~ /^[[:space:]]*$/) { next; } if ($ARG =~ /([^%]*)%?.*/) { # strip comments $ARG = $1; } $cidfmap_user .= $ARG; } close (CIDFMAP); } open (CIDFMAP, ">$file") || die "can't open file $file: $!"; print CIDFMAP $cidfmap_header; print CIDFMAP "\n\n% manually edited entries:\n"; print CIDFMAP $cidfmap_user; print CIDFMAP "\n\n% autogenerated entries:\n"; for my $entry (sort (keys %cidfmap_auto)) { print CIDFMAP $entry; } close (CIDFMAP); } } } ###################################################################### sub generate_fake_bold_and_italic_fonts { # this doesn't work anymore with Ghotscript 8.x return; chdir "$gsresourcedir/CIDFont" ||die "Can't cd to $gsresourcedir/CIDFont: $!\n"; for my $font (glob ("*")) { my $font_bold = $font; my $font_italic = $font; my $font_bolditalic = $font; if ($font_bold !~ /Bold/i && $font_bold !~ /Italic/i) { for my $style (("Light", "Medium", "Regular")) { if ($font_bold =~ /${style}/i) { $font_bold =~ s/${style}/Bold/i; last; } } if ($font_bold !~ /Bold/i) { $font_bold = $font_bold . "-Bold"; } } if ($font_italic !~ /Bold/i && $font_italic !~ /Italic/i) { for my $style (("Light", "Medium", "Regular")) { if ($font_italic =~ /${style}/i) { $font_italic =~ s/${style}/Italic/i; last; } } if ($font_italic !~ /Italic/i) { $font_italic = $font_italic . "-Italic"; } } if ($font_bolditalic !~ /Bold/i && $font_bolditalic !~ /Italic/i) { for my $style (("Light", "Medium", "Regular")) { if ($font_bolditalic =~ /${style}/i) { $font_bolditalic =~ s/${style}/BoldItalic/i; last; } } if ($font_bolditalic !~ /BoldItalic/i) { $font_bolditalic = $font_bolditalic . "-BoldItalic"; } } if ("$font_bold" ne "$font") { generate_fake ("$font", "$font_bold", "$fake_bold_wrapper_template"); } if ("$font_italic" ne "$font") { generate_fake ("$font", "$font_italic", "$fake_italic_wrapper_template"); } if ("$font_bolditalic" ne "$font") { generate_fake ("$font", "$font_bolditalic", "$fake_bolditalic_wrapper_template"); } } } ###################################################################### sub generate_fake { my ($font_original, $font_faked, $wrapper) = @_; # this doesn't work anymore with Ghostscript 8.x return; $wrapper =~ s/__Font-Original__/$font_original/g; $wrapper =~ s/__Font-Faked__/$font_faked/g; if ( ! -f "$gsresourcedir/CIDFont/$font_faked" ) { open (WRAPPER, "> $gsresourcedir/CIDFont/$font_faked") || die "cannot open $gsresourcedir/CIDFont/$font_faked for writing: $!"; printf WRAPPER "%s", $wrapper; close (WRAPPER); } # find out which wrappers for which CMaps exist for the original font # and generate wrappers for the same CMaps for the faked font as well: chdir "$gsresourcedir/Font" ||die "Can't cd to $gsresourcedir/Font: $!\n"; for my $font (glob ("$font_original-*")) { my $cmap; ($cmap = $font) =~ s/$font_original-(.*)/$1/; # $cmap might contain more than just the CMap here # as there may be other fonts whose name starts just like $font_original # but is longer. # Check if we have found a really existing CMap: if (grep (/$cmap/, @cmaps)) { # now generate a wrapper file if it doesn't exist yet: if ( ! -f "$gsresourcedir/Font/$font_faked-$cmap" ) { if ($OPT_VERBOSITY >= 1) { printf "creating $gsresourcedir/Font/$font_faked-$cmap\n"; } open (WRAPPER, "> $gsresourcedir/Font/$font_faked-$cmap") || die "cannot open $gsresourcedir/Font/$font_faked-$cmap for writing: $!"; my $cmap_wrapper = $cmap_wrapper_template; $cmap_wrapper =~ s/__CMap__/$cmap/g; $cmap_wrapper =~ s/__Font__/$font_faked/g; printf WRAPPER "%s", $cmap_wrapper; close (WRAPPER); } } } } ###################################################################### sub clean_up { # only for Ghostscript 7.x for my $font (glob ("$gsresourcedir/CIDFont/*")) { my $postscript_name; ($postscript_name = $font) =~ s/.*\/([^\/]+)/$1/; if ( -f "$font") { open (FONT, "$font") || die "can't open file $font: $!"; while (<FONT>) { if ($ARG =~ /\((.+)\)[[:space:]]+\.openttcidfont/) { my $ttfont = $1; if ( ! -f "$ttfont" ) { print "deleting $postscript_name\n"; my_system ("rm -f \"$gsresourcedir\"/{CIDFont,Font}/\"$postscript_name\""); my_system ("rm -f \"$gsresourcedir\"/{CIDFont,Font}/\"$postscript_name-Bold\""); my_system ("rm -f \"$gsresourcedir\"/{CIDFont,Font}/\"$postscript_name-BoldItalic\""); my_system ("rm -f \"$gsresourcedir\"/{CIDFont,Font}/\"$postscript_name-Italic\""); } } } close (FONT); } } } ###################################################################### sub list_font_files { my ($language) = @_; my %font_files = (); open (FONT_LIST, "fc-list :lang=$language:outline=true file |"); binmode FONT_LIST, ":bytes"; while (<FONT_LIST>) { $ARG =~ s/(.*):[[:space:]]*$/$1/; if ($ARG =~ /\.ttf$|\.ttc$|\.otf/i) { if (-l $ARG ) { # resolve symlink: $font_files{readlink ($ARG)} = 1; } else { $font_files{$ARG} = 1; } } } close (FONT_LIST); return (sort (keys %font_files)); } ###################################################################### sub remove_fakes { # remove wrappers for fake bold and italic my $cwd; for my $dir (("$gsresourcedir/CIDFont", "$gsresourcedir/Font")) { chdir "$dir" || die "Can't cd to $dir: $!\n"; for my $file (glob ("*")) { if (! my_system ("grep -q \"$fake_tag\" $file")) { if ($OPT_VERBOSITY >= 1) { print "$file is faked, remove it\n"; } unlink($file); } } } chdir $original_wd || die "Can't cd to $original_wd: $!\n"; } ###################################################################### sub remove_old_gs_cjk_wrappers { # the wrapper files created by the gs-cjk project do not work # anymore with Ghostscript 8.x, so they should be removed. my $cwd; for my $dir (("$gsresourcedir/CIDFont", "$gsresourcedir/Font")) { chdir "$dir" || die "Can't cd to $dir: $!\n"; for my $file (glob ("*")) { if (! my_system ("grep -q \"Creator: aliascid.ps\" $file")) { if ($OPT_VERBOSITY >= 1) { print "$file created by gs-cjk won't work anymore with Ghostscript 8.x. Remove it.\n"; } unlink($file); } } } chdir $original_wd || die "Can't cd to $original_wd: $!\n"; } ###################################################################### sub search_executable { for my $file (@_) { if (-x $file) { return $file; } } return ""; } ###################################################################### sub my_system { my ($command) = @_; if ($OPT_VERBOSITY >= 1) { print "executing: $command\n"; } return system ($command); } ###################################################################### sub usage { print "Usage: ghostscript-cjk-config [option] ...\n"; print "-v, --verbosity number print some progress messages to standard output.\n"; print " --version display version and exit.\n"; print "-h, --help display this help and exit.\n"; print " --force force update of all generated files.\n"; print "-r, --remove-fakes remove generated wrappers to fake bold and italic.\n"; exit 1; } ###################################################################### # main: # Process command line options my %opt; unless (GetOptions(\%opt, 'verbosity=i', \$OPT_VERBOSITY, 'version', \$OPT_VERSION, 'help|h', \$OPT_HELP, 'force', \$OPT_FORCE, 'remove-fakes|r', \$OPT_REMOVE_FAKES, )) { &usage (); exit 1; } if (!defined $OPT_VERBOSITY) { $OPT_VERBOSITY = 0; } if (!defined $OPT_VERSION) { $OPT_VERSION = 0; } if (!defined $OPT_HELP) { $OPT_HELP = 0; } if (!defined $OPT_FORCE) { $OPT_FORCE = 0; } if (!defined $OPT_REMOVE_FAKES) { $OPT_REMOVE_FAKES = 1; } if ($OPT_VERSION) { print "ghostscript-cjk-config $version\n"; exit 0; } if ($OPT_HELP) { &usage (); exit 0; } # check if we are started as root # only one of UID and USER must be set correctly if ($UID != 0 && $ENV{USER} !~ /root/) { print "*** Error: You must be root to start $0\n"; usage(); exit 1; } # remove files which cannot work anymore with Ghostscript 8.x # so that no useless junk remains after an update: remove_old_gs_cjk_wrappers(); remove_fakes(); # generate config entries for all fonts using their "real" PostScript name: if ($ftdump_bin && $fc_list_bin) { for my $file (list_font_files ("ja")) { add_all_cidfmap_auto_entries_from_file_name ("$file", "Japan1", "2"); } for my $file (list_font_files ("ko")) { add_all_cidfmap_auto_entries_from_file_name ("$file", "Korea1", "2"); } for my $file (list_font_files ("zh-tw")) { add_all_cidfmap_auto_entries_from_file_name ("$file", "CNS1", "2"); } for my $file (list_font_files ("zh-cn")) { add_all_cidfmap_auto_entries_from_file_name ("$file", "GB1", "2"); } } # generate config entries for standard PostScript names: add_cidfmap_auto_entry_for_postscript_name ("Ryumin-Light", "Japan1", "2", # "HG\\-MinchoL\\-Sun", # does not work yet "MS Mincho", "MS PMincho", "HGMinchoL", "HGPMinchoL", "TLMincho", "IPAMincho", "IPAPMincho", "Sazanami Mincho", "Kochi Mincho"); add_cidfmap_auto_entry_for_postscript_name ("Adobe-Japan1", "Japan1", "2", # "HG\\-MinchoL\\-Sun", # does not work yet "MS Mincho", "MS PMincho", "HGMinchoL", "HGPMinchoL", "TLMincho", "IPAMincho", "IPAPMincho", "Sazanami Mincho", "Kochi Mincho"); add_cidfmap_auto_entry_for_postscript_name ("GothicBBB-Medium", "Japan1", "2", # "HG\\-GothicB\\-Sun", # does not work yet "MS Gothic", "MS PGothic", "MS UI Gothic", "HGGothicB", "HGPGothicB", "TLGothic", "IPAGothic", "IPAPGothic", "IPAUIGothic", "Sazanami Gothic", "Kochi Gothic"); add_cidfmap_auto_entry_for_postscript_name ("Adobe-Korea1", "Korea1", "2", "Baekmuk Gulim", "Baekmuk Dotum"); add_cidfmap_auto_entry_for_postscript_name ("GB-Song-Medium", "GB1", "2", "FZSongTi", "AR PL SungtiL GB", "HanyiSong"); add_cidfmap_auto_entry_for_postscript_name ("Adobe-GB1", "GB1", "2", "FZSongTi", "AR PL SungtiL GB", "HanyiSong"); add_cidfmap_auto_entry_for_postscript_name ("GB-Kai-Medium", "GB1", "2", "FZKaiTi", "AR PL KaitiM GB"); add_cidfmap_auto_entry_for_postscript_name ("GB-FangSong-Medium", "GB1", "2", "FZFangSong"); add_cidfmap_auto_entry_for_postscript_name ("GB-Hei-Medium", "GB1", "2", "FZHeiTi"); add_cidfmap_auto_entry_for_postscript_name ("B5-Song-Medium", "CNS1", "2", "FZMingTiB", "FZMingTi", "AR PL Mingti2L Big5"); add_cidfmap_auto_entry_for_postscript_name ("Adobe-CNS1", "CNS1", "2", "FZMingTiB", "FZMingTi", "AR PL Mingti2L Big5"); add_cidfmap_auto_entry_for_postscript_name ("B5-Kai-Medium", "CNS1", "2", "FZKaiTiB", "AR PL KaitiM Big5"); update_cidfmap (); chdir $original_wd ||die "Can't cd to $original_wd: $!\n"; exit 0;
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
