!7

sS phrases = [[
  United States of America
  God save the queen
  Bed and Breakfast
]];

sS inputs = [[
  United States of Incarceration
  God shave the queen
  Bed and Butter
]];

/* Gazelle-style program (just for illustration):

    $x is said
  + $y is a phrase
  + $old, $new = gazelle_singleChangedWord($y, $x)
  + $capitalized = capitalizeWord($y, $old)
  => No no no. $capitalized!
  
*/

cmodule PhraseCorrector > DynPrintLogAndEnabled {
  class Engine implements Runnable {
    S input;
    LS phrases = tlft(main.phrases);
  
    Collection<S> iterate__$x_is_said() { ret singletonUnlessNull(input); }
    Collection<S> iterate__$y_is_a_phrase() { ret phrases; }
    
    // Gazelle-style program translated to JavaX:
  
    run {
      for ping (S $x : iterate__$x_is_said()) {
        for ping (S $y : iterate__$y_is_a_phrase()) {
          for single (unpair S $old, $new : gazelle_singleChangedWord($y, $x)) {
            for single (S $capitalized : capitalizeWord($y, $old)) {
              emit("No no no. \*$capitalized*/!");
            }
          }
        }
      }
    }
  }
  
  void process(S input, bool speak) {
    temp tempSetTL(emit_print_prefix, "[Bot]  ");
    temp speak ? tempSetTL(emit_onEmit, ll(vf<S> dm_say)) : null;
    pcallF(setAll(new Engine, input := nlPrint("[User] ", input)));
  }

  start-thread {
    for (S input : tlft(inputs)) process(input, false);
    dm_onTopInput_q(voidfunc(S s) { if (enabled) process(s, true) });
  }
}