[MLton-commit] r4427

[Matthew Fluet]

Refactored System
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/build/sources.mlb
U   mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/command-line.sml
U   mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/file-sys.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/build/sources.mlb
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/build/sources.mlb	2006-04-30 19:13:21 UTC (rev 4426)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/build/sources.mlb	2006-04-30 19:24:40 UTC (rev 4427)
@@ -251,17 +251,17 @@
    ../io/text-io.sig
    ../io/text-io.sml
 
-(*
-      ../../system/path.sig
-      ../../system/path.sml
-      ../../system/file-sys.sig
-      ../../system/file-sys.sml
-      ../../system/command-line.sig
-      ../../system/command-line.sml
+   ../system/path.sig
+   ../system/path.sml
+   ../system/file-sys.sig
+   ../system/file-sys.sml
+   ../system/command-line.sig
+   ../system/command-line.sml
 
-      ../../general/sml90.sig
-      ../../general/sml90.sml
+   ../general/sml90.sig
+   ../general/sml90.sml
 
+(*
       ../../mlton/pointer.sig
       ../../mlton/pointer.sml
       ../../mlton/call-stack.sig

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/command-line.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/command-line.sml	2006-04-30 19:13:21 UTC (rev 4426)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/command-line.sml	2006-04-30 19:24:40 UTC (rev 4427)
@@ -11,9 +11,9 @@
       structure Prim = PrimitiveFFI.CommandLine
          
       fun name () = 
-         COld.CS.toString (Prim.commandNameGet ())
+         CUtil.C_String.toString (Prim.commandNameGet ())
 
       fun arguments () =
-         (Array.toList o COld.CSS.toArrayOfLength) 
-         (Prim.argvGet (), Prim.argcGet ())
+         (Array.toList o CUtil.C_StringArray.toArrayOfLength) 
+         (Prim.argvGet (), C_Int.toInt (Prim.argcGet ()))
    end

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/file-sys.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/file-sys.sml	2006-04-30 19:13:21 UTC (rev 4426)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/system/file-sys.sml	2006-04-30 19:24:40 UTC (rev 4427)
@@ -34,7 +34,7 @@
       val readLink = P_FSys.readlink
 
       (* the maximum number of links allowed *)
-      val maxLinks = 64
+      val maxLinks: int = 64
 
       structure P = OS_Path