!7

concept Translation {
  S british, american;
}

compact module BritishToAmerican > DynCRUD<Translation> {
  S output;
  
  *() { super(Translation); }
  
  start {
    dm_onTopInput(voidfunc(S s) {
      setField(output := nullIfEq(s, translate(s)));
      dm_findAndCallModule("#1020768/TransformedInput", 'addEntry, s, output, programID());
    });
  }
  
  visualize {
    ret centerAndSouth(super.visualize(),
      withMargin(withLabel("Output:", dm_boldFieldLabel('output))));
  }
  
  // API
  
  SS getTranslationMap() {
    ret main.<S> mapFromKeyAndValueField(list(Translation), 'british, 'american);
  }
  
  S translate(S s) {
    ret replaceCodeTokensUsingMap(getTranslationMap(), s);
  }
}