summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/rollconv.ps
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2010-05-12 19:25:45 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2010-05-12 19:25:45 +0000
commitdc55d4f5cde421a3704c183bc6ceb3fcdb6b0653 (patch)
treedb0890c2f5f2714d527a42ad3fb7955ac5b1f545 /Master/tlpkg/tlgs/lib/rollconv.ps
parent053ead4487e776b05721ec15b941fe0bc1b7d513 (diff)
tlgs: 8.70 => 8.71
git-svn-id: svn://tug.org/texlive/trunk@18215 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/rollconv.ps')
-rw-r--r--[-rwxr-xr-x]Master/tlpkg/tlgs/lib/rollconv.ps744
1 files changed, 372 insertions, 372 deletions
diff --git a/Master/tlpkg/tlgs/lib/rollconv.ps b/Master/tlpkg/tlgs/lib/rollconv.ps
index 2c1243444be..be156a2d93d 100755..100644
--- a/Master/tlpkg/tlgs/lib/rollconv.ps
+++ b/Master/tlpkg/tlgs/lib/rollconv.ps
@@ -1,372 +1,372 @@
-%!
-% Copyright (C) 1995, 1996 Aladdin Enterprises. All rights reserved.
-
-% $Id: rollconv.ps 6300 2005-12-28 19:56:24Z giles $
-% Utility program for converting Japanese fonts produced by Macromedia's
-% Rollup program to Type 0 fonts suitable for use with Ghostscript.
-%
-% Rollup produces the following files, where xxx is the font name:
-% xxx-H, xxx-SA, xxx-SB, xxx-SK, xxx-SR, xxx-UG
-% JIS83-1_COD
-% JIS83-1_CSA
-% The _COD and _CSA files are large files containing the actual
-% character outline data; they may theoretically be shared between
-% multiple fonts.
-%
-% rollconv.ps converts the above to files named:
-% fff.ps
-% fff.COD
-% fff.CSA
-% fff.CSR
-% where fff is a font file name provided by the user at conversion time.
-% The fff.ps file is the actual font file to be loaded with `run'
-% or placed in a Fontmap or a directory named by [GS_]FONTPATH;
-% the other two files must be present at runtime in a directory that is
-% on Ghostscript's search path (-I, GS_LIB, GS_LIB_DEFAULT).
-%
-% The normal way to invoke this program is
-% gsnd -- rollconv.ps xxx fff InDir CDir OutDir
-% (assuming that gsnd is an alias for gs -dNODISPLAY), where:
-% xxx is the font name;
-% fff is the base part of the output file name;
-% InDir is the name of the directory containing the xxx-* input files;
-% CDir is the name of the directory containing the _COD and _CSA
-% input files (typically the same as InDir);
-% OutDir is the name of the directory where the output should be written
-% (OutDir must already exist).
-% For example:
-% gsnd -- rollconv.ps HGGothicBPRO gothic /gs/k/rufonts/Gothic \
-% /gs/k/rufonts/Gothic /gs/k/gsfonts
-% To suppress output messages, you may insert -q:
-% gsnd -q -- rollconv.ps ...
-%
-% This program assumes that the files have been FTP'ed from a Macintosh and
-% therefore have 128 bytes of garbage at the beginning. If you have
-% transferred them in some manner that avoids this, change true to false
-% in the following line.
-/fromMac true def
-% The FontName of the converted font is xxx-83pv-RKSJ-H. In order to
-% use a converted font with Ghostscript, you may either load it explicitly
-% at run time, e.g.,
-% (gothic.ps) run
-% or you may add an entry to the Fontmap file, in the form:
-% /HGGothicBPRO-83pv-RKSJ-H (gothic.ps) ;
-% which will allow the font to be loaded automatically. After
-% loading the font, by either method, you can select it in the usual way:
-% /HGGothicBPRO-83pv-RKSJ-H findfont 36 scalefont setfont
-% or
-% /HGGothicBPRO-83pv-RKSJ-H 36 selectfont
-
-
-/macrfile % <filename> macrfile <file>
- { (r) file
- fromMac
- { % Get rid of the initial Mac garbage (128 characters).
- % The garbage at the end is unpredictable,
- % so we'll just have to hope that it's all nulls.
- dup =string 0 128 getinterval readstring pop pop
- }
- if
- } bind def
-
-/convert % <FName> <OutBase> <InDir> <CDir> <OutDir> convert -
- { /OutDir exch def
- /CDir exch def
- /InDir exch def
- /OutBase exch def
- /FName exch def
-
- /inprefix InDir (/) concatstrings FName concatstrings (-) concatstrings def
- /inh inprefix (H) concatstrings def
-
- % Open the output file.
-
-/OutDot OutDir (/) concatstrings OutBase concatstrings (.) concatstrings def
-/outname OutDot (ps) concatstrings def
-QUIET not { (Writing ) print outname = flush } if
-/cdfromstr (\(pgfonts/) FName concatstrings (-JIS83-1_) concatstrings def
-/cdstr (\() OutBase concatstrings (.) concatstrings def
-/out outname (w) file def
-/buffer 65000 string def
-
- % Copy the initial comments from the input file.
-
-inh macrfile
- { dup =string readline pop
- out 1 index writestring out (\n) writestring
- (%%EndComments) eq { exit } if
- }
-loop
-
- % Write out our preamble.
-
-out (
-currentpacking true setpacking
-userdict /AltsysCFD3 known { (%END) .skipeof } if
-userdict /AltsysCFD3 25 dict dup begin
-/beint { 0 exch { exch 8 bitshift add } forall } bind def
-/rfile { findlibfile { exch pop } { (r) file } ifelse } bind def
-/str 500 string def
-/AltRO { } def
-/BuildCh % <font> <ccode> <bias> BuildCh -
- { /bias exch def /ccode exch def begin % font
- ccode dup 255 and dup bias lt exch 252 gt or { pop 127 } if
- dup -8 bitshift -67 mul add % subfonts have 189 chars, not 256
- bias sub buildch1
- } bind def
-/BuildChr % <font> <ccode> BuildChr -
- { /ccode exch def begin % font
- ccode buildch1
- } bind def
-/buildch1
- { 6 mul PGOffsets add
- FileNames 0 get rfile dup dup 4 -1 roll setfileposition
- (xxxxxx) readstring pop exch closefile
- dup 1 3 getinterval beint % COD offset
- exch 4 2 getinterval beint % length
- dup 0 eq
- { pop pop currentdict end
- 1000 0 0 0 1 1 0 -1000 500 1000 setcachedevice2
- }
- { dup str length gt { /str 1 index string store } if
- FileNames 1 get rfile dup dup % offset length file file file
- 5 -1 roll setfileposition % length file file
- str 0 5 -1 roll getinterval readstring pop pop closefile
- currentdict end ccode str 1183615869 internaldict /CCRun get exec
- }
- ifelse
- } bind def
-/privates 100 dict def
-/BuildPr % <stdhw> <stdvw> BuildPr <dict>
- { 2 copy 1000 mul add privates 1 index known
- { privates exch get 3 1 roll pop pop
- }
- { 7 dict begin
- /MinFeature{16 16}executeonly def
- /BlueValues BlueValues def
- /StdVW 3 -1 roll 1 array astore def
- /StdHW 3 -1 roll 1 array astore def
- /password 5839 def
- /LanguageGroup 1 def
- /Subrs Subrs def
- currentdict readonly end
- privates 2 index 2 index put exch pop
- }
- ifelse
- } bind def
-/FullEncoding
- systemdict { pop } forall
- systemdict length 512 sub 1 255 { (x) dup 0 4 -1 roll put cvn } for
-768 packedarray def
-/BlueValues[-250 -250 1100 1100]readonly def
-/BuildChar{AltsysCFD3 begin 64 BuildCh end}bind def
-/CharStrings 1 dict
-dup /.notdef (1py8) noaccess put
-readonly def
-/CDevProc
- { pop pop pop pop 0 exch -1000 exch 2 div currentfont /FontBBox get 3 get
- } bind def
-/FontMatrix[0.001 0.0 0.0 0.001 0.0 0.0]readonly def
-/Subrs [
-(1p|=-D\R) noaccess
-(1pyUz) noaccess
-(1pyĞi) noaccess
-(1p) noaccess
-(1p|35rI) noaccess
-] noaccess def
-end put
-%END
-) writestring
-
- % Locate and copy the definition of NotDefFont.
-
-out (
-FontDirectory /NotDefFont known { (%END) .skipeof } if
-) writestring
- { dup =string readline pop
- dup (/NotDefFont) eq { exit } if pop
- }
-loop out exch writestring out (\n) writestring
- { dup =string readline pop
- (definefont) search { pop pop pop exit } if
- out exch writestring out (\n) writestring
- }
-loop out (definefont pop
-%END
-) writestring
-
- % Copy the definitions of the subfonts, moving the
- % CharStrings of the Roman supplement to an external file.
- % Stack for pattern procedures: infile line
-
-/CSRName OutDot (CSR) concatstrings def
-/csr CSRName (w) file def
-QUIET not { (Writing ) print CSRName = flush } if
-
-/encoding 256 array def
-
-/patterns [
- % Patterns specific to the Roman supplement, in which
- % the outlines are in an eexec section.
- { (/Encoding 256 array) {
- pop out (/Encoding ) writestring
- { dup buffer readline pop
- dup (dup) search { exit } if pop pop
- }
- loop
- { % Stack: infile dupline postdup (dup) predup
- pop pop exch pop
- % The top element of the stack is a string beginning with
- % an index and value to put into the Encoding.
- token pop exch token pop exch pop encoding 3 1 roll put
- dup buffer readline pop
- dup (dup) search not { pop exit } if
- }
- loop
- out encoding cvx write== out ( cvlit ) writestring
- out exch writestring out (\n) writestring
- } }
- { (/FontType 1 def) {
- pop out (/FontType 4 def\n) writestring
- out (/BuildChar{AltsysCFD3 begin BuildChr end}bind def\n) writestring
- out (/FileNames[) writestring
- 2 { out OutBase (.CSR) concatstrings write==only } repeat
- out (]def\n) writestring
- } }
- { (currentfile eexec) {
- pop out (systemdict begin\n) writestring
- dup //.eexec_param_dict /eexecDecode filter
- } }
- { (dup/CharStrings ) {
- % Copy the individual CharStrings to the CSR file,
- % recording the lengths and offsets.
- pop out (dup/CharStrings AltsysCFD3 /CharStrings get put\n) writestring
- /offsets 256 dict def
- { dup token pop % char name
- dup dup type /nametype eq exch xcheck not and not { pop exit } if
- 1 index token pop % length of binary data
- 2 index token pop pop % skip RD
- 2 index buffer 0 3 index getinterval readstring pop % charstring
- offsets 3 index csr fileposition 16 bitshift 4 index add put
- csr exch writestring pop pop
- dup buffer readline pop pop % skip ND
- }
- loop
- % We skipped the 'end'; skip the 'readonly put' as well.
- 2 { dup token pop pop } repeat
- out (dup/PGOffsets ) writestring
- out csr fileposition write=only
- out ( put\n) writestring
- encoding
- { offsets exch .knownget not { 0 } if
- 2 { csr 0 write } repeat
- 4 { dup -24 bitshift csr exch write 8 bitshift } repeat pop
- }
- forall
- } }
- { (/OtherSubrs[) {
- pop
- { dup buffer readline pop
- (]noaccess def) search { pop pop pop exit } if pop
- }
- loop
- } }
- { (/Subrs 5 array) {
- pop out (/Subrs AltsysCFD3 /Subrs get def\n) writestring
- 6 { dup buffer readline pop pop } repeat
- } }
- { (currentfile closefile) {
- pop out (end % systemdict\n) writestring
- closefile
- } }
- % Patterns for other supplements.
- { (pgfonts/) {
- { cdfromstr search not { exit } if
- out exch writestring pop out cdstr writestring
- }
- loop out exch writestring out (\n) writestring
- } }
- { (/BuildChar{AltsysCFD3 begin 64 BuildCh end}bind def) {
- pop out (\t/BuildChar AltsysCFD3 /BuildChar get def\n) writestring
- } }
- { (/CDevProc{pop pop pop pop 0 exch -1000 exch 2 div ) {
- pop out (\t/CDevProc AltsysCFD3 /CDevProc get def\n) writestring
- } }
- { (/CharStrings 1 dict dup begin) {
- pop out (\t/CharStrings AltsysCFD3 /CharStrings get def\n) writestring
- 2 { dup buffer readline pop pop } repeat
- } }
- { (/FontMatrix[0.001 0.0 0.0 0.001 0.0 0.0]def) {
- pop out (\t/FontMatrix AltsysCFD3 /FontMatrix get def\n) writestring
- } }
- { (/Private 14 dict dup begin) {
- pop out (\t/Private) writestring
- { dup buffer readline pop
- (end def) search { pop pop pop exit } if
- (/Std) search
- { pop pop dup length 3 sub 3 exch getinterval
- (]) search pop out ( ) writestring out exch writestring pop
- }
- if pop
- }
- loop out ( AltsysCFD3 begin BuildPr end def\n) writestring
- } }
- { (UniqueID) { pop } }
- { () {
- out exch writestring out (\n) writestring
- } }
-] def
-[ (SR) (SA) (SK) (SB) (UG) ]
- { 0 1 255 { encoding exch /.notdef put } for
- inprefix exch concatstrings macrfile
- { dup buffer readline not { pop exit } if
- /patterns load
- { 2 copy 0 get search { pop pop pop 1 get exec exit } if pop pop }
- forall
- }
- loop closefile
- }
-forall
-csr closefile
-
- % Copy the definition of the root font.
-
-dup buffer readstring pop out exch writestring closefile
-out (
-setpacking
-) writestring
-out closefile
-
- % Remove the Mac garbage from the outline files.
-
-[ (COD) (CSA) ]
- { CDir (/) concatstrings (JIS83-1_) concatstrings
- 1 index concatstrings macrfile
- exch OutDot exch concatstrings
- QUIET not { (Writing ) print dup = flush } if
- (w) file
- % Stack: infile outfile
- { 1 index buffer readstring exch
- % Stack: infile outfile noteof substring
- 2 index exch writestring not { exit } if
- }
- loop closefile closefile
- }
-forall
-
- } bind def
-
-% If the program was invoked from the command line, run it now.
-[ shellarguments
- { counttomark 5 eq
- { convert
- QUIET not { (Done.\n) print flush } if
- }
- { cleartomark
- (Usage: gsnd -- rollconv.ps FName OutBase InDir CDir OutDir\n) print
- ( e.g.: gsnd -- rollconv.ps HGMinchoE mincho HGfonts/Mincho HGfonts/Mincho HGfonts/gs\n) print flush
- mark
- }
- ifelse
- }
-if pop
+%!
+% Copyright (C) 1995, 1996 Aladdin Enterprises. All rights reserved.
+
+% $Id: rollconv.ps 6300 2005-12-28 19:56:24Z giles $
+% Utility program for converting Japanese fonts produced by Macromedia's
+% Rollup program to Type 0 fonts suitable for use with Ghostscript.
+%
+% Rollup produces the following files, where xxx is the font name:
+% xxx-H, xxx-SA, xxx-SB, xxx-SK, xxx-SR, xxx-UG
+% JIS83-1_COD
+% JIS83-1_CSA
+% The _COD and _CSA files are large files containing the actual
+% character outline data; they may theoretically be shared between
+% multiple fonts.
+%
+% rollconv.ps converts the above to files named:
+% fff.ps
+% fff.COD
+% fff.CSA
+% fff.CSR
+% where fff is a font file name provided by the user at conversion time.
+% The fff.ps file is the actual font file to be loaded with `run'
+% or placed in a Fontmap or a directory named by [GS_]FONTPATH;
+% the other two files must be present at runtime in a directory that is
+% on Ghostscript's search path (-I, GS_LIB, GS_LIB_DEFAULT).
+%
+% The normal way to invoke this program is
+% gsnd -- rollconv.ps xxx fff InDir CDir OutDir
+% (assuming that gsnd is an alias for gs -dNODISPLAY), where:
+% xxx is the font name;
+% fff is the base part of the output file name;
+% InDir is the name of the directory containing the xxx-* input files;
+% CDir is the name of the directory containing the _COD and _CSA
+% input files (typically the same as InDir);
+% OutDir is the name of the directory where the output should be written
+% (OutDir must already exist).
+% For example:
+% gsnd -- rollconv.ps HGGothicBPRO gothic /gs/k/rufonts/Gothic \
+% /gs/k/rufonts/Gothic /gs/k/gsfonts
+% To suppress output messages, you may insert -q:
+% gsnd -q -- rollconv.ps ...
+%
+% This program assumes that the files have been FTP'ed from a Macintosh and
+% therefore have 128 bytes of garbage at the beginning. If you have
+% transferred them in some manner that avoids this, change true to false
+% in the following line.
+/fromMac true def
+% The FontName of the converted font is xxx-83pv-RKSJ-H. In order to
+% use a converted font with Ghostscript, you may either load it explicitly
+% at run time, e.g.,
+% (gothic.ps) run
+% or you may add an entry to the Fontmap file, in the form:
+% /HGGothicBPRO-83pv-RKSJ-H (gothic.ps) ;
+% which will allow the font to be loaded automatically. After
+% loading the font, by either method, you can select it in the usual way:
+% /HGGothicBPRO-83pv-RKSJ-H findfont 36 scalefont setfont
+% or
+% /HGGothicBPRO-83pv-RKSJ-H 36 selectfont
+
+
+/macrfile % <filename> macrfile <file>
+ { (r) file
+ fromMac
+ { % Get rid of the initial Mac garbage (128 characters).
+ % The garbage at the end is unpredictable,
+ % so we'll just have to hope that it's all nulls.
+ dup =string 0 128 getinterval readstring pop pop
+ }
+ if
+ } bind def
+
+/convert % <FName> <OutBase> <InDir> <CDir> <OutDir> convert -
+ { /OutDir exch def
+ /CDir exch def
+ /InDir exch def
+ /OutBase exch def
+ /FName exch def
+
+ /inprefix InDir (/) concatstrings FName concatstrings (-) concatstrings def
+ /inh inprefix (H) concatstrings def
+
+ % Open the output file.
+
+/OutDot OutDir (/) concatstrings OutBase concatstrings (.) concatstrings def
+/outname OutDot (ps) concatstrings def
+QUIET not { (Writing ) print outname = flush } if
+/cdfromstr (\(pgfonts/) FName concatstrings (-JIS83-1_) concatstrings def
+/cdstr (\() OutBase concatstrings (.) concatstrings def
+/out outname (w) file def
+/buffer 65000 string def
+
+ % Copy the initial comments from the input file.
+
+inh macrfile
+ { dup =string readline pop
+ out 1 index writestring out (\n) writestring
+ (%%EndComments) eq { exit } if
+ }
+loop
+
+ % Write out our preamble.
+
+out (
+currentpacking true setpacking
+userdict /AltsysCFD3 known { (%END) .skipeof } if
+userdict /AltsysCFD3 25 dict dup begin
+/beint { 0 exch { exch 8 bitshift add } forall } bind def
+/rfile { findlibfile { exch pop } { (r) file } ifelse } bind def
+/str 500 string def
+/AltRO { } def
+/BuildCh % <font> <ccode> <bias> BuildCh -
+ { /bias exch def /ccode exch def begin % font
+ ccode dup 255 and dup bias lt exch 252 gt or { pop 127 } if
+ dup -8 bitshift -67 mul add % subfonts have 189 chars, not 256
+ bias sub buildch1
+ } bind def
+/BuildChr % <font> <ccode> BuildChr -
+ { /ccode exch def begin % font
+ ccode buildch1
+ } bind def
+/buildch1
+ { 6 mul PGOffsets add
+ FileNames 0 get rfile dup dup 4 -1 roll setfileposition
+ (xxxxxx) readstring pop exch closefile
+ dup 1 3 getinterval beint % COD offset
+ exch 4 2 getinterval beint % length
+ dup 0 eq
+ { pop pop currentdict end
+ 1000 0 0 0 1 1 0 -1000 500 1000 setcachedevice2
+ }
+ { dup str length gt { /str 1 index string store } if
+ FileNames 1 get rfile dup dup % offset length file file file
+ 5 -1 roll setfileposition % length file file
+ str 0 5 -1 roll getinterval readstring pop pop closefile
+ currentdict end ccode str 1183615869 internaldict /CCRun get exec
+ }
+ ifelse
+ } bind def
+/privates 100 dict def
+/BuildPr % <stdhw> <stdvw> BuildPr <dict>
+ { 2 copy 1000 mul add privates 1 index known
+ { privates exch get 3 1 roll pop pop
+ }
+ { 7 dict begin
+ /MinFeature{16 16}executeonly def
+ /BlueValues BlueValues def
+ /StdVW 3 -1 roll 1 array astore def
+ /StdHW 3 -1 roll 1 array astore def
+ /password 5839 def
+ /LanguageGroup 1 def
+ /Subrs Subrs def
+ currentdict readonly end
+ privates 2 index 2 index put exch pop
+ }
+ ifelse
+ } bind def
+/FullEncoding
+ systemdict { pop } forall
+ systemdict length 512 sub 1 255 { (x) dup 0 4 -1 roll put cvn } for
+768 packedarray def
+/BlueValues[-250 -250 1100 1100]readonly def
+/BuildChar{AltsysCFD3 begin 64 BuildCh end}bind def
+/CharStrings 1 dict
+dup /.notdef (1py8) noaccess put
+readonly def
+/CDevProc
+ { pop pop pop pop 0 exch -1000 exch 2 div currentfont /FontBBox get 3 get
+ } bind def
+/FontMatrix[0.001 0.0 0.0 0.001 0.0 0.0]readonly def
+/Subrs [
+(1p|=-D\R) noaccess
+(1pyUz) noaccess
+(1pyĞi) noaccess
+(1p) noaccess
+(1p|35rI) noaccess
+] noaccess def
+end put
+%END
+) writestring
+
+ % Locate and copy the definition of NotDefFont.
+
+out (
+FontDirectory /NotDefFont known { (%END) .skipeof } if
+) writestring
+ { dup =string readline pop
+ dup (/NotDefFont) eq { exit } if pop
+ }
+loop out exch writestring out (\n) writestring
+ { dup =string readline pop
+ (definefont) search { pop pop pop exit } if
+ out exch writestring out (\n) writestring
+ }
+loop out (definefont pop
+%END
+) writestring
+
+ % Copy the definitions of the subfonts, moving the
+ % CharStrings of the Roman supplement to an external file.
+ % Stack for pattern procedures: infile line
+
+/CSRName OutDot (CSR) concatstrings def
+/csr CSRName (w) file def
+QUIET not { (Writing ) print CSRName = flush } if
+
+/encoding 256 array def
+
+/patterns [
+ % Patterns specific to the Roman supplement, in which
+ % the outlines are in an eexec section.
+ { (/Encoding 256 array) {
+ pop out (/Encoding ) writestring
+ { dup buffer readline pop
+ dup (dup) search { exit } if pop pop
+ }
+ loop
+ { % Stack: infile dupline postdup (dup) predup
+ pop pop exch pop
+ % The top element of the stack is a string beginning with
+ % an index and value to put into the Encoding.
+ token pop exch token pop exch pop encoding 3 1 roll put
+ dup buffer readline pop
+ dup (dup) search not { pop exit } if
+ }
+ loop
+ out encoding cvx write== out ( cvlit ) writestring
+ out exch writestring out (\n) writestring
+ } }
+ { (/FontType 1 def) {
+ pop out (/FontType 4 def\n) writestring
+ out (/BuildChar{AltsysCFD3 begin BuildChr end}bind def\n) writestring
+ out (/FileNames[) writestring
+ 2 { out OutBase (.CSR) concatstrings write==only } repeat
+ out (]def\n) writestring
+ } }
+ { (currentfile eexec) {
+ pop out (systemdict begin\n) writestring
+ dup //.eexec_param_dict /eexecDecode filter
+ } }
+ { (dup/CharStrings ) {
+ % Copy the individual CharStrings to the CSR file,
+ % recording the lengths and offsets.
+ pop out (dup/CharStrings AltsysCFD3 /CharStrings get put\n) writestring
+ /offsets 256 dict def
+ { dup token pop % char name
+ dup dup type /nametype eq exch xcheck not and not { pop exit } if
+ 1 index token pop % length of binary data
+ 2 index token pop pop % skip RD
+ 2 index buffer 0 3 index getinterval readstring pop % charstring
+ offsets 3 index csr fileposition 16 bitshift 4 index add put
+ csr exch writestring pop pop
+ dup buffer readline pop pop % skip ND
+ }
+ loop
+ % We skipped the 'end'; skip the 'readonly put' as well.
+ 2 { dup token pop pop } repeat
+ out (dup/PGOffsets ) writestring
+ out csr fileposition write=only
+ out ( put\n) writestring
+ encoding
+ { offsets exch .knownget not { 0 } if
+ 2 { csr 0 write } repeat
+ 4 { dup -24 bitshift csr exch write 8 bitshift } repeat pop
+ }
+ forall
+ } }
+ { (/OtherSubrs[) {
+ pop
+ { dup buffer readline pop
+ (]noaccess def) search { pop pop pop exit } if pop
+ }
+ loop
+ } }
+ { (/Subrs 5 array) {
+ pop out (/Subrs AltsysCFD3 /Subrs get def\n) writestring
+ 6 { dup buffer readline pop pop } repeat
+ } }
+ { (currentfile closefile) {
+ pop out (end % systemdict\n) writestring
+ closefile
+ } }
+ % Patterns for other supplements.
+ { (pgfonts/) {
+ { cdfromstr search not { exit } if
+ out exch writestring pop out cdstr writestring
+ }
+ loop out exch writestring out (\n) writestring
+ } }
+ { (/BuildChar{AltsysCFD3 begin 64 BuildCh end}bind def) {
+ pop out (\t/BuildChar AltsysCFD3 /BuildChar get def\n) writestring
+ } }
+ { (/CDevProc{pop pop pop pop 0 exch -1000 exch 2 div ) {
+ pop out (\t/CDevProc AltsysCFD3 /CDevProc get def\n) writestring
+ } }
+ { (/CharStrings 1 dict dup begin) {
+ pop out (\t/CharStrings AltsysCFD3 /CharStrings get def\n) writestring
+ 2 { dup buffer readline pop pop } repeat
+ } }
+ { (/FontMatrix[0.001 0.0 0.0 0.001 0.0 0.0]def) {
+ pop out (\t/FontMatrix AltsysCFD3 /FontMatrix get def\n) writestring
+ } }
+ { (/Private 14 dict dup begin) {
+ pop out (\t/Private) writestring
+ { dup buffer readline pop
+ (end def) search { pop pop pop exit } if
+ (/Std) search
+ { pop pop dup length 3 sub 3 exch getinterval
+ (]) search pop out ( ) writestring out exch writestring pop
+ }
+ if pop
+ }
+ loop out ( AltsysCFD3 begin BuildPr end def\n) writestring
+ } }
+ { (UniqueID) { pop } }
+ { () {
+ out exch writestring out (\n) writestring
+ } }
+] def
+[ (SR) (SA) (SK) (SB) (UG) ]
+ { 0 1 255 { encoding exch /.notdef put } for
+ inprefix exch concatstrings macrfile
+ { dup buffer readline not { pop exit } if
+ /patterns load
+ { 2 copy 0 get search { pop pop pop 1 get exec exit } if pop pop }
+ forall
+ }
+ loop closefile
+ }
+forall
+csr closefile
+
+ % Copy the definition of the root font.
+
+dup buffer readstring pop out exch writestring closefile
+out (
+setpacking
+) writestring
+out closefile
+
+ % Remove the Mac garbage from the outline files.
+
+[ (COD) (CSA) ]
+ { CDir (/) concatstrings (JIS83-1_) concatstrings
+ 1 index concatstrings macrfile
+ exch OutDot exch concatstrings
+ QUIET not { (Writing ) print dup = flush } if
+ (w) file
+ % Stack: infile outfile
+ { 1 index buffer readstring exch
+ % Stack: infile outfile noteof substring
+ 2 index exch writestring not { exit } if
+ }
+ loop closefile closefile
+ }
+forall
+
+ } bind def
+
+% If the program was invoked from the command line, run it now.
+[ shellarguments
+ { counttomark 5 eq
+ { convert
+ QUIET not { (Done.\n) print flush } if
+ }
+ { cleartomark
+ (Usage: gsnd -- rollconv.ps FName OutBase InDir CDir OutDir\n) print
+ ( e.g.: gsnd -- rollconv.ps HGMinchoE mincho HGfonts/Mincho HGfonts/Mincho HGfonts/gs\n) print flush
+ mark
+ }
+ ifelse
+ }
+if pop