Gecko [ v99win.today ]

Name	Size	Permission
PDFA_def.ps	2.98 KB	-rw-r--r--
PDFX_def.ps	3.77 KB	-rw-r--r--
PM760p.upp	1.13 KB	-rw-r--r--
PM760pl.upp	1.1 KB	-rw-r--r--
PM820p.upp	1.12 KB	-rw-r--r--
PM820pl.upp	1.09 KB	-rw-r--r--
Stc670p.upp	1.13 KB	-rw-r--r--
Stc670pl.upp	1.1 KB	-rw-r--r--
Stc680p.upp	1.11 KB	-rw-r--r--
Stc680pl.upp	1.09 KB	-rw-r--r--
Stc740p.upp	1.01 KB	-rw-r--r--
Stc740pl.upp	1.09 KB	-rw-r--r--
Stc760p.upp	1.11 KB	-rw-r--r--
Stc760pl.upp	1.09 KB	-rw-r--r--
Stc777p.upp	1.11 KB	-rw-r--r--
Stc777pl.upp	1.09 KB	-rw-r--r--
Stp720p.upp	1.13 KB	-rw-r--r--
Stp720pl.upp	1.09 KB	-rw-r--r--
Stp870p.upp	1.11 KB	-rw-r--r--
Stp870pl.upp	1.09 KB	-rw-r--r--
acctest.ps	4.17 KB	-rw-r--r--
align.ps	2.11 KB	-rw-r--r--
bj8.rpd	639 B	-rw-r--r--
bj8gc12f.upp	1.5 KB	-rw-r--r--
bj8hg12f.upp	1.5 KB	-rw-r--r--
bj8oh06n.upp	1.48 KB	-rw-r--r--
bj8pa06n.upp	1.49 KB	-rw-r--r--
bj8pp12f.upp	1.51 KB	-rw-r--r--
bj8ts06n.upp	1.49 KB	-rw-r--r--
bjc6000a1.upp	1.62 KB	-rw-r--r--
bjc6000b1.upp	1.62 KB	-rw-r--r--
bjc610a0.upp	1.49 KB	-rw-r--r--
bjc610a1.upp	1.48 KB	-rw-r--r--
bjc610a2.upp	1.48 KB	-rw-r--r--
bjc610a3.upp	1.49 KB	-rw-r--r--
bjc610a4.upp	1.49 KB	-rw-r--r--
bjc610a5.upp	1.48 KB	-rw-r--r--
bjc610a6.upp	1.48 KB	-rw-r--r--
bjc610a7.upp	1.48 KB	-rw-r--r--
bjc610a8.upp	1.49 KB	-rw-r--r--
bjc610b1.upp	1.48 KB	-rw-r--r--
bjc610b2.upp	1.48 KB	-rw-r--r--
bjc610b3.upp	1.49 KB	-rw-r--r--
bjc610b4.upp	1.49 KB	-rw-r--r--
bjc610b6.upp	1.48 KB	-rw-r--r--
bjc610b7.upp	1.49 KB	-rw-r--r--
bjc610b8.upp	1.49 KB	-rw-r--r--
caption.ps	1.72 KB	-rw-r--r--
cbjc600.ppd	10.89 KB	-rw-r--r--
cbjc800.ppd	11.22 KB	-rw-r--r--
cdj550.upp	1.65 KB	-rw-r--r--
cdj690.upp	1.95 KB	-rw-r--r--
cdj690ec.upp	2.01 KB	-rw-r--r--
cid2code.ps	4.39 KB	-rw-r--r--
dnj750c.upp	2.74 KB	-rw-r--r--
dnj750m.upp	1.93 KB	-rw-r--r--
docie.ps	7.32 KB	-rw-r--r--
font2pcl.ps	18.01 KB	-rw-r--r--
ghostpdf.ppd	25.04 KB	-rw-r--r--
gs_ce_e.ps	2.17 KB	-rw-r--r--
gs_css_e.ps	4.81 KB	-rw-r--r--
gs_il2_e.ps	2.57 KB	-rw-r--r--
gs_kanji.ps	3.91 KB	-rw-r--r--
gs_ksb_e.ps	3.07 KB	-rw-r--r--
gs_l.xbm	1.9 KB	-rw-r--r--
gs_l.xpm	2.69 KB	-rw-r--r--
gs_l_m.xbm	1.91 KB	-rw-r--r--
gs_lgo_e.ps	2.67 KB	-rw-r--r--
gs_lgx_e.ps	1.72 KB	-rw-r--r--
gs_m.xbm	945 B	-rw-r--r--
gs_m.xpm	1.4 KB	-rw-r--r--
gs_m_m.xbm	955 B	-rw-r--r--
gs_s.xbm	594 B	-rw-r--r--
gs_s.xpm	957 B	-rw-r--r--
gs_s_m.xbm	604 B	-rw-r--r--
gs_t.xbm	345 B	-rw-r--r--
gs_t.xpm	605 B	-rw-r--r--
gs_t_m.xbm	355 B	-rw-r--r--
gs_wl1_e.ps	2.44 KB	-rw-r--r--
gs_wl2_e.ps	2.44 KB	-rw-r--r--
gs_wl5_e.ps	2.45 KB	-rw-r--r--
gslp.ps	21 KB	-rw-r--r--
gsnup.ps	2.57 KB	-rw-r--r--
ht_ccsto.ps	222.8 KB	-rw-r--r--
image-qa.ps	71.34 KB	-rw-r--r--
jispaper.ps	784 B	-rw-r--r--
landscap.ps	1.43 KB	-rw-r--r--
lines.ps	3.65 KB	-rw-r--r--
mkcidfm.ps	21.8 KB	-rw-r--r--
necp2x.upp	1.02 KB	-rw-r--r--
necp2x6.upp	1.04 KB	-rw-r--r--
pdf2dsc.ps	7.87 KB	-rw-r--r--
pdf_info.ps	14.8 KB	-rw-r--r--
pf2afm.ps	14.94 KB	-rw-r--r--
pfbtopfa.ps	996 B	-rw-r--r--
ppath.ps	1.78 KB	-rw-r--r--
pphs.ps	6.68 KB	-rw-r--r--
prfont.ps	7.04 KB	-rw-r--r--
printafm.ps	4.78 KB	-rw-r--r--
ps2ai.ps	21.78 KB	-rw-r--r--
ps2epsi.ps	5.93 KB	-rw-r--r--
ras1.upp	215 B	-rw-r--r--
ras24.upp	219 B	-rw-r--r--
ras3.upp	214 B	-rw-r--r--
ras32.upp	196 B	-rw-r--r--
ras4.upp	220 B	-rw-r--r--
ras8m.upp	209 B	-rw-r--r--
rollconv.ps	12.23 KB	-rw-r--r--
s400a1.upp	1.42 KB	-rw-r--r--
s400b1.upp	1.57 KB	-rw-r--r--
sharp.upp	1.89 KB	-rw-r--r--
sipixa6.upp	529 B	-rw-r--r--
st640ih.upp	2.23 KB	-rw-r--r--
st640ihg.upp	1.47 KB	-rw-r--r--
st640p.upp	1.87 KB	-rw-r--r--
st640pg.upp	1.11 KB	-rw-r--r--
st640pl.upp	1.83 KB	-rw-r--r--
st640plg.upp	1.08 KB	-rw-r--r--
stc.upp	1.88 KB	-rw-r--r--
stc1520h.upp	2.1 KB	-rw-r--r--
stc2.upp	1.86 KB	-rw-r--r--
stc200_h.upp	1.8 KB	-rw-r--r--
stc2_h.upp	1.83 KB	-rw-r--r--
stc2s_h.upp	2.22 KB	-rw-r--r--
stc300.upp	2.09 KB	-rw-r--r--
stc300bl.upp	1.31 KB	-rw-r--r--
stc300bm.upp	1.4 KB	-rw-r--r--
stc500p.upp	1.86 KB	-rw-r--r--
stc500ph.upp	1.86 KB	-rw-r--r--
stc600ih.upp	2.23 KB	-rw-r--r--
stc600p.upp	1.12 KB	-rw-r--r--
stc600pl.upp	1.09 KB	-rw-r--r--
stc640p.upp	1.07 KB	-rw-r--r--
stc740ih.upp	2.07 KB	-rw-r--r--
stc800ih.upp	2.11 KB	-rw-r--r--
stc800p.upp	1.09 KB	-rw-r--r--
stc800pl.upp	1.07 KB	-rw-r--r--
stc_h.upp	1.87 KB	-rw-r--r--
stc_l.upp	734 B	-rw-r--r--
stcany.upp	673 B	-rw-r--r--
stcany_h.upp	681 B	-rw-r--r--
stcinfo.ps	24.92 KB	-rw-r--r--
stcolor.ps	4.95 KB	-rw-r--r--
stocht.ps	2.44 KB	-rw-r--r--
traceimg.ps	1.35 KB	-rw-r--r--
traceop.ps	2.51 KB	-rw-r--r--
uninfo.ps	5.85 KB	-rw-r--r--
viewcmyk.ps	1.94 KB	-rw-r--r--
viewgif.ps	5.31 KB	-rw-r--r--
viewjpeg.ps	5.56 KB	-rw-r--r--
viewmiff.ps	4.15 KB	-rw-r--r--
viewpbm.ps	10.04 KB	-rw-r--r--
viewpcx.ps	5.11 KB	-rw-r--r--
viewps2a.ps	1.11 KB	-rw-r--r--
winmaps.ps	3.52 KB	-rw-r--r--
zeroline.ps	2.26 KB	-rw-r--r--

Code Editor : ps2epsi.ps

% 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.

% Convert a PostScript file to an EPSI file, adding the Preview Image.

% If the file is already EPSF, then skip the creation of an EPSF, and
% only add the preview.  A warning is issued if the %%Pages: comment
% indicates that there is more than a single page in the input file.

% Expected invocation:
%   gs -q -dNOOUTERSAVE -dNODISPLAY -dLastPage=1 -sOutputFile=out.epsi --permit-file-read=in.ps -- ps2epsi.ps in.ps

% Usually this will be invoked by the ps2epsi script (or .bat or .cmd versions)

false	% no errors from initial param check
% NOOUTERSAVE is needed for the SAVE to not remove the tempfile (if one was needed)
vmstatus pop pop 0 gt { (Error: missing -dNOOUTERSAVE option) = pop true } if
% NODISPLAY may not be strictly needed, but we don't want to open the default device
/NODISPLAY where { pop } { (Error: missing -dNODISPLAY option) = pop true } ifelse
% LastPage is needed if we are using eps2write on a PostScript (or PDF) file that has multiple pages.
/LastPage where { pop } { (Error: missing -dLastPage option) = pop true } ifelse
% OutputFile is needed so that it gets on the permit-file-writing list
/OutputFile where { pop } { (Error: missing -sOutputFile option) = pop true } ifelse

.shellarguments not count 3 lt or count -1 roll or
{
  (usage:  gs -q -dNOOUTERSAVE -dNODISPLAY -dLastPage=1 -sOutputFile=out.epsi --permit-file-read=in.eps -- ps2epsi.ps in.ps) =
  quit
} {
  dup /InputFile exch def
  (r) file /I exch def
} ifelse

/O OutputFile (w) file def

/S 65535 string def

/R { I S readline not { (Error: Unexpected end of file.) = quit } if } bind def
/WL { O exch writestring O (\n) writestring } bind def	% Write with linefeed
/TName null def

/EPSFheader (%!PS-Adobe-3.0 EPSF-3.0) def
% Read the header to check if this file was EPSF
R
dup EPSFheader ne {
  % InputFile was not EPSF
  pop		% discard the first line of the InputFile
  % run the file through eps2write (into a tempfile) to make an EPSF
  (_ps2epsi) (w+) .tempfile closefile /TName exch def
  /SAVE save def
  (eps2write) finddevice mark /OutputFile TName 3 index putdeviceprops pop
  setdevice
  InputFile run
  SAVE restore
  /I TName (r) file def
  R
} if
WL	% Write the first line (either from InputFile or the tempfile

% From the "5002 Encapsulated PostScript File Format Specification Version 3.0 1 May 1992"
%   The preview section must appear after the header comment section, but
%   before the document prologue definitions. That is, it should immediately
%   follow the %%EndComments: line in the EPS file.
{	% loop until we see the %%EndComments line, writing those lines to output
  R
  dup (%%EndComments) anchorsearch exch pop {	% discard the match or extra copy of the string
    pop exit	% found it
  } if
  % Check the %%Pages: comment to issue a warning if there is more than one page.
  dup (%%Pages:) anchorsearch exch pop {	% discard the match or extra copy of the string
    cvi 1 gt {
      (Warning: EPSI files can only have 1 page, Only the first page will be in the preview.) =
    } if
  } if
  % Collect the BoundingBox data that will be used when generating the preview
  dup (%%BoundingBox:) anchorsearch exch pop {	% discard the match or extra copy of the string
    mark
    exch token not { (Error: invalid BoundingBox parameters) = quit } if
    exch token not { (Error: invalid BoundingBox parameters) = quit } if
    exch token not { (Error: invalid BoundingBox parameters) = quit } if
    exch token not { (Error: invalid BoundingBox parameters) = quit } if
    exch pop ]
    /BBox exch def
    % Preview dimensions
    /PWidth BBox dup 2 get exch 0 get sub def
    /PHeight BBox dup 3 get exch 1 get sub def
  } if
  WL	% send to output file with linefeed.
} loop

WL	% send to output file with linefeed.

% If the InputFile already has a preview, skip past it
R
dup (%%BeginPreview) anchorsearch exch pop {	% discard the match or extra copy of the string
  pop
  % Read lines until after the %%EndPreview
  {
    R
    (%%EndPreview) anchorsearch exch pop {	% discard the match or extra copy of the string
      pop pop exit	% found it
    } if
  } loop
  % Get the next line for use after the generated preview
  R
} 
if
/LineAfterEndComments exch def

//null (w+) .tempfile
closefile			% will be opened by bit device
/Pname exch def

(bit) selectdevice
<<
  /GrayValues 256		% Gray, not monochrome
  /OutputFile Pname
  /TextAlphaBits 4
  /GraphicsAlphaBits 4
  /LastPage 1			% TBD: does this work?
  /.IgnoreNumCopies true
  /Install { BBox 0 get neg BBox 1 get neg translate { 1.0 exch sub } settransfer }	% EPSI 00 is white
  /HWResolution [ 72. 72. ]
  /PageSize [ PWidth PHeight ]
>> setpagedevice

InputFile run

/P Pname (r) file def		% Preview data file
/SP PWidth string def		% One string per image line

% Write the preview
O (%%BeginPreview: ) writestring
O PWidth write==only O ( ) writestring
O PHeight write==only O ( 8 ) writestring
O PHeight PWidth 39 add 40 idiv mul write==	% 40 bytes per line
O flushfile
0 1 PHeight 1 sub {
  pop
  P SP readstring pop
  0 40 PWidth {
    O (% ) writestring		% 82 bytes on each line, plus EOL
    SP exch 40 PWidth 2 index sub .min getinterval   
    O exch writehexstring
    O (\n) writestring
  } for
  pop
} for
(%%EndPreview) WL

% Write the line that followed the %%EndComments
LineAfterEndComments WL

% Copy the remainder of the inputfile
{
  I S readstring exch O exch writestring not { exit } if
} loop

% If we created a tempfile, delete it
TName null ne { TName deletefile } if

quit

${this.title}

Code Editor : ps2epsi.ps