!7

set flag DynModule.

concept Entry {
  S name;
  S description;
  S codeToProduce;
  transient O data;
  long entries, sizeInRAM, loadTime = -1;
  S javaType;
  bool autoLoad;
  Map moreInfo;
}

module InformationDatabases > DynCRUD<Entry> {
  *() { super(Entry); }
  
  start {
    doLater(5000, r {
      for (Entry e : conceptsWhere(Entry, autoLoad := true))
        loadEntryOpt(e);
    });
  }
  
  afterVisualize {
    addComponents(crud.buttons,
      tableDependentButton(table(), "Load", rThread { loadEntry(selected()) }),
      tableDependentButton(table(), "Show", rThread { showEntry(selected()) })
    );
  }
  
  SimpleCRUD<Entry> makeCRUD() {
    ret setAllAndReturn(super.makeCRUD(),
      excludeFieldsFromEditing := litset('moreInfo, 'sizeInRAM, 'data),
      renderer := func(Entry e) -> Map { mapPlus(renderConceptForCRUDWithoutFields(e, 'data),
        entries := n2(e.entries),
        loadTime := e.loadTime < 0 ? "" : e.loadTime + " ms",
        sizeInRAM := e.sizeInRAM == 0 ? "" : str_toK(e.sizeInRAM)) });
  }
  
  void loadEntry(Entry e) pcall {
    cset(e, codeToProduce := trim(e.codeToProduce));
    O data = null;
    if (anyJavaTokens(e.codeToProduce)) loading "Loading data" {
      long time = sysNow();
      if (isIdentifier(e.codeToProduce)) {
        makeAndCall_initChild.set(voidfunc(Class c) { shareMyCreatorWith(c) });
        data = callAndMake(e.codeToProduce);
      } else
        data = dm_javaEval(e.codeToProduce);
      cset(e, loadTime := sysNow()-time);
    }
    cset(e, +data);
    pcall {
      cset(e, sizeInRAM := retainedObjectSize(data));
      cset(e, entries := l_opt(data));
      cset(e, javaType := shortJavaTypeDesc(data));
    }
  }
  
  void loadEntryOpt(Entry e) {
    if (e.data == null) loadEntry(e);
  }
  
  void showEntry(Entry e) {
    loadEntryOpt(e);
    if (e.data instanceof Collection)
      dm_showStringList(e.name, allToString((Collection) e.data));
  }
}