Changeset 873 for branches/prototype-v0/zoo-project/zoo-kernel/zoo_service_loader.c

Timestamp:

Mar 19, 2018, 3:53:31 PM (6 years ago)

Author:

djay

Message:

Add support for R language and its documentation.

File:

• branches/prototype-v0/zoo-project/zoo-kernel/zoo_service_loader.c (modified) (4 diffs)

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

@@ -35 +35 @@
 #ifdef USE_OTB
 #include "service_internal_otb.h"
+#endif
+
+#ifdef USE_R
+#include "service_internal_r.h"
 #endif
 
@@ -706 +710 @@
 #endif
 
+#ifdef USE_R
+  if (strncasecmp (r_inputs->value, "R", 6) == 0)
+    {     
+      *eres =
+        zoo_r_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)
@@ -1711 +1726 @@
                                   addNestedOutputs(&s1);
 #endif
+                                  json_object* jobj=serviceToJson(s1);
+                                  const char* jsonStr=json_object_to_json_string_ext(jobj,JSON_C_TO_STRING_PLAIN);
+                                  fprintf(stderr,"*** %s %d %s \n",__FILE__,__LINE__,jsonStr);
+
                                   printDescribeProcessForProcess (zooRegistry,m, doc, n, s1);
                                   freeService (&s1);
@@ -2548 +2567 @@
   rewind(stdout);
 
+  fprintf(stderr,"%s %d %d\n",__FILE__,__LINE__,eres);
+
   if (eres != -1)
     outputResponse (s1, request_input_real_format,