comparison cpp/plml.cpp @ 37:89688ebc447f tip

Deprecating this repository.

   foreign_t mlMxCopyNoGC(term_t src, term_t dst);
   foreign_t mlMxNewRefGC(term_t src, term_t dst);
 }
 
 install_t install() { 
-  PL_register_foreign("mlOPEN", 2, (void *)mlOpen, 0);
-  PL_register_foreign("mlCLOSE", 1, (void *)mlClose, 0);
-  PL_register_foreign("mlEXEC", 2, (void *)mlExec, 0);
-  PL_register_foreign("mlWSNAME", 3, (void *)mlWSName, 0);
-  PL_register_foreign("mlWSALLOC", 2, (void *)mlWSAlloc, 0);
-  PL_register_foreign("mlWSGET", 2, (void *)mlWSGet,0);
-  PL_register_foreign("mlWSPUT", 2, (void *)mlWSPut, 0);
-  PL_register_foreign("mlMX2ATOM", 2, (void *)mlMx2Atom, 0);
-  PL_register_foreign("mlMX2FLOAT", 2, (void *)mlMx2Float, 0);
-  PL_register_foreign("mlMX2LOGICAL", 2, (void *)mlMx2Logical, 0);
-  PL_register_foreign("mlMX2STRING", 2, (void *)mlMx2String, 0);
-  PL_register_foreign("mlMXINFO", 3, (void *)mlMxInfo, 0);
-  PL_register_foreign("mlSUB2IND", 3, (void *)mlMxSub2Ind, 0);
-  PL_register_foreign("mlGETFLOAT", 3, (void *)mlMxGetFloat, 0);
-  PL_register_foreign("mlGETLOGICAL", 3, (void *)mlMxGetLogical, 0);
-  PL_register_foreign("mlGETCELL", 3, (void *)mlMxGetCell, 0);
-  PL_register_foreign("mlGETFIELD", 4, (void *)mlMxGetField, 0);
-  PL_register_foreign("mlGETREALS", 2, (void *)mlMxGetReals, 0);
-  PL_register_foreign("mlCREATENUMERIC", 2, (void *)mlMxCreateNumeric, 0);
-  PL_register_foreign("mlCREATECELL", 2, (void *)mlMxCreateCell, 0);
-  PL_register_foreign("mlCREATESTRING", 2, (void *)mlMxCreateString, 0);
-  PL_register_foreign("mlPUTFLOAT", 3, (void *)mlMxPutFloat, 0);
-  PL_register_foreign("mlPUTFLOATS", 3, (void *)mlMxPutFloats, 0);
-  PL_register_foreign("mlPUTCELL", 3, (void *)mlMxPutCell, 0);
-  PL_register_foreign("mlCOPYNOGC", 2, (void *)mlMxCopyNoGC, 0);
-  PL_register_foreign("mlNEWREFGC", 2, (void *)mlMxNewRefGC, 0);
+  PL_register_foreign("mlOPEN", 2, (void (*)())mlOpen, 0);
+  PL_register_foreign("mlCLOSE", 1, (void (*)())mlClose, 0);
+  PL_register_foreign("mlEXEC", 2, (void (*)())mlExec, 0);
+  PL_register_foreign("mlWSNAME", 3, (void (*)())mlWSName, 0);
+  PL_register_foreign("mlWSALLOC", 2, (void (*)())mlWSAlloc, 0);
+  PL_register_foreign("mlWSGET", 2, (void (*)())mlWSGet,0);
+  PL_register_foreign("mlWSPUT", 2, (void (*)())mlWSPut, 0);
+  PL_register_foreign("mlMX2ATOM", 2, (void (*)())mlMx2Atom, 0);
+  PL_register_foreign("mlMX2FLOAT", 2, (void (*)())mlMx2Float, 0);
+  PL_register_foreign("mlMX2LOGICAL", 2, (void (*)())mlMx2Logical, 0);
+  PL_register_foreign("mlMX2STRING", 2, (void (*)())mlMx2String, 0);
+  PL_register_foreign("mlMXINFO", 3, (void (*)())mlMxInfo, 0);
+  PL_register_foreign("mlSUB2IND", 3, (void (*)())mlMxSub2Ind, 0);
+  PL_register_foreign("mlGETFLOAT", 3, (void (*)())mlMxGetFloat, 0);
+  PL_register_foreign("mlGETLOGICAL", 3, (void (*)())mlMxGetLogical, 0);
+  PL_register_foreign("mlGETCELL", 3, (void (*)())mlMxGetCell, 0);
+  PL_register_foreign("mlGETFIELD", 4, (void (*)())mlMxGetField, 0);
+  PL_register_foreign("mlGETREALS", 2, (void (*)())mlMxGetReals, 0);
+  PL_register_foreign("mlCREATENUMERIC", 2, (void (*)())mlMxCreateNumeric, 0);
+  PL_register_foreign("mlCREATECELL", 2, (void (*)())mlMxCreateCell, 0);
+  PL_register_foreign("mlCREATESTRING", 2, (void (*)())mlMxCreateString, 0);
+  PL_register_foreign("mlPUTFLOAT", 3, (void (*)())mlMxPutFloat, 0);
+  PL_register_foreign("mlPUTFLOATS", 3, (void (*)())mlMxPutFloats, 0);
+  PL_register_foreign("mlPUTCELL", 3, (void (*)())mlMxPutCell, 0);
+  PL_register_foreign("mlCOPYNOGC", 2, (void (*)())mlMxCopyNoGC, 0);
+  PL_register_foreign("mlNEWREFGC", 2, (void (*)())mlMxNewRefGC, 0);
   
   mx_blob.magic = PL_BLOB_MAGIC;
   mx_blob.flags = PL_BLOB_UNIQUE;
   mx_blob.name = (char *)"mx";
   mx_blob.acquire = 0;