/*

Input is e.g. "32p 8c". We want to get out the 2 operators.

Then we apply a "puzzler" which tries to combine the operators in a useful way.

// Operators

<int> p = scaleToHeight : IBWntegralImage -> BWImage

<int> c = posterize : BWImage -> BWImage

// Juxtaposition of operators

_ _ = juxtapose : Op, Op -> Op [left-assoc]

*/

sclass GazelleVScriptParser<T> extends SimpleLeftToRightParser {

  CalculatedFieldIndexedList<GAbstractOperator<T>, S> operators = new(op -> op.name);

  new L<ParsedWithTokens> parsed; // contains ints and operators

  *() {}

  *(S text) { super(text); }

  { set caseInsensitive; }

  void addOperators(GAbstractOperator<T>... l) {

    addAll(operators, l);

  }

  void addOperators(Iterable<? extends GAbstractOperator<T>> l) {

    addAll(operators, l);

  }

  void parse(S text) { this.text = text; parse(); }

  void parse {

    while (mainLoop()) {

      if (isInteger()) {

        addToParse(parseInt(tpp()));

        continue;

      }

      addToParse(findOp(tpp()));

    }

  }

  // assumes you have already called tpp()

  void addToParse(O o) {

    parsed.add(ParsedWithTokens(o, tok, ptr.idx()-2, ptr.idx()));

  }

  GAbstractOperator<T> findOp(S name) {

    var ops = operators.getAllByKey(name);

    if (empty(ops))

      warn("Unknown operator: " + name);

    else if (l(ops) > 1)

      warn("Multiple operator definitions (please use GPolymorphicOperator instead): " + name);

    ret first(ops);

  }

}