OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
ghostscript
/
lib
Server IP: 82.112.239.19
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
09/03/2024 11:35:28 AM
rwxr-xr-x
📄
PDFA_def.ps
2.52 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
PDFX_def.ps
3.77 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
PM760p.upp
1.13 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
PM760pl.upp
1.1 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
PM820p.upp
1.12 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
PM820pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc670p.upp
1.13 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc670pl.upp
1.1 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc680p.upp
1.11 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc680pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc740p.upp
1.01 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc740pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc760p.upp
1.11 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc760pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc777p.upp
1.11 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stc777pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stp720p.upp
1.13 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stp720pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stp870p.upp
1.11 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
Stp870pl.upp
1.09 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
acctest.ps
4.17 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
align.ps
2.11 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
bj8.rpd
639 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
bj8gc12f.upp
1.5 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bj8hg12f.upp
1.5 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bj8oh06n.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bj8pa06n.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bj8pp12f.upp
1.51 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bj8ts06n.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc6000a1.upp
1.62 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
bjc6000b1.upp
1.62 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
bjc610a0.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a1.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a2.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a3.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a4.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a5.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a6.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a7.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610a8.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b1.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b2.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b3.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b4.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b6.upp
1.48 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b7.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
bjc610b8.upp
1.49 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
caption.ps
1.72 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
cbjc600.ppd
10.89 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
cbjc800.ppd
11.22 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
cdj550.upp
1.65 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
cdj690.upp
1.95 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
cdj690ec.upp
2.01 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
cid2code.ps
4.39 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
dnj750c.upp
2.74 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
dnj750m.upp
1.93 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
docie.ps
7.32 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
font2pcl.ps
18.01 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
ghostpdf.ppd
25.04 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_ce_e.ps
2.17 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_css_e.ps
4.81 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_il2_e.ps
2.57 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_kanji.ps
3.91 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_ksb_e.ps
3.07 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_l.xbm
1.9 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_l.xpm
2.69 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_l_m.xbm
1.91 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_lgo_e.ps
2.67 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_lgx_e.ps
1.72 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_m.xbm
945 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_m.xpm
1.4 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_m_m.xbm
955 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_s.xbm
594 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_s.xpm
957 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_s_m.xbm
604 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_t.xbm
345 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_t.xpm
605 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_t_m.xbm
355 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_wl1_e.ps
2.44 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_wl2_e.ps
2.44 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gs_wl5_e.ps
2.45 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
gslp.ps
20.24 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
gsnup.ps
2.57 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
ht_ccsto.ps
222.8 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
image-qa.ps
71.34 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
jispaper.ps
784 bytes
09/03/2024 11:35:23 AM
rw-r--r--
📄
landscap.ps
1.43 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
lines.ps
3.65 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
mkcidfm.ps
21.8 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
necp2x.upp
1.02 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
necp2x6.upp
1.04 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
pdf2dsc.ps
7.87 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
pdf_info.ps
14.8 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
pf2afm.ps
14.94 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
pfbtopfa.ps
996 bytes
09/03/2024 11:35:23 AM
rw-r--r--
📄
ppath.ps
1.78 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
pphs.ps
6.68 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
prfont.ps
7.04 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
printafm.ps
4.78 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
ps2ai.ps
21.78 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
ps2epsi.ps
5.93 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
ras1.upp
215 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
ras24.upp
219 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
ras3.upp
214 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
ras32.upp
196 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
ras4.upp
220 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
ras8m.upp
209 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
rollconv.ps
12.23 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
s400a1.upp
1.42 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
s400b1.upp
1.57 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
sharp.upp
1.89 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
sipixa6.upp
529 bytes
09/03/2024 11:35:27 AM
rw-r--r--
📄
st640ih.upp
2.23 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
st640ihg.upp
1.47 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
st640p.upp
1.87 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
st640pg.upp
1.11 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
st640pl.upp
1.83 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
st640plg.upp
1.08 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc.upp
1.88 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc1520h.upp
2.1 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc2.upp
1.86 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc200_h.upp
1.8 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc2_h.upp
1.83 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc2s_h.upp
2.22 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc300.upp
2.09 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc300bl.upp
1.31 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc300bm.upp
1.4 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc500p.upp
1.86 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc500ph.upp
1.86 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc600ih.upp
2.23 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc600p.upp
1.12 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc600pl.upp
1.09 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc640p.upp
1.07 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc740ih.upp
2.07 KB
09/03/2024 11:35:27 AM
rw-r--r--
📄
stc800ih.upp
2.11 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc800p.upp
1.09 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc800pl.upp
1.07 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc_h.upp
1.87 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stc_l.upp
734 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
stcany.upp
673 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
stcany_h.upp
681 bytes
09/03/2024 11:35:24 AM
rw-r--r--
📄
stcinfo.ps
24.92 KB
09/03/2024 11:35:23 AM
rw-r--r--
📄
stcolor.ps
4.95 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
stocht.ps
2.44 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
traceimg.ps
1.35 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
traceop.ps
2.51 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
uninfo.ps
5.85 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewcmyk.ps
1.94 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewgif.ps
5.27 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewjpeg.ps
5.56 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewmiff.ps
4.15 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewpbm.ps
10.04 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewpcx.ps
5.11 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
viewps2a.ps
1.11 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
winmaps.ps
3.52 KB
09/03/2024 11:35:24 AM
rw-r--r--
📄
zeroline.ps
2.26 KB
09/03/2024 11:35:24 AM
rw-r--r--
Editing: rollconv.ps
Close
%! % Copyright (C) 2001-2021 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or % implied. % % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact % Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, % CA 94945, U.S.A., +1(415)492-9861, for further information. % % 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 (�1py�8��) 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 (�1py��Uz) noaccess (�1py�Ği) noaccess (�1p�) noaccess (�1p|35r�I) 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