Topspeed_JPI/TS-V3/GRAPHIX/HARDCOPY.LST

Listing:

    1  (******************************************************************************)
    2  (*                              HARDCOPY.MOD                                  *)
    3  (*                                                                            *)
    4  (*  Implements the structures used to initialise printers supported by        *)
    5  (*  MetaWINDOW.  The structures ar initialised using TopSpeed's facility for  *)
    6  (*  initialising aggregate constants.                                         *)
    7  (*                                                                            *)
    8  (*  PSW 06/28/91 08:30am                                                      *)
    9  (******************************************************************************)
   10  
   11  IMPLEMENTATION MODULE HardCopy;
   12  (*
   13   *  Graphix
   14   *  Release 3.7
   15   *  (c) Copyright 1986-1992 PMI
   16   *  Green Bay, Wisconsin
   17   *  (414) 468-6040
   18   *  All rights reserved
   19   *
   20   *)
   21  
   22  
   23    FROM GrConst IMPORT HCInfoRec, HC_ROT, HC_XL, HC_ASC;
   24  
   25    CONST
   26  
   27    (*** This is about as generic as is possible.  Base printer is an 8 pin   ***)
   28    (*** Epson model MX-80F/T. Mode is 60 dpi (h) by 72 dpi (v).              ***)
   29  
   30    _EPLOInfo = HCInfoRec (
*****                ^ not supported yet
   31      8,             (* pins *)
   32  
   33      7,             (* init codes *)
   34      init(ESC,040H,ESC,033H,018H,CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****      ^ undeclared identifier
*****           ^ undeclared identifier
*****                    ^ undeclared identifier
*****                                  ^ undeclared identifier
*****                                     ^ undeclared identifier
*****                                                                                         ^ not supported yet
   35  
   36      2,             (* quit, reset codes *)
   37      reset(ESC,040H,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****      ^ undeclared identifier
*****            ^ undeclared identifier
*****                                                ^ not supported yet
   38  
   39      2,             (* line header *)
   40      header(ESC,04BH,0,0,0,0,0,0),
*****      ^ undeclared identifier
*****             ^ undeclared identifier
*****                                 ^ not supported yet
   41  
   42      0,             (* postamble *)
   43      pstam(0,0,0,0,0,0,0,0),
*****      ^ undeclared identifier
*****                           ^ not supported yet
   44  
   45      2,             (* line trailer *)
   46      trailer(CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****      ^ undeclared identifier
*****              ^ undeclared identifier
*****                 ^ undeclared identifier
*****                                               ^ not supported yet
   47  
   48      HC_ROT,        (* Options *)
*****      ^ not supported yet
   49      0,             (* printer port *)
   50      hcSIG('H','C'),  (* signature *)
*****      ^ undeclared identifier
*****                   ^ not supported yet
   51  
   52      00FH,           (* max index in translate table *)
   53      xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH)
*****      ^ undeclared identifier
*****                                                                                           ^ not supported yet
   54      );  (* EPLOInfo *)
   55  
   56  
   57  
   58    (*** This is a 8 pin Epson Mode is 120 dpi (h) by 72 dpi (v).             ***)
   59  
   60    _EPHIInfo = HCInfoRec
*****                ^ not supported yet
   61          (
   62          8,             (* pins *)
   63  
   64          7,             (* init codes *)
   65          init(ESC,040H,ESC,033H,018H,CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****               ^ undeclared identifier
*****                        ^ undeclared identifier
*****                                      ^ undeclared identifier
*****                                         ^ undeclared identifier
*****                                                                                             ^ not supported yet
   66  
   67          2,             (* quit, reset codes *)
   68          reset(ESC,040H,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                ^ undeclared identifier
*****                                                    ^ not supported yet
   69  
   70          2,             (* line header *)
   71          header(ESC,04CH,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                 ^ undeclared identifier
*****                                     ^ not supported yet
   72  
   73          0,             (* postamble *)
   74          pstam(0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                               ^ not supported yet
   75  
   76          2,             (* line trailer *)
   77          trailer(CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                  ^ undeclared identifier
*****                     ^ undeclared identifier
*****                                                   ^ not supported yet
   78  
   79          0,             (* Options *)
   80          0,             (* printer port *)
   81          hcSIG('H','C'),  (* signature *)
*****          ^ undeclared identifier
*****                       ^ not supported yet
   82  
   83          00FH,           (* max index in translate table *)
   84          xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH)
*****          ^ undeclared identifier
*****                                                                                               ^ not supported yet
   85          );   (* EPHIInfo *)
   86  
   87  
   88  
   89    (*** Hp LaserJet configuration.  75 dpi (h) by 75 dpi (v), rotated.       ***)
   90  
   91    _HPLOInfo = HCInfoRec
*****                ^ not supported yet
   92          (
   93          1,             (* pins *)
   94  
   95          11,             (* init codes *)
   96          init(ESC,02AH,074H,037H,035H,052H,ESC,02AH,072H,030H,041H,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****               ^ undeclared identifier
*****                                            ^ undeclared identifier
*****                                                                                                             ^ not supported yet
   97  
   98          6,             (* quit, reset codes *)
   99          reset(ESC,02AH,052H,042H,CR,FF,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                ^ undeclared identifier
*****                                   ^ undeclared identifier
*****                                      ^ undeclared identifier
*****                                                            ^ not supported yet
  100  
  101          3,             (* line header *)
  102          header(ESC,02AH,062H,0,0,0,0,0),
*****          ^ undeclared identifier
*****                 ^ undeclared identifier
*****                                        ^ not supported yet
  103  
  104          1,             (* postamble *)
  105          pstam(057H,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                  ^ not supported yet
  106  
  107          0,             (* line trailer *)
  108          trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                                 ^ not supported yet
  109  
  110          HC_ASC+HC_ROT, (* Options. MUST send ASCII length for HP Laserjet *)
*****          ^ not supported yet
*****                 ^ not supported yet
  111          080H,             (* printer port *)
  112          hcSIG('H','C'),  (* signature *)
*****          ^ undeclared identifier
*****                       ^ not supported yet
  113  
  114          00FH,           (* max index in translate table *)
  115          xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH)
*****          ^ undeclared identifier
*****                                                                                               ^ not supported yet
  116          );  (* HPLOInfo *)
  117  
  118  
  119    (*** Hp LaserJet configuration.  150 dpi (h) by 150 dpi (v), rotated.     ***)
  120  
  121    _HPMEDInfo = HCInfoRec
*****                 ^ not supported yet
  122          (
  123          1,             (* pins *)
  124  
  125          12,             (* init codes *)
  126          init(ESC,02AH,074H,031H,035H,030H,052H,ESC,02AH,072H,030H,041H,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****               ^ undeclared identifier
*****                                                 ^ undeclared identifier
*****                                                                                                                ^ not supported yet
  127  
  128          6,             (* quit, reset codes *)
  129          reset(ESC,02AH,052H,042H,CR,FF,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                ^ undeclared identifier
*****                                   ^ undeclared identifier
*****                                      ^ undeclared identifier
*****                                                            ^ not supported yet
  130  
  131          3,             (* line header *)
  132          header(ESC,02AH,062H,0,0,0,0,0),
*****          ^ undeclared identifier
*****                 ^ undeclared identifier
*****                                        ^ not supported yet
  133  
  134          1,             (* postamble *)
  135          pstam(057H,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                  ^ not supported yet
  136  
  137          0,             (* line trailer *)
  138          trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                                 ^ not supported yet
  139  
  140          HC_ASC,        (* Options. MUST send ASCII length for HP Laserjet *)
*****          ^ not supported yet
  141          080H,           (* printer port *)
  142          hcSIG('H','C'),  (* signature *)
*****          ^ undeclared identifier
*****                       ^ not supported yet
  143  
  144          00FH,           (* max index in translate table *)
  145          xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH)
*****          ^ undeclared identifier
*****                                                                                               ^ not supported yet
  146          );  (* HPMEDInfo *)
  147  
  148  
  149    (*** Hp LaserJet configuration.  300 dpi (h) by 300 dpi (v), rotated.     ***)
  150  
  151    _HPHIInfo = HCInfoRec
*****                ^ not supported yet
  152          (
  153          1,             (* pins *)
  154  
  155          12,             (* init codes *)
  156          init(ESC,02AH,074H,033H,030H,030H,052H,ESC,02AH,072H,030H,041H,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****               ^ undeclared identifier
*****                                                 ^ undeclared identifier
*****                                                                                                                ^ not supported yet
  157  
  158          6,             (* quit, reset codes *)
  159          reset(ESC,02AH,052H,042H,CR,FF,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                ^ undeclared identifier
*****                                   ^ undeclared identifier
*****                                      ^ undeclared identifier
*****                                                            ^ not supported yet
  160  
  161          3,             (* line header *)
  162          header(ESC,02AH,062H,0,0,0,0,0),
*****          ^ undeclared identifier
*****                 ^ undeclared identifier
*****                                        ^ not supported yet
  163  
  164          1,             (* postamble *)
  165          pstam(057H,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                  ^ not supported yet
  166  
  167          0,             (* line trailer *)
  168          trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                                 ^ not supported yet
  169  
  170          HC_ASC,        (* Options. MUST send ASCII length for HP Laserjet *)
*****          ^ not supported yet
  171          080H,           (* printer port *)
  172          hcSIG('H','C'),  (* signature *)
*****          ^ undeclared identifier
*****                       ^ not supported yet
  173  
  174          00FH,           (* max index in translate table *)
  175          xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH)
*****          ^ undeclared identifier
*****                                                                                               ^ not supported yet
  176          );  (* HPHIInfo *)
  177  
  178  
  179    (*** Hard Copy Info Structure with an invalid signature to disable        ***)
  180    (*** HardCopy (and PrintScreen).                                          ***)
  181  
  182    _NULInfo = HCInfoRec
*****               ^ not supported yet
  183          (
  184          0,             (* pins *)
  185  
  186          0,             (* init codes *)
  187          init(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                                                              ^ not supported yet
  188  
  189          0,             (* quit, reset codes *)
  190          reset(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                               ^ not supported yet
  191  
  192          0,             (* line header *)
  193          header(0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                ^ not supported yet
  194  
  195          0,             (* postamble *)
  196          pstam(0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                               ^ not supported yet
  197  
  198          0,             (* line trailer *)
  199          trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
*****          ^ undeclared identifier
*****                                                 ^ not supported yet
  200  
  201          0,             (* Options *)
  202          0,             (* printer port *)
  203          hcSIG(0,0),  (* signature *)
*****          ^ undeclared identifier
*****                   ^ not supported yet
  204  
  205          0,             (* max index in translate table *)
  206          xlaTable(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
*****          ^ undeclared identifier
*****                                                  ^ not supported yet
  207          );  (* NULInfo *)
  208  
  209  
  210  BEGIN
  211      EPLOInfo  := _EPLOInfo;
*****      ^ undeclared identifier
  212      EPHIInfo  := _EPHIInfo;
*****      ^ undeclared identifier
  213      HPLOInfo  := _HPLOInfo;
*****      ^ undeclared identifier
  214      HPMEDInfo := _HPMEDInfo;
*****      ^ undeclared identifier
  215      HPHIInfo  := _HPHIInfo;
*****      ^ undeclared identifier
  216      NULInfo   := _NULInfo;
*****      ^ undeclared identifier
  217  END HardCopy.
*****      ^ not supported yet

  136 errors