26 lines
879 B
C
26 lines
879 B
C
|
|
/*--------------------------------------------------------------------------
|
|
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 clientData, Tcl_Interp *interp,
|
|
int argc, CONST 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;
|
|
}
|