PSI sics-cvs-psi_pre-ansto

serial.c

@@ -0,0 +1,25 @@
+
+/*--------------------------------------------------------------------------
+                         S I C S  S E R I A L
+
+  This object adds the serial command to the Tcl-interpreter within SICS.
+  Furthermore the commands sr1-sr6 are added as predefined names for 
+  possible connections. 
+
+  Mark Koennecke, January 1998
+----------------------------------------------------------------------------*/
+#include <tcl.h>
+#include "sics.h"
+
+   extern int Controller(ClientData pData, Tcl_Interp *pInter,
+                         int argc, char *argv[]);
+                         
+   int SerialInit(SConnection *pCon,SicsInterp *pSics, void *pData,
+                  int argc, char *argv[])
+   {
+       int iRet;
+
+       assert(pSics);
+       Tcl_CreateCommand(pSics->pTcl,"serialport",Controller,NULL,NULL);              
+       return 1;         
+   }