[MLton-commit] r5146

[Vesa Karvonen]

Added TextIO.println.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/sigs.cm
U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/unsealed.cm
A   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text-io.sml
U   mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.mlb
U   mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.use
U   mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml
U   mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml
A   mltonlib/trunk/com/ssh/extended-basis/unstable/public/io/
A   mltonlib/trunk/com/ssh/extended-basis/unstable/public/io/text-io.sig

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/sigs.cm
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/sigs.cm	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/sigs.cm	2007-02-06 16:20:02 UTC (rev 5146)
@@ -32,6 +32,7 @@
    ../../public/generic/emb.sig
    ../../public/generic/fix.sig
    ../../public/generic/iso.sig
+   ../../public/io/text-io.sig
    ../../public/numeric/int-inf.sig
    ../../public/numeric/integer.sig
    ../../public/numeric/real.sig

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/unsealed.cm
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/unsealed.cm	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/smlnj/unsealed.cm	2007-02-06 16:20:02 UTC (rev 5146)
@@ -44,6 +44,7 @@
    ../smlnj/words.sml
    ../sq.sml
    ../sum.sml
+   ../text-io.sml
    ../thunk.sml
    ../tie.sml
    ../un-op.sml

Added: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text-io.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text-io.sml	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text-io.sml	2007-02-06 16:20:02 UTC (rev 5146)
@@ -0,0 +1,12 @@
+(* 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.
+ *)
+
+structure TextIO = struct
+   open TextIO
+
+   fun println s =
+       (output (stdOut, s) ; output1 (stdOut, #"\n") ; flushOut stdOut)
+end


Property changes on: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text-io.sml
___________________________________________________________________
Name: svn:eol-style
   + native

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.mlb
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.mlb	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.mlb	2007-02-06 16:20:02 UTC (rev 5146)
@@ -202,6 +202,7 @@
             bas public/lazy/promise.sig detail/promise.sml end
          end
          basis ShiftOp = bas public/fn/shift-op.sig end
+         basis TextIO = bas public/io/text-io.sig detail/text-io.sml end
 
          open BinOp BinPr Bool Buffer
          open Cmp
@@ -214,7 +215,7 @@
          open Products Promise
          open Reader Ref
          open Scalars Seqs ShiftOp Sq Sum
-         open Thunk Tie
+         open TextIO Thunk Tie
          open Unit Univ UnOp UnPr
          open With Writer
       in

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.use
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.use	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/extensions.use	2007-02-06 16:20:02 UTC (rev 5146)
@@ -89,6 +89,7 @@
         "detail/"^compiler^"/texts.sml",
         "public/lazy/promise.sig", "detail/promise.sml",
         "public/fn/shift-op.sig",
+        "public/io/text-io.sig", "detail/text-io.sml",
         "detail/"^compiler^"/forget.use",
         "public/export/"^compiler^".sml",
         "public/export/common.sml",

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/common.sml	2007-02-06 16:20:02 UTC (rev 5146)
@@ -44,6 +44,7 @@
 signature SUBSTRING = SUBSTRING
 signature SUM = SUM
 signature TEXT = TEXT
+signature TEXT_IO = TEXT_IO
 signature THUNK = THUNK
 signature TIE = TIE
 signature UNIT = UNIT
@@ -103,6 +104,7 @@
 structure String : STRING = String
 structure Substring : SUBSTRING = Substring
 structure Text : TEXT = Text
+structure TextIO : TEXT_IO = TextIO
 structure Tie : TIE = Tie
 structure UnOp : UN_OP = UnOp
 structure Unit : UNIT = Unit

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/public/export/top-level.sml	2007-02-06 16:20:02 UTC (rev 5146)
@@ -43,6 +43,10 @@
 
 val op :=: = Ref.:=:
 
+(** ==== TextIO ==== *)
+
+val println = TextIO.println
+
 (** ==== UnPr ==== *)
 
 val op andAlso = UnPr.andAlso

Added: mltonlib/trunk/com/ssh/extended-basis/unstable/public/io/text-io.sig
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/public/io/text-io.sig	2007-02-06 15:20:13 UTC (rev 5145)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/public/io/text-io.sig	2007-02-06 16:20:02 UTC (rev 5146)
@@ -0,0 +1,21 @@
+(* 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.
+ *)
+
+(** Extended {TEXT_IO} signature. *)
+signature TEXT_IO = sig
+   include TEXT_IO
+
+   val println : String.t Effect.t
+   (**
+    * Prints the given string to the standard output stream with a newline
+    * and flushes the stream.
+    *
+    * This is available in the top-level environment as {println}.
+    * {println s} is equivalent to:
+    *
+    *> (output (stdOut, s) ; output1 (stdOut, #"\n") ; flushOut stdOut)
+    *)
+end


Property changes on: mltonlib/trunk/com/ssh/extended-basis/unstable/public/io/text-io.sig
___________________________________________________________________
Name: svn:eol-style
   + native