BEA Objects | Gazelle [not logged in]

"* , *"
  with 1=i'll, 2=probably have a phone call right now so we'll start a bit later

"* - *"
  with 1=i'll, 2=probably have a phone call right now so we'll start a bit later

"* , * , *"
  with 1=i'll, 2=probably, 3=have a phone call right now so we'll start a bit later

set flag DontImport_loadableUtils$$utils$$MetaTransformer.
//set flag MetaTransformer_debug.

int tooLong = 10000000;

run {
  new InvestigateNonTransientGraph inv;
  inv.mt.markPointer = (a, b) -> {
    if (b instanceof S && l(b/S) >= tooLong) {
      print("Deleting long string (" + n2_l(b/S) + ") from " + className(a));
      var fields = findFieldsWithValue(a, b);
      if (empty(fields))
        print("Field not found...");
      else
        for (Field f : fields) {
          fieldSet(f, a, null);
          print("Cleaned field " + f);
          change(); // unclean
        }
    }
  };
  inv.scan(beaList());
  inv.printResults();
  //inv.printBiggestByteArrays();
}