linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Adapted indenation to new agreed upon system

Browse Source 
- Added support for second generation scriptcontext based counter
This commit is contained in:
koennecke
2009-02-13 09:00:03 +00:00
parent a3dcad2bfa
commit 91d4af0541
405 changed files with 88101 additions and 88173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

324
alias.c
View File

@ -45,72 +45,69 @@
/*
Usage: SicsAlias object newname
*/
*/
int SicsAlias(SConnection *pCon, SicsInterp *pSics, void *pData,
int argc, char *argv[])
{
CommandList *pCom = NULL;
char pBueffel[256];
int iRet;
if(!SCMatchRights(pCon,usMugger))
{
SCWrite(pCon,"ERROR: aliasing only allowed to Managers",
eError);
return 0;
}
if(argc < 3)
{
SCWrite(pCon,"ERROR: insufficient number of arguments to SicsAlias",
eError);
return 0;
}
int SicsAlias(SConnection * pCon, SicsInterp * pSics, void *pData,
int argc, char *argv[])
{
CommandList *pCom = NULL;
char pBueffel[256];
int iRet;
if (!SCMatchRights(pCon, usMugger)) {
SCWrite(pCon, "ERROR: aliasing only allowed to Managers", eError);
return 0;
}
if (argc < 3) {
SCWrite(pCon, "ERROR: insufficient number of arguments to SicsAlias",
eError);
return 0;
}
argtolower(argc, argv);
/* first parameter should be an registered SICS object */
pCom = FindCommand(pSics, argv[1]);
if (!pCom) {
sprintf(pBueffel, "ERROR: cannot find %s, no alias created", argv[1]);
SCWrite(pCon, pBueffel, eError);
return 0;
}
/* alright: create the alias */
iRet = AddCommand(pSics, argv[2], pCom->OFunc, NULL, pCom->pData);
if (!iRet) {
sprintf(pBueffel, "ERROR: duplicate command %s not created", argv[2]);
SCWrite(pCon, pBueffel, eError);
return 0;
}
return 1;
}
argtolower(argc,argv);
/* first parameter should be an registered SICS object */
pCom = FindCommand(pSics,argv[1]);
if(!pCom)
{
sprintf(pBueffel,"ERROR: cannot find %s, no alias created",argv[1]);
SCWrite(pCon,pBueffel,eError);
return 0;
}
/* alright: create the alias */
iRet = AddCommand(pSics,argv[2],pCom->OFunc,NULL,pCom->pData);
if(!iRet)
{
sprintf(pBueffel,"ERROR: duplicate command %s not created",argv[2]);
SCWrite(pCon,pBueffel,eError);
return 0;
}
return 1;
}
/*--------------------------------------------------------------------
Make Alias: a command which installs a general alias into SICS.
*/
typedef struct {
pObjectDescriptor pDes;
char *pCommand;
}Alias, *pAlias;
typedef struct {
pObjectDescriptor pDes;
char *pCommand;
} Alias, *pAlias;
/*----------------------------------------------------------------------*/
static void FreeAlias(void *pData)
{
pAlias self = (pAlias)pData;
if(!self)
return;
static void FreeAlias(void *pData)
{
pAlias self = (pAlias) pData;
if (!self)
return;
if(self->pDes)
DeleteDescriptor(self->pDes);
if (self->pDes)
DeleteDescriptor(self->pDes);
if(self->pCommand)
free(self->pCommand);
if (self->pCommand)
free(self->pCommand);
free(self);
}
free(self);
}
/*----------------------------------------------------------------------
In order to make alias most general alias tries to find the interfaces
defined by the object corresponding to the first word in the command.
@ -118,116 +115,113 @@
will be called refers to the alias and not the proper thing: core dump!
Therefore disabled!
*/
static void *AliasInterface(void *pData, int iID)
{
CommandList *pCom = NULL;
pDummy pDum = NULL;
char *pPtr = NULL;
pAlias self = (pAlias)pData;
static void *AliasInterface(void *pData, int iID)
{
CommandList *pCom = NULL;
pDummy pDum = NULL;
char *pPtr = NULL;
pAlias self = (pAlias) pData;
assert(self);
pPtr = strtok(self->pCommand," \t\n");
pCom = FindCommand(pServ->pSics,pPtr);
if(!pCom)
return NULL;
assert(self);
pPtr = strtok(self->pCommand, " \t\n");
pCom = FindCommand(pServ->pSics, pPtr);
if (!pCom)
return NULL;
pDum = (pDummy)pCom->pData;
if(!pDum)
return NULL;
pDum = (pDummy) pCom->pData;
if (!pDum)
return NULL;
return pDum->pDescriptor->GetInterface(pDum,iID);
}
/*-----------------------------------------------------------------------*/
static int AliasAction(SConnection *pCon, SicsInterp *pSics,
void *pData, int argc, char *argv[])
{
pAlias self = NULL;
int status;
char pLine[512];
char *pPtr;
Tcl_DString command;
self = (pAlias)pData;
assert(self);
/*
build command by appending the alias command and any possible
arguments given.
*/
Tcl_DStringInit(&command);
Tcl_DStringAppend(&command, self->pCommand,-1);
Tcl_DStringAppend(&command," ",-1);
Arg2Text(argc-1,&argv[1],pLine,511);
Tcl_DStringAppend(&command,pLine,-1);
/* execute the command on the current connection */
status = SCInvoke(pCon,pSics,Tcl_DStringValue(&command));
/* finish */
Tcl_DStringFree(&command);
return status;
}
/*-----------------------------------------------------------------------*/
int MakeAlias(SConnection *pCon, SicsInterp *pSics, void *pData,
int argc, char *argv[])
{
char pBueffel[512];
int iRet;
pAlias pNew = NULL;
if(argc < 3)
{
SCWrite(pCon,"ERROR: insufficient number of arguments to alias",
eError);
return 0;
}
Arg2Text(argc-2,&argv[2],pBueffel,511);
/* create data structure */
pNew = (pAlias)malloc(sizeof(Alias));
if(!pNew)
{
SCWrite(pCon,"ERROR: out of memory while creating alias",eError);
return 0;
}
pNew->pDes = CreateDescriptor("Alias");
pNew->pCommand = strdup(pBueffel);
if( !pNew->pDes || !pNew->pCommand)
{
SCWrite(pCon,"ERROR: out of memory while creating alias",eError);
return 0;
}
iRet = AddCommand(pSics,
argv[1],
AliasAction,
FreeAlias,
pNew);
if(!iRet)
{
FreeAlias(pNew);
SCWrite(pCon,"ERROR: duplicate object name NOT created",eError);
return 0;
}
return 1;
}
/*-------------------------------------------------------------------------------*/
int LocateAliasAction(SConnection *pCon, SicsInterp *pSics,
void *pData, int argc, char *argv[]){
char *aliases = NULL;
if(argc < 2){
SCWrite(pCon,"ERROR: missing argument aliasname for locating aliases",eError);
return 0;
}
strtolower(argv[1]);
aliases = FindAliases(pSics,argv[1]);
if(aliases == NULL){
SCWrite(pCon,"NONE", eValue);
} else {
SCPrintf(pCon,eValue,"%s = %s",argv[1], aliases);
}
return 1;
return pDum->pDescriptor->GetInterface(pDum, iID);
}
/*-----------------------------------------------------------------------*/
static int AliasAction(SConnection * pCon, SicsInterp * pSics,
void *pData, int argc, char *argv[])
{
pAlias self = NULL;
int status;
char pLine[512];
char *pPtr;
Tcl_DString command;
self = (pAlias) pData;
assert(self);
/*
build command by appending the alias command and any possible
arguments given.
*/
Tcl_DStringInit(&command);
Tcl_DStringAppend(&command, self->pCommand, -1);
Tcl_DStringAppend(&command, " ", -1);
Arg2Text(argc - 1, &argv[1], pLine, 511);
Tcl_DStringAppend(&command, pLine, -1);
/* execute the command on the current connection */
status = SCInvoke(pCon, pSics, Tcl_DStringValue(&command));
/* finish */
Tcl_DStringFree(&command);
return status;
}
/*-----------------------------------------------------------------------*/
int MakeAlias(SConnection * pCon, SicsInterp * pSics, void *pData,
int argc, char *argv[])
{
char pBueffel[512];
int iRet;
pAlias pNew = NULL;
if (argc < 3) {
SCWrite(pCon, "ERROR: insufficient number of arguments to alias",
eError);
return 0;
}
Arg2Text(argc - 2, &argv[2], pBueffel, 511);
/* create data structure */
pNew = (pAlias) malloc(sizeof(Alias));
if (!pNew) {
SCWrite(pCon, "ERROR: out of memory while creating alias", eError);
return 0;
}
pNew->pDes = CreateDescriptor("Alias");
pNew->pCommand = strdup(pBueffel);
if (!pNew->pDes || !pNew->pCommand) {
SCWrite(pCon, "ERROR: out of memory while creating alias", eError);
return 0;
}
iRet = AddCommand(pSics, argv[1], AliasAction, FreeAlias, pNew);
if (!iRet) {
FreeAlias(pNew);
SCWrite(pCon, "ERROR: duplicate object name NOT created", eError);
return 0;
}
return 1;
}
/*-------------------------------------------------------------------------------*/
int LocateAliasAction(SConnection * pCon, SicsInterp * pSics,
void *pData, int argc, char *argv[])
{
char *aliases = NULL;
if (argc < 2) {
SCWrite(pCon, "ERROR: missing argument aliasname for locating aliases",
eError);
return 0;
}
strtolower(argv[1]);
aliases = FindAliases(pSics, argv[1]);
if (aliases == NULL) {
SCWrite(pCon, "NONE", eValue);
} else {
SCPrintf(pCon, eValue, "%s = %s", argv[1], aliases);
}
return 1;
}