8 lines
266 B
Text
8 lines
266 B
Text
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
|