예제 #1
0
 //if arg's length = 1
 private Node apply1(Node arg1)
 {
     string name = this.symbol.getName();
     bool flag = name.Equals("car");
     Node result;
     if (flag)
     {
         result = arg1.getCar();
     }//end if
     else
     {
         bool flag2 = name.Equals("cdr");
         if (flag2)
         {
             result = arg1.getCdr();
         }//end if
         else
         {
             bool flag3 = name.Equals("number?");
             if (flag3)
             {
                 result = BoolLit.getInstance(arg1.isNumber());
             }//end if
             else
             {
                 bool flag4 = name.Equals("symbol?");
                 if (flag4)
                 {
                     result = BoolLit.getInstance(arg1.isSymbol());
                 }//end if
                 else
                 {
                     bool flag5 = name.Equals("null?");
                     if (flag5)
                     {
                         result = BoolLit.getInstance(arg1.isNull());
                     }//end if
                     else
                     {
                         bool flag6 = name.Equals("pair?");
                         if (flag6)
                         {
                             result = BoolLit.getInstance(arg1.isPair());
                         }//end if
                         else
                         {
                             bool flag7 = name.Equals("procedure?");
                             if (flag7)
                             {
                                 result = BoolLit.getInstance(arg1.isProcedure());
                             }//end if
                             else
                             {
                                 bool flag8 = name.Equals("write");// i am not sure if im handling this correctly
                                 if (flag8)
                                 {
                                     arg1.print(-1);
                                     result = Unspecific.getInstance();
                                 }//end if
                                 else
                                 {
                                     bool flag9 = name.Equals("display"); // i am not sure if im handling this correctly
                                     if (flag9)
                                     {
                                         StringLit.printDoubleQuotes = false;
                                         arg1.print(-1);
                                         StringLit.printDoubleQuotes = true;
                                         result = Unspecific.getInstance();
                                     }//end if
                                     else
                                     {
                                         bool flag10 = name.Equals("load");
                                         if (flag10)
                                         {
                                             bool flag11 = !arg1.isString();
                                             if (flag11)
                                             {
                                                 Console.Error.WriteLine("Error: wrong type of argument");
                                                 result = Nil.getInstance();
                                             }
                                             else
                                             {
                                                 string stringVal = arg1.getStringVal();
                                                 try
                                                 {
                                                     //not sure why it has to be Parse.Scanner to call this
                                                     Parse.Scanner s = new Parse.Scanner(File.OpenText(stringVal));
                                                     TreeBuilder b = new TreeBuilder();
                                                     Parse.Parser parser = new Parse.Parser(s, b);
                                                     for (Node node = (Node)parser.parseExp(); node != null; node = (Node)parser.parseExp())
                                                     {
                                                         node.eval(Scheme4101.env);
                                                     }
                                                 }
                                                 catch (SystemException)
                                                 {
                                                     Console.Error.WriteLine("Could not find file " + stringVal);
                                                 }
                                                 result = Unspecific.getInstance();
                                             }
                                         }//end if
                                         else
                                         {
                                             Console.Error.WriteLine("Error: wrong number of arguments");
                                             result = Nil.getInstance();
                                         }
                                     }
                                 }
                             }
                         }
                     }
                 }//end inner sub sub sub else
             }//end inner sub sub else
         }//end inner sub else
     }//end outer else
     return result;
 }
예제 #2
0
 //if arg length = 0
 private Node apply0()
 {
     string name = this.symbol.getName();
     bool flag = name.Equals("read");
     Node result;
     if (flag)
     {
         Parse.Scanner s = new Parse.Scanner(Console.In);
         Parse.Parser parser = new Parse.Parser(s, new TreeBuilder());
         Node node = (Node)parser.parseExp();
         bool flag2 = node != null;
         if (flag2)
         {
             result = node;
         }
         else
         {
             result = new Ident("end-of-file");
         }
     }//end outer if
     else
     {
         bool flag3 = name.Equals("newline");
         if (flag3)
         {
             Console.WriteLine();
             result = Unspecific.getInstance();
         }
         else
         {
             bool flag4 = name.Equals("interaction-environment");
             if (flag4)
             {
                 result = Scheme4101.env;
             }
             else
             {
                 Console.Error.WriteLine("Error: wrong number of arguments");
                 result = Nil.getInstance();
             }
         }
     }//end outer else
     return result;
 }