home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / INCLUDE / COMM.CH < prev    next >
Text File  |  1994-05-19  |  1KB  |  51 lines
  1. // Comm support has been developed by FiveWin users:
  2. //   Pepe Valerdi Tormo.
  3. //   Javier García Pérez.
  4. //
  5. // Thanks very much
  6.  
  7. #ifndef _COMM_CH
  8. #define _COMM_CH
  9.  
  10. #xcommand DEFINE COMM <oComm> ;
  11.              [ STOP <nStop> ] ;
  12.              [ BAUD <nBaud> ] ;
  13.              [ PARITY <cParity> ] ;
  14.              [ INSIZE <nInQueue> ] ;
  15.              [ OUTSIZE <nOutQueue> ] ;
  16.              [ DEVICE <nDevice> ] ;
  17.              [ DATA <nData> ] ;
  18.        => ;
  19.       [ <oComm> := ] TComm():New( <nDevice>, <nInQueue>, <nOutQueue>,, <nBaud>, ;
  20.                             <cParity>, <nStop>, <nData> )
  21.  
  22. #xcommand DEFINE LPT <oComm> ;
  23.              [ STOP <nStop> ] ;
  24.              [ BAUD <nBaud> ] ;
  25.              [ PARITY <cParity> ] ;
  26.              [ INSIZE <nInQueue> ] ;
  27.              [ OUTSIZE <nOutQueue> ] ;
  28.              [ DEVICE <nDevice> ] ;
  29.              [ DATA <nData> ] ;
  30.        => ;
  31.       [ <oComm> := ] TComm():New( <nDevice>, <nInQueue>, <nOutQueue>, "LPT", <nBaud>, ;
  32.                             <cParity>, <nStop>, <nData> )
  33.      
  34. #xcommand WRITE COMM <oComm> STRING <cString> => ;
  35.         <oComm>:Write( <cString> )
  36.  
  37. #xcommand CLOSE COMM <oComm> => <oComm>:Close()
  38.  
  39. #xcommand SETUP COMM <oComm> => <oComm>:SetUp()
  40.  
  41. #xcommand BREAK COMM <oComm> => <oComm>:Break()
  42.  
  43. #xcommand UNBREAK COMM <oComm> => <oComm>:UnBreak()
  44.  
  45. #xcommand FLUSH COMM <oComm> NUMBER <nNumber> => ;
  46.         <oComm>:Flush( <nNumber> )
  47.  
  48. #xcommand ESCAPE COMM <oComm> NUMBER <nCode> =>;
  49.         <oComm>:Escape( <nCode> )
  50. #endif
  51.