[MLton-commit] r5451

[Vesa Karvonen]

Added Console.free.

----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/windows/unstable/detail/ffi/windows.h
U   mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
U   mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/windows/unstable/detail/ffi/windows.h
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/detail/ffi/windows.h	2007-03-19 13:29:12 UTC (rev 5450)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/ffi/windows.h	2007-03-19 15:39:42 UTC (rev 5451)
@@ -223,6 +223,10 @@
 
 /************************************************************************/
 
+WIN_FUNCTION(FreeConsole, BOOL, 0, (void))
+
+/************************************************************************/
+
 C_CODE(LPTSTR win_FormatErrorLocalAlloc(DWORD error))
 
 #endif

Modified: mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-03-19 13:29:12 UTC (rev 5450)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-03-19 15:39:42 UTC (rev 5451)
@@ -508,4 +508,8 @@
 
       fun show (w, c) = 0 <> F_win_ShowWindow.f' (w, c)
    end
+
+   structure Console = struct
+      val free = raiseOnFalse (fn () => F"Console.free" []) F_win_FreeConsole.f'
+   end
 end

Modified: mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-03-19 13:29:12 UTC (rev 5450)
+++ mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-03-19 15:39:42 UTC (rev 5451)
@@ -122,4 +122,8 @@
 
       val show : t * SW.t -> Bool.t
    end
+
+   structure Console : sig
+      val free : Unit.t Effect.t
+   end
 end