Recent changes to Native function calling

Native function calling modified by Kalle

Kalle — Tue, 05 Sep 2023 12:16:05 -0000

--- v22
+++ v23
@@ -28,7 +28,7 @@

 Function/Arguments   |  Return | Description
 --------------------- |---------------- | ---------- 
-**call**    (number *module*, string *function*, array *paramDef* \[, mixed *arg1* ... \])    | mixed  | Call a native *function* of a *module* loaded with dl() function. The array *paramDef* defines the parameters and return code of native funtion:
 **\[\[ 'type of param1' ... 'type of param N' ], 'type of return' ]**
+**call**    (number *module*, string *function*, array *paramDef* \[, mixed *arg1* ... \])    | mixed  | Call a native *function* of a *module* loaded with dl() function. The array *paramDef* defines the parameters and return code of native funtion:
 **\[\[ 'type of param1' ... 'type of param N' ], 'type of return' ]**
For better performance it is recommended to give the parameter definition as string in following format: 'abc:x' where a, b, c are parameter types and x is the return type.  


 **Types** and corresponding C datatypes:
@@ -81,7 +81,7 @@
   global hDLLKernel32;
   dst = "";
   resize (dst, strlen(src)*2+2); // Make enough buffer for wide char string
-  size = call (hDLLKernel32, "MultiByteToWideChar", [["i","i", "s", "i", 'r','i'], "i"],  65001, 0, src, -1, dst, strlen(src)+1);
+  size = call (hDLLKernel32, "MultiByteToWideChar", "iisiri:i",  65001, 0, src, -1, dst, strlen(src)+1);
   if (size>0)
     resize (dst, size*2);  // Resize to correct length (byte aligned)
   return dst;
@@ -89,7 +89,7 @@

 function MessageBox (text, topic="Info") {
     global hDLLUser32;
-    call (hDLLUser32, "MessageBoxW", [["p","s", "s", "i"], "i"], null, MultiByteToWideChar(text), MultiByteToWideChar (topic), 0|0x00000030);
+    call (hDLLUser32, "MessageBoxW", "pssi:i", null, MultiByteToWideChar(text), MultiByteToWideChar (topic), 0|0x00000030);
 }

 if (hDLLKernel32) {
@@ -129,7 +129,7 @@
 }

 /* Give a native function the callback pointer */
-call (hDLL, "nativeFunction", [["p", "s"], "i"], dlsym (null, "callbackA1"), "Argument");
+call (hDLL, "nativeFunction", "ps:i", dlsym (null, "callbackA1"), "Argument");

 /* Following callback functions are possible to call with __cdecl calling conversion */
 function callbackA1 (arg1) {

Native function calling modified by Kalle

Kalle — Tue, 05 Sep 2023 12:13:46 -0000

--- v21
+++ v22
@@ -58,7 +58,7 @@
 /* Call the native function which is defined as:
  int compress (void *destBuf, int *destLen, const char* srcBuf, int sourceLen);
  dst and len are reference parameters and filled with binary data by native function. */
-ret = call (module, "compress", [['r', 'r', 's', 'i'], 'i'], dst, len, src, strlen(src));
+ret = call (module, "compress", "rrsi:i", dst, len, src, strlen(src));
 if (ret===0) {
   /* Parse the binary length and truncate destination string */
   len = binparse (len,7);

Native function calling modified by Kalle

Kalle — Tue, 05 Sep 2023 12:12:53 -0000

--- v20
+++ v21
@@ -98,7 +98,7 @@
 ?>
 ~~~

-** Working with callbacks **
+** Working with callbacks**

 There are 8 callback functions, which can be referenced by dlsym() to get the pointer address for a native function.

Native function calling modified by Kalle

Kalle — Tue, 05 Sep 2023 12:12:01 -0000

--- v19
+++ v20
@@ -5,7 +5,6 @@
 ** Load dynamic link library **

 ~~~
-:::script

Native function calling modified by Kalle

Kalle — Sat, 19 Dec 2020 14:08:48 -0000

--- v18
+++ v19
@@ -118,15 +118,15 @@
 */

 function callbackA1 (arg1) {
-  // Cast the argument to const char* and V1 string
+  /* Cast the argument to const char* and V1 string */
   s = memat (binformat (param1));
   print (s);

-  // Cast the argument to int and V1 number
+  /* Cast the argument to int and V1 number */
   i = binparse (binformat (arg1), 7, 0, 1);  
   print (i);

-  // Cast the argument to double and V1 number
+  /* Cast the argument to double and V1 number */
   d = binparse (binformat (arg1), 6);  
   print (d);

Native function calling modified by Kalle

Kalle — Sat, 19 Dec 2020 14:07:36 -0000

--- v17
+++ v18
@@ -63,7 +63,7 @@
  dst and len are reference parameters and filled with binary data by native function. */
 ret = call (module, "compress", [['r', 'r', 's', 'i'], 'i'], dst, len, src, strlen(src));
 if (ret===0) {
-  // Parse the binary length and truncate destination string
+  /* Parse the binary length and truncate destination string */
   len = binparse (len,7);
   resize (dst, len);

@@ -87,7 +87,7 @@
   resize (dst, strlen(src)*2+2); // Make enough buffer for wide char string
   size = call (hDLLKernel32, "MultiByteToWideChar", [["i","i", "s", "i", 'r','i'], "i"],  65001, 0, src, -1, dst, strlen(src)+1);
   if (size>0)
-    resize (dst, size*2);  /* Resize to correct length (byte aligned) */
+    resize (dst, size*2);  // Resize to correct length (byte aligned)
   return dst;
 }

Native function calling modified by Kalle

Kalle — Sat, 19 Dec 2020 14:06:40 -0000

--- v16
+++ v17
@@ -51,16 +51,16 @@
 0)
-    resize (dst, size*2);  // Resize to correct length (byte aligned)
+    resize (dst, size*2);  /* Resize to correct length (byte aligned) */
   return dst;
 }

Native function calling modified by Kalle

Kalle — Sat, 19 Dec 2020 14:05:35 -0000

--- v15
+++ v16
@@ -1,11 +1,11 @@
-## Native function calling
-~~~
+### Native function calling

 V1 can call native functions of dynamic libraries (.dll, .so).

 ** Load dynamic link library **

 ~~~
+:::script

Native function calling modified by Kalle

Kalle — Sat, 19 Dec 2020 14:04:01 -0000

--- v14
+++ v15
@@ -6,7 +6,6 @@
 ** Load dynamic link library **

 ~~~
-:::script
 
 ~~~
@@ -48,7 +46,6 @@


 ~~~
-:::script

Native function calling modified by Kalle

Kalle — Sat, 19 Dec 2020 14:02:42 -0000

--- v13
+++ v14
@@ -5,12 +5,11 @@

 ** Load dynamic link library **

-
-
+~~~
 :::script