!7

set flag DynModule. // for transpiler

module RemoteJavaEval > DynPrintLog {

  S computerID, expression;

  bool realEval;

  transient O value;

  transient JTextArea taInput;

  transient Throwable error;

  start {

    dm_requireModule("#1016578/AllOnlineComputers");

  }

  visualize {

    ret withMargin(jvsplit(

      northAndCenterWithMargin(

        withLabel("Computer to evaluate this on:", dm_onlineComputerSelectorComboBox(dm_fieldLiveValue('computerID))),

          centerAndEastWithMarginInbetween(

          onCtrlEnter(taInput = jEnableUndoRedo(typeWriterTextArea(expression)), rThread { evalIt(false) }),

          vstackWithSpacing(

            jbutton("Fresh", rThread { evalIt(true) }),

            jbutton("Eval", rThread { evalIt(false) }),

            withToolTip("Don't interpret", dm_fieldCheckBox("Real", 'realEval))))),

      super.visualize()));

  }

  void evalIt(bool fresh) pcall {

    temp enter();

    if (!isComputerID(computerID)) ret;

    S s = gtt(taInput);

    setField(expression := s);

    print("\nEvaluating on " + computerID + ": " + s);

    logQuotedWithDate("expressions.txt", computerID + ": " + s);

    long time = sysNow();

    O value = dm_evalOnOtherMachine_optimizeIfMe(computerID, s, +realEval, +fresh);

    new L<S> info;

    info.add(elapsedMS(time) + " ms");

    addAll(info, quickValueInformation_list(value));

    print("[" + joinWithComma(info) + "]");

    S string = str(value);

    pcall { logStructureWithDate("with-results.txt", ll(s, string)); }

    print(shorten(1000, string));

    if (value cast BufferedImage)

      showImage(value);

  }

}