Skip to content

Instantly share code, notes, and snippets.

@mrjbq7

mrjbq7/gist:37133

Created December 17, 2008 17:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mrjbq7/37133 to your computer and use it in GitHub Desktop.
Save mrjbq7/37133 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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 ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment