Changeset 790 for trunk/zoo-project/zoo-kernel/service_internal_perl.c

Timestamp:

Dec 19, 2016, 6:01:06 PM (7 years ago)

Author:

djay

Message:

Add support for nested inputs and outputs.

File:

• trunk/zoo-project/zoo-kernel/service_internal_perl.c (modified) (2 diffs)

trunk/zoo-project/zoo-kernel/service_internal_perl.c

@@ -105 +105 @@
 int hash_to_maps(HV * hh,maps** m){
         hv_iterinit(hh);
-        *m = (maps *)malloc(MAPS_SIZE);
         maps * tmp = *m;
         HE * he = hv_iternext(hh);
@@ -111 +110 @@
         while (he != NULL) {
                 //fprintf(stderr,"key ===> %s \n",HeKEY(he));
-                tmp->name = HeKEY(he);
+                tmp=createMaps(HeKEY(he));
                 hash_to_map((HV *) SvRV(HeVAL(he)),&mm);
                 tmp->content = mm;
+                if(*m==NULL)
+                  *m=tmp;
                 he = hv_iternext(hh);
                 if (he != NULL){
-                        tmp->next = (maps *)malloc(MAPS_SIZE);
                         tmp= tmp->next;
                 }