RosettaCodeData/Task/Call-a-foreign-language-function/Factor/call-a-foreign-language-function.factor

FUNCTION: char* strdup ( c-string s ) ;

: my-strdup ( str -- str' )
    strdup [ utf8 alien>string ] [ (free) ] bi ;