!7

p-subst {
  veryBigConsole();
  clearConsole();
  sleepingBot("English To Concepts Translator.");
}

synchronized answer {
  aiConceptsMap_clearCache();
  try answer or2(englishToConceptLanguage(s), s);
}

sS englishToConceptLanguage_simple(S s) {
  Map<S, AIConcept> concepts = aiConceptsMap_cached();
  for (AIConcept c : values(concepts))
    if (match(c.name, s))
      ret c.globalID;
  null;
}

sS englishToConceptLanguage(S s) {
  try answer englishToConceptLanguage_simple(s);
  Map<S, AIConcept> concepts = aiConceptsMap_cached();
  new Matches m;
  for (AIConcept c : values(concepts)) {
    L<S> tok = javaTokC(c.name);
    int iX = tok.indexOf("X");
    if (iX >= 0) {
      int iY = tok.indexOf("Y");
      if (iY >= 0) {
        S pat = formatXYZ(c.name, "*", "*");
        if (flexMatchIC(pat, s, m))
          ret c.globalID + " " +
            (iX < iY ? conceptQuote($1) + " " + conceptQuote($2)
              : conceptQuote($2) + " " + conceptQuote($1));
      } else {
        S pat = formatXYZ(c.name, "*");
        if (flexMatchIC(pat, s, m))
          ret c.globalID + " " + conceptQuote($1);
      }
    }
  }
  null;
}