/*
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);
  }
}