BEA Objects | Gazelle [not logged in]

S html(Req req) {
  new LS out;
  if (masterAuthed(req) && nempty(req.get("delete"))) {
    var l = list();
    cdelete(l);
    out.add(p("Deleted " + nConcepts(l)));
  }
  
  var l = list();
  out.add(p("Deletable (" + n2(l) + "):") + ul(map(l, o -> {
    var refs = findBackRefs BEA(o);
    var sources = filter(refs, r -> r.typeIs("Input source"));
    ret beaHTML(o) + ", userAgents: " + collect userAgent(sources);
  })));
  if (masterAuthed(req))
    out.add(hPostButtonIncludingForm("delete", "Delete them"));
  ret lines(out);
}

L<BEA> list() {
  new L<BEA> out;
  bigLoop: for (BEA o : beaListAny("Input")) {
    if (cget createdBy(o) != null) continue;
    var refs = findBackRefs BEA(o);
    var sources = filter(refs, r -> r.typeIs("Input source"));
    if (empty(sources)) continue; // for safety
    var matches = filter(refs, r -> r.typeIs("Match"));
    if (nempty(matches)) continue;
    
    for (src : sources) {
      S ua = getString userAgent(s...

S html(Req req) {
  new LS out;
  if (masterAuthed(req) && nempty(req.get("delete"))) {
    var l = list();
    cdelete(l);
    out.add(p("Deleted " + nConcepts(l)));
  }
  
  out.add(p("Deletable:") + ul(map beaHTML(list()));
  if (masterAuthed(req))
    out.add(hPostButtonIncludingForm("delete", "Delete them"));
  ret lines(out);
}

L<BEA> list() {
  new L<BEA> out;
  for (BEA o : beaListAny("Input source")) {
    if (cget input(o) == null)
      out.add(o);
  }
  ret out;
}

import Addition from 273866;

exports {
  sclass PowerWord extends BEA {
    S text;
    
    S typeForToString() { ret "Power Word"; }
    
    // incoming or outgoing
    Cl<Addition> additions() {
      ret findBackRefs Addition(this);
    }
    
    Addition primaryAddition() {
      ret firstThat(additions(),
        a -> l(a.inputs) == 1 && first(a.inputs) == this);
    }
    
    O html(Req req) {
      ret beaCall(274603, "html", req, me());
    }
  }
}