Mac/Demo/interslip/InterslipLib.c

   1 /*
   2 ** InterslipLib - Routines to talk to InterSLIP. Version 1.1, 31-Oct-1995.
   3 **
   4 **
   5 ** (c) Jack Jansen, CWI, 1995 <jack@cwi.nl>
   6 */
   7
   8 #include <Devices.h>
   9
  10 #include "InterslipLib.h"
  11
  12 static CntrlParam iopb;
  13 static short refnum = -1;
  14
  15 OSErr is_open()
  16 {
  17         if ( refnum >= 0 ) return 0;
  18         return OpenDriver("\p.InterSLIP", &refnum);
  19 }
  20
  21 OSErr is_connect()
  22 {
  23         iopb.ioCRefNum = refnum;
  24         iopb.ioVRefNum = refnum;
  25         iopb.ioCompletion = (UniversalProcPtr) 0;
  26         iopb.csCode = 2;
  27         return PBControlImmed((ParmBlkPtr)&iopb);
  28 }
  29
  30 OSErr is_disconnect()
  31 {
  32         iopb.ioCRefNum = refnum;
  33         iopb.ioVRefNum = refnum;
  34         iopb.ioCompletion = (UniversalProcPtr) 0;
  35         iopb.csCode = 3;
  36         return PBControlImmed((ParmBlkPtr)&iopb);
  37 }
  38
  39 OSErr is_status(long *status, long *msgseqnum, StringPtr *msg)
  40 {
  41         long *csp;
  42         OSErr err;
  43
  44         iopb.ioCRefNum = refnum;
  45         iopb.ioVRefNum = refnum;
  46         iopb.ioCompletion = (UniversalProcPtr) 0;
  47         iopb.csCode = 4;
  48         if( err = PBControlImmed((ParmBlkPtr)&iopb) )
  49                 return err;
  50         csp = (long *)&iopb.csParam;
  51         *status = csp[0];
  52         *msgseqnum = csp[1];
  53         *msg = (unsigned char *)csp[2];
  54         return 0;
  55 }
  56
  57 OSErr is_getconfig(long *baudrate, long *flags,
  58                 Str255 idrvnam, Str255 odrvnam, Str255 cfgnam)
  59 {
  60         long *csp;
  61         OSErr err;
  62
  63         iopb.ioCRefNum = refnum;
  64         iopb.ioVRefNum = refnum;
  65         iopb.ioCompletion = (UniversalProcPtr) 0;
  66         iopb.csCode = 6;
  67         csp = (long *)&iopb.csParam;
  68         csp[2] = (long)idrvnam;
  69         csp[3] = (long)odrvnam;
  70         csp[4] = (long)cfgnam;
  71         if( err = PBControlImmed((ParmBlkPtr)&iopb) )
  72                 return err;
  73         *baudrate = csp[0];
  74         *flags = csp[1];
  75         return 0;
  76 }
  77
  78 OSErr is_setconfig(long baudrate, long flags,
  79                 Str255 idrvnam, Str255 odrvnam, Str255 cfgnam)
  80 {
  81         long *csp;
  82         OSErr err;
  83
  84         iopb.ioCRefNum = refnum;
  85         iopb.ioVRefNum = refnum;
  86         iopb.ioCompletion = (UniversalProcPtr) 0;
  87         iopb.csCode = 7;
  88         csp = (long *)&iopb.csParam;
  89         csp[0] = baudrate;
  90         csp[1] = flags;
  91         csp[2] = (long)idrvnam;
  92         csp[3] = (long)odrvnam;
  93         csp[4] = (long)cfgnam;
  94         return PBControlImmed((ParmBlkPtr)&iopb);
  95 }
  96
  97