!7

cmodule AgiBlueSearch > DynPrintLog {
  start {
    dm_registerAs_directLink('agiBlueSearch);
    warmUp();
  }
  
  void warmUp thread {
    temp enter();
    repeat 9 { search("test", quiet := true); }
    search("test"); // will print benchmark
  }
  
  // API
  
  void searchAndPost(S query, O... _) q {
    agiBlue_server_postSearchResult(query, collect q(search(query, _)));
  }
  
  // searches page names only
  // pass agiBlueBotID to use different agi.blue instance
  L<virtual Page> search(S query, O... _) {
    optPar bool quiet;
    optPar int maxResults = 100;

    //if (!quiet) print("Searching " + query);
    long time = sysNow();
    virtual Concepts concepts = optPar_func cc(_, () -> agiBlue_server_mainConcepts(_));
    L<virtual Page> pages = cast call(concepts, 'conceptsOfType, 'Page);
    ScoredSearcher searcher = new(query);
    searcher.maxResults = maxResults;
    for (virtual Page page : pages)
      searcher.put(page, getString q(page));
    L<virtual Page> result =  searcher!;
    if (!quiet) done2("Searched: " + query, time);
    ret result;
  }
}