Changeset 25

Timestamp:

Sep 22, 2010, 11:39:37 AM (14 years ago)

Author:

david

Message:

ajout support perl (beta)

File:

• trunk/zoo-kernel/zoo_service_loader.c (modified) (10 diffs)

trunk/zoo-kernel/zoo_service_loader.c

@@ -57 +57 @@
 #include "service_internal_js.h"
 #endif
+
+#ifdef USE_PERL
+#include "service_internal_perl.h"
+#endif
+
 
 
@@ -173 +178 @@
     freeMaps(&m);
     free(m);
+    freeMap(&request_inputs);
+    free(request_inputs);
     return 1;
   }
@@ -183 +190 @@
       freeMaps(&m);
       free(m);
+      freeMap(&request_inputs);
+      free(request_inputs);
       free(REQUEST);
       return 1;
@@ -752 +761 @@
 #endif
         xmlNodePtr cur2=cur->children;
-        while(cur2!=NULL){
-          while(cur2!=NULL && cur2->type!=XML_ELEMENT_NODE)
+        while(cur2){
+          while(cur2->type!=XML_ELEMENT_NODE)
             cur2=cur2->next;
-          if(cur2==NULL)
-            break;
-          
           /**
            * Indentifier
@@ -1014 +1020 @@
 #endif
             xmlNodePtr cur4=cur2->children;
-            while(cur4!=NULL){
-              while(cur4!=NULL && cur4->type!=XML_ELEMENT_NODE)
+            while(cur4){
+              while(cur4->type!=XML_ELEMENT_NODE)
                 cur4=cur4->next;
-
-              if(cur4==NULL){
-                break;
-              }
 
               if(xmlStrcasecmp(cur4->name, BAD_CAST "LiteralData")==0){
@@ -1097 +1099 @@
         dumpMaps(request_input_real_format);
 #endif
-        freeMaps(&tmpmaps);
-        free(tmpmaps);
-        tmpmaps=NULL;
+        tmpmaps=tmpmaps->next;
+              
       }
+#ifdef DEBUG
+      dumpMaps(tmpmaps); 
+#endif
     }
 #ifdef DEBUG
@@ -1598 +1602 @@
           else
 #endif
-          
+
+
+#ifdef USE_PERL
+          if(strncasecmp(r_inputs->value,"PERL",4)==0){
+            eres=zoo_perl_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
+          }
+          else
+#endif
+
 #ifdef USE_JS
             if(strncasecmp(r_inputs->value,"JS",2)==0){
@@ -1811 +1823 @@
 #endif
               
+#ifdef USE_PERL
+          if(strncasecmp(r_inputs->value,"PERL",4)==0){
+            eres=zoo_perl_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
+          }
+          else
+#endif
 #ifdef USE_JS
               if(strncasecmp(r_inputs->value,"JS",2)==0){
@@ -1846 +1864 @@
                    cpid,m,eres);
 
+  //if(getpid()==cpid){
   freeService(&s1);
   free(s1);
   freeMaps(&m);
   free(m);
+  freeMaps(&tmpmaps);
+  free(tmpmaps);
   
   freeMaps(&request_input_real_format);
   free(request_input_real_format);
-
+  
+  //freeMap(&request_inputs);
+  //free(request_inputs);
+    
   /* The following is requested but get issue using with Python support :/ */
-  /*freeMaps(&request_output_real_format);
-  free(request_output_real_format);*/
+  /* freeMaps(&request_output_real_format);
+     free(request_output_real_format);
+  */
   
   free(REQUEST);
@@ -1865 +1890 @@
   fflush(stderr);
 #endif
+    //}
 
   return 0;