From 3f82522841cbf36e555f976515de1e74c69a7183 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Sat, 21 Feb 2015 04:38:14 +0400
Subject: [PATCH] newt binding, first demo - hello world application -- noch

Former-commit-id: 034808deb856f86a0858e8298b696e1f4f4d2109
---
 src/test/newt/Makefile     | 13 ++++++++++++
 src/test/newt/newt.Mod     | 43 ++++++++++++++++++++++++++++++++++++++
 src/test/newt/newttest.Mod | 14 +++++++++++++
 3 files changed, 70 insertions(+)
 create mode 100644 src/test/newt/Makefile
 create mode 100644 src/test/newt/newt.Mod
 create mode 100644 src/test/newt/newttest.Mod

diff --git a/src/test/newt/Makefile b/src/test/newt/Makefile
new file mode 100644
index 00000000..e0b4f643
--- /dev/null
+++ b/src/test/newt/Makefile
@@ -0,0 +1,13 @@
+CFLAGS = "-lnewt"
+export CFLAGS
+
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -s newt.Mod newttest.Mod -m
+
+clean:
+	rm *.h
+	rm *.c
+	rm *.o
+	rm *.sym
diff --git a/src/test/newt/newt.Mod b/src/test/newt/newt.Mod
new file mode 100644
index 00000000..9b2e59c2
--- /dev/null
+++ b/src/test/newt/newt.Mod
@@ -0,0 +1,43 @@
+MODULE newt;
+
+IMPORT SYSTEM;
+
+TYPE Int32* = INTEGER;
+     Int64* = LONGINT;
+
+PROCEDURE -Init*(): Int32
+   "newtInit()";
+
+PROCEDURE -Cls*()
+   "newtCls()";
+
+PROCEDURE -Finished*() : Int32
+   "newtFinished()";
+
+PROCEDURE -ResizeScreen*(redraw: Int32)
+   "newtResizeScreen(redraw)";
+
+PROCEDURE -WaitForKey*()
+   "newtWaitForKey()";
+
+PROCEDURE -ClearKeyBuffer*()
+   "newtClearKeyBuffer()";
+
+PROCEDURE -Delay*(i : Int32)
+   "newtDelay(i)";
+
+PROCEDURE -DrawRootText*(left, top: Int32; VAR text: ARRAY OF CHAR)
+   "newtDrawRootText(left, top, text)";
+
+PROCEDURE -PushHelpLine*(VAR text: ARRAY OF CHAR)
+   "newtPushHelpLine(text)";
+
+PROCEDURE -PopHelpLine*()
+   "newtPopHelpLine()";
+
+BEGIN
+
+
+
+
+END newt.
diff --git a/src/test/newt/newttest.Mod b/src/test/newt/newttest.Mod
new file mode 100644
index 00000000..bd3423c6
--- /dev/null
+++ b/src/test/newt/newttest.Mod
@@ -0,0 +1,14 @@
+MODULE newttest;
+
+IMPORT newt;
+VAR i : newt.Int32;
+str : ARRAY 32 OF CHAR;
+BEGIN
+i := newt.Init();
+newt.Cls();
+str := "hello world!";
+newt.DrawRootText(5, 7, str);
+newt.WaitForKey();
+newt.Delay(30);
+i := newt.Finished();
+END newttest.