intro to PROCEDUREs, functions and var-parameters

procedures/function-procedure/Makefile

@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m Square.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym

procedures/function-procedure/Square.Mod

@@ -0,0 +1,17 @@
+MODULE square;
+
+
+IMPORT Out;
+
+VAR s : INTEGER;
+
+PROCEDURE squared(x : INTEGER): INTEGER;
+BEGIN
+	RETURN x * x
+END squared;
+
+BEGIN
+	s := squared(7);
+	Out.Int(s, 0); Out.Ln;
+	Out.Int(squared(8), 0); Out.Ln;
+END square.

procedures/procedure/Makefile

@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m Procedure.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym

procedures/procedure/Procedure.Mod

@@ -0,0 +1,14 @@
+MODULE proc;
+
+
+IMPORT Out;
+
+PROCEDURE printSum(a, b : INTEGER);
+BEGIN
+	Out.Int(a + b, 0); Out.Ln
+END printSum;
+
+
+BEGIN
+	printSum(6, 9)
+END proc.

procedures/var-parameter/Makefile

@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m VarParam.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym

procedures/var-parameter/VarParam.Mod

@@ -0,0 +1,22 @@
+MODULE varparam;
+
+IMPORT Out;
+
+VAR
+	a, b : INTEGER;
+
+PROCEDURE swapVals(VAR x, y : INTEGER);
+VAR tmp : INTEGER;
+BEGIN
+	tmp := x; x := y; y := tmp;
+END swapVals;
+
+
+BEGIN
+	a := 6; b := 9;
+	Out.String("initial "); Out.Ln;
+	Out.String("a : "); Out.Int(a, 0); Out.String("; b : "); Out.Int(b, 0); Out.Ln;
+	swapVals(a, b);
+	Out.String("after swap"); Out.Ln;
+	Out.String("a : "); Out.Int(a, 0); Out.String("; b : "); Out.Int(b, 0); Out.Ln;
+END varparam.