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

- added new scriptcontext with devser

Browse Source
This commit is contained in:
zolliker
2008-05-14 14:23:16 +00:00
parent bbb0b971a9
commit 3967dc8844
28 changed files with 1307 additions and 1363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
sicsobj.c
View File

@@ -106,7 +106,7 @@ static int invokeOBJFunction(pSICSOBJ object, pHdb commandNode, SConnection *pCo
count++;
}
pFunc = (SICSOBJFunc)commandNode->value.v.obj;
pFunc = (SICSOBJFunc)commandNode->value.v.func;
if(pFunc == NULL){
SCWrite(pCon,"ERROR: internal error, function not found",eError);
return 0;
@@ -200,12 +200,12 @@ static int MakeScriptFunc(pSICSOBJ self, SConnection *pCon,
SCWrite(pCon,"ERROR: root path error or out of memory",eError);
return 0;
}
node->value.v.obj = ScriptObjFunc;
node->value = MakeHdbFunc((voidFunc *)ScriptObjFunc);
SetHdbProperty(node,"script",argv[3]);
SetHdbProperty(node,"priv",argv[4]);
AppendHipadabaCallback(node,MakeSICSFuncCallback(self));
AddHipadabaChild(parent,node,pCon);
SCSendOK(pCon);
SCSendOK(pCon);
return 1;
}
/*---------------------------------------------------------------------------*/