X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=test.c;h=1f440779e411b51f514c9409fddf97b033019685;hb=12ae486a18746b042fcc4ebbefc5449d4d3464af;hp=c3a4b1467f51256bbec89e210374cb69d90a44d8;hpb=d1b4e7fdab92589146e19cf4b8b402edf4d6b33d;p=dsw-obn.git

diff --git a/test.c b/test.c
index c3a4b14..1f44077 100644
--- a/test.c
+++ b/test.c
@@ -8,15 +8,32 @@ static char source_test[] =
 	"(* Main module *)"
 	"MODULE Test;"
 	"IMPORT Out;"
+	""
+	"VAR"
+	"  nx- : INTEGER;"
+	"  p : POINTER TO ARRAY 3 OF RECORD i, j, k : INTEGER END;"
+	"  q : POINTER TO RECORD x, y, z : INTEGER END;"
+	""
+	"PROCEDURE ChParam(VAR i : INTEGER);"
+	"BEGIN"
+	"  i := 1234;"
+	"END ChParam;"
+	""
 	"BEGIN;"
+	"  NEW(p);"
+	"  p[2].k := 1;"
+	"  NEW(q);"
+	"  "
 	"  Out.Open;"
-	"  Out.Int(666, 0);"
+	"  ChParam(nx);"
+	"  Out.Int(nx, 0);"
 	"  Out.Ln;"
 	"END Test."
 ;
 
 static char source_out[] =
 	"MODULE Out;"
+	"(* Interface to outer program ;) *)"
 	"VAR"
 	"  Open-     : PROCEDURE;"
 //	"  Char-     : PROCEDURE(ch : CHAR);"
@@ -59,14 +76,21 @@ typedef void (*TOutInt)(int, int);
 static TOutInt * OutIntPtr;
 void ImplOutInt(int i, int n)
 {
-	printf("%i", i);
+	char number[22];
+	snprintf(number, 22, "%i", i);
+	int len = strlen(number);
+	for(int i = 0; i < n - len; i++)
+	{
+		putchar(' ');
+	}
+	printf("%s", number);
 }
 
 typedef void (*TOutLn)();
 static TOutLn * OutLnPtr;
 void ImplOutLn()
 {
-	printf("\n");
+	putchar('\n');
 }
 
 void init_system_modules()