|
From: Vesa K. <ve...@ml...> - 2007-01-12 04:26:35
|
Initial commit of a lib of misc utils to be refactored. ---------------------------------------------------------------------- A mltonlib/trunk/com/ssh/misc-util/unstable/ffi.sml ---------------------------------------------------------------------- Added: mltonlib/trunk/com/ssh/misc-util/unstable/ffi.sml =================================================================== --- mltonlib/trunk/com/ssh/misc-util/unstable/ffi.sml 2007-01-12 12:25:43 UTC (rev 5025) +++ mltonlib/trunk/com/ssh/misc-util/unstable/ffi.sml 2007-01-12 12:26:02 UTC (rev 5026) @@ -0,0 +1,17 @@ +(* Copyright (C) 2007 SSH Communications Security, Helsinki, Finland + * + * This code is released under the MLton license, a BSD-style license. + * See the LICENSE file or http://mlton.org/License for details. + *) + +(* + * This is an unstable experimental FFI utility library. + *) + +structure FFI = struct + type 'a export = 'a Effect.t + type 'a symbol = 'a Thunk.t * 'a Effect.t + + fun get ((th, _) : 'a symbol) = th () + fun set ((_, ef) : 'a symbol) x = ef x +end Property changes on: mltonlib/trunk/com/ssh/misc-util/unstable/ffi.sml ___________________________________________________________________ Name: svn:eol-style + native |