lab1/main.cc

@@ -75,7 +75,7 @@ int main(int argc, char **argv)
     int     token;
     extern  FILE *yyin;
     extern  int yylex();
-    
+
     /*
      * Open the input file, if any
      */
@@ -92,7 +92,7 @@ int main(int argc, char **argv)
             perror(argv[1]);
             exit(1);
         }
-        break;	
+        break;
     default:
         cerr << "Usage: " << argv[0] << " [ filename ]\n";
         exit(1);

lab1/test/code

+/*
+	This test checks the fibonacci function
+	Author: John Tinnerholm
+*/
+declare
+a : integer;
+function fib (x : integer) : integer
+begin
+  if x == 0 then
+    begin
+      return 0;
+    end
+  elseif x == 1 then
+    begin
+      return 1;
+    end
+  else
+    begin
+      return fib(x - 1) + fib(x-2);
+    end
+  if;
+end;
+
+begin
+  a := 0;
+  while a < 10 do
+    begin
+      putint(fib(a));
+      putline();
+      a := a + 1;
+    end
+  while;
+end;

lab2/lab2.cc

@@ -25,7 +25,7 @@ double Parser::Parse(void)
      * Parse the input using recursive descent parsing. You'll need
      * an object of type Scanner to get tokens from the input. Call
      * the Scan method of this object to get the next token in the
-     * input stream. 
+     * input stream.
      */
 
     /* --- End your code --- */
@@ -37,17 +37,17 @@ void Parser::Recover(void)
 {
 
     cerr << "Error recovery.\n" << flush;
-    
+
     /* --- Your code here ---
      *
      * Error recovery routine
-     * 
+     *
      * Unless you come up with something better, this function should
      * scan tokens until it sees the end of line or end of file.
      * Parsing may be resumed at that point. This means that if an end
      * of line token caused the error, this routine doesn't need to do
      * anything.
-     * 
+     *
      * Be sure not to scan more tokens than necessary, or it won't be
      * possible to resume parsing.
      */

lab2/lab2.hh

@@ -17,6 +17,7 @@ using namespace std;
 class Parser
 {
 public:
+    Scanner scanner;
     void Recover(void);         // Error recovery routine
     double Parse(void);         // Main entry point
 };

lab2/lex.cc

@@ -81,12 +81,12 @@ void Scanner::PutbackChar(unsigned char c)
 Token Scanner::Scan(void)
 {
     int c;
-    
+
     Reset();
     while (1)
     {
         c = GetChar();
-        
+
         switch (state)
         {
         case 0:                     // Initial state
@@ -311,7 +311,6 @@ ostream& operator<<(ostream& s, ScannerError& e)
 // Lookup just returns the textual representation of a token type. The
 // no argument version returns the type of the token.
 //
-
 const char *Token::Lookup(void)
 {
     return kTokenTypeNames[type];

lab2/main.cc

@@ -14,7 +14,7 @@ int main(void)
         try
         {
             cout << "Expression: " << flush;
-	    /* Implement the parser.Parse method */
+            /* Implement the parser.Parse method */
             val = parser.Parse();
             cout << "Result:     " << val << '\n' << flush;
         }

lab3-4/ast.cc

@@ -241,7 +241,7 @@ void BinaryOperation::xprint(ostream& o, const char *cls)
     endChild(o);
 }
 
-void Plus::print(ostream& o) { xprint(o, "Plus"); } // 
+void Plus::print(ostream& o) { xprint(o, "Plus"); } //
 void Minus::print(ostream& o) { xprint(o, "Minus"); }
 void Times::print(ostream& o) { xprint(o, "Times"); }
 void Divide::print(ostream& o) {xprint(o, "Divide"); }
@@ -328,7 +328,7 @@ void BinaryCondition::xprint(ostream& o, const char *cls)
 }
 
 void And::print(ostream& o) { xprint(o, "And"); }
-void Or::print(ostream& o) { xprint(o, "Or"); } // 
+void Or::print(ostream& o) { xprint(o, "Or"); } //
 
 void Not::print(ostream& o)
 {

lab3-4/main.cc

@@ -31,7 +31,7 @@ int main(int argc, char **argv)
 {
     int          option;
     extern FILE *yyin;
-    
+
     /*
      Set up the symbol table.
      Adds builtin functions used by the language.
@@ -55,7 +55,7 @@ int main(int argc, char **argv)
     kIReadFunction->SetReturnType(kIntegerType);
     kFReadFunction->SetReturnType(kRealType);
     kIReadFunction->SetReturnType(kIntegerType);
-    
+
     currentFunction->AddSymbol(kIntegerType);
     currentFunction->AddSymbol(kRealType);
     currentFunction->AddSymbol(kIPrintFunction);
@@ -82,13 +82,13 @@ int main(int argc, char **argv)
             break;
         case '?':
             Usage(argv[0]);
-            break;    
-	case 'c':
-	  std::cout << "/*Using standard-library*/\n";
-	  std::cout << "#include \"stl.h\"\n";
-	  SymbolInformation::outputFormat = SymbolInformation::kCFormat;
-	  currentFunction->outputFormat = SymbolInformation::kCFormat;
-	  break;
+            break;
+        case 'c':
+          std::cout << "/*Using standard-library*/\n";
+          std::cout << "#include \"stl.h\"\n";
+          SymbolInformation::outputFormat = SymbolInformation::kCFormat;
+          currentFunction->outputFormat = SymbolInformation::kCFormat;
+          break;
         }
     }
 
@@ -102,7 +102,7 @@ int main(int argc, char **argv)
         }
         optind += 1;
     }
-    
+
     if (optind < argc)
         Usage(argv[0]);
 
@@ -113,4 +113,3 @@ int main(int argc, char **argv)
     int retcode = yyparse();
     return retcode;
 }
-    

lab3-4/parser.y

@@ -7,7 +7,7 @@
 
 extern char                    *yytext;
 extern int                      yylineno, errorCount, warningCount;
-extern FunctionInformation     *currentFunction; 
+extern FunctionInformation     *currentFunction;
 
 extern int yylex(void);
 extern void yyerror(const char *);
@@ -45,12 +45,12 @@ extern ostream& warning(void);
     FunctionCall            *call;
     LeftValue               *lvalue;
     ElseIfList              *elseIfList;
-    
+
     VariableInformation     *variable;
     TypeInformation         *type;
     FunctionInformation     *function;
 
-  ::string                  *id;
+    ::string                  *id;
     int                      integer;
     double                   real;
     void                    *null;
@@ -184,10 +184,10 @@ functions   :   functions function
  */
 
 function :
-	{
-	  cerr << "Function here" << endl;
-	}
-	;
+        {
+          cerr << "Function here" << endl;
+        }
+        ;
 
 /* --- End your code --- */
 
@@ -249,7 +249,7 @@ type        :   id
                 else
                 {
                     typeInfo = info->SymbolAsType();
-                
+
                     if (typeInfo == NULL)
                     {
                         error() << *($1) << " is not a type" << "\n" <<flush;
@@ -299,7 +299,7 @@ statements  :   statements statement
                 if ($2 == NULL)
                     $$ = NULL;
                 else
-  		  $$ = new StatementList($1, $2);
+                  $$ = new StatementList($1, $2);
             }
             |   /* Empty */
             {
@@ -403,7 +403,7 @@ returnstmt  :   RETURN expression
                         error() << "  attempt to return "
                                 << ShortSymbols << expr->valueType << '\n';
                         error() << " in function declared to return "
-                                << ShortSymbols 
+                                << ShortSymbols
                                 << currentFunction->GetReturnType()
                                 << LongSymbols << '\n';
                         $$ = NULL;
@@ -454,13 +454,13 @@ variable    :   id
                         << *($1)
                         << "\n"
                         << flush;
-                          
+
                     $$ = NULL;
                 }
                 else
                 {
                     varInfo = info->SymbolAsVariable();
-                    
+
                     if (varInfo == NULL)
                     {
                         error()
@@ -545,7 +545,7 @@ call        :   funcname '(' expressions ')'
 
 id          :   ID
             {
-	        $$ = new ::string(yytext);
+                $$ = new ::string(yytext);
             }
             ;
 
@@ -576,13 +576,13 @@ real        :   REAL
  */
 
 expression :
-	{
-	  cerr << "Expression here" << endl;
-	}
-	;
+        {
+          cerr << "Expression here" << endl;
+        }
+        ;
 
 /* --- End your code --- */
-  
+
 
 expressions : expressionz
             {
@@ -620,10 +620,10 @@ expressionz : expressionz ',' expression
  */
 
 condition :
-	{
-	  cerr << "Condition here" << endl;
-	}
-	;
+        {
+          cerr << "Condition here" << endl;
+        }
+        ;
 
 /* --- End your code --- */
 
@@ -632,7 +632,7 @@ condition :
 
 int errorCount = 0;
 int warningCount = 0;
-            
+
 
 /* --- Your code here ---
  *
@@ -642,14 +642,14 @@ int warningCount = 0;
 /* It is reasonable to believe that you will need a function
  * that checks that two expressions are of compatible types,
  * and if possible makes a type conversion.
- * For your convenience a skeleton for such a function is 
+ * For your convenience a skeleton for such a function is
  * provided below. It will be very similar to CheckAssignmentTypes.
  */
 
 /*
  * CheckCompatibleTypes checks that the expressions indirectly pointed
  * to by left and right are compatible. If type conversion is
- * necessary, the pointers left and right point to will be modified to 
+ * necessary, the pointers left and right point to will be modified to
  * point to the node representing type conversion. That's why you have
  * to pass a pointer to pointer to Expression in these arguments.
  */
@@ -702,7 +702,7 @@ char CheckAssignmentTypes(LeftValue **left, Expression **right)
 
 /*
  * CheckFunctionParameters is used to check parameters passed to a
- * function. func is the function we're passing parameters to, formals 
+ * function. func is the function we're passing parameters to, formals
  * is a pointer to the last formal parameter we're checking against
  * and params is a pointer to the ExpressionList we're checking. If
  * type conversion is necessary, the Expressions pointed to by the
@@ -769,7 +769,7 @@ char CheckFunctionParameters(FunctionInformation *func,
                         << params->expression->valueType
                         << '\n'
                         << LongSymbols << flush;
-                return 0;                
+                return 0;
             }
         }
     }

lab3-4/string.hh

@@ -20,7 +20,7 @@ using std::ostream;
 // really necessary. If strings were considered read only (no
 // destructive update), then it would be possible to keep a pool of
 // strings with reference counts and just pass along references to
-// that pool. 
+// that pool.
 //
 
 class string
@@ -36,7 +36,7 @@ private:
 public:
    //To kill warnings and make this custom string play nice...
 
-  
+
     class error {};             // Exception thrown when out of memory
 
     string();                   // Default constructor creates empty string
@@ -54,7 +54,7 @@ public:
     string& operator=(const string&); // Assignment operator
     string& operator=(const char *);  // Assignment operator
     string& operator=(const char);    // Assignment operator
-    
+
     string& operator+=(const string&); // Append operator
     string& operator+=(const char);    // Append operator
     string& operator+=(const char *);  // Append operator

lab3-4/symtab.cc

@@ -44,7 +44,7 @@ ostream& SymbolInformation::print(ostream& o)
         break;
     case kCFormat:
         o << id;
-        break;		
+        break;
     default:
         o << "Bad output format\n";
         abort();
@@ -80,10 +80,10 @@ ostream& TypeInformation::print(ostream& o)
         {
             o << id;
         }
-        
+
         o << " [" << size << "]";
         break;
-        
+
     case kShortFormat:
         if (elementType != NULL)
         {
@@ -103,7 +103,7 @@ ostream& TypeInformation::print(ostream& o)
         }
         else
         {
-	  o << id;
+          o << id;
         }
         break;
 
@@ -200,21 +200,21 @@ ostream& FunctionInformation::print(ostream& o)
                 tmp = tmp->prev;
             }
             o << LongSymbols;
-	    o << '\n';
+            o << '\n';
         }
         else
         {
             o << "  Locals: none\n";
         }
-        
+
         o << "  Body:  " << (void*)body << '\n';
         if (body) o << body;
-	o << '\n';
-	
+        o << '\n';
+
         o << "  Quads: " << (void*)quads << '\n';
         if (quads) o << quads;
         o << '\n';
-        
+
         o << symbolTable;
         break;
 
@@ -240,59 +240,59 @@ ostream& FunctionInformation::print(ostream& o)
         break;
 
     case kCFormat:
-      	/*C-Code preamble*/
-	if (returnType == NULL) {
-	  o << "void\n";
-	} else {
-	  o << returnType << "\n";
-	}
-	    
-	o << "" << id << "(";
-	//Parameters
-	if (lastParam != NULL)
+        /*C-Code preamble*/
+        if (returnType == NULL) {
+          o << "void\n";
+        } else {
+          o << returnType << "\n";
+        }
+
+        o << "" << id << "(";
+        //Parameters
+        if (lastParam != NULL)
         {
             tmp = lastParam;
             while (tmp != NULL)
             {
-	      if (tmp->type->elementType != NULL){ //Array... 
-		o << tmp->type->elementType << "*" << "\t";
-	      } else {
-		//		o << tmp->type->elementType;
-		o << tmp->type << "\t";
-	      }
-	      if (tmp->prev == NULL) {
-		o << tmp->id;
-	      } else {
-		o << tmp->id << ",";
-	      }
-	      tmp = tmp->prev;
+              if (tmp->type->elementType != NULL){ //Array...
+                o << tmp->type->elementType << "*" << "\t";
+              } else {
+                //              o << tmp->type->elementType;
+                o << tmp->type << "\t";
+              }
+              if (tmp->prev == NULL) {
+                o << tmp->id;
+              } else {
+                o << tmp->id << ",";
+              }
+              tmp = tmp->prev;
             }
         }
-	o << ")\n";
-	/* Generate C-Code for the body! */
-	o << "{\n";
-	if (lastLocal)
+        o << ")\n";
+        /* Generate C-Code for the body! */
+        o << "{\n";
+        if (lastLocal)
         {
-	  o << "//Locals:\n";
+          o << "//Locals:\n";
             tmp = lastLocal;
             while (tmp != NULL)
             {
-	      if (tmp->type->elementType != NULL){ //Array...
-		o << tmp->type->elementType;
-		o << "\t";
-		o << tmp;
-		o << tmp->type << ";\n";
-	      }
-	      else {
-		o << tmp->type << "\t" << tmp << ";\n";
-	      }
-	      tmp = tmp->prev;
+              if (tmp->type->elementType != NULL){ //Array...
+                o << tmp->type->elementType;
+                o << "\t";
+                o << tmp;
+                o << tmp->type << ";\n";
+              }
+              else {
+                o << tmp->type << "\t" << tmp << ";\n";
+              }
+              tmp = tmp->prev;
             }
         }
-	quads->print_c(o);
-	o << "}\n";
-	break;
-        
+        quads->print_c(o);
+        o << "}\n";
+        break;
+
     default:
         o << "Bad output format.\n";
         abort();
@@ -430,14 +430,14 @@ FunctionInformation *FunctionInformation::AddFunction(const ::string& name,
     if (xinfo != NULL && xinfo->tag == kTypeInformation)
     {
         cerr << "Bug: you tried to create a function that's also a type\n";
-	abort();
+        abort();
     }
 
     xinfo = symbolTable.LookupSymbol(name);
     if (xinfo != NULL)
     {
         cerr << "Bug: you tried to create a function with a name "
-	     << "that's already in use\n";
+             << "that's already in use\n";
     }
 
     fn->id = name;
@@ -458,7 +458,7 @@ VariableInformation *FunctionInformation::TemporaryVariable(TypeInformation *typ
 
     return info;
 }
-                                                      
+
 
 char FunctionInformation::OkToAddSymbol(const ::string& name)
 {