Return to header.h CVS log

Up to [WindowsNT SDKs] / ntddk / src / print / pscript

Annotation of ntddk/src/print/pscript/header.h, revision 1.1

1.1     ! root        1: //!!! put into resource - kentse.
        !             2: static PSZ apszHeader[] =
        !             3: {
        !             4:     "/bd {bind def} bind def /ld {load def} bd /ed {exch def} bd /a /currentpoint ld",
        !             5:     "/c {_snap curveto} bd /d /dup ld /e /eofill ld /f /fill ld /p /put ld",
        !             6:     "/g /setgray ld /gr /grestore ld /gs /gsave ld /j /setlinejoin ld",
        !             7:     "/L {_snap lineto} bd /M {_snap moveto} bd /n /newpath ld /cp /closepath ld",
        !             8:     "/rlt /rlineto ld /rm /rmoveto ld /sl /setlinewidth ld /sd /setdash ld",
        !             9:     "/r /setrgbcolor ld /s /stroke ld /t /show ld /aw /awidthshow ld /im /imagemask ld",
        !            10:     "/SF {findfont exch scalefont setfont} bd /SM {cmtx setmatrix} bd",
        !            11:     "/MF {findfont exch makefont setfont} bd /CM {/cmtx matrix currentmatrix def} bd",
        !            12:     "/box {/b3 ed /b2 ed /b1 ed /b0 ed b0 b1 M b2 b1 L b2 b3 L b0 b3 L cp} bd",
        !            13:     "/h {{pop pop 3 1 roll add 2 1 roll M a} exch kshow pop pop} bd",
        !            14:     "/v {{pop pop 3 -1 roll add M a} exch kshow pop pop} bd",
        !            15:     "/H {{pop pop M d 0 rm a} exch kshow pop pop pop} bd",
        !            16:     "/V {{pop pop M d 0 2 1 roll rm a} exch kshow pop pop pop} bd",
        !            17:     NULL
        !            18: };
        !            19: 
        !            20: static PSZ apszEHandler[] =
        !            21: {
        !            22:     "/nl {currentpoint exch pop 100 exch 10 sub moveto} def",
        !            23:     "errordict begin /handleerror {showpage 100 720 moveto",
        !            24:     "/Courier-Bold findfont 10 scalefont setfont (ERROR: ) show",
        !            25:     "errordict begin $error begin errorname =string cvs show",
        !            26:     "nl (OFFENDING COMMAND: )show /command load =string cvs show",
        !            27:     "nl nl (OPERAND STACK: )show $error /ostack known",
        !            28:     "{ostack aload length {=string cvs nl show} repeat} if",
        !            29:     "end end showpage stop} bind def end",
        !            30:     NULL
        !            31: };
        !            32: 
        !            33: 
        !            34: #if 0
        !            35:     "100 dict begin",
        !            36:     "/B {bind def} bind def /st {exch def} B /a {currentpoint} B",
        !            37:     "/_snap { transform .25 sub round .25 add exch .25 sub round .25 add exch itransform}B",
        !            38:     "/c {_snap curveto} B /d {dup} B /e {eofill} B /f {fill} B /p {put} B",
        !            39:     "/g {setgray} B /gr {grestore} B /gs {gsave} B /j {setlinejoin} B",
        !            40:     "/l {_snap lineto} B /m {_snap moveto} B /n {newpath} B /cp {closepath} B",
        !            41:     "/rl {rlineto} B /rm {rmoveto} B /w {setlinewidth} B /sd {setdash} B",
        !            42:     "/r {setrgbcolor} B /s {stroke} B /t {show} B /aw {awidthshow} B /im {imagemask} B",
        !            43:     "/SF {findfont exch scalefont setfont} B /SM {cmtx setmatrix} B",
        !            44:     "/MF {findfont exch makefont setfont} B /CM {/cmtx matrix currentmatrix def} B",
        !            45:     "/box {/b3 st /b2 st /b1 st /b0 st b0 b1 m b2 b1 l b2 b3 l b0 b3 l cp} B",
        !            46:     "/h {{pop pop 3 1 roll add 2 1 roll m a} exch kshow pop pop} B",
        !            47:     "/v {{pop pop 3 -1 roll add m a} exch kshow pop pop} B",
        !            48:     "/H {{pop pop m d 0 rm a} exch kshow pop pop pop} B",
        !            49:     "/V {{pop pop m d 0 2 1 roll rm a} exch kshow pop pop pop} B",
        !            50:     NULL
        !            51: #endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.