Initial data commit

Task/Call-a-foreign-language-function/Forth/call-a-foreign-language-function.fth

@@ -0,0 +1,23 @@
+c-library cstrings
+
+\c #include <string.h>
+c-function strdup strdup a -- a ( c-string -- duped string )
+c-function strlen strlen a -- n ( c-string -- length )
+
+end-c-library
+
+\ convenience function (not used here)
+: c-string ( addr u -- addr' )
+    tuck  pad swap move  pad + 0 swap c!  pad ;
+
+create test s" testing" mem, 0 c,
+
+test strdup value duped
+
+test .
+test 7 type		\ testing
+cr
+duped .                 \ different address
+duped dup strlen type   \ testing
+
+duped free throw	\ gforth ALLOCATE and FREE map directly to C's malloc() and free()