13 lines
188 B
Text
13 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.
|
||
|
|
)
|