RosettaCodeData/Task/Call-a-foreign-language-fun.../J/call-a-foreign-language-fun...

5 lines
116 B
Plaintext

require 'dll'
strdup=: 'msvcrt.dll _strdup >x *' cd <
free=: 'msvcrt.dll free n x' cd <
getstr=: free ] memr@,&0 _1