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;
}
public static PrimObjectMetaclass basicSubclassOf(PrimObjectMetaclass superMeta) {
PrimObjectMetaclass newMetaclass = new PrimObjectMetaclass();
newMetaclass.superclass(superMeta);
return newMetaclass;
}
