コード例 #1
0
 public PrimObjectMetaclass basicCreate(
     PrimObject name,
     PrimObject superclass,
     PrimObject instVarNames,
     PrimObject classVarNames,
     PrimObject poolDictionaries,
     PrimObject classInstVarNames) {
   PrimObjectMetaclass newClass = new PrimObjectMetaclass();
   newClass.cls(this);
   newClass.superclass(superclass);
   newClass.name(name);
   // TODO.jcl take other parameters into account.
   if (containsString(instVarNames)) newClass.perform(instVarNames, "instanceVariableNames:");
   if (containsString(classVarNames)) newClass.perform(classVarNames, "classVariableNames:");
   return newClass;
 }
コード例 #2
0
 public static PrimObjectMetaclass basicSubclassOf(PrimObjectMetaclass superMeta) {
   PrimObjectMetaclass newMetaclass = new PrimObjectMetaclass();
   newMetaclass.superclass(superMeta);
   return newMetaclass;
 }