Changeset 880 for branches/prototype-v0/zoo-project/zoo-kernel/service_internal_r.c

Timestamp:

Sep 12, 2018, 4:02:49 PM (6 years ago)

Author:

djay

Message:

Modify memory configuration option gesture. Now, in case you don't have setup memory option in the main section your main.cfg file then, the ZOO-Kernel will load everything in memory and will also store the file containing the input. In case you want the old mode, you have to set memory option to 'load' in your main.cfg file. Fix issue with loading R ZOO-Service located in a subdirectory. Support for XML Execute request containing TEXT_NODE when CDATA_NODE should be used.

File:

• branches/prototype-v0/zoo-project/zoo-kernel/service_internal_r.c (modified) (2 diffs)

branches/prototype-v0/zoo-project/zoo-kernel/service_internal_r.c

@@ -110 +110 @@
   if(tmp!=NULL){
     if(mp!=NULL && strlen(mp->value)>0){
-      char *mps=zStrdup(mp->value);
-      int i,len=strlen(mps);
-      int j=0;
-      for(i=0;i<len;i++){
-        if(mps[i]=='/'){
-          mps[i]='.';
-        }
-      }
-      char *mn=(char*)malloc((strlen(mps)+strlen(tmp->value)+2)*sizeof(char));
-      sprintf(mn,"%s.%s",mps,tmp->value);
+      char *mn=(char*)malloc((strlen(mp->value)+strlen(tmp->value)+2)*sizeof(char));
+      sprintf(mn,"%s/%s",mp->value,tmp->value);
       pName = mkString(mn);
       free(mn);
-      free(mps);
     }
     else{
-      dumpMap(tmp);
       char *tmpStr=(char*)malloc((strlen(r_path)+strlen(tmp->value)+2)*sizeof(char));
       sprintf(tmpStr,"%s/%s",r_path,tmp->value);
@@ -189 +179 @@
         char* finalStr=(char*)malloc((strlen(tmpStr)+strlen(_("Unable to run your R service: "))+2)*sizeof(char));
         sprintf(finalStr,"%s %s",_("Unable to run your R service: "),tmpStr);
-        fprintf(stderr,"%s %d %s \n",__FILE__,__LINE__,tmpStr);
-        fflush(stderr);
         errorException(*main_conf,finalStr,"NoApplicableCode",NULL);
         free(finalStr);