!7

set flag FastLisp.

static S intern(S s) {
  ret internPerProgram(s);
}

p {
  vmStartTime_sys(); // force JavaX upgrade early
  
  poorMansProfiling(100);
  
  int count = 0, longest = 0;
  for (Web web : allIndexedWebs())
    for (WebNode n : web_nodesAndRelations(web))
      for (S text : web_texts(n)) {
        longest = max(longest, l(text));
        ++count;
      }
      
  print("Texts found: " + count + ", longest in chars: " + longest);
  print("Total runtime: " + toS(sysNow()-vmStartTime_sys(), 1) + " s"
    + " (" + toS(sysNow()-programLoadTime_sys(), 1) + " s in program)");
    
  MultiSet<S> ms = poorMansProfiling_stopAndGetResults();
  poorMansProfiling_saveResults();
  print("Have " + ms.uniqueSize() + " unique stack traces, " + ms.size() + " total samples");
  
  print("Innermost functions:");
  pnl(multiSetToMapPopularFirst(multiSetMapKeys(f firstLine, ms)));
}