!7

concept ObjectType > Named {
  S conceptClassName;
  
  toString { ret "object type " + quote(name); }
}

concept DynamicThing > Named {
  ObjectType type;
  
  toString { ret (type == null ? "?" : type.name) + " " + quote(name); }
}

cmodule DynamicClassesMultiCRUD > DynVoiceMultiCRUD {
  L<Table> makeTables() {
    byteBuddy_quicklyAddSubClass(
   S className = "main$NewClass1";
    DynamicType.Unloaded maker = new ByteBuddy()
      .subclass(Concept)
      .name(className)
      .make();
    byte[] classData = cast _get binaryRepresentation(maker);
    
    //ClassLoader cl = module().getClass().getClassLoader();
    File jar = programFile("dynamic.jar");
    createZipFileWithSingleBinaryFile(jar, className + ".class", classData);
    addLibraryToCurrentProgram(jar);
    ret itemPlusList(
      new Table("Object Types", +ObjectType), 
      map(list(ObjectType), type ->
        new Table(plural(type.name), type.name, DynamicThing, +type)));
  }
    
  transient NameBasedVoiceCRUD<ObjectType> typesCRUD;

  start {
    typesCRUD = voiceCRUDs.get(idx(ObjectType));
  }
}