// adapters are immutable! (plus returns a modified clone)
abstract sclass Adapter {
  abstract bool canMatch(S in, S out);
  Adapter plus(S in, S out) { ret this; }
  S get(S in) { ret in; }
  abstract double size();
}

// node in flight (+ optional adapter)
sclass InFlight {
  OccTree2 node;
  Adapter adapter;
  
  *(OccTree2 *node) {}
  *(OccTree2 *node, Adapter *adapter) {}
  
  E adapted() {
    // TODO: security when rewriting states
    ret adapter == null ? node.e : new E(adapter.get(node.e.text()), node.e.type());
  }
}

sclass LooseBot {
  sbool debug, repeat = true;
  OccTree2 tree;
  new L<InFlight> nodes;
  new L<L> rewindStack;
  O newAdapter;
  O grabber; // func(S -> E)

  // WordAdapter now default
  *(OccTree2 tree) { this(tree, func { new WordAdapter }); }
  *(OccTree2 *tree, O *newAdapter) {}
  *(S theme) { this(makeOccTree(theme)); }
  *(S theme, O newAdapter) { this(makeOccTree(theme), newAdapter); }
  
  Adapter makeAdapter() {
    ret newAdapter == null ? null : (Adapter) call(newAdapter);
  }
  
  void take(E in) {
    remember();
    
    // try starting over from beginning of tree too
    if (repeat) setAdd(nodes, new InFlight(tree, makeAdapter()));
    
    new L<InFlight> l;
    
    // try grabber
    if (grabber != null && in.q()) try {
      E grabbed = cast callFunction(grabber, in.text());
      if (grabbed != null) {
        if (debug)
          print("Grabber worked! " + in.text() + " => " + grabbed);
          
        // make a mini tree with Q + A so it is matched in
        // next call to getSingleOutput()
        OccTree2 node = new OccTree2(in);
        node.next.add(new OccTree2(grabbed));
        
        l.add(new InFlight(node));
      } else
        if (debug)
          print("Grabber didnt't return anything. " + in.text());
    } catch e {
      if (debug) printStackTrace(e);
    }
    
    for (InFlight flight : nodes)
      for (OccTree2 n : flight.node.next)
        if (eq(n.e.type(), in.type()) && (flight.adapter != null
          ? flight.adapter.canMatch(n.e.text(), in.text())
          : matchE(n.e, in))) {
          l.add(new InFlight(n, flight.adapter == null ? null
            : flight.adapter.plus(n.e.text(), in.text())));
        }
    nodes = l;
  }
  
  void remember() {
    if (rewindStack != null)
      rewindStack.add(cloneList(nodes));
  }
  
  E getSingleOutput() {
    remember();
    new L<InFlight> l;
    for (InFlight flight : nodes)
      for (OccTree2 n : flight.node.next)
        if (n.e.a() || isCommand(n.e))
          l.add(new InFlight(n, flight.adapter));
    if (empty(l)) { rewind(); null; }
    nodes = l;
    ret first(nodes).adapted();
  }
  
  void rewind() {
    nodes = popLast(rewindStack);
  }
  
  bool isCommand(E e) {
    ret !isInput(e);
  }
    
  // see Dialog Optimizer
  bool isInput(E e) {
    ret e.q()
      || e.state() && matchStart("result is ", e.text());
  }

  void noRewind() {
    rewindStack = null;
  }
  
  bool matchE(E a, E b) {
    // standard NL matching
    ret eq(a.type(), b.type()) && match(a.text(), b.text());
  }
  
  S nodesToString(L<InFlight> nodes) {
    new L<S> l;
    l.add(n(l(nodes), "node") + "\n");
    for (InFlight flight : nodes) {
      l.add(str(flight.node.e));
      if (flight.adapter != null)
        l.add("  " + flight.adapter);
    }
    ret rtrim(fromLines(l));
  }
  
  S thoughts() {
    new L<S> l;
    l.add(nodesToString(nodes));
    if (rewindStack != null) {
      l.add("\nHistory\n");
      for (L<InFlight> nodes : reversedList(rewindStack))
        l.add(indent(nodesToString(nodes)));
    }
    ret fromLines(l);
  }
}

sclass WordAdapter extends Adapter {
  new Map<S, S> wordMap;
  
  L<S> tok(S s) {
    ret nlTok2(dropPunctuation2(s));
  }
  
  bool canMatch(S in, S out) {
    L<S> t1 = tok(in), t2 = tok(out);
    ret l(t1) == l(t2);
  }
  
  Adapter plus(S in, S out) {
    L<S> t1 = tok(in), t2 = tok(out);
    if (l(t1) != l(t2)) ret this;
    
    WordAdapter a = cast nuObject(getClass());
    a.wordMap = cloneMap(wordMap);
    for (int i = 1; i < l(t1); i += 2) {
      S w1 = t1.get(i), w2 = t2.get(i);
      if (!eqic(w1, w2))
        // just overwrite - be flexible!
        a.wordMap.put(w1.toLowerCase(), w2.toLowerCase());
    }
    ret a;
  }
  
  S get(S s) {
    L<S> tok = nlTok2(s);
    for (int i = 1; i < l(tok); i += 2) {
      S w = lookupToken(tok.get(i));
      if (nempty(w))
        tok.set(i, w);
    }
    ret join(tok);
  }
  
  S lookupToken(S s) {
    ret wordMap.get(s.toLowerCase());
  }
  
  double size() {
    ret l(wordMap);
  }
  
  public S toString() {
    ret structure(wordMap);
  }
}

sclass WordAdapter2 extends WordAdapter {
  new Map<S, S> wordMap;
  
  L<S> tok(S s) {
    ret nlTok2(s);
  }
}

Began life as a copy of #1003413