Changeset 34 for trunk

Timestamp:

Oct 1, 2010, 1:41:53 AM (14 years ago)

Author:

djay

Message:

Make ZOO Kernel able to speak the natural language you teach him by using gettext tools for creating translation files. Add basic french translation .po files as current messages.po. Gettext Domains used are zoo-kernel and zoo-services.

Location:

trunk

Files:

• zoo-kernel/locale (added)
• zoo-kernel/locale/po (added)
• zoo-kernel/locale/po/en_US.utf8.po (added)
• zoo-kernel/locale/po/fr_FR.utf8.po (added)
• zoo-kernel/locale/po/messages.po (added)
• zoo-kernel/main_conf_read.l (modified) (2 diffs)
• zoo-kernel/service_internal.c (modified) (19 diffs)
• zoo-kernel/service_internal.h (modified) (1 diff)
• zoo-kernel/service_internal_js.c (modified) (1 diff)
• zoo-kernel/zoo_service_loader.c (modified) (43 diffs)
• zoo-services/ogr/base-vect-ops/locale (added)
• zoo-services/ogr/base-vect-ops/locale/.cache (added)
• zoo-services/ogr/base-vect-ops/locale/po (added)
• zoo-services/ogr/base-vect-ops/locale/po/fr_FR.utf8.po (added)
• zoo-services/ogr/base-vect-ops/locale/po/messages.po (added)
• zoo-services/ogr/base-vect-ops/service.c (modified) (3 diffs)
• zoo-services/utils/status/locale (added)
• zoo-services/utils/status/locale/.cache (added)
• zoo-services/utils/status/locale/po (added)
• zoo-services/utils/status/locale/po/fr_FR.utf8.po (added)
• zoo-services/utils/status/locale/po/messages.po (added)
• zoo-services/utils/status/service.c (modified) (4 diffs)

trunk/zoo-kernel/main_conf_read.l

@@ -65 +65 @@
 <PAIRSTART,INITIAL,HORSBALISE,DANSBALISE>{newline}+{whitesp}*                   {if (affichetrace==1) printf ("\n\nNEWLINE 2\n") ; BEGIN(INITIAL); return NEWLINE;}
 
-<INITIAL>"<?"[Xx][Mm][Ll]  { if (attentionImpossibleDeTrouverXMLDeclapres == 1 || attentionImpossibleDeTrouverPIapres == 1) { printf("\nerror : a la ligne %d : il y a eut un commentaire ou un PI avant la declaration xml\n",yylineno); exit (10) ; } ; if (affichetrace==1) printf ("\n\nSTARTXMLDECL:%s\n",yytext) ;return STARTXMLDECL;}
+<INITIAL>"<?"[Xx][Mm][Ll]  { if (attentionImpossibleDeTrouverXMLDeclapres == 1 || attentionImpossibleDeTrouverPIapres == 1) { printf("\nerror : LINE %d : comment ot PI before xml declaration\n",yylineno); exit (10) ; } ; if (affichetrace==1) printf ("\n\nSTARTXMLDECL:%s\n",yytext) ;return STARTXMLDECL;}
 
 <INITIAL>"version"{egalevolue}\"1.0\"|"version"{egalevolue}\'1.0\'  {if (affichetrace==1) printf ("\n\nVERSIONDECL:%s\n",yytext) ;return VERSIONDECL;}
-<INITIAL>"version"{egalevolue}\"[^"]*\"|"version"{egalevolue}\'[^']*\'  {/* erreur de version encoding */       printf("\nerror : a la ligne %d : la version xml n est pas reconnue : %s\n",yylineno,yytext); exit (9) ; }
+<INITIAL>"version"{egalevolue}\"[^"]*\"|"version"{egalevolue}\'[^']*\'  {/* erreur de version encoding */       printf("\nerror : LINE %d : XML Version not supported : %s\n",yylineno,yytext); exit (9) ; }
 
 
 <INITIAL>"encoding"{egalevolue}\"[Ii][Ss][Oo]"-8859-1"\"|"encoding"{egalevolue}\'[Ii][Ss][Oo]"-8859-1"\'  {if (affichetrace==1) printf ("\n\nENCODINGDECL:%s\n",yytext) ; return ENCODINGDECL;}
-<INITIAL>"encoding"{egalevolue}\"[^"]*\"|"encoding"{egalevolue}\'[^']*\'  {/* erreur de version encoding */     printf("\nerror : a la ligne %d : la version d encodage n est pas reconnue : %s\n",yylineno,yytext); exit (8) ; }
+<INITIAL>"encoding"{egalevolue}\"[^"]*\"|"encoding"{egalevolue}\'[^']*\'  {/* erreur de version encoding */     printf("\nerror : LINE %d : encoding version not supported : %s\n",yylineno,yytext); exit (8) ; }
 
 
 <INITIAL>"standalone"{egalevolue}\"yes\"|"standalone"{egalevolue}\'yes\'|"standalone"{egalevolue}\"no\"|"standalone"{egalevolue}\'no\'  {if (affichetrace==1) printf ("\n\nSDDECL:%s\n",yytext) ; return SDDECL;}
 
-<INITIAL>"standalone"{egalevolue}\"[^"]*\"|"standalone"{egalevolue}\'[^']*\'|"standalone"{egalevolue}\"[^"]*\"|"standalone"{egalevolue}\'[^']*\'  {/* erreur de version encoding */     printf("\nerror : a la ligne %d : la version standalone n est pas reconnue : %s\n",yylineno,yytext); exit (7) ; }
+<INITIAL>"standalone"{egalevolue}\"[^"]*\"|"standalone"{egalevolue}\'[^']*\'|"standalone"{egalevolue}\"[^"]*\"|"standalone"{egalevolue}\'[^']*\'  {/* erreur de version encoding */     printf("\nerror : LINE %d : standalone version not supported : %s\n",yylineno,yytext); exit (7) ; }
 
 
@@ -111 +111 @@
 
 
-<INITIAL,DANSBALISE,HORSBALISE>.|\n     {if (affichetrace==1)printf("error : ligne %d : caractere non reconnu '%s'\n",yylineno,yytext); }
+<INITIAL,DANSBALISE,HORSBALISE>.|\n     {if (affichetrace==1)printf("error : LINE %d : character not supported '%s'\n",yylineno,yytext); }
 
 %%

trunk/zoo-kernel/service_internal.c

@@ -25 +25 @@
 #include "service_internal.h"
 
+void *addLangAttr(xmlNodePtr n,maps *m){
+  map *tmpLmap=getMapFromMaps(m,"main","language");
+  if(tmpLmap!=NULL)
+    xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST tmpLmap->value);
+  else
+    xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST "en-US");
+}
+
 /* Converts a hex character to its integer value */
 char from_hex(char ch) {
@@ -281 +289 @@
   xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/wps/1.0.0 http://schemas.opengis.net/wps/1.0.0/wpsGetCapabilities_response.xsd"); 
   xmlNewProp(n,BAD_CAST "service",BAD_CAST "WPS");
+  addLangAttr(n,m);
   
   if(toto1!=NULL){
@@ -512 +521 @@
           xmlAddChild(nc2,nc4);
           xmlAddChild(nc1,nc2);
-          xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST buff);
           dcount++;
         }
@@ -590 +598 @@
   xmlNewProp(n,BAD_CAST "service",BAD_CAST "WPS");
   xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.0.0");
-  xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST "en");
+  addLangAttr(n,m);
 
   xmlDocSetRootElement(doc, n);
@@ -954 +962 @@
   xmlNewProp(n,BAD_CAST "service",BAD_CAST "WPS");
   xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.0.0");
-  xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST "en");
+  addLangAttr(n,m);
+
   char tmp[256];
   char url[1024];
@@ -1046 +1055 @@
   case SERVICE_SUCCEEDED:
     nc1 = xmlNewNode(ns, BAD_CAST "ProcessSucceeded");
-    sprintf(sMsg,"Service \"%s\" run successfully.",serv->name);
+    sprintf(sMsg,_("Service \"%s\" run successfully."),serv->name);
     nc3=xmlNewText(BAD_CAST sMsg);
     xmlAddChild(nc1,nc3);
@@ -1054 +1063 @@
     tmpStatus=getMapFromMaps(m,"lenv","status");
     xmlNewProp(nc1,BAD_CAST "percentCompleted",BAD_CAST tmpStatus->value);
-    sprintf(sMsg,"ZOO Service \"%s\" is currently running. Please, reload this document to get the up-to-date status of the Service.",serv->name);
+    sprintf(sMsg,_("ZOO Service \"%s\" is currently running. Please, reload this document to get the up-to-date status of the Service."),serv->name);
     nc3=xmlNewText(BAD_CAST sMsg);
     xmlAddChild(nc1,nc3);
@@ -1060 +1069 @@
   case SERVICE_ACCEPTED:
     nc1 = xmlNewNode(ns, BAD_CAST "ProcessAccepted");
-    sprintf(sMsg,"Service \"%s\" was accepted by the ZOO Kernel and it run as a background task. Please consult the statusLocation attribtue providen in this document to get the up-to-date document.",serv->name);
+    sprintf(sMsg,_("Service \"%s\" was accepted by the ZOO Kernel and it run as a background task. Please consult the statusLocation attribtue providen in this document to get the up-to-date document."),serv->name);
     nc3=xmlNewText(BAD_CAST sMsg);
     xmlAddChild(nc1,nc3);
@@ -1077 +1086 @@
       addToMap(errorMap,"text",te->value);
     else
-      addToMap(errorMap,"text","No more information available");
+      addToMap(errorMap,"text",_("No more information available"));
     nc3=createExceptionReportNode(m,errorMap,0);
     xmlAddChild(nc1,nc3);
     break;
   default :
-    printf("error code not know : %i\n",status);
+    printf(_("error code not know : %i\n"),status);
     //exit(1);
     break;
@@ -1250 +1259 @@
   // Extract Title required to be first element in the ZCFG file !
   nc2=xmlNewNode(ns_ows, BAD_CAST tmp->name);
-  nc3=xmlNewText(BAD_CAST tmp->value);
+  nc3=xmlNewText(BAD_CAST _ss(tmp->value));
   xmlAddChild(nc2,nc3);  
   xmlAddChild(nc1,nc2);
@@ -1256 +1265 @@
   tmp=tmp->next;
   nc2=xmlNewNode(ns_ows, BAD_CAST tmp->name);
-  nc3=xmlNewText(BAD_CAST tmp->value);
+  nc3=xmlNewText(BAD_CAST _ss(tmp->value));
   xmlAddChild(nc2,nc3);  
   xmlAddChild(nc1,nc2);
@@ -1352 +1361 @@
     if(tmp1!=NULL){
       nc2 = xmlNewNode(ns_ows, BAD_CAST tmp2[j]);
-      xmlAddChild(nc2,xmlNewText(BAD_CAST tmp1->value));
+      fprintf(stderr,"[%s] \n[%s]\n",tmp1->value,_ss(tmp1->value));
+      xmlAddChild(nc2,xmlNewText(BAD_CAST _ss(tmp1->value)));
       xmlAddChild(root,nc2);
     }
@@ -1389 +1399 @@
   xmlDocPtr doc;
   xmlChar *xmlbuff;
-  xmlNsPtr ns,ns_ows,ns_xlink,ns_xsi;
-  xmlNodePtr n,nc,nc1,nc2;
+  xmlNodePtr n;
 
   doc = xmlNewDoc(BAD_CAST "1.0");
@@ -1405 +1414 @@
   }else
     printf("Content-Type: text/xml; charset=%s\r\nStatus: 200 OK\r\n\r\n",encoding);
-
-  ns=xmlNewNs(NULL,BAD_CAST "http://www.opengis.net/ows/1.1",BAD_CAST "ows");
-  n = xmlNewNode(ns, BAD_CAST "ExceptionReport");  
-  ns_ows=xmlNewNs(n,BAD_CAST "http://www.opengis.net/ows/1.1",BAD_CAST "ows");
-  ns_xlink=xmlNewNs(n,BAD_CAST "http://www.w3.org/1999/xlink",BAD_CAST "xlink");
-  ns_xsi=xmlNewNs(n,BAD_CAST "http://www.w3.org/2001/XMLSchema-instance",BAD_CAST "xsi");
-  xmlNewProp(n,BAD_CAST "xsi:schemaLocation",BAD_CAST "http://www.opengis.net/ows/1.1 http://schemas.opengis.net/ows/1.1.0/owsExceptionReport.xsd");
-  xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST "en");
-  xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.1.0");
-
-  nc = xmlNewNode(ns, BAD_CAST "Exception");  
-
-  map* tmp=getMap(s,"code");
-  if(tmp!=NULL)
-    xmlNewProp(nc,BAD_CAST "exceptionCode",BAD_CAST tmp->value);
-  else
-    xmlNewProp(nc,BAD_CAST "exceptionCode",BAD_CAST "NoApplicableCode");
-
-  tmp=getMap(s,"text");
-  nc1 = xmlNewNode(ns, BAD_CAST "ExceptionText");
-  nc2=NULL;
-  if(tmp!=NULL){
-    xmlNodeSetContent(nc1, BAD_CAST tmp->value);
-  }
-  else{
-    xmlNodeSetContent(nc1, BAD_CAST "No debug message available");
-  }
-  xmlAddChild(nc,nc1);
-  xmlAddChild(n,nc);
+  n=createExceptionReportNode(m,s,1);
   xmlDocSetRootElement(doc, n);
-
   xmlDocDumpFormatMemoryEnc(doc, &xmlbuff, &buffersize, encoding, 1);
   printf("%s",xmlbuff);
@@ -1441 +1421 @@
   xmlFreeDoc(doc);
   xmlFree(xmlbuff);
-  xmlFreeNs(ns);
   xmlCleanupParser();
 }
@@ -1465 +1444 @@
     xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/ows/1.1 http://schemas.opengis.net/ows/1.1.0/owsExceptionReport.xsd");
   }
-  xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST "en");
+  addLangAttr(n,m);
   xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.1.0");
   
@@ -1483 +1462 @@
   }
   else{
-    xmlNodeSetContent(nc1, BAD_CAST "No debug message available");
+    xmlNodeSetContent(nc1, BAD_CAST _("No debug message available"));
   }
   xmlAddChild(nc,nc1);
@@ -1544 +1523 @@
       toto=getMap(request_outputs->content,"value");
       if(toto==NULL){
-        map * errormap = createMap("text","Unable to fetch any result");
+        map * errormap = createMap("text",_("Unable to fetch any result"));
         addToMap(errormap,"code", "InternalError");
         printExceptionReportResponse(m,errormap);
@@ -1585 +1564 @@
       lenv=getMapFromMaps(m,"lenv","message");
       if(lenv!=NULL)
-        sprintf(tmp,"Unable to run the Service. The message returned back by the Service was the following : %s",lenv->value);
+        sprintf(tmp,_("Unable to run the Service. The message returned back by the Service was the following : %s"),lenv->value);
       else
-        sprintf(tmp,"Unable to run the Service. No more information was returned back by the Service.");
+        sprintf(tmp,_("Unable to run the Service. No more information was returned back by the Service."));
       errormap = createMap("text",tmp);      
       addToMap(errormap,"code", "InternalError");

trunk/zoo-kernel/service_internal.h

@@ -28 +28 @@
 #pragma once 
 
-#define DEFAULT_SERVICE_URL "http://dev.geolabs.fr/zoo-wps/"
+#define DEFAULT_SERVICE_URL "http://www.zoo-project.org/"
 #define TIME_SIZE 40
+
+#include <libintl.h>
+#include <locale.h>
+#define _(String) dgettext ("zoo-kernel",String)
+#define _ss(String) dgettext ("zoo-services",String)
 
 #include <sys/stat.h>

trunk/zoo-kernel/service_internal_js.c

@@ -208 +208 @@
   /* Cleanup. */
   JS_DestroyScript(cx, script);
-  JS_MaybeGC(cx);
+  //JS_MaybeGC(cx);
   // If we use the DestroyContext as requested to release memory then we get 
   // issue getting back the main configuration maps after coming back to the 

trunk/zoo-kernel/zoo_service_loader.c

@@ -40 +40 @@
 #include "ulinet.h"
 
+#include <libintl.h>
+#include <locale.h>
 #include <string.h>
 
 #include "service.h"
+
 #include "service_internal.h"
 
@@ -80 +83 @@
 #include <time.h>
 #include <stdarg.h>
+
+#define _(String) dgettext ("zoo-kernel",String)
+
+
+void *translateChar(char* str,char toReplace,char toReplaceBy){
+  int i=0,len=strlen(str);
+  for(i=0;i<len;i++){
+    if(str[i]==toReplace)
+      str[i]=toReplaceBy;
+  }
+}
 
 xmlXPathObjectPtr extractFromDoc(xmlDocPtr doc,char* search){
@@ -116 +130 @@
     break;
   }
-  sprintf(tmp,"ZOO Kernel failed to process your request receiving signal %d = %s",sig,ssig);
+  sprintf(tmp,_("ZOO Kernel failed to process your request receiving signal %d = %s"),sig,ssig);
   errorException(NULL, tmp, "InternalError");
 #ifdef DEBUG
@@ -122 +136 @@
 #endif
   exit(0);
+}
+
+void *loadServiceAndRun(maps **myMap,service* s1,map* request_inputs,maps **inputs,maps** ioutputs,int* eres){
+  char tmps1[1024];
+  char ntmp[1024];
+  maps *m=*myMap;
+  maps *request_output_real_format=*ioutputs;
+  maps *request_input_real_format=*inputs;
+  /**
+   * Extract serviceType to know what kind of service should be loaded
+   */
+  map* r_inputs=NULL;
+#ifndef WIN32
+  getcwd(ntmp,1024);
+#else
+  _getcwd(ntmp,1024);
+#endif
+  r_inputs=getMap(s1->content,"serviceType");
+#ifdef DEBUG
+  fprintf(stderr,"LOAD A %s SERVICE PROVIDER \n",r_inputs->value);
+  fflush(stderr);
+#endif
+  if(strncasecmp(r_inputs->value,"C",1)==0){
+    r_inputs=getMap(request_inputs,"metapath");
+    if(r_inputs!=NULL)
+      sprintf(tmps1,"%s/%s",ntmp,r_inputs->value);
+    else
+      sprintf(tmps1,"%s/",ntmp);
+    char *altPath=strdup(tmps1);
+    r_inputs=getMap(s1->content,"ServiceProvider");
+    sprintf(tmps1,"%s/%s",altPath,r_inputs->value);
+    free(altPath);
+#ifdef DEBUG
+    fprintf(stderr,"Trying to load %s\n",tmps1);
+#endif
+#ifdef WIN32
+    HINSTANCE so = LoadLibraryEx(tmps1,NULL,LOAD_WITH_ALTERED_SEARCH_PATH);
+#else
+    void* so = dlopen(tmps1, RTLD_LAZY);
+#endif
+#ifdef DEBUG
+#ifdef WIN32<
+    DWORD errstr;
+    errstr = GetLastError();
+    fprintf(stderr,"%s loaded (%d) \n",tmps1,errstr);
+#else
+    char *errstr;
+    errstr = dlerror();
+#endif
+#endif
+
+    if( so != NULL ) {
+#ifdef DEBUG
+      fprintf(stderr,"Library loaded %s \n",errstr);
+      fprintf(stderr,"Service Shared Object = %s\n",r_inputs->value);
+#endif
+      r_inputs=getMap(s1->content,"serviceType");
+#ifdef DEBUG
+      dumpMap(r_inputs);
+      fprintf(stderr,"%s\n",r_inputs->value);
+      fflush(stderr);
+#endif
+      if(strncasecmp(r_inputs->value,"C-FORTRAN",9)==0){
+#ifdef WIN32
+        //Strange return value needed here !
+        return 1;
+#endif
+        r_inputs=getMap(request_inputs,"Identifier");
+        char fname[1024];
+        sprintf(fname,"%s_",r_inputs->value);
+#ifdef DEBUG
+        fprintf(stderr,"Try to load function %s\n",fname);
+#endif
+#ifdef WIN32
+        typedef int (CALLBACK* execute_t)(char***,char***,char***);
+        execute_t execute=(execute_t)GetProcAddress(so,fname);
+#else
+        typedef int (*execute_t)(char***,char***,char***);
+        execute_t execute=(execute_t)dlsym(so,fname);
+#endif
+#ifdef DEBUG
+#ifdef WIN32
+        errstr = GetLastError();
+#else
+        errstr = dlerror();
+#endif
+        fprintf(stderr,"Function loaded %s\n",errstr);
+#endif  
+
+        char main_conf[10][30][1024];
+        char inputs[10][30][1024];
+        char outputs[10][30][1024];
+        for(int i=0;i<10;i++){
+          for(int j=0;j<30;j++){
+            memset(main_conf[i][j],0,1024);
+            memset(inputs[i][j],0,1024);
+            memset(outputs[i][j],0,1024);
+          }
+        }
+        mapsToCharXXX(m,(char***)main_conf);
+        mapsToCharXXX(request_input_real_format,(char***)inputs);
+        mapsToCharXXX(request_output_real_format,(char***)outputs);
+        *eres=execute((char***)&main_conf[0],(char***)&inputs[0],(char***)&outputs[0]);
+#ifdef DEBUG
+        fprintf(stderr,"Function run successfully \n");
+#endif
+        charxxxToMaps((char***)&outputs[0],&request_output_real_format);
+      }else{
+#ifdef DEBUG
+#ifdef WIN32
+        errstr = GetLastError();
+        fprintf(stderr,"Function %s failed to load because of %d\n",r_inputs->value,errstr);
+#endif
+#endif
+        r_inputs=getMap(request_inputs,"Identifier");
+#ifdef DEBUG
+        fprintf(stderr,"Try to load function %s\n",r_inputs->value);
+#endif
+        typedef int (*execute_t)(maps**,maps**,maps**);
+#ifdef WIN32
+        execute_t execute=(execute_t)GetProcAddress(so,r_inputs->value); 
+#else
+        execute_t execute=(execute_t)dlsym(so,r_inputs->value);
+#endif
+
+#ifdef DEBUG
+#ifdef WIN32
+        errstr = GetLastError();
+#else
+        errstr = dlerror();
+#endif
+        fprintf(stderr,"Function loaded %s\n",errstr);
+#endif  
+
+#ifdef DEBUG
+        fprintf(stderr,"Now run the function \n");
+        fflush(stderr);
+#endif
+        *eres=execute(&m,&request_input_real_format,&request_output_real_format);
+#ifdef DEBUG
+        fprintf(stderr,"Function loaded and returned %d\n",eres);
+        fflush(stderr);
+#endif
+      }
+      dlclose(so);
+    } else {
+      /**
+       * Unable to load the specified shared library
+       */
+      char tmps[1024];
+#ifdef WIN32
+      DWORD errstr = GetLastError();
+#else
+      char* errstr = dlerror();
+#endif
+      sprintf(tmps,_("C Library can't be loaded %s \n"),errstr);
+      map* tmps1=createMap("text",tmps);
+      printExceptionReportResponse(m,tmps1);
+      *eres=-1;
+    }
+  }
+  else
+#ifdef USE_PYTHON
+    if(strncasecmp(r_inputs->value,"PYTHON",6)==0){
+      *eres=zoo_python_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
+    }
+    else
+#endif
+        
+#ifdef USE_JAVA
+      if(strncasecmp(r_inputs->value,"JAVA",4)==0){
+        *eres=zoo_java_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
+      }
+      else
+#endif
+
+#ifdef USE_PHP
+        if(strncasecmp(r_inputs->value,"PHP",3)==0){
+          *eres=zoo_php_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
+        }
+        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){
+              *eres=zoo_js_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
+            }
+            else
+#endif
+              {
+                char tmpv[1024];
+                sprintf(tmpv,_("Programming Language (%s) set in ZCFG file is not currently supported by ZOO Kernel.\n"),r_inputs->value);
+                map* tmps=createMap("text",tmpv);
+                printExceptionReportResponse(m,tmps);
+                *eres=-1;
+              }
+  *ioutputs=request_output_real_format;
 }
 
@@ -144 +363 @@
   m=(maps*)calloc(1,MAPS_SIZE);
   if(m == NULL){
-    return errorException(m, "Unable to allocate memory.", "InternalError");
+    return errorException(m, _("Unable to allocate memory."), "InternalError");
   }
   char ntmp[1024];
@@ -173 +392 @@
 #endif
 
+  bindtextdomain ("zoo-kernel","/usr/share/locale/");
+  bindtextdomain ("zoo-services","/usr/share/locale/");
+  
+  if((r_inputs=getMap(request_inputs,"language"))!=NULL){
+    char *tmp=strdup(r_inputs->value);
+    translateChar(tmp,'-','_');
+    setlocale (LC_ALL, tmp);
+    free(tmp);
+    setMapInMaps(m,"main","language",r_inputs->value);
+  }
+  else{
+    setlocale (LC_ALL, "en_US");
+    setMapInMaps(m,"main","language","en-US");
+  }
+  setlocale (LC_NUMERIC, "en_US");
+  bind_textdomain_codeset("zoo-kernel","UTF-8");
+  textdomain("zoo-kernel");
+  bind_textdomain_codeset("zoo-services","UTF-8");
+  textdomain("zoo-services");
+
+
   /**
    * Check for minimum inputs
@@ -178 +418 @@
   r_inputs=getMap(request_inputs,"Request");
   if(request_inputs==NULL || r_inputs==NULL){ 
-    errorException(m, "Parameter <request> was not specified","MissingParameterValue");
+    errorException(m, _("Parameter <request> was not specified"),"MissingParameterValue");
     freeMaps(&m);
     free(m);
@@ -188 +428 @@
        && strncasecmp(r_inputs->value,"DescribeProcess",15)!=0
        && strncasecmp(r_inputs->value,"Execute",7)!=0){ 
-      errorException(m, "Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute.", "InvalidParameterValue");
+      errorException(m, _("Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute."), "InvalidParameterValue");
       freeMaps(&m);
       free(m);
@@ -198 +438 @@
   r_inputs=getMap(request_inputs,"Service");
   if(r_inputs==NULLMAP){
-    errorException(m, "Parameter <service> was not specified","MissingParameterValue");
+    errorException(m, _("Parameter <service> was not specified"),"MissingParameterValue");
     freeMaps(&m);
     free(m);
@@ -207 +447 @@
     r_inputs=getMap(request_inputs,"Version");
     if(r_inputs==NULL){ 
-      errorException(m, "Parameter <version> was not specified","MissingParameterValue");
+      errorException(m, _("Parameter <version> was not specified"),"MissingParameterValue");
       freeMaps(&m);
       free(m);
@@ -254 +494 @@
     DIR *dirp = opendir(conf_dir);
     if(dirp==NULL){
-      return errorException(m, "The specified path doesn't exist.","InvalidParameterValue");
+      return errorException(m, _("The specified path doesn't exist."),"InvalidParameterValue");
     }
     xmlDocPtr doc = xmlNewDoc(BAD_CAST "1.0");
@@ -277 +517 @@
         s1=(service*)calloc(1,SERVICE_SIZE);
         if(s1 == NULL){ 
-          return errorException(m, "Unable to allocate memory.","InternalError");
+          return errorException(m, _("Unable to allocate memory."),"InternalError");
         }
 #ifdef DEBUG
@@ -308 +548 @@
     if(r_inputs==NULL 
        || strlen(r_inputs->name)==0 || strlen(r_inputs->value)==0){ 
-      errorException(m, "Mandatory <identifier> was not specified","MissingParameterValue");
+      errorException(m, _("Mandatory <identifier> was not specified"),"MissingParameterValue");
       freeMaps(&m);
       free(m);
@@ -319 +559 @@
     DIR *dirp = opendir(conf_dir);
     if(dirp==NULL){
-      errorException(m, "The specified path path doesn't exist.","InvalidParameterValue");
+      errorException(m, _("The specified path path doesn't exist."),"InvalidParameterValue");
       freeMaps(&m);
       free(m);
@@ -364 +604 @@
             s1=(service*)calloc(1,SERVICE_SIZE);
             if(s1 == NULL){
-              return errorException(m, "Unable to allocate memory.","InternalError");
+              return errorException(m, _("Unable to allocate memory."),"InternalError");
             }
 #ifdef DEBUG
@@ -399 +639 @@
     else
       if(strncasecmp(REQUEST,"Execute",strlen(REQUEST))!=0){
-        errorException(m, "Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute.", "InvalidParameterValue");
+        errorException(m, _("Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute."), "InvalidParameterValue");
 #ifdef DEBUG
         fprintf(stderr,"No request found %s",REQUEST);
@@ -417 +657 @@
     free(REQUEST);
     free(SERVICE_URL);
-    return errorException(m, "Unable to allocate memory.","InternalError");
+    return errorException(m, _("Unable to allocate memory."),"InternalError");
   }
   r_inputs=getMap(request_inputs,"MetaPath");
@@ -438 +678 @@
   if(t<0){
     char tmpMsg[2048+strlen(r_inputs->value)];
-    sprintf(tmpMsg,"The value for <indetifier> seems to be wrong (%s). Please, ensure that the process exist using the GetCapabilities request.",r_inputs->value);
+    sprintf(tmpMsg,_("The value for <indetifier> seems to be wrong (%s). Please, ensure that the process exist using the GetCapabilities request."),r_inputs->value);
     errorException(m, tmpMsg, "InvalidParameterValue");
     freeService(&s1);
@@ -516 +756 @@
       char** outputs_as_text=(char**)calloc(128,sizeof(char*));
       if(outputs_as_text == NULL) {
-        return errorException(m, "Unable to allocate memory", "InternalError");
+        return errorException(m, _("Unable to allocate memory"), "InternalError");
       }
       i=0;
@@ -527 +767 @@
         outputs_as_text[i]=(char*)calloc(strlen(pToken)+1,sizeof(char));
         if(outputs_as_text[i] == NULL) {
-          return errorException(m, "Unable to allocate memory", "InternalError");
+          return errorException(m, _("Unable to allocate memory"), "InternalError");
         }
         snprintf(outputs_as_text[i],strlen(pToken)+1,"%s",pToken);
@@ -544 +784 @@
               tmp_output=(maps*)calloc(1,MAPS_SIZE);
               if(tmp_output == NULL){
-                return errorException(m, "Unable to allocate memory.", "InternalError");
+                return errorException(m, _("Unable to allocate memory."), "InternalError");
               }
               tmp_output->name=strdup(tmpc);
@@ -603 +843 @@
       snprintf(cursor_input,40960,"%s",r_inputs->value);
     else{
-      errorException(m, "Parameter <DataInputs> was not specified","MissingParameterValue");
+      errorException(m, _("Parameter <DataInputs> was not specified"),"MissingParameterValue");
       freeMaps(&m);
       free(m);
@@ -620 +860 @@
     char** inputs_as_text=(char**)calloc(100,sizeof(char*));
     if(inputs_as_text == NULL){
-      return errorException(m, "Unable to allocate memory.", "InternalError");
+      return errorException(m, _("Unable to allocate memory."), "InternalError");
     }
     i=0;
@@ -634 +874 @@
       snprintf(inputs_as_text[i],strlen(pToken)+1,"%s",pToken);
       if(inputs_as_text[i] == NULL){
-        return errorException(m, "Unable to allocate memory.", "InternalError");
+        return errorException(m, _("Unable to allocate memory."), "InternalError");
       }
       pToken = strtok(NULL,";");
@@ -661 +901 @@
           tmpmaps=(maps*)calloc(1,MAPS_SIZE);
           if(tmpmaps == NULL){
-            return errorException(m, "Unable to allocate memory.", "InternalError");
+            return errorException(m, _("Unable to allocate memory."), "InternalError");
           }
           tmpmaps->name=strdup(tmpn);
@@ -702 +942 @@
                 char* tmpContent=(char*)calloc((res.nDataLen+1),sizeof(char));
                 if(tmpContent == NULL){
-                  return errorException(m, "Unable to allocate memory.", "InternalError");
+                  return errorException(m, _("Unable to allocate memory."), "InternalError");
                 }
                 size_t dwRead;
@@ -785 +1025 @@
               tmpmaps=(maps*)calloc(1,MAPS_SIZE);
               if(tmpmaps == NULL){
-                return errorException(m, "Unable to allocate memory.", "InternalError");
+                return errorException(m, _("Unable to allocate memory."), "InternalError");
               }
               tmpmaps->name=strdup((char*)val);
@@ -803 +1043 @@
               tmpmaps=(maps*)calloc(1,MAPS_SIZE);
               if(tmpmaps == NULL){
-                return errorException(m, "Unable to allocate memory.", "InternalError");
+                return errorException(m, _("Unable to allocate memory."), "InternalError");
               }
               tmpmaps->name="missingIndetifier";
@@ -861 +1101 @@
                       (char*)calloc((res.nDataLen+1),sizeof(char));
                     if(tmpContent == NULL){
-                      return errorException(m, "Unable to allocate memory.", "InternalError");
+                      return errorException(m, _("Unable to allocate memory."), "InternalError");
                     }
                     size_t dwRead;
@@ -902 +1142 @@
                     has=(char*)calloc((3+strlen((char*)val)+strlen(key)),sizeof(char));
                     if(has == NULL){
-                      return errorException(m, "Unable to allocate memory.", "InternalError");
+                      return errorException(m, _("Unable to allocate memory."), "InternalError");
                     }
                     snprintf(has,(3+strlen((char*)val)+strlen(key)),"%s: %s",key,(char*)val);
@@ -949 +1189 @@
                     char* tmpContent = (char*)calloc((res.nDataLen+1),sizeof(char));
                     if(tmpContent == NULL){
-                      return errorException(m, "Unable to allocate memory.", "InternalError");
+                      return errorException(m, _("Unable to allocate memory."), "InternalError");
                     }
                     size_t dwRead;
@@ -984 +1224 @@
                       (char*)calloc((res1.nDataLen+1),sizeof(char));
                     if(tmp == NULL){
-                      return errorException(m, "Unable to allocate memory.", "InternalError");
+                      return errorException(m, _("Unable to allocate memory."), "InternalError");
                     }
                     size_t bRead;
@@ -1002 +1242 @@
                       char* tmpContent = (char*)calloc((res.nDataLen+1),sizeof(char));
                       if(tmpContent == NULL){
-                        return errorException(m, "Unable to allocate memory.", "InternalError");
+                        return errorException(m, _("Unable to allocate memory."), "InternalError");
                       }
                       size_t dwRead;
@@ -1143 +1383 @@
           tmpmaps=(maps*)calloc(1,MAPS_SIZE);
           if(tmpmaps == NULL){
-            return errorException(m, "Unable to allocate memory.", "InternalError");
+            return errorException(m, _("Unable to allocate memory."), "InternalError");
           }
           tmpmaps->name="unknownIdentifier";
@@ -1215 +1455 @@
                   tmpmaps=(maps*)calloc(1,MAPS_SIZE);
                   if(tmpmaps == NULL){
-                    return errorException(m, "Unable to allocate memory.", "InternalError");
+                    return errorException(m, _("Unable to allocate memory."), "InternalError");
                   }
                   tmpmaps->name=strdup((char*)val);
@@ -1235 +1475 @@
                   tmpmaps=(maps*)calloc(1,MAPS_SIZE);
                   if(tmpmaps == NULL){
-                    return errorException(m, "Unable to allocate memory.", "InternalError");
+                    return errorException(m, _("Unable to allocate memory."), "InternalError");
                   }
                   tmpmaps->name="missingIndetifier";
@@ -1295 +1535 @@
             tmpmaps=(maps*)calloc(1,MAPS_SIZE);
             if(tmpmaps == NULL){
-              return errorException(m, "Unable to allocate memory.", "InternalError");
+              return errorException(m, _("Unable to allocate memory."), "InternalError");
             }
             tmpmaps->name="unknownIdentifier";
@@ -1321 +1561 @@
             tmpmaps=(maps*)calloc(1,MAPS_SIZE);
             if(tmpmaps == NULL){
-              return errorException(m, "Unable to allocate memory.", "InternalError");
+              return errorException(m, _("Unable to allocate memory."), "InternalError");
             }
             tmpmaps->name=strdup((char*)val);
@@ -1363 +1603 @@
   if(strcmp(dfv,"")!=0){
     char tmps[1024];
-    snprintf(tmps,1024,"The <%s> argument was not specified in DataInputs but defined as requested in ZOO ServicesProvider configuration file, please correct your query or the ZOO Configuration file.",dfv);
+    snprintf(tmps,1024,_("The <%s> argument was not specified in DataInputs but defined as requested in ZOO ServicesProvider configuration file, please correct your query or the ZOO Configuration file."),dfv);
     map* tmpe=createMap("text",tmps);
     addToMap(tmpe,"code","MissingParameterValue");
@@ -1458 +1698 @@
       r_inputs=NULL;
   if(r_inputs==NULLMAP){
-    /**
-     * Extract serviceType to know what kind of service shoudl be loaded
-     */
-    r_inputs=NULL;
-    r_inputs=getMap(s1->content,"serviceType");
-#ifdef DEBUG
-    fprintf(stderr,"LOAD A %s SERVICE PROVIDER IN NORMAL MODE \n",r_inputs->value);
-    fflush(stderr);
-#endif
-    if(strncasecmp(r_inputs->value,"C",1)==0){
-      r_inputs=getMap(request_inputs,"metapath");
-      if(r_inputs!=NULL)
-        sprintf(tmps1,"%s/%s",ntmp,r_inputs->value);
-      else
-        sprintf(tmps1,"%s/",ntmp);
-      char *altPath=strdup(tmps1);
-      r_inputs=getMap(s1->content,"ServiceProvider");
-      sprintf(tmps1,"%s/%s",altPath,r_inputs->value);
-      free(altPath);
-#ifdef DEBUG
-      fprintf(stderr,"Trying to load %s\n",tmps1);
-#endif
-#ifdef WIN32
-      HINSTANCE so = LoadLibraryEx(tmps1,NULL,LOAD_WITH_ALTERED_SEARCH_PATH);
-#else
-      void* so = dlopen(tmps1, RTLD_LAZY);
-#endif
-#ifdef DEBUG
-#ifdef WIN32
-      DWORD errstr;
-      errstr = GetLastError();
-      fprintf(stderr,"%s loaded (%d) \n",tmps1,errstr);
-#else
-      char *errstr;
-      errstr = dlerror();
-#endif
-#endif
-
-      if( so != NULL ) {
-#ifdef DEBUG
-        fprintf(stderr,"Library loaded %s \n",errstr);
-        fprintf(stderr,"Service Shared Object = %s\n",r_inputs->value);
-#endif
-        r_inputs=getMap(s1->content,"serviceType");
-#ifdef DEBUG
-        dumpMap(r_inputs);
-        fprintf(stderr,"%s\n",r_inputs->value);
-        fflush(stderr);
-#endif
-        if(strncasecmp(r_inputs->value,"C-FORTRAN",9)==0){
-#ifdef WIN32
-          //Strange return value needed here !
-          return 1;
-#endif
-          r_inputs=getMap(request_inputs,"Identifier");
-          char fname[1024];
-          sprintf(fname,"%s_",r_inputs->value);
-#ifdef DEBUG
-          fprintf(stderr,"Try to load function %s\n",fname);
-#endif
-#ifdef WIN32
-          typedef int (CALLBACK* execute_t)(char***,char***,char***);
-          execute_t execute=(execute_t)GetProcAddress(so,fname);
-#else
-          typedef int (*execute_t)(char***,char***,char***);
-          execute_t execute=(execute_t)dlsym(so,fname);
-#endif
-#ifdef DEBUG
-#ifdef WIN32
-          errstr = GetLastError();
-#else
-          errstr = dlerror();
-#endif
-          fprintf(stderr,"Function loaded %s\n",errstr);
-#endif  
-
-          char main_conf[10][30][1024];
-          char inputs[10][30][1024];
-          char outputs[10][30][1024];
-          for(int i=0;i<10;i++){
-            for(int j=0;j<30;j++){
-              memset(main_conf[i][j],0,1024);
-              memset(inputs[i][j],0,1024);
-              memset(outputs[i][j],0,1024);
-            }
-          }
-          mapsToCharXXX(m,(char***)main_conf);
-          mapsToCharXXX(request_input_real_format,(char***)inputs);
-          mapsToCharXXX(request_output_real_format,(char***)outputs);
-          eres=execute((char***)&main_conf[0],(char***)&inputs[0],(char***)&outputs[0]);
-#ifdef DEBUG
-          fprintf(stderr,"Function run successfully \n");
-#endif
-          charxxxToMaps((char***)&outputs[0],&request_output_real_format);
-        }else{
-#ifdef DEBUG
-#ifdef WIN32
-          errstr = GetLastError();
-          fprintf(stderr,"Function %s failed to load because of %d\n",r_inputs->value,errstr);
-#endif
-#endif
-          r_inputs=getMap(request_inputs,"Identifier");
-#ifdef DEBUG
-          fprintf(stderr,"Try to load function %s\n",r_inputs->value);
-#endif
-          typedef int (*execute_t)(maps**,maps**,maps**);
-#ifdef WIN32
-          execute_t execute=(execute_t)GetProcAddress(so,r_inputs->value); 
-#ifdef DEBUG
-          errstr = GetLastError();
-          fprintf(stderr,"Function %s failed to load because of %d\n",r_inputs->value,errstr);
-#endif
-#else
-          execute_t execute=(execute_t)dlsym(so,r_inputs->value);
-#endif
-
-#ifdef DEBUG
-#ifdef WIN32
-          errstr = GetLastError();
-#else
-          errstr = dlerror();
-#endif
-          fprintf(stderr,"Function loaded %s\n",errstr);
-#endif  
-
-#ifdef DEBUG
-          fprintf(stderr,"Now run the function \n");
-          fflush(stderr);
-#endif
-          eres=execute(&m,&request_input_real_format,&request_output_real_format);
-#ifdef DEBUG
-          fprintf(stderr,"Function loaded and returned %d\n",eres);
-          fflush(stderr);
-#endif
-        }
-        dlclose(so);
-      } else {
-        /**
-         * Unable to load the specified shared library
-         */
-        char tmps[1024];
-#ifdef WIN32
-        DWORD errstr = GetLastError();
-#else
-        char* errstr = dlerror();
-#endif
-        sprintf(tmps,"C Library can't be loaded %s \n",errstr);
-        map* tmps1=createMap("text",tmps);
-        printExceptionReportResponse(m,tmps1);
-        exit(1);
-      }
-    }
-    else
-#ifdef USE_PYTHON
-      if(strncasecmp(r_inputs->value,"PYTHON",6)==0){
-        eres=zoo_python_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-      }
-      else
-#endif
-        
-#ifdef USE_JAVA
-        if(strncasecmp(r_inputs->value,"JAVA",4)==0){
-          eres=zoo_java_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-        }
-        else
-#endif
-
-#ifdef USE_PHP
-          if(strncasecmp(r_inputs->value,"PHP",3)==0){
-            eres=zoo_php_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-          }
-          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){
-              eres=zoo_js_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-            }
-            else
-#endif
-              {
-                char tmpv[1024];
-                sprintf(tmpv,"Programming Language (%s) set in ZCFG file is not currently supported by ZOO Kernel.\n",r_inputs->value);
-                map* tmps=createMap("text",tmpv);
-                printExceptionReportResponse(m,tmps);
-                return(-1);
-              }
-  } 
+    loadServiceAndRun(&m,s1,request_inputs,&request_input_real_format,&request_output_real_format,&eres);
+  }
   else{
-
     pid_t   pid;
 #ifdef DEBUG
@@ -1696 +1741 @@
       free(fbkp);
       free(flog);
-      if(setsid()<0)
-        return errorException(m, "Unable to run the child process properly", "InternalError");
       /**
        * set status to SERVICE_STARTED and flush stdout to ensure full 
@@ -1711 +1754 @@
       fflush(stdout);
       rewind(stdout);
-      /**
-       * Extract serviceType to know what kind of service shoudl be loaded
-       */
-      r_inputs=NULL;
-      r_inputs=getMap(s1->content,"serviceType");
-#ifdef DEBUG
-      fprintf(stderr,"LOAD A %s SERVICE PROVIDER IN BACKGROUND MODE \n",r_inputs->value);
-#endif
-
-      if(strncasecmp(r_inputs->value,"C",1)==0){
-
-        r_inputs=getMap(request_inputs,"metapath");
-        if(r_inputs!=NULL){
-          sprintf(tmps1,"%s/%s",ntmp,r_inputs->value);
-          r_inputs=getMap(s1->content,"ServiceProvider");
-          if(r_inputs!=NULL)
-            sprintf(tmps1,"%s/%s",strdup(tmps1),r_inputs->value);
-        }else{
-          sprintf(tmps1,"%s/",ntmp);
-        }
-          
-  
-#ifdef DEBUG
-        fprintf(stderr,"Trying to load %s\n",tmps1);
-#endif
-#ifdef WIN32
-        HINSTANCE so = LoadLibraryEx(tmps1,NULL,LOAD_WITH_ALTERED_SEARCH_PATH);
-#else
-        void* so = dlopen(tmps1, RTLD_LAZY);
-#endif
-#ifdef WIN32
-        DWORD errstr;
-        errstr = GetLastError();
-#else
-        char *errstr;
-        errstr = dlerror();
-#endif
-        if( so != NULL ) {
-          r_inputs=getMap(s1->content,"serviceType");
-#ifdef DEBUG
-          fprintf(stderr,"r_inputs->value = %s\n",r_inputs->value);
-#endif
-          if(strncasecmp(r_inputs->value,"C-FORTRAN",9)==0){
-            r_inputs=getMap(request_inputs,"Identifier");
-#ifdef DEBUG
-            fprintf(stderr,"Try to load function %s\n",r_inputs->value);
-#endif
-            typedef int (*execute_t)(char***,char***,char***);
-            char fname[1024];
-            sprintf(fname,"%s_",r_inputs->value);
-#ifdef DEBUG
-            fprintf(stderr,"Try to load function %s\n",fname);
-#endif
-#ifdef WIN32
-            execute_t execute=(execute_t)GetProcAddress(so,fname); 
-#else
-            execute_t execute=(execute_t)dlsym(so,fname);
-#endif
-#ifdef DEBUG
-#ifdef WIN32
-            errstr = GetLastError();
-#else
-            errstr = dlerror();
-#endif
-#endif  
-            char main_conf[10][10][1024];
-            char inputs[10][10][1024];
-            char outputs[10][10][1024];
-            for(int i=0;i<10;i++){
-              for(int j=0;j<10;j++){
-                memset(main_conf[i][j],0,1024);
-                memset(inputs[i][j],0,1024);
-                memset(outputs[i][j],0,1024);
-              }
-            }
-            mapsToCharXXX(m,(char***)main_conf);
-            mapsToCharXXX(request_input_real_format,(char***)inputs);
-            //mapsToCharXXX(request_output_real_format,(char***)outputs);
-            eres=execute((char***)&main_conf[0],(char***)&inputs[0],(char***)&outputs[0]);
-            charxxxToMaps((char***)&outputs[0],&request_output_real_format);
-
-          }else{
-
-            typedef int (*execute_t)(maps**,maps**,maps**);
-#ifdef DEBUG
-            fprintf(stderr,"Library loaded %s \n",errstr);
-#endif
-            r_inputs=getMap(request_inputs,"Identifier");
-#ifdef DEBUG
-            fprintf(stderr,"Try to load function %s\n",r_inputs->value);
-#endif
-#ifdef WIN32
-            execute_t execute=(execute_t)GetProcAddress(so,r_inputs->value); 
-#else
-            execute_t execute=(execute_t)dlsym(so,r_inputs->value);
-#endif
-#ifdef DEBUG
-#ifdef WIN32
-            errstr = GetLastError();
-#else
-            errstr = dlerror();
-#endif
-            fprintf(stderr,"Function loaded %s\n",errstr);
-#endif  
-            /**
-             * set the status code value returned by the service function itself
-             */
-            eres=execute(&m,&request_input_real_format,&request_output_real_format);
-          }
-          dlclose(so);
-        } else {
-          /**
-           * Unable to load the requested C Library
-           */
-          char tmps2[1024];
-          sprintf(tmps1,"C Library can't be loaded %s \n",errstr);
-          map* tmps=createMap("text",tmps1);
-          printExceptionReportResponse(m,tmps);
-          freeMap(&tmps);
-          free(tmps);
-          exit(1);
-        }
-      }
-      else
-#ifdef USE_PYTHON
-        if(strncasecmp(r_inputs->value,"PYTHON",6)==0)
-          eres=zoo_python_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-        else
-#endif 
-#ifdef USE_JAVA
-          if(strncasecmp(r_inputs->value,"JAVA",4)==0){
-            eres=zoo_java_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-            }
-          else
-#endif
-            
-#ifdef USE_PHP
-            if(strncasecmp(r_inputs->value,"PHP",3)==0){
-              eres=zoo_php_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-            }
-            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){
-                  eres=zoo_js_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
-                }
-                else
-#endif
-                  {
-                    char tmpv[1024];
-                    sprintf(tmpv,"Programming Language (%s) set in ZCFG file is not currently supported by ZOO Kernel.\n",r_inputs->value);
-                    map* tmps=createMap("text",tmpv);
-                    printExceptionReportResponse(m,tmps);
-                    return -1;
-                  }
-      
-  
+
+      loadServiceAndRun(&m,s1,request_inputs,&request_input_real_format,&request_output_real_format,&eres);
+
     } else {
       /**
@@ -1880 +1762 @@
        * error response here !!!
        */
+      eres=-1;
+      errorException(m, _("Unable to run the child process properly"), "InternalError");
     }
         

trunk/zoo-services/ogr/base-vect-ops/service.c

@@ -23 +23 @@
  */
 
+#include <libintl.h>
+#include <locale.h>
+#define _(String) dgettext ("zoo-services",String)
+
 #include "cpl_conv.h"
 #include "ogr_api.h"
@@ -28 +32 @@
 #include "geos_c.h"
 #include "service.h"
+
 
 extern "C" {
@@ -479 +484 @@
     }
     if(geometry2==NULL){
-      setMapInMaps(conf,"lenv","message","Unable to parse input geometry for InputEntity2.");
+      setMapInMaps(conf,"lenv","message",_("Unable to parse input geometry for InputEntity2."));
       fprintf(stderr,"SERVICE FAILED !\n");
       return SERVICE_FAILED;

trunk/zoo-services/utils/status/service.c

@@ -22 +22 @@
  * THE SOFTWARE.
  */
+
 #include "service.h"
 
@@ -75 +76 @@
     }else{
       char tmp[1024];
-      snprintf(tmp,1024,"GetStatus was unable to use the tmpPath value set in main.cfg file as directory %s.",tmpTmap->value);
+      snprintf(tmp,1024,_ss("GetStatus was unable to use the tmpPath value set in main.cfg file as directory %s."),tmpTmap->value);
       setMapInMaps(conf,"lenv","message",tmp);
       return SERVICE_FAILED;
@@ -81 +82 @@
     if(hasFile<0){
       char tmp[1024];
-      snprintf(tmp,1024,"GetStatus was unable to find any cache file for Service ID %s.",tmpMap->value);
+      snprintf(tmp,1024,_ss("GetStatus was unable to find any cache file for Service ID %s."),tmpMap->value);
       setMapInMaps(conf,"lenv","message",tmp);
       return SERVICE_FAILED;
@@ -107 +108 @@
     else{
       char tmp[1024];
-      sprintf(tmp,"ZOO GetStatus Service was unable to parse the cache xml file available for the Service ID %s.",tmpMap->value);
+      sprintf(tmp,_ss("ZOO GetStatus Service was unable to parse the cache xml file available for the Service ID %s."),tmpMap->value);
       setMapInMaps(conf,"lenv","message",tmp);
       return SERVICE_FAILED;