Data commit

Task/Use-another-language-to-call-a-function/Nim/use-another-language-to-call-a-function-1.nim

@@ -0,0 +1,9 @@
+proc Query*(data: var array[1024, char], length: var cint): cint {.exportc.} =
+  const text = "Here am I"
+  if length < text.len:
+    return 0
+
+  for i in 0 .. text.high:
+    data[i] = text[i]
+  length = text.len
+  return 1

Task/Use-another-language-to-call-a-function/Nim/use-another-language-to-call-a-function-2.nim

@@ -0,0 +1,20 @@
+#include <stdio.h>
+
+extern int Query (char * Data, size_t * Length);
+
+int main (int argc, char * argv [])
+{
+   char     Buffer [1024];
+   size_t   Size = sizeof (Buffer);
+
+   if (0 == Query (Buffer, &Size))
+   {
+      printf ("failed to call Query\n");
+   }
+   else
+   {
+      char * Ptr = Buffer;
+      while (Size-- > 0) putchar (*Ptr++);
+      putchar ('\n');
+   }
+}