add rogue submodule and support for compiling, some cleanup

tests/arraytest.pas

@@ -0,0 +1,8 @@
+program arraytest;
+var arr:array[-5..5] of integer;
+    var s:string[5];
+begin
+	arr[-5] := 10;
+	arr[5] := 11;
+	writeln(arr[-5], ' ', arr[5]);
+end.

tests/nestedtest.pas

@@ -0,0 +1,49 @@
+program NestedTest;
+var g:integer;
+
+procedure first;
+var f:integer;
+
+  procedure second;
+  var s:integer;
+
+    procedure third1;
+    var t1:integer;
+    begin
+	    t1 := 310;
+	    s := 31;
+	    writeln('t1:', t1);
+    end;
+
+    procedure third2;
+    var t2:integer;
+    begin
+	    t2 := 320;
+	    s := 32;
+	    writeln('t2:', t2);
+	    if g <> 21 then
+	    begin
+	        g := 21;
+		second;
+	    end;
+    end;
+
+  begin
+	  f := 2;
+	  writeln('g:',g);
+	  third1;
+	  writeln('g:', g);
+	  third2;
+	  writeln('s:',s);
+  end;
+
+begin
+	second;
+	writeln('f:', f);
+end;
+
+begin
+	g := 0;
+	first;
+	writeln('g:', g);
+end.

tests/settest2.pas

@@ -0,0 +1,20 @@
+program settest2;
+type weekday = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
+     days = set of weekday;
+
+var s:days;
+    d:weekday;
+
+begin
+	s := [Sat,Sun]; (* set literal  *)
+
+	d := Sun;
+	if d in [Sat,Sun] then (* array literal *)
+		writeln('weekend');
+
+	if d in s then
+		writeln('also weekend');
+
+	d := Mon;
+	s := s + [d];
+end.