Not logged in.  Login/Logout/Register | List snippets | | Create snippet | Upload image | Upload data

71
LINES

< > BotCompany Repo | #1019470 // Information Databases [Dyn Module]

JavaX source code (Dynamic Module) [tags: use-pretranspiled] - run with: Stefan's OS

Libraryless. Click here for Pure Java version (21032L/159K).

1  
!7
2  
3  
set flag DynModule.
4  
5  
concept Entry {
6  
  S name;
7  
  S description;
8  
  S codeToProduce;
9  
  transient O data;
10  
  long entries, sizeInRAM, loadTime = -1;
11  
  S javaType;
12  
  bool autoLoad;
13  
  Map moreInfo;
14  
}
15  
16  
module InformationDatabases > DynCRUD<Entry> {
17  
  *() { super(Entry); }
18  
  
19  
  start {
20  
    doLater(5000, r {
21  
      for (Entry e : conceptsWhere(Entry, autoLoad := true))
22  
        loadEntryOpt(e);
23  
    });
24  
  }
25  
  
26  
  afterVisualize {
27  
    addComponents(crud.buttons,
28  
      tableDependentButton(table(), "Load", rThread { loadEntry(selected()) }),
29  
      tableDependentButton(table(), "Show", rThread { showEntry(selected()) })
30  
    );
31  
  }
32  
  
33  
  SimpleCRUD<Entry> makeCRUD() {
34  
    ret setAllAndReturn(super.makeCRUD(),
35  
      excludeFieldsFromEditing := litset('moreInfo, 'sizeInRAM, 'data),
36  
      renderer := func(Entry e) -> Map { mapPlus(renderConceptForCRUDWithoutFields(e, 'data),
37  
        entries := n2(e.entries),
38  
        loadTime := e.loadTime < 0 ? "" : e.loadTime + " ms",
39  
        sizeInRAM := e.sizeInRAM == 0 ? "" : str_toK(e.sizeInRAM)) });
40  
  }
41  
  
42  
  void loadEntry(Entry e) pcall {
43  
    cset(e, codeToProduce := trim(e.codeToProduce));
44  
    O data = null;
45  
    if (anyJavaTokens(e.codeToProduce)) loading "Loading data" {
46  
      long time = sysNow();
47  
      if (isIdentifier(e.codeToProduce)) {
48  
        makeAndCall_initChild.set(voidfunc(Class c) { shareMyCreatorWith(c) });
49  
        data = callAndMake(e.codeToProduce);
50  
      } else
51  
        data = dm_javaEval(e.codeToProduce);
52  
      cset(e, loadTime := sysNow()-time);
53  
    }
54  
    cset(e, +data);
55  
    pcall {
56  
      cset(e, sizeInRAM := retainedObjectSize(data));
57  
      cset(e, entries := l_opt(data));
58  
      cset(e, javaType := shortJavaTypeDesc(data));
59  
    }
60  
  }
61  
  
62  
  void loadEntryOpt(Entry e) {
63  
    if (e.data == null) loadEntry(e);
64  
  }
65  
  
66  
  void showEntry(Entry e) {
67  
    loadEntryOpt(e);
68  
    if (e.data instanceof Collection)
69  
      dm_showStringList(e.name, allToString((Collection) e.data));
70  
  }
71  
}

download  show line numbers  debug dex  old transpilations   

Travelled to 12 computer(s): bhatertpkbcr, cbybwowwnfue, cfunsshuasjs, gwrvuhgaqvyk, irmadwmeruwu, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tvejysmllsmz, vouqrxazstgt

No comments. add comment

Snippet ID: #1019470
Snippet name: Information Databases [Dyn Module]
Eternal ID of this version: #1019470/26
Text MD5: f60824a05892f3d5055ed8a74e0cffa4
Transpilation MD5: 3450dec3be96f8062942e186ceecf321
Author: stefan
Category: javax
Type: JavaX source code (Dynamic Module)
Public (visible to everyone): Yes
Archived (hidden from active list): No
Created/modified: 2018-11-09 19:32:45
Source code size: 2013 bytes / 71 lines
Pitched / IR pitched: No / No
Views / Downloads: 293 / 1111
Version history: 25 change(s)
Referenced in: [show references]