12 lines
188 B
Text
12 lines
188 B
Text
require 'dll'
|
|
strdup=: 'msvcrt.dll _strdup >x *' cd <
|
|
free=: 'msvcrt.dll free n x' cd <
|
|
getstr=: free ] memr@,&0 _1
|
|
|
|
DupStr=:verb define
|
|
try.
|
|
getstr@strdup y
|
|
catch.
|
|
y
|
|
end.
|
|
)
|