Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Use-another-language-to-call-a-function/Phix/use-another-language-to-call-a-function.phix
+++ b/Task/Use-another-language-to-call-a-function/Phix/use-another-language-to-call-a-function.phix
@ -0,0 +1,10 @@
+constant Here_am_I = "Here am I"
+function Query(atom pData, atom pLength)
+integer len = peekNS(pLength,machine_word(),0)
+    if poke_string(pData,len,Here_am_I) then
+        return 0
+    end if
+    pokeN(pLength,length(Here_am_I)+1,machine_word())
+    return 1
+end function
+constant Query_cb = call_back(routine_id("Query"))