[ SEA-GHOST MINI SHELL]
%!
% Copyright (C) 1989, 1992, 1993 Aladdin Enterprises. All rights reserved.
%
% 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.
% dmp_init.ps
% Initialization file for `dmprt' device driver.
%
% Written initial version by... ASAYAMA Kazunori 1993 Nov.
% Modified for Ghostscript 4.03 by ... ASAYAMA Kazunori 1997 May.
%%%%% check version %%%%%
201 % version of this initialization file.
/dmprt finddevice { /DmprtParams gsgetdeviceprop /Version get }
stopped { pop pop 0 } if
2 copy ne {
(\ndmprt: driver version\() print
dup 0 eq {pop (unknown) print }{==only}ifelse
(\) does not match dmp_init.ps version\() print
==only (\).\n) print
flush 1 .quit
} { pop pop } ifelse
%%%%% BODY %%%%%
40 dict begin % .WorkDict .UserParams
% .DmprtDevice
% .GetDmprtParam .SetDmprtParam
% .DmprtParams .Xdpi .Ydpi .Xdot .Ydot
%
% in cm mm pt bp dot
% BeginMode EndMode
% .ModeDataBase .CurrentMode
% BeginConfig EndConfig
% BeginPrinterProps EndPrinterProps
/.WorkDict currentdict def
/.ModeDataBase 10 dict def
/.dicttomark {
counttomark 2 idiv dup dict begin { def } repeat pop currentdict end
} bind def
%%%%% utilities for user customization. %%%%%
/in { } bind def
/cm { 2.54 div } bind def
/mm { 25.4 div } bind def
/pt { 72.27 div } bind def
/bp { 72.0 div } bind def
/dot { [ exch truncate cvi ] } bind def
% the database of user customizations. (not implemented yet.)
/BeginMode { % <name> -> <name> mark
mark
} bind def
/EndMode { % <name> mark <item1> <value1> ... <itemN> <valueN> -> --
.dicttomark .ModeDataBase
dup dup maxlength exch length eq {
% Expand capacity of database dictionaly.
dup maxlength 10 add dict copy dup /.ModeDataBase exch def
} if
3 1 roll put
} bind def
% these procedures are undocumented in the user's manual.
% these are used in order to specify the propaties directly.
/BeginPrinterProps { [ } bind def
/EndPrinterProps { ] /printer exch } bind def
%%%%% run the user customization file. %%%%%
/BeginConfig mark def
/EndConfig { .dicttomark /.UserParams exch def } bind def
systemdict /DMPCONFIG 2 copy known
{ get run } % -sDMPCONFIG=<filename>
{ pop pop (dmp_site.ps) findlibfile { closefile run } if } ifelse
%%%%% refer database %%%%%
/.UsedMode .ModeDataBase length dict def
/.ExpandUserParams { % <dict> -> <param1> <value1> ... <paramN> <valueN>
/.InheritMode null def
{ 1 index /inherit eq {
exch pop dup .UsedMode exch known { % check recursive reference.
/.ExpandUserParams /rangecheck signalerror
} if
/.InheritMode exch def
} if } forall
.InheritMode type /nametype eq {
.UsedMode .InheritMode true put
.ModeDataBase .InheritMode get .ExpandUserParams
} if
} bind def
systemdict /DMPMODE 2 copy known
{get .ModeDataBase exch get} {pop pop .UserParams} ifelse
mark exch .ExpandUserParams .dicttomark /.UserParams exch def
%%%%% Local variables and procedures. %%%%%
/.DmprtDevice /dmprt finddevice def
/.SetDmprtParam { % <key> <value> -> --
.DmprtParams 3 1 roll put
} bind def
/.SetLocalParam { .LocalParams 3 1 roll put } bind def
/.GetDmprtParam { % <key> -> <value>
.DmprtParams exch get
} bind def
/.GetUserParam { % <key> <default-value> -> <value>
.UserParams 3 -1 roll 2 copy known {get exch pop}{pop pop} ifelse
} bind def
/.SetUserParam { % <prop-name> <key> <default-value> -> --
.GetUserParam .SetDmprtParam
} bind def
%%%%% dviprt proparties %%%%%
mark
.UserParams /printer 2 copy known {
get dup type /dicttype ne { mark /FileName 3 -1 roll .dicttomark } if
}
{ pop pop % Default printer is `ESC/P 24 pins'.
mark
/Name (ESC/P 24 pins)
/Transpose true
/Reverse false
/NonMoving false
/Encoding (Null)
/HDpi 180
/VDpi 180
/Pins 24
/MinimalUnit 1
/MaximalUnit 180
/Constant 1
/BitImageMode (\007\0333\030\033?Z\047)
/NormalMode (\004\015\014\0332)
/SendBitImage (\002\033Z\002\001\200)
/SkipSpaces (\002\033\\\002\001\200)
/LineFeed (\002\015\012)
/FormFeed (\002\015\014)
/AfterBitImage ()
/BitRowHeader ()
.dicttomark
} ifelse
/DviprtParams exch .DmprtDevice putdeviceprops
getdeviceprops .dicttomark /.DmprtParams exch def
.DmprtParams /DviprtParams get /.DviprtParams exch def
.DmprtParams /DmprtParams get /.LocalParams exch def
% calcurate resolutions and define operators converting
% from user-coordination to device-coordination(count by dots).
/resolution [ .DviprtParams dup /HDpi get exch /VDpi get ]
.GetUserParam {} forall /.Ydpi exch def /.Xdpi exch def
/.Xdot { dup type /arraytype eq { 0 get } { .Xdpi mul truncate cvi } ifelse
} bind def
/.Ydot { dup type /arraytype eq { 0 get } { .Ydpi mul truncate cvi } ifelse
} bind def
%%%%% Standard Ghostscript device propaties. %%%%%
/HWSize % default is A4.
/defaultsize [8.3 11.7] .GetUserParam
[ exch dup 0 get .Xdot exch 1 get .Ydot ] .SetDmprtParam
%%%%% dmprt device propaties. %%%%%
/MaxSize
/maxsize [0.0 0.0] .GetUserParam [ exch dup 0 get .Xdot exch 1 get .Ydot ]
.SetLocalParam
/Margins /margin [0.0 0.0 0.0 0.0] .GetUserParam
[ exch dup 0 get .Xdot exch dup 1 get .Ydot
exch dup 2 get .Xdot exch 3 get .Ydot ] .SetLocalParam
/Verbose QUIET {false}
{/verbose false .GetUserParam} ifelse .SetLocalParam
/Debug /debug false .GetUserParam .SetLocalParam
%%%%% Page device propaties. %%%%%
%%%%% See PostScript Reference Manual 2nd edition. %%%%%
/HWResolution [ .Xdpi .Ydpi ] .SetDmprtParam
/Offsets
/offset [0.0 0.0] .GetUserParam [ exch dup 0 get .Xdot exch 1 get .Ydot ]
.SetLocalParam
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
mark .DmprtParams {} forall .DmprtDevice putdeviceprops pop
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%% End of file %%%%%%%%%%%%%%%%%%%%%%%%%%%
SEA-GHOST - SHELL CODING BY SEA-GHOST