A-M baby

Task/Call-a-function-in-a-shared-library/J/call-a-function-in-a-shared-library-1.j

@@ -0,0 +1,12 @@
+require 'dll'
+strdup=: 'msvcrt.dll _strdup >x *' cd <
+free=: 'msvcrt.dll free n x' cd <
+getstr=: free ] memr@,&0 _1
+
+DupStr=:verb define
+  try.
+    getstr@strdup y
+  catch.
+    y
+  end.
+)

Task/Call-a-function-in-a-shared-library/J/call-a-function-in-a-shared-library-2.j

@@ -0,0 +1,4 @@
+   DupStr 'hello'
+hello
+   getstr@strdup ::] 'hello'
+hello

Task/Call-a-function-in-a-shared-library/Julia/call-a-function-in-a-shared-library.julia

@@ -0,0 +1,3 @@
+#ccall((symbol, library), RetType, (ArgType1, ...), ArgVar1, ...)
+	ccall( (:GetDoubleClickTime, "User32"), stdcall,
+		Uint, (), )

Task/Call-a-function-in-a-shared-library/Maple/call-a-function-in-a-shared-library.maple

@@ -0,0 +1,3 @@
+> cfloor := define_external( floor, s::float[8], RETURN::float[8], LIB = "libm.so" ):
+> cfloor( 2.3 );
+                                   2.

Task/Call-a-function-in-a-shared-library/Mathematica/call-a-function-in-a-shared-library.mathematica

@@ -0,0 +1,4 @@
+Needs["NETLink`"];
+externalFloor = DefineDLLFunction["floor", "msvcrt.dll", "double", { "double" }];
+externalFloor[4.2]
+-> 4.