/*--------------------------------------------------------------------------
                         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 <sics.h>
#include <tcl.h>

int Controller(ClientData clientData, Tcl_Interp * interp,
               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;
}