home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / postscri / mac / viewps / viewps folder / gs_cmactex.ps next >
Encoding:
Text File  |  1995-01-20  |  1.4 KB  |  71 lines
  1. %!
  2.  
  3.  
  4. /strcat            %    string1 string2  ->  newString
  5. {
  6.     dup length 3 -1 roll dup length        % s2 l2 s1 l1
  7.     dup 4 -1 roll add string dup        % s2 s1 l1 ns ns
  8.     4 -1 roll 0 exch putinterval        % s2 l1 ns
  9.     dup 4 1 roll exch 3 -1 roll            % ns ns l1 s2
  10.     putinterval                            % ns
  11. } def
  12.  
  13.  
  14. /.macshowpage where
  15.     {
  16.         pop
  17.     }
  18.     {
  19.         /.macshowpage /showpage load def        %    original definition
  20.  
  21.         /.domacshowpage    true def                %    use original or spoof
  22.  
  23.         /showpage                                %    Mac showpage
  24.         {
  25.             .domacshowpage
  26.             {
  27.                 .macshowpage    %    use original showpage (non-Mac device driver)
  28.             }
  29.             {
  30.                 #copies true .outputpage
  31.                 (>>> showpage, select Next Page from the File menu to continue <<<\n)
  32.                 print flush
  33.                 .macconfirm erasepage not {stop} if
  34.             } ifelse
  35.         } def
  36.  
  37.     } ifelse
  38.  
  39.  
  40. /.macrunfile
  41. {
  42.     .macopenfile
  43.     {
  44.         userdict /.macRunFile 3 -1 roll put
  45.  
  46.         count array astore userdict /.macOperStack 3 -1 roll store        %    save operands
  47.         userdict /.macDictStack countdictstack array dictstack store    %    save dicts
  48.  
  49.         erasepage gsave userdict /.macRunFile get cvx execute grestore initgraphics
  50.  
  51.         clear userdict /.macOperStack get aload pop        %    restore operand stack
  52.  
  53.         countdictstack 3 sub 0 1 3 -1 roll                %    close non-standard dicts
  54.         {
  55.             pop end
  56.         } for
  57.  
  58.         2 1 userdict /.macDictStack get length 1 sub    %    re-open non-standard dicts
  59.         {
  60.             userdict /.macDictStack get get begin
  61.         } for
  62.     } if
  63. } def
  64.  
  65. /.macsetdevice
  66. {
  67.     getdevice
  68.     dup devicename (...Using device ╥) print print (╙...\n) print flush
  69.     setdevice
  70. } def
  71.