home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
clipart
/
gs22.zip
/
GS_INIT.PS
< prev
next >
Wrap
Text File
|
1991-05-29
|
21KB
|
648 lines
% Copyright (C) 1989, 1990, 1991 Aladdin Enterprises. All rights reserved.
% Distributed by Free Software Foundation, Inc.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License. A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities. It should be in a file named COPYING. Among other
% things, the copyright notice and this notice must be preserved on all
% copies.
% Initialization file for Ghostscript.
% When this is run, systemdict is still writable.
% Acquire the debugging flags.
currentdict /DEBUG known /DEBUG exch def
/VMDEBUG
DEBUG {{vmstatus pop ( ) cvs print pop ( ) print
systemdict length ( ) cvs print (\n) print flush}}
{{}} ifelse
def
currentdict /NODISPLAY known not /DISPLAYING exch def
currentdict /NOBIND known { /.bind /bind load def /bind { } def } if
currentdict /NOCACHE known /NOCACHE exch def
currentdict /NOPAUSE known /NOPAUSE exch def
currentdict /QUIET known /QUIET exch def
QUIET not { (Initializing... ) print flush } if
% Acquire systemdict and userdict.
% Note that the dictionary stack only has 1 element at this point!
/systemdict currentdict def
/userdict 200 dict def
userdict begin % 2 elements now
systemdict begin
VMDEBUG
% Define true and false.
/true 0 0 eq def
/false 0 1 eq def
% Turn on array packing for the rest of initialization.
true setpacking
% Acquire the standard files.
/.stdin (%stdin) (r) file def
/.stdout (%stdout) (w) file def
/.stderr (%stderr) (w) file def
% Define a special version of def for making operator procedures.
/odef
{1 index exch makeoperator def} bind def
% Define predefined procedures substituting for operators,
% in alphabetical order.
/[ /mark load def
/] {counttomark array astore exch pop} odef
/abs {dup 0 lt {neg} if} odef
/cleardictstack
{countdictstack 2 sub {end} repeat} odef
/.copypage /copypage load def
/copypage
{.copypage
(>>copypage, press <return> to continue<<\n) .confirm} odef
/defaultmatrix
{currentdevice exch deviceparams pop pop
counttomark 1 add 1 roll cleartomark} odef
/.echo /echo load def
userdict /.echo.mode true put
/echo {dup /.echo.mode exch store .echo} odef
/eexec {55665 exch type1decryptfile
cvx systemdict begin stopped end
$error /newerror get and {handleerror} if} odef
/executive
{ { prompt (%statementedit) (r) file
dup bytesavailable 0 lt
{ .stdin bytesavailable 0 lt {closefile exit} if }
if cvx execute
} loop
} odef
/framedevice
{.stderr (Warning: framedevice is an obsolete operator.\n) writestring
.stderr flushfile
pop pop pop setmatrix initclip} odef
/handleerror
{errordict /handleerror get exec} bind def
/identmatrix
{{1.0 0.0 0.0 1.0 0.0 0.0} cvlit exch copy} odef
/initgraphics
{initmatrix newpath initclip 1 setlinewidth 0 setlinecap 0 setlinejoin
[] 0 setdash 0 setgray 10 setmiterlimit} odef
/initmatrix
{.tempmatrix defaultmatrix setmatrix} odef
/matrix {6 array identmatrix} odef
/prompt {flush flushpage
(GS) print count 0 ne
{(<) print count =only}
if (>) print flush} bind def
/pstack {0 1 count 3 sub {index ==} for} odef
/run {dup type /filetype eq { true } { findlibfile } ifelse
{cvx execute}
{(r) file} % let the error happen
ifelse} odef
/selectfont
{ exch findfont exch
dup type /arraytype eq { makefont } { scalefont } ifelse
setfont
} odef
/showpage
{.copypage (>>showpage, press <return> to continue<<\n) .confirm
erasepage initgraphics} odef
/stack {0 1 count 3 sub {index =} for} odef
/start { QUIET not
{(Ghostscript ) print .version print
( Copyright (C) 1990, 1991 Aladdin Enterprises,\n) print
( Menlo Park, CA. All rights reserved.\n) print
(Distributed by Free Software Foundation, Inc.\n) print
(Ghostscript comes with NO WARRANTY: see the file COPYING for details.\n) print
flush
} if
executive
} def
% Define version so it prints a warning once, for programs that think that
% they are going to get an Adobe interpreter version.
/version
{ <00> % Flag to make sure we only do this once
dup 0 get 0 eq
{ .stderr (Warning -- Ghostscript version #s are not the same as Adobe version #s.\n) writestring
.stderr flushfile
0 1 put
}
{ pop }
ifelse .version
} odef
/.version
(2.2) def
% Provide semi-fake but usable definitions for
% the color PostScript extensions (except for colorimage,
% which is actually implemented as an operator).
/setcmykcolor {
1 exch sub dup dup % C, M, Y, S, S, S
6 -1 roll 1 exch sub mul % M, Y, S, S, red
exch 5 -1 roll 1 exch sub mul % Y, S, red, green
4 -2 roll exch 1 exch sub mul % red, green, blue
setrgbcolor
} odef
/currentcmykcolor {
currentrgbcolor
3 { 1 exch sub 3 1 roll } repeat
0
} odef
/setblackgeneration {
pop
} odef
/currentblackgeneration {
{}
} odef
/setundercolorremoval {
pop
} odef
/currentundercolorremoval {
{}
} odef
/setcolorscreen {
setscreen 9 {pop} repeat
} odef
/currentcolorscreen {
currentscreen 3 copy 6 copy
} odef
% Define some additional built-in procedures (beyond the ones defined by
% the PostScript Language Reference Manual).
/concatprocs
{ exch cvlit exch cvlit % proc1 proc2
dup length 2 index length add array % proc1 proc2 newproc
dup 0 4 index putinterval
dup 3 index length 3 index putinterval
exch pop exch pop cvx
} bind def
/concatstrings
{ 1 index length 1 index length add string
2 index 1 index copy pop
dup 3 index length 3 index length getinterval
2 index exch copy pop
exch pop exch pop
} bind def
/copyarray
{ dup length array copy } bind def
/copystring
{ dup length string copy } bind def
/defaultdevice
{ systemdict /DEVICE known
{ systemdict /DEVICE get finddevice }
{ 0 getdevice }
ifelse
} bind def
/finddevice
{ systemdict /devicedict get exch get } bind def
/rgbcolor
{ gsave setrgbcolor currentgscolor grestore } bind def
/selectdevice
{ finddevice setdevice } bind def
/signalerror % object errorname
{ errordict exch get exec } bind def
% Define auxiliary procedures needed for the above.
/shellarguments % -> shell_arguments true (or) false
{ /ARGUMENTS where
{ /ARGUMENTS get dup type /arraytype eq
{ aload pop /ARGUMENTS null store true }
{ pop false }
ifelse }
{ false } ifelse
} bind def
/.confirm
{DISPLAYING NOPAUSE not and
{% Print a message and wait for the user to type something.
% If the user just types a newline, flush it.
print flush
.echo.mode false echo
.stdin dup read
{dup (\n) 0 get eq {pop pop} {unread} ifelse} {pop} ifelse
echo}
{pop} ifelse} bind def
/.identmatrix % a read-only identity matrix
matrix readonly def
/.tempmatrix % a temporary matrix
matrix def
% Define the procedure used by the C executive for executing user input,
% and also by the run operator.
% This is called with a procedure or file on the operand stack.
/execute
{stopped $error /newerror get and {handleerror} if} odef
% Create the error handling machinery.
% The interpreter has created the ErrorNames array.
% Define $error.
/$error 11 dict def % newerror, errorname, command, errorinfo,
% ostack, estack, dstack, recordstacks,
% binary, .inerror, position
$error begin
/newerror false def
/recordstacks true def
/binary false def
/.inerror false def
end
% Define errordict. It has one entry per error name, plus handleerror.
/errordict ErrorNames length 1 add dict def
% Define the standard error handlers. When they are invoked,
% the top element of the o-stack is the error name;
% the next element is the offending command.
errordict begin
{ //$error /.inerror get .instopped not or
{ (Unrecoverable error: ) print =only flush
( in ) print = flush
count 0 gt
{ (Operand stack:\n ) print
0 1 count 3 sub { ( ) print index =only flush } for
(\n) print flush
} if
quit
} if % detect error recursion
$error /.inerror true put
$error /newerror true put
$error exch /errorname exch put
$error exch /command exch put
$error /dstack undef
$error /estack undef
$error /ostack undef
$error /recordstacks get $error /errorname get /VMerror ne and
{ $error /dstack countdictstack array dictstack put
$error /estack countexecstack array execstack put
count array astore dup $error exch /ostack exch put
aload pop
} if
$error /.inerror false put
stop
} bind
ErrorNames
{ [ 1 index 3 index /exec load ] cvx def
} forall
pop
end
% Define the standard handleerror.
errordict begin
/handleerror
{ (Error: ) print
$error begin
errorname ==only flush
( in ) print
/command load ==only flush
currentdict /ostack known
{ (\nOperand stack:\n ) print ostack { ( ) print ==only } forall
} if
currentdict /estack known
{ (\nExecution stack:\n ) print estack { ( ) print =only } forall
} if
currentdict /dstack known
{ (\nDictionary stack:\n ) print dstack
{ dup ( ) print length =only (/) print maxlength =only } forall
} if
(\n) print
/newerror false def
end
currentdict /position known
{ (Current file position is ) print position = }
if
flush
.instopped {stop} if
} bind def
end
% Define the =[only] procedures. Also define =print and =string,
% which are used by some P*stScr*pt programs even though
% they aren't documented anywhere.
/=print {=only} def
/=string 128 string def
/= {=only (\n) print} bind def
4 dict begin
/.buf =string def
/.print
{dup type currentdict exch known
{dup type exec} {.buf cvs print} ifelse
} bind def
/stringtype
{dup rcheck not {pop (--nostringval--)} if print} bind def
/nametype
{dup length .buf length gt
{dup length string}
{.buf}
ifelse cvs print} bind def
{0 begin .print end} copyarray dup 0 currentdict put
cvx bind
end
/=only exch def
% Define the [write]==[only] procedures.
/== {==only (\n) print} bind def
/==only {.stdout exch write==only} bind def
/write==
{2 copy write==only pop (\n) writestring} bind def
/.dict 17 dict dup
begin def
/.buf 128 string def
/.cvp {.buf cvs .p} bind def
% /.f {the_output_file} def
/.nop {(-) .p type .cvp (-) .p} bind def
/.p {.f exch writestring} bind def
/.p1 {.f exch write} bind def
/.print
{dup type .dict exch known
{dup type exec} {.nop} ifelse
} bind def
/integertype /.cvp load def
/realtype /.cvp load def
/booleantype /.cvp load def
/nametype
{dup xcheck not {(/) .p} if
dup length .buf length gt
{dup length string}
{.buf}
ifelse cvs .p} bind def
/arraytype
{dup rcheck
{dup xcheck {(})({)} {(])([)} ifelse .p
exch () exch
{exch .p .print ( )} forall pop .p}
{.nop}
ifelse} bind def
/operatortype
{(--) .p .cvp (--) .p} bind def
/packedarraytype /arraytype load def
/stringtype
{dup rcheck
{(\() .p
{/.ch exch def
.ch 32 lt .ch 127 ge or
{(\\) .p .ch 8#1000 add 8 .buf cvrs 1 3 getinterval .p}
{.ch 40 eq .ch 41 eq or .ch 92 eq or
{(\\) .p} if
.ch .p1}
ifelse}
forall (\)) .p}
{.nop}
ifelse} bind def
{0 begin exch cvlit /.f exch def .print end} copyarray dup 0 .dict put
bind cvx
end
/write==only exch def
VMDEBUG
% Define the font directory.
% Make it big to leave room for transformed fonts.
/FontDirectory 100 dict def
% Define the standard encoding vector.
/StandardEncoding
% \00x
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
% \04x
/space /exclam /quotedbl /numbersign
/dollar /percent /ampersand /quoteright
/parenleft /parenright /asterisk /plus
/comma /hyphen /period /slash
/zero /one /two /three
/four /five /six /seven
/eight /nine /colon /semicolon
/less /equal /greater /question
% \10x
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
% \14x
/quoteleft /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft /bar /braceright /asciitilde /.notdef
% \20x
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
% \24x
/.notdef /exclamdown /cent /sterling
/fraction /yen /florin /section
/currency /quotesingle /quotedblleft /guillemotleft
/guilsinglleft /guilsinglright /fi /fl
/.notdef /endash /dagger /daggerdbl
/periodcentered /.notdef /paragraph /bullet
/quotesinglbase /quotedblbase /quotedblright /guillemotright
/ellipsis /perthousand /.notdef /questiondown
% \30x
/.notdef /grave /acute /circumflex /tilde /macron /breve /dotaccent
/dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
/emdash /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
% \34x
/.notdef /AE /.notdef /ordfeminine /.notdef /.notdef /.notdef /.notdef
/Lslash /Oslash /OE /ordmasculine /.notdef /.notdef /.notdef /.notdef
/.notdef /ae /.notdef /.notdef /.notdef /dotlessi /.notdef /.notdef
/lslash /oslash /oe /germandbls /.notdef /.notdef /.notdef /.notdef
256 packedarray def
% Define the ISO Latin-1 encoding vector.
% The first half is the same as the standard encoding.
/ISOLatin1Encoding
StandardEncoding 0 128 getinterval aload pop
%****** NOTE: the following are missing in the Adobe documentation,
%****** but appear in the displayed table:
%****** macron at 225, dieresis at 230, cedilla at 233, space at 240.
% \20x
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
/dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
% \24x
/space /exclamdown /cent /sterling
/currency /yen /brokenbar /section
/dieresis /copyright /ordfeminine /guillemotleft
/logicalnot /hyphen /registered /macron
/degree /plusminus /twosuperior /threesuperior
/acute /mu /paragraph /periodcentered
/cedilla /onesuperior /ordmasculine /guillemotright
/onequarter /onehalf /threequarters /questiondown
% \30x
/Agrave /Aacute /Acircumflex /Atilde
/Adieresis /Aring /AE /Ccedilla
/Egrave /Eacute /Ecircumflex /Edieresis
/Igrave /Iacute /Icircumflex /Idieresis
/Eth /Ntilde /Ograve /Oacute
/Ocircumflex /Otilde /Odieresis /multiply
/Oslash /Ugrave /Uacute /Ucircumflex
/Udieresis /Yacute /Thorn /germandbls
% \34x
/agrave /aacute /acircumflex /atilde
/adieresis /aring /ae /ccedilla
/egrave /eacute /ecircumflex /edieresis
/igrave /iacute /icircumflex /idieresis
/eth /ntilde /ograve /oacute
/ocircumflex /otilde /odieresis /divide
/oslash /ugrave /uacute /ucircumflex
/udieresis /yacute /thorn /ydieresis
256 packedarray def
% Define a stub for the Symbol encoding.
userdict begin
/SymbolEncoding
{ userdict begin (symbol_e.ps) run /SymbolEncoding load end
} bind def
end
% Construct a dictionary of all available devices.
mark
% Loop until the getdevice gets a rangecheck.
0 { {dup getdevice exch 1 add} loop} stopped pop
dict /devicedict exch def
devicedict begin % 2nd copy of count is on stack
{ dup devicename cvn dup 3 -1 roll def
counttomark 1 roll
} repeat
end
] /devicenames exch def
$error /newerror false put % remove error indication
% Define a special version of `run' that aborts on errors.
/run0
{ dup /.currentfilename exch def
{ findlibfile not { stop } if } stopped
{ pop (Can't find initialization file ) print = flush quit } if
cvx stopped
{ (While reading ) print .currentfilename print (:\n) print flush
handleerror quit
} if
} bind def
% Define statusdict, for the benefit of programs
% that think they are running on a LaserWriter or similar printer.
(gs_statd.ps) run0
% Load the initialization files for optional features.
[ (gconfig.ps) run0 ] % a list of file names
{ run0 } forall
% Establish a default upper limit in the character cache,
% namely, 10 times the average expected character size.
mark
cachestatus 5 index 10 mul 2 index 1 max idiv % bmax, cmax
mark exch dup 10 idiv exch setcacheparams
cleartomark
% Conditionally disable the character cache.
NOCACHE { 1 setcachelimit } if
VMDEBUG
% Load the standard font environment.
(gs_fonts.ps) run0
% Create a null font. This is the initial font.
7 dict dup begin
/FontMatrix [ 1 0 0 1 0 0 ] def
/FontType 3 def
/FontName () def
/Encoding StandardEncoding def
/FontBBox [ 0 0 0 0 ] cvx def % cvx is bogus, but customary ...
/BuildChar { pop pop 0 0 setcharwidth } bind def
end
/NullFont exch definefont setfont
% Define NullFont as the font, but remove it from FontDirectory.
/NullFont currentfont def
FontDirectory /NullFont undef
% Bind all the operators defined as procedures.
systemdict
{ dup type /operatortype eq
{ % This might be a real operator, so bind might cause a typecheck.
{ bind } stopped pop
$error /newerror false put % remove error indication
}
if pop pop
} forall
% Close up systemdict.
end
systemdict readonly pop
% Establish a default environment.
DISPLAYING
{ defaultdevice
systemdict /DEVICEWIDTH known systemdict /DEVICEHEIGHT known or
{ matrix deviceparams
exch /DEVICEWIDTH where
{ pop pop DEVICEWIDTH }
if
exch /DEVICEHEIGHT where
{ pop pop DEVICEHEIGHT
% Replace the Y translation if the Y axis is inverted
2 index 5 get 0 gt
{ 2 index 5 2 index put
}
if
}
if
defaultdevice 4 1 roll makedevice
counttomark 1 add 1 roll cleartomark
}
if setdevice % does an erasepage
}
{ nulldevice
}
ifelse
1 setflat % initgraphics doesn't set this
{ } settransfer % ditto
% The following 'ordered dither' spot function was contributed by
% Gregg Townsend. Thanks, Gregg!
72 72 dtransform abs exch abs min % min(|dpi x|,|dpi y|)
16.001 div 0 % not 16: avoids rounding problems
{ 1 add 7.9999 mul cvi exch 1 add 7.9999 mul cvi 16 mul add <
0E 8E 2E AE 06 86 26 A6 0C 8C 2C AC 04 84 24 A4
CE 4E EE 6E C6 46 E6 66 CC 4C EC 6C C4 44 E4 64
3E BE 1E 9E 36 B6 16 96 3C BC 1C 9C 34 B4 14 94
FE 7E DE 5E F6 76 D6 56 FC 7C DC 5C F4 74 D4 54
01 81 21 A1 09 89 29 A9 03 83 23 A3 0B 8B 2B AB
C1 41 E1 61 C9 49 E9 69 C3 43 E3 63 CB 4B EB 6B
31 B1 11 91 39 B9 19 99 33 B3 13 93 3B BB 1B 9B
F1 71 D1 51 F9 79 D9 59 F3 73 D3 53 FB 7B DB 5B
0D 8D 2D AD 05 85 25 A5 0F 8F 2F AF 07 87 27 A7
CD 4D ED 6D C5 45 E5 65 CF 4F EF 6F C7 47 E7 67
3D BD 1D 9D 35 B5 15 95 3F BF 1F 9F 37 B7 17 97
FD 7D DD 5D F5 75 D5 55 FF 7F DF 5F F7 77 D7 57
02 82 22 A2 0A 8A 2A AA 00 80 20 A0 08 88 28 A8
C2 42 E2 62 CA 4A EA 6A C0 40 E0 60 C8 48 E8 68
32 B2 12 92 3A BA 1A 9A 30 B0 10 90 38 B8 18 98
F2 72 D2 52 FA 7A DA 5A F0 70 D0 50 F8 78 D8 58
> exch get 256 div } bind setscreen
initgraphics
% The interpreter relies on there being at least 2 entries
% on the graphics stack. Establish the second one now.
gsave
VMDEBUG
% Define control-D as a no-op. This is a hack to get around problems
% in some common P*stScr*pt-generating applications.
(\004) cvn { } def
% Turn off array packing for interactive use.
false setpacking
QUIET not { (done.\n) print flush } if
% The interpreter will run the initial procedure (start).