- Various little fixes to the TAS software
- Added a sync command for synchronizing a simulation server with the master server.
This commit is contained in:
27
macro.c
27
macro.c
@@ -648,6 +648,33 @@ extern Tcl_Interp *InterpGetTcl(SicsInterp *pSics);
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
/*----------------------------------------------------------------------*/
|
||||
int Broadcast(SConnection *pCon, SicsInterp *pInter, void *pData,
|
||||
int argc, char *argv[])
|
||||
{
|
||||
int iMacro;
|
||||
char pBueffel[256];
|
||||
|
||||
assert(pCon);
|
||||
assert(pInter);
|
||||
|
||||
if(argc < 2)
|
||||
{
|
||||
SCWrite(pCon,"Insufficient arguments to Broadcast",eError);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
/* now write, thereby tunneling macro flag in order to get proper
|
||||
write to client and not into interpreter
|
||||
*/
|
||||
Arg2Text(argc-1, &argv[1],pBueffel,255);
|
||||
iMacro = SCinMacro(pCon);
|
||||
SCsetMacro(pCon,0);
|
||||
ServerWriteGlobal(pBueffel,eWarning);
|
||||
SCsetMacro(pCon,iMacro);
|
||||
return 1;
|
||||
}
|
||||
/*---------------------------------------------------------------------------
|
||||
This implements a scheme to provide Tcl commands to Tcl. The Tcl commands
|
||||
(either procedures or objects) must be defined in a separate file. Than
|
||||
|
||||
Reference in New Issue
Block a user