[MLton-commit] r5026

[Vesa K. <ve...@ml...>]

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