!7

module QuestionDetectionTrainer > DynPrintLogAndEnabled {
  transient Set<Thread> extraThreads = weakSet();
  
  start {
    thread { mainLoop(); }
  }
  
  void mainLoop enter {
    while true {
    	S x = input();
    	if (!enabled) continue;
    	if (match_vbar("stop listening|stop training", x)) {
    	  say("OK");
    	  setField(enabled := false);
    	  interruptThreads(extraThreads);
    	} else if (probablyAQuestion(x))
    	  say("I don't know");
    	else if (probablyNotAQuestion(x)) {
    	  sayNothing();
        extraThreads.add(thread {
          S y = input();
          if (match("That was a question", y)) {
            saveIsQuestion(y, "yes");
            say("Oh, sorry. Stored.");
          }
        });
      } else {
    	  say("Is that a question?");
    	  S y = input();
    	  if (dm_isYes(y)) { y = "yes"; say("OK, stored"); }
    	  else if (dm_isNo(y)) { y = "no"; say("OK, stored"); }
    	  else y = "(?) " + y;
    	  saveIsQuestion(x, y);
    	}
    }
  }
  
  bool probablyAQuestion(S s) { ret false; }
  bool probablyNotAQuestion(S s) { ret false; }
  
  void saveIsQuestion(S text, S isQuestion) {
    dm_requireAndCallModule("#1020788/IsQuestionExamples", 'addEntry, text, isQuestion);
  }
  
  void sayNothing() {}
  
  S input() { ret print("> ", dm_waitForTopInput()); }
  void say(S s) { dm_say(s); }
}