!7

extend BEAObject {
  S _originalStruct;
}

sclass CRef {
  long id;
  S gid;
}

module BEAThoughtBot1 > DynCRUD<BEAObject> {
  switchable S user;
  switchable S botToken;

  start {
    //crud.unshownFields = litset("_originalStruct");
  }
  
  void importAll {
    Map data = cast postJSONPage("https://bea.gazelle.rocks/bot/beaList", _user := user, _botToken := botToken);
    L<Map> list = cast data.get("result");
    if (list == null) ret with infoBox(str(data.get("error")));
    new L<BEAObject> objects;
    for (Map map : list) {
      //long id = toLong(map.get("id"));
      GlobalID globalID = GlobalID((S) map.get("gid"));
      S struct = cast map.get("struct");
      BEAObject o = uniq BEAObject(+globalID);
      objects.add(o);
      cset(o, _originalStruct := struct);
    }

    unpackImportedStructures(objects);
  }

  void unpackImportedStructures(Cl<BEAObject> l) {
    fOr (BEAObject o : l) try {
      S struct = o._originalStruct;
      continue if empty(struct);
      cclearAllDynamicFields(o);

      // make markers explicit so we can modify the token count
      LS tok = javaTokForStructure(structure_convertTokenMarkersToExplicit(struct));

      // resolve concept references
      jreplace(tok, "CRef(id=<int>)", "null");
      jreplace_dyn(tok, "CRef(gid=<quoted>)", (_tok, cIdx) ->
        uniq BEAObject(globalID := unquote(_tok.get(cIdx+8))));

      struct = join(tok);
      print(struct);
      //O data = safeUnstructureAllowingCertainClasses(struct, "CRef");
    } catch print e {
      cset(o, _errorUnpacking := getStackTrace(e));
    }
  }
}