gistfile1.txt

USING: alien.syntax alien.c-types byte-arrays kernel strings ;

IN: uuid

LIBRARY: uuid

FUNCTION: void uuid_generate ( char[16] out ) ;

FUNCTION: void uuid_unparse ( char[16] out, char* out ) ;

: uuid ( -- string )
    16 "char" <c-array> dup uuid_generate 
    36 <byte-array> [ uuid_unparse ] keep >string ;