public static bool Win32PredefinedRegistryKeys(out object answer)
{
answer = (
new Cons(
new Cons(Symbol.Make("HKEY_CLASSES_ROOT"), null), //Registry.ClassesRoot),
new Cons(
new Cons(Symbol.Make("HKEY_CURRENT_USER"), null), //Registry.CurrentUser),
new Cons(
new Cons(Symbol.Make("HKEY_LOCAL_MACHINE"), null), //Registry.LocalMachine),
new Cons(
new Cons(Symbol.Make("HKEY_USERS"), null), //Registry.Users),
new Cons(
new Cons(Symbol.Make("HKEY_PERFORMANCE_DATA"), null), //Registry.PerformanceData),
new Cons(
new Cons(Symbol.Make("HKEY_CURRENT_CONFIG"), null), //Registry.CurrentConfig),
new Cons(
new Cons(Symbol.Make("HKEY_DYNAMIC_DATA"), null), //Registry.DynData),
null))))))));
return(false);
}
public static void Initialize()
{
theFixedObjectsVector = new object [nFixedObjects];
theFixedObjectsVector [TypesVector] =
new object [] {
Symbol.Make("false"), // 0x00
Symbol.Make("pair"), // 0x01
Symbol.Make("character"), // 0x02
Symbol.Make("quotation"), // 0x03
Symbol.Make("primitive-combination-2"), // 0x04
Symbol.Make("uninterned-symbol"), // 0x05
Symbol.Make("flonum"), // 0x06
Symbol.Make("combination-1"), // 0x07
Symbol.Make("constant"), // 0x08
Symbol.Make("extended-procedure"), // 0x09
Symbol.Make("vector"), // 0x0A
Symbol.Make("return-code"), // 0x0B
Symbol.Make("combination-2"), // 0x0C
Symbol.Make("manifest-closure"), // 0x0D
Symbol.Make("bignum"), // 0x0E
Symbol.Make("procedure"), // 0x0F
Symbol.Make("entity"), // 0x10
Symbol.Make("delay"), // 0x11
Symbol.Make("environment"), // 0x12
Symbol.Make("promise"), // 0x13
Symbol.Make("extended-lambda"), // 0x14
Symbol.Make("comment"), // 0x15
Symbol.Make("non-marked-vector"), // 0x16
Symbol.Make("lambda"), // 0x17
Symbol.Make("primitive"), // 0x18
Symbol.Make("sequence-2"), // 0x19
Symbol.Make("fixnum"), // 0x1A
Symbol.Make("primitive-combination-1"), // 0x1B
Symbol.Make("control-point"), // 0x1C
Symbol.Make("interned-symbol"), // 0x1D
Symbol.Make("string"), // 0x1e
Symbol.Make("access"), // 0x1f
Symbol.Make("hunk3-a"), // 0x20
Symbol.Make("definition"), // 0x21
Symbol.Make("broken-heart"), // 0x22
Symbol.Make("assignment"), // 0x23
Symbol.Make("triple"), // 0x24
Symbol.Make("in-package"), // 0x25
Symbol.Make("combination"), // 0x26
Symbol.Make("manifest-nm-vector"), // 0x27
Symbol.Make("compiled-entry"), // 0x28
Symbol.Make("lexpr"), // 0x29
Symbol.Make("primitive-combination-3"), // 0x2a
null, // 0x2b
Symbol.Make("variable"), // 0x2c
Symbol.Make("the-environment"), // 0x2d
null, // 0x2e
Symbol.Make("vector-1b"), // 0x2f
Symbol.Make("primitive-combination-0"), // 0x30
Symbol.Make("vector-16b"), // 0x31
Symbol.Make("reference-trap"), // 0x32
Symbol.Make("sequence-3"), // 0x33
Symbol.Make("conditional"), // 0x34
Symbol.Make("disjunction"), // 0x35
Symbol.Make("cell"), // 0x36
Symbol.Make("weak-cons"), // 0x37
Symbol.Make("quad"), // 0x38
Symbol.Make("linkage-section"), // 0x39
Symbol.Make("ratnum"), // 0x3a
Symbol.Make("stack-environment"), // 0x3b
Symbol.Make("recnum"), // 0x3c
Symbol.Make("compiled-code-block"), // 0x3d
Symbol.Make("record"), // 0x3e
null // 0x3f
};
theFixedObjectsVector [ReturnsVector] =
new object [] {
Symbol.Make("non-existent-continuation"), // 0x00
Symbol.Make("join-stacklets"), // 0x01
null, // 0x02
Symbol.Make("internal-apply"), // 0x03
null, // 0x04
Symbol.Make("restore-history"), // 0x05
Symbol.Make("invoke-stack-thread"), // 0x06
null, // 0x07
Symbol.Make("assignment-continue"), // 0x08
Symbol.Make("definition-continue"), // 0x09
Symbol.Make("access-continue"), // 0x0a
Symbol.Make("in-package-continue"), // 0x0b
Symbol.Make("sequence-2-second"), // 0x0c
Symbol.Make("sequence-3-second"), // 0x0d
Symbol.Make("sequence-3-third"), // 0x0e
Symbol.Make("conditional-decide"), // 0x0f
Symbol.Make("disjunction-decide"), // 0x10
Symbol.Make("combination-1-procedure"), // 0x11
Symbol.Make("combination-apply"), // 0x12
Symbol.Make("combination-2-first-operand"), // 0x13
Symbol.Make("combination-2-procedure"), // 0x14
Symbol.Make("combination-save-value"), // 0x15
Symbol.Make("primitive-combination-1-apply"), // 0x16
Symbol.Make("primitive-combination-2-first-operand"), // 0x17
Symbol.Make("primitive-combination-2-apply"), // 0x18
Symbol.Make("primitive-combination-3-second-operand"), // 0x19
Symbol.Make("primitive-combination-3-first-operand"), // 0x1a
Symbol.Make("primitive-combination-3-apply"), // 0x1b
Symbol.Make("force-snap-thunk"), // 0x1c
Symbol.Make("reenter-compiled-code"), // 0x1d
null, // 0x1e
null, // 0x1f
Symbol.Make("normal-garbage-collect-done"), // 0x20
null, // 0x21
Symbol.Make("purify-after-first-gc"), // 0x22
Symbol.Make("purify-after-second-gc"), // 0x23
null, // 0x24
null, // 0x25
null, // 0x26
null, // 0x27
null, // 0x28
Symbol.Make("pop-from-compiled-code"), // 0x29
Symbol.Make("return-trap-point"), // 0x2a
null, // 0x2b
Symbol.Make("restore-to-state-point"), // 0x2c
Symbol.Make("move-to-adjacent-point"), // 0x2d
Symbol.Make("restore-value"), // 0x2e
Symbol.Make("restore-dont-copy-history"), // 0x2f
null, // 0x30
null, // 0x31
null, // 0x32
null, // 0x33
null, // 0x34
null, // 0x35
null, // 0x36
null, // 0x37
null, // 0x38
null, // 0x39
null, // 0x3a
null, // 0x3b
null, // 0x3c
null, // 0x3d
null, // 0x3e
null, // 0x3f
Symbol.Make("pop-return-error"), // 0x40
Symbol.Make("eval-error"), // 0x41
Symbol.Make("stack-marker"), // 0x42
Symbol.Make("compiler-interrupt-restart"), // 0x43
null, // 0x44
Symbol.Make("restore-interrupt-mask"), // 0x45
Symbol.Make("halt"), // 0x46
null, // 0x47
Symbol.Make("repeat-dispatch"), // 0x48
Symbol.Make("gc-check"), // 0x49
null, // 0x4a
null, // 0x4b
null, // 0x4c
null, // 0x4d
null, // 0x4e
null, // 0x4f
null, // 0x50
null, // 0x51
null, // 0x52
Symbol.Make("compiler-reference-trap-restart"), // 0x53
Symbol.Make("compiler-assignment-trap-restart"), // 0x54
null, // 0x55
Symbol.Make("compiler-operator-lookup-trap-restart"), // 0x56
Symbol.Make("compiler-lookup-apply-trap-restart"), // 0x57
Symbol.Make("compiler-safe-reference-trap-restart"), // 0x58
Symbol.Make("compiler-unassigned?-trap-restart"), // 0x59
null, // 0x5a
Symbol.Make("compiler-link-caches-restart"), // 0x5b
Symbol.Make("hardware-trap"), // 0x5c
Symbol.Make("internal-apply-val"), // 0x5d
Symbol.Make("compiler-error-restart"), // 0x5e
Symbol.Make("primitive-continue") // 0x5f
};
theFixedObjectsVector [ErrorsVector] =
new object [] {
Symbol.Make("bad-error-code"), // 0x00
Symbol.Make("unbound-variable"), // 0x01
Symbol.Make("unassigned-variable"), // 0x02
Symbol.Make("undefined-procedure"), // 0x03
Symbol.Make("system-call"), // 0x04
Symbol.Make("error-with-argument"), // 0x05
Symbol.Make("bad-frame"), // 0x06
Symbol.Make("broken-compiled-variable"), // 0x07
Symbol.Make("undefined-user-type"), // 0x08
Symbol.Make("undefined-primitive-operation"), // 0x09
Symbol.Make("external-return"), // 0x0a
Symbol.Make("execute-manifest-vector"), // 0x0b
Symbol.Make("wrong-number-of-arguments"), // 0x0c
Symbol.Make("wrong-type-argument-0"), // 0x0d
Symbol.Make("wrong-type-argument-1"), // 0x0e
Symbol.Make("wrong-type-argument-2"), // 0x0f
Symbol.Make("bad-range-argument-0"), // 0x10
Symbol.Make("bad-range-argument-1"), // 0x11
Symbol.Make("bad-range-argument-2"), // 0x12
Symbol.Make("macro-binding"), // 0x13
Symbol.Make("fasdump-object-too-large"), // 0x14
null, // 0x15
null, // 0x16
Symbol.Make("fasl-file-too-big"), // 0x17
Symbol.Make("fasl-file-bad-data"), // 0x18
null, // 0x19
null, // 0x1a
null, // 0x1b
null, // 0x1c
Symbol.Make("bad-assignment"), // 0x1d
Symbol.Make("failed-arg-1-coercion"), // 0x1e
Symbol.Make("failed-arg-2-coercion"), // 0x1f
Symbol.Make("out-of-file-handles"), // 0x20
null, // 0x21
Symbol.Make("bad-range-argument-3"), // 0x22
Symbol.Make("bad-range-argument-4"), // 0x23
Symbol.Make("bad-range-argument-5"), // 0x24
Symbol.Make("bad-range-argument-6"), // 0x25
Symbol.Make("bad-range-argument-7"), // 0x26
Symbol.Make("bad-range-argument-8"), // 0x27
Symbol.Make("bad-range-argument-9"), // 0x28
Symbol.Make("wrong-type-argument-3"), // 0x29
Symbol.Make("wrong-type-argument-4"), // 0x2a
Symbol.Make("wrong-type-argument-5"), // 0x2b
Symbol.Make("wrong-type-argument-6"), // 0x2c
Symbol.Make("wrong-type-argument-7"), // 0x2d
Symbol.Make("wrong-type-argument-8"), // 0x2e
Symbol.Make("wrong-type-argument-9"), // 0x2f
Symbol.Make("inapplicable-continuation"), // 0x30
Symbol.Make("compiled-code-error"), // 0x31
Symbol.Make("floating-overflow"), // 0x32
Symbol.Make("unimplemented-primitive"), // 0x33
Symbol.Make("illegal-reference-trap"), // 0x34
Symbol.Make("broken-variable-cache"), // 0x35
Symbol.Make("wrong-arity-primitives"), // 0x36
Symbol.Make("io-error"), // 0x37
Symbol.Make("fasdump-environment"), // 0x38
Symbol.Make("fasload-band"), // 0x39
Symbol.Make("fasload-compiled-mismatch"), // 0x3a
Symbol.Make("unknown-primitive-continuation"), // 0x3b
Symbol.Make("illegal-continuation"), // 0x3c
Symbol.Make("stack-has-slipped"), // 0x3d
Symbol.Make("cannot-recurse") // 0x3e
};
theFixedObjectsVector [IdentificationVector] =
new object [] {
Symbol.Make("system-release-string"), // 0x00
Symbol.Make("microcode-version"), // 0x01
null,
Symbol.Make("console-width"), // 0x03
Symbol.Make("console-height"), // 0x04
Symbol.Make("newline-char"), //0x05
Symbol.Make("flonum-mantissa-length"), // 0x06
Symbol.Make("flonum-epsilon"), // 0x07
Symbol.Make("os-name-string"), // 0x08
Symbol.Make("os-variant-string"), // 0x09
Symbol.Make("stack-type-string"), // 0x0A
Symbol.Make("machine-type-string"), // 0x0B
Symbol.Make("cc-arch-string") // 0x0C
};
theFixedObjectsVector [SystemCallNames] = new object [0];
theFixedObjectsVector [SystemErrorNames] = new object [0];
theFixedObjectsVector [FixedObjectSlots] =
new object [] {
Symbol.Make("non-object"), // 0x00
Symbol.Make("system-interrupt-vector"), // 0x01
Symbol.Make("system-error-vector"), // 0x02
Symbol.Make("obarray"), // 0x03
Symbol.Make("microcode-types-vector"), // 0x04
Symbol.Make("microcode-returns-vector"), // 0x05
Symbol.Make("interrupt-mask-vector"), // 0x06
Symbol.Make("microcode-errors-vector"), // 0x07
Symbol.Make("microcode-identification-vector"), // 0x08
Symbol.Make("system-call-names"), // 0x09
Symbol.Make("system-call-errors"), // 0x0A
Symbol.Make("gc-daemon"), // 0x0B
Symbol.Make("trap-handler"), // 0x0C
Symbol.Make("edwin-auto-save"), // 0x0D
Symbol.Make("stepper-state"), // 0x0E
Symbol.Make("microcode-fixed-objects-slots"), // 0x0F
Symbol.Make("files-to-delete"), // 0x10
Symbol.Make("state-space-tag"), // 0x11
Symbol.Make("state-point-tag"), // 0x12
Symbol.Make("dummy-history"), // 0x13
Symbol.Make("bignum-one"), // 0x14
null, // 0x15
Symbol.Make("microcode-terminations-vector"), // 0x16
Symbol.Make("microcode-terminations-procedures"), // 0x17
null, // 0x18
null, // 0x19
null, // 0x1A
null, // 0x1B
null, // 0x1C
Symbol.Make("error-procedure"), // 0x1D
null, // 0x1E
null, // 0x1F
Symbol.Make("compiler-error-procedure"), // 0x20
null, // 0x21
Symbol.Make("state-space-root"), // 0x22
Symbol.Make("primitive-profiling-table"), // 0x23
Symbol.Make("generic-trampoline-zero?"), // 0x24
Symbol.Make("generic-trampoline-positive?"), // 0x25
Symbol.Make("generic-trampoline-negative?"), // 0x26
Symbol.Make("generic-trampoline-add-1"), // 0x27
Symbol.Make("generic-trampoline-subtract-1"), // 0x28
Symbol.Make("generic-trampoline-equal?"), // 0x29
Symbol.Make("generic-trampoline-less?"), // 0x2A
Symbol.Make("generic-trampoline-greater?"), // 0x2B
Symbol.Make("generic-trampoline-add"), // 0x2C
Symbol.Make("generic-trampoline-subtract"), // 0x2D
Symbol.Make("generic-trampoline-multiply"), // 0x2E
Symbol.Make("generic-trampoline-divide"), // 0x2F
Symbol.Make("generic-trampoline-quotient"), // 0x30
Symbol.Make("generic-trampoline-remainder"), // 0x31
Symbol.Make("generic-trampoline-modulo"), // 0x32
Symbol.Make("arity-dispatcher-tag"), // 0x33
Symbol.Make("pc-sample/builtin-table"), // 0x34
Symbol.Make("pc-sample/utility-table"), // 0x35
Symbol.Make("pc-sample/primitive-table"), // 0x36
Symbol.Make("pc-sample/code-block-table"), // 0x37
Symbol.Make("pc-sample/purified-code-block-block-buffer"), // 0x38
Symbol.Make("pc-sample/purified-code-block-offset-buffer"), // 0x39
Symbol.Make("pc-sample/heathen-code-block-block-buffer"), // 0x3A
Symbol.Make("pc-sample/heathen-code-block-offset-buffer"), // 0x3B
Symbol.Make("pc-sample/interp-proc-buffer"), // 0x3C
Symbol.Make("pc-sample/prob-comp-table"), // 0x3D
Symbol.Make("pc-sample/ufo-table"), // 0x3E
Symbol.Make("compiled-code-bkpt-handler"), // 0x3F
Symbol.Make("gc-wabbit-descwiptor"), // 0x40
null, // 0x41
null, // 0x42
null, // 0x43
null, // 0x44
null // 0x45
};
theFixedObjectsVector [SystemInterruptVector] = new object [15];
theFixedObjectsVector [DummyHistory] = History.DummyHistory();
theFixedObjectsVector [TerminationVector] = new object [] {
Symbol.Make("halt"), // 0x00
Symbol.Make("disk-restore"), // 0x01
Symbol.Make("broken-heart"), // 0x02
Symbol.Make("non-pointer-relocation"), // 0x03
Symbol.Make("bad-root"), // 0x04
Symbol.Make("non-existent-continuation"), // 0x05
Symbol.Make("bad-stack"), // 0x06
Symbol.Make("stack-overflow"), // 0x07
Symbol.Make("stack-allocation-failed"), // 0x08
Symbol.Make("no-error-handler"), // 0x09
Symbol.Make("no-interrupt-handler"), // 0x0a
Symbol.Make("unimplemented-continuation"), // 0x0b
Symbol.Make("exit"), // 0x0c
Symbol.Make("bad-primitive-during-error"), // 0x0d
Symbol.Make("eof"), // 0x0e
Symbol.Make("bad-primitive"), // 0x0f
Symbol.Make("termination-handler"), // 0x10
Symbol.Make("end-of-computation"), // 0x11
Symbol.Make("invalid-type-code"), // 0x12
Symbol.Make("compiler-death"), // 0x13
Symbol.Make("gc-out-of-space"), // 0x14
Symbol.Make("no-space"), // 0x15
Symbol.Make("signal"), // 0x16
null, // 0x17
Symbol.Make("save-and-exit"), // 0x18
Symbol.Make("trap"), // 0x19
Symbol.Make("bad-back-out") // 0x1a
};
theFixedObjectsVector [TerminationProcVector] = new object [0];
theFixedObjectsVector [MeMyself] = theFixedObjectsVector;
theFixedObjectsVector [GenericTrampolineZeroP] = Primitive.Find("INTEGER-ZERO?", 1);
theFixedObjectsVector [GenericTrampolinePositiveP] = Primitive.Find("INTEGER-POSITIVE?", 1);
theFixedObjectsVector [GenericTrampolineNegativeP] = Primitive.Find("INTEGER-NEGATIVE?", 1);
theFixedObjectsVector [GenericTrampolineSuccessor] = Primitive.Find("INTEGER-ADD-1", 1);
theFixedObjectsVector [GenericTrampolinePredecessor] = Primitive.Find("INTEGER-SUBTRACT-1", 1);
theFixedObjectsVector [GenericTrampolineEqualP] = Primitive.Find("INTEGER-EQUAL?", 2);
theFixedObjectsVector [GenericTrampolineLessP] = Primitive.Find("INTEGER-LESS?", 2);
theFixedObjectsVector [GenericTrampolineGreaterP] = Primitive.Find("INTEGER-GREATER?", 2);
theFixedObjectsVector [GenericTrampolineAdd] = Primitive.Find("INTEGER-ADD", 2);
theFixedObjectsVector [GenericTrampolineSubtract] = Primitive.Find("INTEGER-SUBTRACT", 2);
theFixedObjectsVector [GenericTrampolineMultiply] = Primitive.Find("INTEGER-MULTIPLY", 2);
theFixedObjectsVector [GenericTrampolineDivide] = false;
theFixedObjectsVector [GenericTrampolineQuotient] = false;
theFixedObjectsVector [GenericTrampolineRemainder] = false;
theFixedObjectsVector [GenericTrampolineModulo] = false;
}
internal object ReadObject(uint location)
{
object probe = null;
if (this.sharingTable.TryGetValue(location, out probe) == true)
{
return(probe);
}
EncodedObject encoded =
heapSection.Contains(location) ? heapSection [location]
: constSection.Contains(location) ? constSection [location]
: new EncodedObject(0);
// Console.WriteLine ("{0}", encoded.TypeCode);
object first = null;
switch (encoded.TypeCode)
{
case TC.ACCESS:
return(Access.Make(ReadObject(encoded.Datum),
(Symbol)ReadObject(encoded.Datum + 4)));
case TC.ASSIGNMENT:
return(ReadAssignment(encoded.Datum));
case TC.BIG_FIXNUM:
return(ReadBignum(encoded.Datum));
case TC.BIG_FLONUM:
return(ReadBigFlonum(encoded.Datum));
case TC.CHARACTER:
return((char)(encoded.Datum));
case TC.CHARACTER_STRING:
return(heapSection.ReadString(encoded.Datum));
case TC.COMBINATION:
return(Combination.Make(ReadVector(encoded.Datum)));
case TC.COMBINATION_1:
return(Combination1.Make(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.COMBINATION_2:
return(Combination2.Make(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4),
ReadObject(encoded.Datum + 8)));
case TC.COMMENT:
return(Comment.Make(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.COMPLEX:
return(new Complex(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.CONDITIONAL:
return(Conditional.Make(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4),
ReadObject(encoded.Datum + 8)));
case TC.CONSTANT:
return(Constant.Decode(encoded.Datum));
case TC.DEFINITION:
return(Definition.Make((Symbol)ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.DELAY:
return(Delay.Make(ReadObject(encoded.Datum)));
case TC.DISJUNCTION:
return(Disjunction.Make(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.EXTENDED_LAMBDA:
return(ReadExtendedLambda(encoded.Datum));
case TC.FIXNUM:
return(encoded.Datum > 0x02000000
? (int)-(0x04000000 - encoded.Datum)
: (int)encoded.Datum);
case TC.INTERNED_SYMBOL:
return(Symbol.Make(new String((char [])ReadObject(encoded.Datum))));
case TC.LAMBDA:
Symbol name;
Symbol [] formals;
ReadFormals(encoded.Datum + 4, out name, out formals);
return(Lambda.Make(name, formals, SCode.EnsureSCode(ReadObject(encoded.Datum))));
case TC.LIST:
object second = ReadObject(encoded.Datum + 4);
return(new Cons(ReadObject(encoded.Datum),
second == sharpF ? null : second));
case TC.NULL:
if (encoded.Datum != 0)
{
throw new NotImplementedException();
}
return(sharpF);
case TC.PCOMB0:
return(PrimitiveCombination0.Make((Primitive0)primSection[encoded.Datum]));
case TC.PCOMB1:
return(PrimitiveCombination1.Make((Primitive1)ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.PCOMB2:
return(PrimitiveCombination2.Make((Primitive2)ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4),
ReadObject(encoded.Datum + 8)));
case TC.PCOMB3:
return(PrimitiveCombination3.Make((Primitive3)ReadObject(encoded.Datum + 4),
ReadObject(encoded.Datum + 8),
ReadObject(encoded.Datum + 12),
ReadObject(encoded.Datum + 16)));
case TC.PRIMITIVE:
return(primSection [encoded.Datum]);
case TC.REFERENCE_TRAP:
if (encoded.Datum == 0)
{
return(ReferenceTrap.Unassigned);
}
else
{
throw new NotImplementedException();
}
// return ReferenceTrap.Make (encoded.Datum);
case TC.RATNUM:
return(new Ratnum(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.RETURN_CODE:
return((ReturnCode)(encoded.Datum));
case TC.SEQUENCE_2:
return(Sequence2.Make(ReadObject(encoded.Datum),
ReadObject(encoded.Datum + 4)));
case TC.SEQUENCE_3:
// Chains of sequence_3 can be arbitrarily long.
// Unfortunately, the CLR puts a strict limit on
// the stack, so we have to do this funky thing.
Cons sequenceStack = null;
while (true)
{
// read the first two elements
object s1 = ReadObject(encoded.Datum);
sequenceStack = new Cons(s1, sequenceStack);
object s2 = ReadObject(encoded.Datum + 4);
sequenceStack = new Cons(s2, sequenceStack);
// peek at the third
EncodedObject sencoded =
heapSection.Contains(encoded.Datum + 8) ? heapSection [encoded.Datum + 8]
: constSection.Contains(encoded.Datum + 8) ? constSection [encoded.Datum + 8]
: new EncodedObject(0);
if (sencoded.TypeCode == TC.SEQUENCE_3)
{
encoded = sencoded;
}
else
{
// found the end of the chain!
object tail = ReadObject(encoded.Datum + 8);
while (sequenceStack != null)
{
object ob2 = sequenceStack.Car;
sequenceStack = (Cons)sequenceStack.Cdr;
object ob1 = sequenceStack.Car;
sequenceStack = (Cons)sequenceStack.Cdr;
tail = Sequence3.Make(ob1, ob2, tail);
}
return(tail);
}
}
case TC.THE_ENVIRONMENT:
return(TheEnvironment.Make());
case TC.UNINTERNED_SYMBOL:
// KLUDGE!! Make sure that all uninterned strings within a file
// keep their identity when read.
// Also, postpend a unique number so we can tell these apart.
first = ReadObject(encoded.Datum);
if (first is Symbol)
{
return(first);
}
else
{
Symbol result = Symbol.MakeUninterned("#:" + new String((char [])first) + "-" + (gensymCounter++).ToString(CultureInfo.InvariantCulture));
this.sharingTable.Add(encoded.Datum, result);
return(result);
}
case TC.VARIABLE:
return(Variable.Make((Symbol)ReadObject(encoded.Datum)));
case TC.VECTOR:
return(ReadVector(encoded.Datum));
default:
throw new NotImplementedException();
}
}
public static bool StringToSymbol(out object result, object arg)
{
result = Symbol.Make(new String((char [])arg));
return(false);
}
public Object GetRealObject(StreamingContext context)
{
return(this.intern ?
Symbol.Make(this.name) :
Symbol.MakeUninterned(this.name));
}
static void AddPrimitive(string name, PrimitiveMethod3 method)
{
primitiveTable.Add(CanonicalizeName(name), new Primitive3(Symbol.Make(name), method));
}
static void AddPrimitive(string name, PrimitiveMethod2 method)
{
Symbol cname = CanonicalizeName(name);
primitiveTable.Add(cname, new Primitive2(Symbol.Make(name), method));
}
static void AddPrimitive(string name, int arity, PrimitiveMethod method)
{
Symbol cname = CanonicalizeName(name);
primitiveTable.Add(cname, new PrimitiveN(Symbol.Make(name), arity, method));
}
static Symbol CanonicalizeName(string name)
{
return(Symbol.Make(name.ToUpperInvariant()));
}
