// script that recognizes images or performs some kind of analysis on an image
concept G22RecognizerScript > G22LeftArrowScript {
  @Override GazelleV_LeftArrowScriptParser makeParser() {
    var parser = super.makeParser();
    parser.addVar("image", BufferedImage.class, false);
    ret parser;
  }
  
  class CompiledAnalyzer > LASCompileResult {
    settable double timeout = 10;
    
    O get(BufferedImage image) {
      G22AnalysisContext context = new(image);
      ret get(context);
    }
    
    O get(G22AnalysisContext context) {
      if (context.analyzerResults.containsKey(this)) {
        O value = context.analyzerResults.get(this);
        if (value == G22AnalysisContext.calculating)
          fail("Recursive call to analyzer " + this);
        ret ((OKOrError) value)!;
      }
      context.analyzerResults.put(this, G22AnalysisContext.calculating);
      
      var result = okOrError(-> {
        if (parsedScript == null) rethrow(compileError);
        if (image == null) fail("Need image");
        
        ret evalWithTimeoutOrFail(timeout, -> {
          new VarContext ctx;
          ctx.set(+image);
          ret parsedScript.get(ctx);
        });
      });
      context.analyzerResults.put(this, result);
      ret result!;
    }
  }
  
  LASCompileResult newCompileResult() { ret new CompiledAnalyzer; }
  
  CompiledAnalyzer compileForAutoRun() {
    ret (CompiledAnalyzer) super.compileForAutoRun();
  }
}