Changeset 47 for trunk/zoo-kernel/service_internal_perl.c

Timestamp:

Dec 2, 2010, 10:21:26 AM (14 years ago)

Author:

david

Message:

-delete debug information

File:

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

trunk/zoo-kernel/service_internal_perl.c

@@ -28 +28 @@
 static PerlInterpreter *my_perl;
 
-EXTERN_C 
 
 void xs_init(pTHX)
@@ -45 +44 @@
         map * tmp_m = m;
         do {
-                printf("map name %s  value %s \n",m->name,m->value);
+                //printf("map name %s  value %s \n",m->name,m->value);
 
                 if ( NULL == hv_store( tmp, tmp_m->name, strlen(tmp_m->name), sv_2mortal(newSVpv(tmp_m->value, strlen(tmp_m->value))), 0) ) {
@@ -59 +58 @@
         HV * tmp = *hash_maps;
         if (m != NULL) {
-                printf("maps name %s \n",m->name);
+                //printf("maps name %s \n",m->name);
                 HV* hash_m = (HV *)sv_2mortal((SV *)newHV());
                 if (map_to_hash(m->content,&hash_m) != 0){
@@ -83 +82 @@
         HE * he = hv_iternext(hh);
         while (he != NULL){
-                printf("key : %s  value : %s \n",HeKEY(he),(char *)SvRV(HeVAL(he)));
+                //fprintf(stderr,"key : %s  value : %s \n",HeKEY(he),(char *)SvRV(HeVAL(he)));
                 tmp->name = HeKEY(he);
                 tmp->value = (char *)SvRV(HeVAL(he));
@@ -111 +110 @@
         map *mm;
         while (he != NULL) {
-                printf("key ===> %s \n",HeKEY(he));
+                //fprintf(stderr,"key ===> %s \n",HeKEY(he));
                 tmp->name = HeKEY(he);
                 hash_to_map((HV *) SvRV(HeVAL(he)),&mm);
@@ -162 +161 @@
         res = POPi;
         hash_to_maps(h_real_outputs,real_outputs);
+        //dumpMaps(*real_outputs);
         PUTBACK;
         FREETMPS;
         LEAVE;
-        return res;
-}
-
-        
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+        return SERVICE_SUCCEEDED;
+}
+
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+