- add MskeSICSFunc

- changed return value of AddSICSHdbPar et al.

sicsobj.c

@@ -200,7 +200,7 @@ static int MakeScriptFunc(pSICSOBJ self, SConnection *pCon,
         SCWrite(pCon,"ERROR: root path error or out of memory",eError);
         return 0;
     }
-    node->value = MakeHdbFunc((voidFunc *)ScriptObjFunc);
+    node->value = MakeSICSFunc(ScriptObjFunc);
     SetHdbProperty(node,"script",argv[3]);
     SetHdbProperty(node,"priv",argv[4]);
     AppendHipadabaCallback(node,MakeSICSFuncCallback(self));