September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Call-a-function-in-a-shared-library/Phix/call-a-function-in-a-shared-library.phix
+++ b/Task/Call-a-function-in-a-shared-library/Phix/call-a-function-in-a-shared-library.phix
@ -0,0 +1,8 @@
+string {libname,funcname} = iff(platform()=WINDOWS?{"user32","CharLowerA"}:{"libc","tolower"})
+atom lib = open_dll(libname)
+integer func = define_c_func(lib,funcname,{C_INT},C_INT)
+if func=-1 then
+    ?{{lower('A')}}
+else
+    ?c_func(func,{'A'}) -- ('A'==65)
+end if