[MLton-commit] r5767

[Matthew Fluet]

Adding LargeReal, LargeWord, and Real structures to MLton
----------------------------------------------------------------------

U   mlton/trunk/basis-library/libs/basis-extra/top-level/basis.sig
U   mlton/trunk/basis-library/mlton/mlton.sig
U   mlton/trunk/basis-library/mlton/mlton.sml

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

Modified: mlton/trunk/basis-library/libs/basis-extra/top-level/basis.sig
===================================================================
--- mlton/trunk/basis-library/libs/basis-extra/top-level/basis.sig	2007-07-12 04:23:01 UTC (rev 5766)
+++ mlton/trunk/basis-library/libs/basis-extra/top-level/basis.sig	2007-07-12 04:32:56 UTC (rev 5767)
@@ -325,6 +325,9 @@
       sharing type MLton.IntInf.t = IntInf.int
       sharing type MLton.Process.pid = Posix.Process.pid
       sharing type MLton.ProcEnv.gid = Posix.ProcEnv.gid
+      sharing type MLton.LargeReal.t = LargeReal.real
+      sharing type MLton.LargeWord.t = LargeWord.word
+      sharing type MLton.Real.t = Real.real
       sharing type MLton.Real32.t = Real32.real
       sharing type MLton.Real64.t = Real64.real
       sharing type MLton.Signal.t = Posix.Signal.signal

Modified: mlton/trunk/basis-library/mlton/mlton.sig
===================================================================
--- mlton/trunk/basis-library/mlton/mlton.sig	2007-07-12 04:23:01 UTC (rev 5766)
+++ mlton/trunk/basis-library/mlton/mlton.sig	2007-07-12 04:32:56 UTC (rev 5767)
@@ -32,6 +32,8 @@
       structure GC: MLTON_GC
       structure IntInf: MLTON_INT_INF
       structure Itimer: MLTON_ITIMER
+      structure LargeReal: MLTON_REAL
+      structure LargeWord: MLTON_WORD
       structure Platform: MLTON_PLATFORM
       structure Pointer: MLTON_POINTER
       structure ProcEnv: MLTON_PROC_ENV
@@ -39,6 +41,7 @@
       structure Profile: MLTON_PROFILE
 (*      structure Ptrace: MLTON_PTRACE *)
       structure Random: MLTON_RANDOM 
+      structure Real: MLTON_REAL
       structure Real32: sig
                            include MLTON_REAL
                            val castFromWord: Word32.word -> t

Modified: mlton/trunk/basis-library/mlton/mlton.sml
===================================================================
--- mlton/trunk/basis-library/mlton/mlton.sml	2007-07-12 04:23:01 UTC (rev 5766)
+++ mlton/trunk/basis-library/mlton/mlton.sml	2007-07-12 04:32:56 UTC (rev 5767)
@@ -53,6 +53,16 @@
       type t = int
    end
 structure Itimer = MLtonItimer
+structure LargeReal =
+   struct
+      open LargeReal
+      type t = real
+   end
+structure LargeWord =
+   struct
+      open LargeWord
+      type t = word
+   end
 structure Platform = MLtonPlatform
 structure Pointer = MLtonPointer
 structure ProcEnv = MLtonProcEnv
@@ -60,6 +70,11 @@
 (* structure Ptrace = MLtonPtrace *)
 structure Profile = MLtonProfile
 structure Random = MLtonRandom
+structure Real = 
+   struct
+      open Real
+      type t = real
+   end
 structure Real32 = 
    struct
       open Real32