[MLton-commit] r4087
Stephen Weeks
MLton@mlton.org
Sun, 11 Sep 2005 09:27:08 -0700
Caught up with changes to MLton structure.
----------------------------------------------------------------------
U mlton/trunk/lib/mlton-stubs/gc.sig
U mlton/trunk/lib/mlton-stubs/itimer.sig
U mlton/trunk/lib/mlton-stubs/mlton.sml
U mlton/trunk/lib/mlton-stubs/random.sig
U mlton/trunk/lib/mlton-stubs/rlimit.sig
U mlton/trunk/lib/mlton-stubs/rusage.sig
U mlton/trunk/lib/mlton-stubs/signal.sig
U mlton/trunk/lib/mlton-stubs/socket.sig
U mlton/trunk/lib/mlton-stubs/syslog.sig
U mlton/trunk/lib/mlton-stubs/word.sig
----------------------------------------------------------------------
Modified: mlton/trunk/lib/mlton-stubs/gc.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/gc.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/gc.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
@@ -10,6 +11,7 @@
val collect: unit -> unit
val pack: unit -> unit
val setMessages: bool -> unit
+ val setRusage: bool -> unit
val setSummary: bool -> unit
val unpack: unit -> unit
end
Modified: mlton/trunk/lib/mlton-stubs/itimer.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/itimer.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/itimer.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
Modified: mlton/trunk/lib/mlton-stubs/mlton.sml
===================================================================
--- mlton/trunk/lib/mlton-stubs/mlton.sml 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/mlton.sml 2005-09-11 16:27:05 UTC (rev 4087)
@@ -132,6 +132,7 @@
fun collect _ = ()
val pack = MLton.GC.pack
fun setMessages _ = ()
+ fun setRusage _ = ()
fun setSummary _ = ()
fun time _ = Time.zeroTime
fun unpack _ = ()
@@ -478,6 +479,11 @@
type t = word
end
+ structure Ctl =
+ struct
+ fun getERROR _ = NONE
+ end
+
structure Host =
struct
type t = {name: string}
@@ -495,6 +501,7 @@
fun accept _ = raise Fail "Socket.accept"
fun connect _ = raise Fail "Socket.connect"
+ fun fdToSock _ = raise Fail "Socket.fdToSock"
fun listen _ = raise Fail "Socket.listen"
fun listenAt _ = raise Fail "Socket.listenAt"
fun shutdownRead _ = raise Fail "Socket.shutdownWrite"
Modified: mlton/trunk/lib/mlton-stubs/random.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/random.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/random.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
Modified: mlton/trunk/lib/mlton-stubs/rlimit.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/rlimit.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/rlimit.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
Modified: mlton/trunk/lib/mlton-stubs/rusage.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/rusage.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/rusage.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
Modified: mlton/trunk/lib/mlton-stubs/signal.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/signal.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/signal.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
Modified: mlton/trunk/lib/mlton-stubs/socket.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/socket.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/socket.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
@@ -15,6 +16,13 @@
type t = word
end
+ structure Ctl:
+ sig
+ val getERROR:
+ ('af, 'sock_type) Socket.sock
+ -> (string * Posix.Error.syserror option) option
+ end
+
structure Host:
sig
type t = {name: string}
@@ -36,4 +44,6 @@
val listenAt: Port.t -> t
val shutdownRead: TextIO.instream -> unit
val shutdownWrite: TextIO.outstream -> unit
+
+ val fdToSock: Posix.FileSys.file_desc -> ('af, 'sock_type) Socket.sock
end
Modified: mlton/trunk/lib/mlton-stubs/syslog.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/syslog.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/syslog.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
Modified: mlton/trunk/lib/mlton-stubs/word.sig
===================================================================
--- mlton/trunk/lib/mlton-stubs/word.sig 2005-09-11 16:18:55 UTC (rev 4086)
+++ mlton/trunk/lib/mlton-stubs/word.sig 2005-09-11 16:27:05 UTC (rev 4087)
@@ -1,5 +1,6 @@
-(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
+ * Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.