CreateClass() public method

public CreateClass ( string name, string varnames ) : IClass
name string
varnames string
return IClass
示例#1
0
文件: Machine.cs 项目: ajlopez/AjTalk
        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);
        }
示例#2
0
 public void CreateClass()
 {
     IMetaClass metaclass = new BaseMetaClass(null, null, this.machine, "x y");
     IClass cls = metaclass.CreateClass("MyClass", "a b");
     Assert.AreEqual(cls.Behavior, metaclass);
     Assert.AreEqual("MyClass", cls.Name);
     Assert.AreEqual(cls.MetaClass, metaclass);
     Assert.AreEqual("a b", cls.GetInstanceVariableNamesAsString());
 }
示例#3
0
文件: Machine.cs 项目: ajlopez/AjTalk
        public IClass CreateClass(string clsname, IClass superclass, string instancevarnames, string classvarnames)
        {
            var oldcls = this.CurrentEnvironment.GetValue(clsname) as IClass;

            if (oldcls != null)
            {
                oldcls.RedefineClassVariables(classvarnames);
                oldcls.RedefineInstanceVariables(instancevarnames);
                return oldcls;
            }

            IMetaClass supermeta = null;

            if (superclass == null)
                if (this.classclass != null)
                    superclass = this.classclass;
                else
                    superclass = this.nilclass;

            if (superclass != null)
                supermeta = superclass.MetaClass;

            // TODO review using a provisional metaclassclass, for test that doesn't define Metaclass yet
            IMetaClass meta = new BaseMetaClass(this.metaclassclass ?? this.nilclass.Behavior, supermeta, this, null);
            IClass cls = meta.CreateClass(clsname, instancevarnames);
            cls.RedefineClassVariables(classvarnames);

            return cls;
        }