public Machine(bool iscurrent) { if (iscurrent) this.SetCurrent(); IMetaClass meta = new BaseMetaClass(null, null, this, string.Empty); this.nilclass = (BaseClass)meta.CreateClass("UndefinedObject", string.Empty); // TODO review, nil object never receives a message, see Send in Execution block this.nilclass.DefineInstanceMethod(new BehaviorDoesNotUnderstandMethod(this, this.nilclass)); this.nilclass.DefineClassMethod(new BehaviorDoesNotUnderstandMethod(this, this.nilclass)); this.nilclass.DefineInstanceMethod(new FunctionalMethod("ifNil:", this.nilclass, this.IfNil)); this.nilclass.DefineInstanceMethod(new FunctionalMethod("ifNotNil:", this.nilclass, this.IfNotNil)); this.nilclass.DefineInstanceMethod(new FunctionalMethod("isNil", this.nilclass, this.IsNil)); this.nilclass.DefineInstanceMethod(new FunctionalMethod("isNotNil", this.nilclass, this.IsNotNil)); // Native Behaviors var nativeObjectBehavior = new NativeObjectBehavior(meta, null, this); var enumerableBehavior = new EnumerableBehavior(meta, nativeObjectBehavior, this); var booleanBehavior = new BooleanBehavior(meta, nativeObjectBehavior, this); var listBehavior = new ListBehavior(meta, enumerableBehavior, this); var stringBehavior = new StringBehavior(meta, nativeObjectBehavior, this); this.RegisterNativeBehavior(typeof(IEnumerable), enumerableBehavior); this.RegisterNativeBehavior(typeof(bool), booleanBehavior); this.RegisterNativeBehavior(typeof(IList), listBehavior); this.RegisterNativeBehavior(typeof(Block), new BlockBehavior(meta, this.nilclass, this)); this.RegisterNativeBehavior(typeof(string), stringBehavior); // Global Objects this.SetGlobalObject("UndefinedObject", this.nilclass); this.SetGlobalObject("Machine", this); this.SetGlobalObject("Smalltalk", this.environment); }