<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_u073s6ij8eekn2m071sllit7vn, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
sclass JLeftArrowScriptIDE is Swingable {
  settable SimpleLiveValue<S> lvScript = stringLiveValue();
  settable S sectionTitle = "Left arrow script";
  
  sS helpText = !include string #1034045;
  
  transient CompileResult compileResult;
  transient RSyntaxTextAreaWithSearch taScript;
  transient new Q compileQ;
  //transient JLabel lblCompileResult;
  transient JButton btnRun;
  transient SingleComponentPanel scpResult, scpMoreButtons;
  
  transient LeftArrowCompletionProvider completionProvider;
  transient AutoCompletion autoComplete;
  
  settable transient G22Utils g22utils;
  
  settable double scriptTimeout = 10.0;
  
  settable transient bool showTitle = true;
  
  transient swappable GazelleV_LeftArrowScriptParser makeParser() {
    ret g22utils.leftArrowParser();
  }
  
  class LeftArrowCompletionProvider extends DefaultCompletionProvider {
    /*@Override
    public L<Completion> getCompletionByInputText(S inputText) {
      print("getCompletionByInputText: " + quote(inputText));
      ret ll(
        new BasicCompletion(this, inputText + "YesYes"),
        new BasicCompletion(this, inputText + "NoNo"));
    }*/
    
    /*@Override
    public L<Completion> getCompletions(JTextComponent comp) {
      var l = super.getCompletions(comp);
      print("getCompletions: " + l);
      ret l;
    }*/
    
    @Override
    public L<Completion> getCompletionsImpl(JTextComponent comp) {
      try {
        print("getCompletionsImpl");
        S text = getText(comp);
        GazelleV_LeftArrowScriptParser parser = makeParser2();
        LeftArrowScriptAutoCompleter completer = new(g22utils, parser);
        enableScaffolding(completer);
        completer.seek(text, getCaretPosition(comp));
        ret map(completer.searcher().withScores(), completion -> {
          BasicCompletion c = new(this, completion!);
          c.setRelevance((int) completion.score());
          ret c;
        });
      } catch print e { ret ll(); }

      //ret getCompletionByInputText(getAlreadyEnteredText(comp));
    }
  }
  
  JComponent wrapStatusLabel(JComponent lbl) {  
    ret
      centerAndEastWithMargin(
        jBorderlessHigherScrollPane(lbl),
        //centerAndSouth(jpanel(),
        jfullcenter(
          jline(
            scpMoreButtons = singleComponentPanel(),
            btnRun = jbutton("Run" := rThread runScript),
            jPopDownButton_noText(
              "Show Scripting Help", rThread { showTextWordWrapped("Gazelle 'Left arrow script' Help", helpText) },
              "Show Global Class Names", rThread showGlobalClassNames,
            )
          )));
  }
  
  public transient simplyCached JComponent visualize() { ret swing(-> {
    taScript = new RSyntaxTextAreaWithSearch(l1 wrapStatusLabel);
    textArea().setHighlightCurrentLine(false);
    bindTextComponentToLiveValue_bothWays(textArea(), lvScript);
    taScript.menuLessOperation();
    awtCalcEvery(textArea(), 1.0, -> compileQ.add(r compile));
  
    completionProvider = new LeftArrowCompletionProvider;
    completionProvider.setAutoActivationRules(true, " ");
    autoComplete = new AutoCompletion(completionProvider);
    autoComplete.setAutoCompleteSingleChoices(false);
    autoComplete.setAutoActivationEnabled(true);
    autoComplete.setAutoActivationDelay(2000);
    autoComplete.install(textArea());
    print("Auto-complete installed on " + textArea());
    
    JComponent vis = taScript.visualize();

    if (showTitle)
      vis = jCenteredSection(sectionTitle, vis);

    if (scpResult != null)
      vis = jhsplit(
        jCenteredSection("Image will show here", scpResult),
        vis);
        
    ret vis;
  }); }
  
  RSyntaxTextArea textArea() { ret taScript.textArea(); }
  
  void setText(S text) { main setText(textArea, text); }
  
  bool visible() { ret isShowing(textArea()); }
  
  void compile {
    var script = lvScript!;
    var result = compileResult;
    if (result == null || !eq(result.script, script)) {
      try {
        result = new CompileResult;
        result.script = script;
        result.parser = makeParser();
        result.parsedScript = result.parser.parse(result.script);
        print(result.parsedScript);
      } catch e {
        print(e);
        result.compileError = e;
      }
      compileResult = result;
      showStatus(str(compileResult));
      updateRunButtonState();
    }
  }
  
  void updateRunButtonState() {
    setEnabled(btnRun, runButtonShouldBeEnabled());
  }
  
  swappable bool runButtonShouldBeEnabled() {
    ret compileResult != null && compileResult.runnable();
  }
  
  CompileResult freshCompileResult() {
    runInQAndWait(compileQ, r compile);
    ret compileResult;
  }
  
  GazelleV_LeftArrowScript.Script parsedScript() {
    ret freshCompileResult().parsedScript;
  }

  swappable void runScript() {
    var result = freshCompileResult();
    if (result.parsedScript != null) {
      result.result = okOrError(-> callCompiledObjectWithTimeout(result.parsedScript));
      showScriptResult(result.result);
    }
  }
  
  void showScriptResult(OKOrError result) {
    if (result.isOK())
      setStatus(shorten(g22utils.stringify(result!)));
    else
      setStatus(exceptionToStringShorter_dontDropOuterExceptions(result.error()));
  }

  // compile result also includes result of execution...
  class CompileResult > LASCompileResult {
    OKOrError result;
  }
  
  void setStatus aka showStatus(S status) {
    taScript?.setStatus(status);
  }

  void showRuntimeError(Throwable e) {
    showStatus(exceptionToStringShorter(e));
  }
  
  void withResultPanel {
    scpResult if null = singleComponentPanel();
  }
  
  swappable VarContext makeVarContextForExecution() { ret new VarContext; }
  
  O callCompiledObjectWithTimeout(double timeoutSeconds default scriptTimeout, GazelleV_LeftArrowScript.Script object, VarContext ctx default makeVarContextForExecution()) {
    O result = evalWithTimeoutOrTypedException(timeoutSeconds, -> object.get(ctx));
    if (result cast BufferedImage)
      scpResult?.set(jscroll_centered_borderless(g22utils.stdImageSurface(result)));
    ret result;
  }
  
  GazelleV_LeftArrowScriptParser makeParser2() {
    var parser = makeParser();
    print("Function containers: " + parser.functionContainers);
    ret parser;
  }
  
  void showGlobalClassNames() {
    showText("Global Class Names", pnlToString(toCIMap(makeParser().globalClassNames())));
  }
  
  // only after visualize
  void setEditable(bool b) {
    setEnabled(textArea(), b);
  }
}