From dfaf2d3622b57f155c70b9e668a0f09a0dd75d97 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Sun, 14 Jan 2024 17:15:40 +0400
Subject: [PATCH] example on how to read commandline arguments with Texts.

---
 src/test/texts/argTexts.Mod | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/test/texts/argTexts.Mod

diff --git a/src/test/texts/argTexts.Mod b/src/test/texts/argTexts.Mod
new file mode 100644
index 00000000..644813d0
--- /dev/null
+++ b/src/test/texts/argTexts.Mod
@@ -0,0 +1,24 @@
+MODULE argTexts; (* example how to get arguments by using Texts module *)
+IMPORT Texts, Oberon;
+
+VAR
+  S: Texts.Scanner; (* we'll read program arguments with it *)
+
+  W : Texts.Writer; (* to write to console *)
+  T : Texts.Text;
+
+BEGIN
+  Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
+  Texts.Scan(S);
+  (*Out.String(S.s); Out.Ln;*)
+
+Texts.OpenWriter (W);
+
+Texts.WriteString(W, "aaa");
+Texts.WriteLn(W);
+Texts.WriteString(W, S.s);
+Texts.WriteLn(W);
+Texts.Append(Oberon.Log, W.buf);
+
+
+END argTexts.