Data commit

Task/Use-another-language-to-call-a-function/Raku/use-another-language-to-call-a-function-1.raku

@@ -0,0 +1,6 @@
+#!/usr/bin/env raku
+
+sub MAIN (Int :l(:len(:$length))) {
+   my Str $String = "Here am I";
+   $*OUT.print: $String if $String.codes ≤ $length
+}

Task/Use-another-language-to-call-a-function/Raku/use-another-language-to-call-a-function-2.raku

@@ -0,0 +1,15 @@
+#include<stdio.h>
+#include<stddef.h>
+#include<string.h>
+
+int Query(char *Data, size_t *Length) {
+   FILE *fp;
+   char buf[64];
+
+   sprintf(buf, "/home/user/query.raku --len=%zu", *Length);
+   if (!(fp = popen(buf, "r")))
+      return 0;
+   fgets(Data, *Length, fp);
+   *Length = strlen(Data);
+   return pclose(fp) >= 0 && *Length != 0;
+}