From b4b5594a5d6b390474246ef3758d41c94872a5a9 Mon Sep 17 00:00:00 2001
From: "zik.saleeba" <zik.saleeba@21eae674-98b7-11dd-bd71-f92a316d2d60>
Date: Sat, 3 Jul 2010 15:20:29 +0000
Subject: [PATCH] Added hanoi test program. Now programs can be run without
 having to explicitly call main().

git-svn-id: http://picoc.googlecode.com/svn/trunk@452 21eae674-98b7-11dd-bd71-f92a316d2d60
---
 picoc.c               |  24 +++++++-
 tests/30_hanoi.c      | 126 ++++++++++++++++++++++++++++++++++++++++++
 tests/30_hanoi.expect |  71 ++++++++++++++++++++++++
 tests/Makefile        |   3 +-
 4 files changed, 220 insertions(+), 4 deletions(-)
 create mode 100644 tests/30_hanoi.c
 create mode 100644 tests/30_hanoi.expect

diff --git a/picoc.c b/picoc.c
index 3fb5794..a3a4d01 100644
--- a/picoc.c
+++ b/picoc.c
@@ -1,5 +1,8 @@
 #include "picoc.h"
 
+#define CALL_MAIN "main();"
+
+
 /* initialise everything */
 void Initialise()
 {
@@ -33,15 +36,26 @@ void Cleanup()
 #ifdef UNIX_HOST
 int main(int argc, char **argv)
 {
+    int ParamCount = 1;
+    int DontRunMain = FALSE;
+    
     if (argc < 2)
     {
-        printf("Format: picoc <program.c> - run a program\n        picoc -i          - interactive mode\n");
+        printf("Format: picoc <csource1.c>...    - run a program (calls main to start it)\n"
+               "        picoc -i                 - interactive mode\n"
+               "        picoc -m <csource1.c>... - run a program without calling main\n");
         exit(1);
     }
     
     Initialise();
     
-    if (strcmp(argv[1], "-i") == 0)
+    if (strcmp(argv[ParamCount], "-m") == 0)
+    {
+        DontRunMain = TRUE;
+        ParamCount++;
+    }
+        
+    if (strcmp(argv[ParamCount], "-i") == 0)
         ParseInteractive();
     else
     {
@@ -51,7 +65,11 @@ int main(int argc, char **argv)
             return 1;
         }
         
-        PlatformScanFile(argv[1]);
+        for (; ParamCount < argc; ParamCount++)
+            PlatformScanFile(argv[ParamCount]);
+        
+        if (!DontRunMain)
+            Parse("startup", CALL_MAIN, strlen(CALL_MAIN), TRUE);
     }
     
     Cleanup();
diff --git a/tests/30_hanoi.c b/tests/30_hanoi.c
new file mode 100644
index 0000000..02ff6d2
--- /dev/null
+++ b/tests/30_hanoi.c
@@ -0,0 +1,126 @@
+/* example from http://barnyard.syr.edu/quickies/hanoi.c */
+
+/* hanoi.c: solves the tower of hanoi problem. (Programming exercise.) */
+/* By Terry R. McConnell (12/2/97) */
+/* Compile: cc -o hanoi hanoi.c */
+
+/* This program does no error checking. But then, if it's right, 
+it's right ... right ? */
+
+
+/* The original towers of hanoi problem seems to have been originally posed
+by one M. Claus in 1883. There is a popular legend that goes along with
+it that has been often repeated and paraphrased. It goes something like this:
+In the great temple at Benares there are 3 golden spikes. On one of them,
+God placed 64 disks increasing in size from bottom to top, at the beginning
+of time. Since then, and to this day, the priest on duty constantly transfers
+disks, one at a time, in such a way that no larger disk is ever put on top
+of a smaller one. When the disks have been transferred entirely to another
+spike the Universe will come to an end in a large thunderclap.
+
+This paraphrases the original legend due to DeParville, La Nature, Paris 1884,
+Part I, 285-286. For this and further information see: Mathematical 
+Recreations & Essays, W.W. Rouse Ball, MacMillan, NewYork, 11th Ed. 1967,
+303-305.
+*
+*
+*/
+
+#include<stdio.h>
+#include<stdlib.h>
+
+#define N 4    /* This is the number of "disks" on tower A initially. */
+	       /* Taken to be 64 in the legend. The number of moves 
+                  required, in general, is 2^N - 1. For N = 64, this is
+                  18,446,744,073,709,551,615 */
+
+int A[N], B[N], C[N];  /* These are the three towers. For example if the
+state of A is 0,1,3,4, that means that there are three discs on A of sizes
+1, 3, and 4. (Think of right as being the "down" direction.) */
+
+void Hanoi(int,int*,int*,int*);
+
+/* Print the current configuration of A, B, and C to the screen */
+
+void
+PrintAll()
+{
+	int i;
+
+	printf("A: ");
+	for(i=0;i<N;i++)printf(" %d ",A[i]);
+	printf("\n");
+
+	printf("B: ");
+	for(i=0;i<N;i++)printf(" %d ",B[i]);
+	printf("\n");
+
+	printf("C: ");
+	for(i=0;i<N;i++)printf(" %d ",C[i]);
+	printf("\n");
+	printf("------------------------------------------\n");
+	return;
+}
+	
+/* Move the leftmost nonzero element of source to dest, leave behind 0. */
+/* Returns the value moved (not used.) */
+
+int Move(int *source, int *dest)
+{
+	int i=0,j=0;
+
+	while((*(source + i)==0)&&(i<N))i++;
+	while((*(dest + j)==0)&&(j<N))j++;
+
+
+	*(dest+j-1) = *(source+i);
+	*(source + i) = 0;
+	PrintAll();       /* Print configuration after each move. */
+	return *(dest+j-1);
+}
+
+
+/* Moves first n nonzero numbers from source to dest using the rules of Hanoi.
+   Calls itself recursively.
+*/
+
+void
+Hanoi(int n,int *source, int *dest, int *spare)
+{
+	int i;
+	if(n==1){
+		Move(source,dest);
+		return;
+	}
+
+	Hanoi(n-1,source,spare,dest);
+	Move(source,dest);
+	Hanoi(n-1,spare,dest,source);	
+	return;
+}
+
+
+int
+main()
+{
+	int i;
+
+	/* initialize the towers */
+	for(i=0;i<N;i++)A[i]=i+1;
+	for(i=0;i<N;i++)B[i]=0;
+	for(i=0;i<N;i++)C[i]=0;
+		
+	printf("Solution of Tower of Hanoi Problem with %d Disks\n\n",N);
+
+	/* Print the starting state */
+	printf("Starting state:\n");
+	PrintAll();
+	printf("\n\nSubsequent states:\n\n");
+
+	/* Do it! Use A = Source, B = Destination, C = Spare */
+	Hanoi(N,A,B,C);
+	return 0;
+}
+
+	
+main();
diff --git a/tests/30_hanoi.expect b/tests/30_hanoi.expect
new file mode 100644
index 0000000..7798ee0
--- /dev/null
+++ b/tests/30_hanoi.expect
@@ -0,0 +1,71 @@
+Solution of Tower of Hanoi Problem with 4 Disks
+
+Starting state:
+A:  1  2  3  4 
+B:  0  0  0  0 
+C:  0  0  0  0 
+------------------------------------------
+
+
+Subsequent states:
+
+A:  0  2  3  4 
+B:  0  0  0  0 
+C:  0  0  0  1 
+------------------------------------------
+A:  0  0  3  4 
+B:  0  0  0  2 
+C:  0  0  0  1 
+------------------------------------------
+A:  0  0  3  4 
+B:  0  0  1  2 
+C:  0  0  0  0 
+------------------------------------------
+A:  0  0  0  4 
+B:  0  0  1  2 
+C:  0  0  0  3 
+------------------------------------------
+A:  0  0  1  4 
+B:  0  0  0  2 
+C:  0  0  0  3 
+------------------------------------------
+A:  0  0  1  4 
+B:  0  0  0  0 
+C:  0  0  2  3 
+------------------------------------------
+A:  0  0  0  4 
+B:  0  0  0  0 
+C:  0  1  2  3 
+------------------------------------------
+A:  0  0  0  0 
+B:  0  0  0  4 
+C:  0  1  2  3 
+------------------------------------------
+A:  0  0  0  0 
+B:  0  0  1  4 
+C:  0  0  2  3 
+------------------------------------------
+A:  0  0  0  2 
+B:  0  0  1  4 
+C:  0  0  0  3 
+------------------------------------------
+A:  0  0  1  2 
+B:  0  0  0  4 
+C:  0  0  0  3 
+------------------------------------------
+A:  0  0  1  2 
+B:  0  0  3  4 
+C:  0  0  0  0 
+------------------------------------------
+A:  0  0  0  2 
+B:  0  0  3  4 
+C:  0  0  0  1 
+------------------------------------------
+A:  0  0  0  0 
+B:  0  2  3  4 
+C:  0  0  0  1 
+------------------------------------------
+A:  0  0  0  0 
+B:  1  2  3  4 
+C:  0  0  0  0 
+------------------------------------------
diff --git a/tests/Makefile b/tests/Makefile
index 7b8c663..a31a8a9 100644
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -27,6 +27,7 @@ TESTS=	00_assignment.test \
 	26_character_constants.test \
 	28_strings.test \
 	29_array_address.test \
+	30_hanoi.test \
         34_array_assignment.test \
 	35_sizeof.test \
 	36_array_initialisers.test \
@@ -37,7 +38,7 @@ TESTS=	00_assignment.test \
 
 %.test: %.expect %.c
 	@echo Test: $*...
-	-@../picoc $*.c 2>&1 >$*.output
+	-@../picoc -m $*.c 2>&1 >$*.output
 	@if [ "x`diff -qbu $*.expect $*.output`" != "x" ]; \
 	then \
         	echo "error in test $*"; \