Data commit

Task/Call-a-foreign-language-function/FutureBasic/call-a-foreign-language-function.basic

@@ -0,0 +1,20 @@
+include "NSLog.incl"
+
+BeginCDeclaration
+  char *strdup(const char *src);
+EndC
+
+BeginCFunction
+  char *strdup(const char *src) {
+    char *dst = malloc(strlen (src) + 1);  // Space for length plus null
+    if (dst == NULL) return NULL;          // No memory
+    strcpy(dst, src);                      // Copy the characters
+  return dst;                              // Return the new string
+  }
+EndC
+
+BeginCCode
+  NSLog( @"%s", strdup( "Hello, World!" ) );
+EndC
+
+HandleEvents