- allow HIPFUNC functions to be saved and restored with its arguments

sicsobj.c

@@ -50,7 +50,8 @@ static void saveSICSNode(pHdb node, char *prefix, char separator, FILE * fd)
   hdbValue v;
   pDynString data = NULL;
   char *cmd;
-  char *str, *value;
+  char *str = NULL;
+  char *value;
 
   cmd = GetHdbProp(node, "creationCmd");
   if (cmd != NULL) {
@@ -58,6 +59,23 @@ static void saveSICSNode(pHdb node, char *prefix, char separator, FILE * fd)
   }
   if (GetHdbProperty(node, "__save", val, 20) == 1) {
     GetHipadabaPar(node, &v, NULL);
+    if (v.dataType == HIPFUNC) {
+      fprintf(fd, "%s", prefix);
+      child = node->child;
+      while (child != NULL) {
+        GetHipadabaPar(child, &v, NULL);
+        data = formatValue(v, child);
+        if (data != NULL) {
+          value = GetCharArray(data);
+          str = Arg2Tcl(1, &value, NULL, 0);
+          fprintf(fd, " %s", str);
+        }
+        DeleteDynString(data);
+        free(str);
+        child = child->next;
+      }
+      fprintf(fd, "\n");
+    } else {
       data = formatValue(v, node);
       if (data != NULL) {
         value = GetCharArray(data);
@@ -71,6 +89,7 @@ static void saveSICSNode(pHdb node, char *prefix, char separator, FILE * fd)
         DeleteDynString(data);
         free(str);
       }
+    }
     ReleaseHdbValue(&v);
   }
   child = node->child;