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

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.