RosettaCodeData/Task/Call-a-function-in-a-shared.../Phix/call-a-function-in-a-shared...

9 lines
266 B
Plaintext

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