public static bool PrimitiveRecord(out object answer, object [] arglist) { answer = new Record (arglist); return false; }
public static bool ObjectSetType(out object answer, object arg0, object arg1) { TC newType = (TC) (int) arg0; // kludge!!!! if ((int) arg0 == 0 && (int) arg1 == 1) answer = new NullEnvironment (); else switch (newType) { case TC.COMBINATION_2: answer = Combination2.Make ((Hunk3) arg1); break; case TC.CONDITIONAL: answer = Conditional.Make ((Hunk3) arg1); break; case TC.CONSTANT: answer = Constant.Decode ((uint) (int) arg1); break; case TC.HUNK3_A: // Probably someone trying to mark a history object. answer = arg1; break; case TC.HUNK3_B: answer = arg1; break; case TC.ENVIRONMENT: object [] args = (object[]) arg1; StandardClosure closure = (StandardClosure) args [0]; object [] actualArgs = new object [args.Length - 1]; for (int i = 0; i < actualArgs.Length; i++) actualArgs [i] = args [i + 1]; answer = new StandardEnvironment<StandardLambda,StandardClosure> (closure, actualArgs); break; // throw new NotImplementedException (); // // answer = (new InterpreterEnvironment ((object []) arg1)); case TC.EXTENDED_LAMBDA: answer = ExtendedLambda.Make ((Hunk3) arg1); break; case TC.PCOMB0: answer = PrimitiveCombination0.Make ((Primitive0) arg1); break; case TC.PCOMB2: answer = PrimitiveCombination2.Make ((Hunk3) arg1); break; case TC.PRIMITIVE: if (!(arg1 is PrimitiveCombination0)) throw new NotImplementedException ("Object-set-type on primitive"); answer = ((PrimitiveCombination0) arg1).Operator; break; case TC.RECORD: answer = new Record ((object []) arg1); return false; case TC.SEQUENCE_3: answer = new Sequence3 ((Hunk3) arg1); break; case TC.THE_ENVIRONMENT: answer = TheEnvironment.Make(); break; case TC.VARIABLE: answer = Variable.Make ((Hunk3) arg1); break; case TC.VECTOR: // Someone wants to see what endian we are! char [] source = (char []) arg1; object [] result = new object [source.Length / 4]; result [1] = ((((((byte) source [3]) * 256) + ((byte) source [2])) * 256) + ((byte) source [1])) * 256 + ((byte) source [0]); result [0] = ((((((byte) source [7]) * 256) + ((byte) source [6])) * 256) + ((byte) source [5])) * 256 + ((byte) source [4]); answer = result; break; case TC.WEAK_CONS: answer = new WeakCons (((Cons) arg1).Car, ((Cons) arg1).Cdr); break; default: throw new NotImplementedException (); } return false; }