src/common/io condition-format.dylan,NONE,1.1.2.1 library.dylan,1.2.2.2,1.2.2.3 unix-io.lid,1.2.2.3,1.2.2.4

Update of /var/lib/cvs/src/common/io
In directory cantor:/tmp/cvs-serv1665

Modified Files:
      Tag: gd-2-3-newio
        library.dylan unix-io.lid 
Added Files:
      Tag: gd-2-3-newio
        condition-format.dylan 
Log Message:
Changes to integrate with the d2c runtime's condition-format etc.


--- NEW FILE: condition-format.dylan ---
module: redirect-io

// Condition-Format and Condition-Force-Output methods.
//
// Condition-Format and Condition-Force-Output are generic functions that are
// called by the condition system to service its output needs.  We supply
// method on <stream>s that call the <stream> specific functions.
//
define method condition-format
    (stream :: <stream>, string :: <string>, #rest args) => ();
  apply(format, stream, string, args);
end method condition-format;

//
define method condition-force-output
    (stream :: <stream>) => ();
  force-output(stream);
end method condition-force-output;

Index: library.dylan
===================================================================
RCS file: /var/lib/cvs/src/common/io/Attic/library.dylan,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -d -r1.2.2.2 -r1.2.2.3
--- library.dylan       21 Nov 2003 02:16:41 -0000      1.2.2.2
+++ library.dylan       24 Dec 2003 04:13:09 -0000      1.2.2.3
@@ -342,3 +342,16 @@
   use standard-io;
   use format-out;
 end module io-internals;
+
+define module redirect-io
+  use dylan;
+  use streams;
+  use format;
+  use standard-io;
+  use extensions,
+     import: {*warning-output*, condition-format, condition-force-output};
+  use system,
+     import: {*gdb-output*};
+end module;
+
+  
\ No newline at end of file

Index: unix-io.lid
===================================================================
RCS file: /var/lib/cvs/src/common/io/Attic/unix-io.lid,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -u -d -r1.2.2.3 -r1.2.2.4
--- unix-io.lid 24 Oct 2003 21:48:33 -0000      1.2.2.3
+++ unix-io.lid 24 Dec 2003 04:13:09 -0000      1.2.2.4
@@ -31,8 +31,9 @@
        unix-file-accessor
        unix-standard-io
        format-out
+       condition-format
+       redirect-io
 C-Object-Files:        unix-portability.o
-XFiles:        print-double-integer-kludge
 Other-Files:   Open-Source-License.txt
 Major-Version: 2
 Minor-Version: 1

_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter