diff options
Diffstat (limited to 'Build/source/utils/sam2p/psmlib.psm')
-rw-r--r-- | Build/source/utils/sam2p/psmlib.psm | 199 |
1 files changed, 0 insertions, 199 deletions
diff --git a/Build/source/utils/sam2p/psmlib.psm b/Build/source/utils/sam2p/psmlib.psm deleted file mode 100644 index 7ebc93a08ce..00000000000 --- a/Build/source/utils/sam2p/psmlib.psm +++ /dev/null @@ -1,199 +0,0 @@ -/* psmlib.psm -- utilites for writing PostScript code with the help of - * cpp, the C preprocessor - * compiled by pts@fazekas.hu at Fri Sep 20 23:38:32 CEST 2002 - */ - -#if USE_A85D -#else - #if USE_HEXD - #else - #define USE_BINARY 1 - #endif -#endif - -#if USE_INDEXED2 - #define USE_PALETTE 1 -#else - #if USE_TRANSPARENT8 - #define USE_PALETTE 1 - #endif -#endif - -#if USE_NO_BIND - #define BIND_DEF def -#else - #define BIND_DEF bind def -#endif - - -#if NDEBUG - #define DEBUG(msg) - #define ASSERT_TRUE_POP(str) pop - #define ASSERT_FALSE_POP(str) pop - #define ASSERT_TRUE(what,str) - #define ASSERT_INT() - #define INT_EQ eq - #define INT_NE ne - #define INT_LE le - #define INT_GT gt - #define INT_LT lt - #define BOOL_BIN(op,message) op - #define INT_BIN(op,message) op - #define DEBUGFORCE(msg) - #define ASSERT_STACK(list,message) -#else - /-str /stringtype def - /-aryb /stringtype def % byte array - /-ary /arraytype def - /-int /integertype def - /-bool /booleantype def - /-dict /dicttype def - /handleerror.orig /handleerror load def - /handleerror { - (%stderr) (w) file - dup (!!!Fatal: GS error: ) writestring - dup $error /errorname get write==only - dup ( in ) writestring - dup $error /command get write==only - dup ( at ) writestring - dup $error /position get write==only - dup (.\n) writestring - flushfile flush - handleerror.orig - quit - }bind def - #define ASSERT_TRUE_POP(str) not{ str InternalError }if - #define ASSERT_FALSE_POP(str) { str InternalError }if - #define ASSERT_TRUE(what,str) what not{ str InternalError }if - #define ASSERT_INT(str) dup type/integertype ne{str InternalError}if - #define ASSERT_BOOL(str) dup type/booleantype ne{str InternalError}if - /DumpStack { % - DumpStack - - (Stack: ) print % from bottom to top - count 1 sub -1 0{ - index - dup type /stringtype eq {pop ()}if - ===only - ( ) print - } for - (.\n) print - }bind def - - /TypeStack { % <list> TypeStack <bool> - dup length count 2 sub eq { - true exch count 2 add 1 index length 1 sub 0 exch 1 exch - % Stack: ... true ary count(...)+5 0 1 ary.length-1 - { - % Stack: ... true ary count* i - 2 index exch get 2 copy exch - % Stack: ... true ary count* ary[i] ary[i] count* - index type - % Stack: ... true ary count* ary[i] ary[i] stackitem.type - ne{ - pop pop pop pop - % Stack: ... - false 0 0 - exit - }if - pop 1 sub - % Stack: ... true ary count*-1 - } for - % Stack: ... true|false ary count* - pop pop - }{ - pop false - }ifelse - ASSERT_BOOL((TypeStack-bool)) - }bind def - /InternalError { % <str> FatalError - - (%stderr) (w) file dup dup - (Internal muZCat Error: ) writestring - 2 index writestring - dup (.\n) writestring - flushfile - pop - quit - }bind def - /Stderr (%stderr) (w) file def - #ifdef DEBUGMSG - #define DEBUG(msg) msg Stderr exch writestring Stderr flushfile - #else - #define DEBUG(msg) - #endif - #define DEBUGFORCE(msg) msg Stderr exch writestring Stderr flushfile - #define INT_EQ ASSERT_INT((eq2int)) exch ASSERT_INT((eq1int)) exch eq - #define INT_NE ASSERT_INT((ne2int)) exch ASSERT_INT((ne1int)) exch ne - #define INT_LE ASSERT_INT((le2int)) exch ASSERT_INT((le1int)) exch le - #define INT_GT ASSERT_INT((gt2int)) exch ASSERT_INT((gt1int)) exch gt - #define INT_LT ASSERT_INT((lt2int)) exch ASSERT_INT((lt1int)) exch lt - #define BOOL_BIN(op,message) ASSERT_BOOL(message) exch ASSERT_BOOL(message) exch op - #define INT_BIN(op,message) ASSERT_INT(message) exch ASSERT_INT(message) exch op - #define ASSERT_STACK(list,message) TYPE_STACK(list) not{ DumpStack (assert stack: ) message concatstrings InternalError }if - #define TYPE_STACK(list) [ list ] TypeStack -#endif - -/* at Sat Sep 21 19:07:59 CEST 2002 */ -#if USE_DEBUG2 - #define DEBUG2(x) x -#else - #define DEBUG2(x) -#endif - -/* revised, A85D/read_eod at Sun Sep 22 00:27:13 CEST 2002 */ -/* Sample usage: - * { TE_read(===) % action to do with normal char - * #if !USE_NO_EOF - * { TE_read_pop exit } ifelse % action to do on EOF - * #endif - * } loop - */ -#if USE_A85D - #define TE_read_eod a85_getc ASSERT_TRUE(dup 511 eq,(EOD expected)) pop - #define TE_init /xS 32 def /xD 0 def /xC 0 def - #if USE_NO_EOF - #define TE_read(true_action) a85_getc true_action - #define PSM_A85_GETC \ - {27 xS ge{exit}if STDIN read pop \ - dup 122 eq{/xS 27 def/xD 0 def/xC 0 def}{dup 117 gt{ \ - STDIN read{pop}if/xS 54 xS sub def}{dup 33 ge{xS 32 eq{dup/xC exch def/xD -1670420001 def}{dup 117 sub{1 85 \ - 7225 614125}xS 28 sub get mul xD add/xD exch def}ifelse/xS xS 1 sub def}if}ifelse}ifelse pop}loop xS 22 eq{511}{xC \ - 1868977 mul xD add xS 24 and neg bitshift 23 xS lt{xC 3 mul add}if 255 and/xS xS 3 eq{32}{xS 7 mod 3 \ - eq{22}{xS 8 sub}ifelse}ifelse def}ifelse - /** TE_readstring(str) <substr> */ - #define TE_readstring(str) dup length 1 sub 0 exch 1 exch{a85_getc 3 copy put pop pop}for - #else - #define TE_read(true_action) a85_getc dup 256 INT_LT { true_action } - #define TE_read_pop pop - /* #define TE_read_eod TE_read() { ASSERT_TRUE(false,(EOD expected)) } ifelse */ - #define PSM_A85_GETC \ - {27 xS ge{exit}if STDIN read not{511}if \ - dup 122 eq{/xS 27 def/xD 0 def/xC 0 def}{dup 117 gt{ \ - STDIN read{pop}if/xS 54 xS sub def}{dup 33 ge{xS 32 eq{dup/xC exch def/xD -1670420001 def}{dup 117 sub{1 85 \ - 7225 614125}xS 28 sub get mul xD add/xD exch def}ifelse/xS xS 1 sub def}if}ifelse}ifelse pop}loop xS 22 eq{511}{xC \ - 1868977 mul xD add xS 24 and neg bitshift 23 xS lt{xC 3 mul add}if 255 and/xS xS 3 eq{32}{xS 7 mod 3 \ - eq{22}{xS 8 sub}ifelse}ifelse def}ifelse - #endif -#endif -#if USE_HEXD - #define TE_init - #if USE_NO_EOF - #define TE_read(true_action) STDIN C readhexstring pop 0 get true_action - #define TE_read_eod STDIN read pop pop /* read '>' */ - #define TE_readstring(str) STDIN str readhexstring pop - #else - #error PostScript op readhexstring cannot detect EOD! - #define TE_read(true_action) STDIN C readhexstring { 0 get true_action } - #define TE_read_pop - #define TE_read_eod - #endif -#endif -#if USE_BINARY - #define TE_init - #define TE_read_eod - #if USE_NO_EOF - #define TE_read(true_action) STDIN read pop true_action - #define TE_readstring(str) STDIN str readstring pop - #else - #define TE_read(true_action) STDIN read { true_action } - #define TE_read_pop - #endif -#endif |