Initial revision

This commit is contained in:
cvs
2000-02-07 10:38:55 +00:00
commit fdc6b051c9
846 changed files with 230218 additions and 0 deletions

49
macro.h Normal file
View File

@ -0,0 +1,49 @@
/*---------------------------------------------------------------------------
SICS is going to have a macro facility. I.E. it will be able to
evaluate command sequences specified in a file or from the command
line. John Ousterhouts Tcl will be used as the Macro language.
The SICS-objects will be accessed by redefining Tcl's "unknown"
mechanism. For documentation on Tcl and the programmers API to
Tcl see John Ousterhout's Book. No need to duplicate this here.
Mark Koennecke, November 1996
copyright: see implementation file.
---------------------------------------------------------------------------*/
#ifndef SICSMACRO
#define SICSMACRO
#include <tcl.h>
#include "SCinter.h"
Tcl_Interp *MacroInit(SicsInterp *pInter);
void MacroDelete(Tcl_Interp *pInter);
void WhereKill(void *pData);
int MacroEval(SConnection *pCon, SicsInterp *pSics, void *pData,
int argc, char *argv[]);
int MacroFileEval(SConnection *pCon, SicsInterp *pInter, void *pData,
int argc, char *argv[]);
int InternalFileEval(SConnection *pCon, SicsInterp *pInter, void *pData,
int argc, char *argv[]);
int MacroWhere(SConnection *pCon, SicsInterp *pInter, void *pData,
int argc, char *argv[]);
int ClientPut(SConnection *pCon, SicsInterp *pInter, void *pData,
int argc, char *argv[]);
int TransactAction(SConnection *pCon, SicsInterp *pSics, void *pData,
int argc, char *argv[]);
int TclPublish(SConnection *pCon, SicsInterp *pInter, void *pData,
int argc, char *argv[]);
/* for maintaining the Connection stack at Unknown. Should only be used
by SicsInterp module
*/
int MacroPush(SConnection *pCon);
int MacroPop(void);
#endif