<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_olbkcmp2l6rl3u1ps2d305qq0q, 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 ConvertLASToJava {
  replace Tk with GazelleV_LeftArrowScript.
  delegate Evaluable to Tk.
  
  O get(LASClassDef.FieldDef field) {
    ret field.type() + " " + field.name() + ";";
  }
  
  O get(Tk.FunctionDef f) {
    ret "O " + f.name + "(" + joinWithComma(map(f.args, arg -> "O " + arg)) + ") {\n"
      + indentx(strOrNull(get(f.body)))
      + "}\n";
  }
  
  O get(Evaluable o) {
    if (o == null) null;
    
    // These are the properly implemented cases
    
    if (o cast Tk.GetVar)
      ret o.var;
    
    if (o cast Tk.Script)
      ret lines(map get(o.steps));
      
    if (o cast Tk.ClassDef) {
      LASClassDef c = o.lasClass.classDef;
      ret "class " + c.userGivenName + " " + curly("\n" + indentx(
        joinNemptiesWithEmptyLines(
          lines_rtrim(map get(c.fields)),
          lines_rtrim(map get(c.methods)))
      )) + "\n}";
    }
    
    if (o cast Tk.Assignment)
      ret o.var + " = " + get(o.expression);
      
    warn("Can't convert to Java: " + className(o));
    
    // Retain original script text as a default
    if (o cast Tk.Base) {
      var src = o.tokenRangeWithSrc();
      if (src != null)
        ret src.text();
    }
    
    // If that fails (it shouldn't), just return the toString
    warn("No source reference in script object: " + className(o));
    ret str(o);
  }
}