From a34ee73f1c864294d43fc37f7da6aef023891dfe Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Mon, 28 Oct 2013 20:49:07 +0400
Subject: [PATCH] added Write

---
 src/lib/ulm/ulmWrite.Mod | 188 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 188 insertions(+)
 create mode 100644 src/lib/ulm/ulmWrite.Mod

diff --git a/src/lib/ulm/ulmWrite.Mod b/src/lib/ulm/ulmWrite.Mod
new file mode 100644
index 00000000..28a0b4ba
--- /dev/null
+++ b/src/lib/ulm/ulmWrite.Mod
@@ -0,0 +1,188 @@
+(* Ulm's Oberon Library
+   Copyright (C) 1989-1994 by University of Ulm, SAI, D-89069 Ulm, Germany
+   ----------------------------------------------------------------------------
+   Ulm's Oberon Library is free software; you can redistribute it
+   and/or modify it under the terms of the GNU Library General Public
+   License as published by the Free Software Foundation; either version
+   2 of the License, or (at your option) any later version.
+
+   Ulm's Oberon Library is distributed in the hope that it will be
+   useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+   of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with this library; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   ----------------------------------------------------------------------------
+   E-mail contact: oberon@mathematik.uni-ulm.de
+   ----------------------------------------------------------------------------
+   $Id: Write.om,v 1.2 1994/07/05 12:52:27 borchert Exp $
+   ----------------------------------------------------------------------------
+   $Log: Write.om,v $
+   Revision 1.2  1994/07/05  12:52:27  borchert
+   Indent/IndentS added
+
+   Revision 1.1  1994/02/23  07:47:04  borchert
+   Initial revision
+
+   ----------------------------------------------------------------------------
+   AFB 7/89
+   ----------------------------------------------------------------------------
+*)
+
+MODULE Write;
+
+   IMPORT ASCII, Print, StreamDisciplines, Streams;
+
+   PROCEDURE IntS*(s: Streams.Stream; int: LONGINT; width: LONGINT);
+   BEGIN
+      Print.S2(s, "%*d", width, int);
+   END IntS;
+
+   PROCEDURE RealS*(s: Streams.Stream; real: LONGREAL; width: LONGINT);
+   BEGIN
+      Print.S2(s, "%*e", width, real);
+   END RealS;
+
+   PROCEDURE CharS*(s: Streams.Stream; ch: CHAR);
+   BEGIN
+      IF ~Streams.WriteByte(s, ch) THEN END;
+   END CharS;
+
+   PROCEDURE ByteS*(s: Streams.Stream; byte: BYTE);
+   BEGIN
+      IF ~Streams.WriteByte(s, byte) THEN END;
+   END ByteS;
+
+   PROCEDURE LineS*(s: Streams.Stream; str: ARRAY OF CHAR);
+      VAR
+	 count: LONGINT;
+	 nlOK: BOOLEAN;
+	 cnt: LONGINT;
+	 lineterm: StreamDisciplines.LineTerminator;
+	 len: INTEGER; i: INTEGER;
+   BEGIN
+      cnt := 0;
+      WHILE (cnt < LEN(str)) & (str[cnt] # 0X) DO
+	 INC(cnt);
+      END;
+
+      StreamDisciplines.GetLineTerm(s, lineterm);
+      (* determine length of line terminator *)
+      len := 1;
+      WHILE (len < LEN(lineterm)) & (lineterm[len] # 0X) DO
+	 INC(len);
+      END;
+
+      (* append line terminator to str (if possible) for
+	 reasons of efficiency
+      *)
+      IF cnt+len < LEN(str) THEN
+	 i := 0;
+	 WHILE i < len DO
+	    str[cnt] := lineterm[i]; INC(cnt); INC(i);
+	 END;
+	 nlOK := TRUE;
+      ELSE
+	 nlOK := FALSE;
+      END;
+
+      count := 0;
+      IF cnt > 0 THEN
+	 IF ~Streams.WritePart(s, str, 0, cnt) THEN
+	    RETURN
+	 END;
+	 count := s.count;
+      END;
+      IF ~nlOK THEN
+	 IF ~Streams.WritePart(s, lineterm, 0, len) THEN END;
+	 INC(count, s.count);
+      END;
+      s.count := count;
+   END LineS;
+
+   PROCEDURE LnS*(s: Streams.Stream);
+      VAR
+	 lineterm: StreamDisciplines.LineTerminator;
+	 len: INTEGER;
+   BEGIN
+      StreamDisciplines.GetLineTerm(s, lineterm);
+      IF lineterm[1] = 0X THEN
+	 IF ~Streams.WriteByte(s, lineterm[0]) THEN END;
+      ELSE
+	 len := 1;
+	 WHILE (len < LEN(lineterm)) & (lineterm[len] # 0X) DO
+	    INC(len);
+	 END;
+	 IF ~Streams.WritePart(s, lineterm, 0, len) THEN END;
+      END;
+   END LnS;
+
+   PROCEDURE StringS*(s: Streams.Stream; str: ARRAY OF CHAR);
+      VAR
+	 cnt: LONGINT;
+   BEGIN
+      cnt := 0;
+      WHILE (cnt < LEN(str)) & (str[cnt] # 0X) DO
+	 INC(cnt);
+      END;
+      IF (cnt > 0) & ~Streams.WritePart(s, str, 0, cnt) THEN END;
+   END StringS;
+
+   PROCEDURE IndentS*(s: Streams.Stream);
+      VAR
+	 indentwidth: INTEGER;
+   BEGIN
+      StreamDisciplines.GetIndentationWidth(s, indentwidth);
+      WHILE (indentwidth > 0) & Streams.WriteByte(s, " ") DO
+	 DEC(indentwidth);
+      END;
+   END IndentS;
+
+
+
+   (* procedures writing to Streams.stdout *)
+
+   PROCEDURE Int*(int: LONGINT; width: LONGINT);
+   BEGIN
+      IntS(Streams.stdout, int, width);
+   END Int;
+
+   PROCEDURE Real*(real: LONGREAL; width: LONGINT);
+      (* write real in exponential format *)
+   BEGIN
+      RealS(Streams.stdout, real, width);
+   END Real;
+
+   PROCEDURE Char*(ch: CHAR);
+   BEGIN
+      CharS(Streams.stdout, ch);
+   END Char;
+
+   PROCEDURE Byte*(byte: BYTE);
+   BEGIN
+      ByteS(Streams.stdout, byte);
+   END Byte;
+
+   PROCEDURE Line*(s: ARRAY OF CHAR);
+   BEGIN
+      LineS(Streams.stdout, s);
+   END Line;
+
+   PROCEDURE Ln*;
+   BEGIN
+      LnS(Streams.stdout);
+   END Ln;
+
+   PROCEDURE String*(s: ARRAY OF CHAR);
+   BEGIN
+      StringS(Streams.stdout, s);
+   END String;
+
+   PROCEDURE Indent*;
+   BEGIN
+      IndentS(Streams.stdout);
+   END Indent;
+
+END Write.