!7

sS botName = "Dictation.";
static JTextArea ta;
static IVar<S> text;
static Splitter1<S> commandOrText;

p-subst {
  if (nempty(sendOpt(botName, "activate"))) { cleanKill(); ret; }
  
  commandOrText = persistentObject("Command or text splitter", Splitter1);
  text = persistentVar("Text");
  swing {
    showFrame(ta = jtextArea(text!));
    onUpdate(ta, r { text.set(getText(ta)) });
    exitProgramOnFrameClose(ta);
  }
  bot(botName);
  prioMe();
  hideConsole();
}

svoid prioMe {
  sendOpt("Voice Actions", "prio bot *", botName);
}

svoid cleanMeUp {
  sendOpt("Voice Actions", "prio bot done *", botName);
}

answer {
  if "activate" {
    prioMe();
    activateFrame(ta);
    ret "OK";
  }
    
  if "user said *" {
    onUtterance($1);
    ret "OK";
  }
}

svoid onUtterance(S s) {
  Either<S> e = commandOrText(s);
  if (e.isA())
    interpretCommand(e.a());
  else
    appendToTextArea(ta, e.b() + "\n");
}

static Either<S> commandOrText(S s) {
  if (eq(s, "dictation done")) ret eitherA(s);
  int i = commandOrText.get(s);
  if (i != 0) ret either(s, i);
  ret eitherB(s);
}

svoid interpretCommand(S s) {
  if "dictation done" {
    sendOpt("Voice Actions", "prio bot done *", botName);
    cleanKill();
  }
}