Data commit

Task/Use-another-language-to-call-a-function/Tcl/use-another-language-to-call-a-function-1.tcl

@@ -0,0 +1,22 @@
+int Query (char * Data, size_t * Length) {
+    Tcl_Obj *arguments[2];
+    int code;
+
+    arguments[0] = Tcl_NewStringObj("Query", -1); /* -1 for "use up to zero byte" */
+    arguments[1] = Tcl_NewStringObj(Data, Length);
+    Tcl_IncrRefCount(arguments[0]);
+    Tcl_IncrRefCount(arguments[1]);
+    if (Tcl_EvalObjv(interp, 2, arguments, 0) != TCL_OK) {
+        /* Was an error or other exception; report here... */
+        Tcl_DecrRefCount(arguments[0]);
+        Tcl_DecrRefCount(arguments[1]);
+        return 0;
+    }
+    Tcl_DecrRefCount(arguments[0]);
+    Tcl_DecrRefCount(arguments[1]);
+    if (Tcl_GetObjResult(NULL, Tcl_GetObjResult(interp), &code) != TCL_OK) {
+        /* Not an integer result */
+        return 0;
+    }
+    return code;
+}

Task/Use-another-language-to-call-a-function/Tcl/use-another-language-to-call-a-function-2.tcl

@@ -0,0 +1,4 @@
+proc Query data {
+    puts "Query was $data"
+    return 1;
+}

Task/Use-another-language-to-call-a-function/Tcl/use-another-language-to-call-a-function-3.tcl

@@ -0,0 +1,14 @@
+int Query (char * Data, size_t * Length) {
+    const char *str;
+    int len;
+
+    if (Tcl_Eval(interp, "Query") != TCL_OK) {
+        return 0;
+    }
+    str = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &len);
+    if (len+1 > Length) {
+        return 0;
+    }
+    memcpy(Data, str, len+1);
+    return 1;
+}

Task/Use-another-language-to-call-a-function/Tcl/use-another-language-to-call-a-function-4.tcl

@@ -0,0 +1,3 @@
+proc Query {} {
+    return "Here am I"
+}

Task/Use-another-language-to-call-a-function/Tcl/use-another-language-to-call-a-function-5.tcl

@@ -0,0 +1,9 @@
+#include <tcl.h>
+Tcl_Interp *interp;
+
+int main(int argc, char **argv) {
+    Tcl_FindExecutable(argv[0]); /* Initializes library */
+    interp = Tcl_CreateInterp(); /* Make an interpreter */
+
+    /* Rest of contents of main() from task header... */
+}