!636
//!* constructors
//!class JavaTok
!L<S>
!quicknew
!standard functions
//!multi-line strings
!699 // improved multi-line strings
!700 // "no exceptions" short hand

!include #1000353 // class JavaTok

main {
  static Object in;
  static new (Hash)Map<String, Function> functions;
  
  interface Function {
    public Object process(Object[] args);
  }
  
  static class Call {
    String function;
    String[] args;
    
    Object eval() {
      return functions.get(function).process(args);
    }
    
    public String toString() {
      new StringBuilder buf;
      for (int i = 0; i < args.length; i++) {
        if (i != 0) buf.append(", ");
        buf.append(quote(args[i]));
      }
      return function + "(" + buf + ")";
    }
  }
  
  psvm {
    in = [[contains("<all iois>", "<latest ioi>")]];
    parseAsJavaExpression();
    
    replaceStringConstant("<all iois>", "#681");
    replaceStringConstant("<latest ioi>", "#1000384");
    loadSnippetID1();
    
    // replace contains(x, y) with contains(toLines(x), y)
    // use standard function "contains(List, Object)"
    
    functions.put("contains", new Function() {
      public Object process(Object[] args) {
        return toLinesTrim((String) args[0]).contains(args[1]);
      }
    });
    
    System.out.println("Result: " + ((Call) in).eval());
  }
  
  static void parseAsJavaExpression() {
    L<S> tok = JavaTok.split((String) in);
    new Call c;
    c.function = tok.get(1);
    c.args = new String[] { unquote(tok.get(5)), unquote(tok.get(9)) };
    in = c;
  }
  
  static void replaceStringConstant(String before, String now) {
    Call c = (Call) clone(in);
    for (int i = 0; i < c.args.length; i++)
      if (c.args[i].equals(before))
        c.args[i] = now;
    in = c;
  }
  
  static void loadSnippetID1() tex {
    Call c = (Call) clone(in);
    for (int i = 0; i < c.args.length; i++)
      if (c.args[i].startsWith("#") && isSnippetID(c.args[i])) {
        c.args[i] = loadSnippet(c.args[i]);
        break;
      }
    in = c;
  }
  
  static Object clone(Object o) no exceptions {
    if (o == null)
      return o;
    
    if (o instanceof List) {
      List l = new ArrayList();
      for (Object x : (List) o)
        l.add(clone(x));
      return l;
    }
    
    if (o instanceof String || o instanceof Number || o instanceof Boolean)
      return o;
      
    if (o instanceof Object[]) {
      Object[] l = (Object[]) o;
      Object[] l2 = l.clone();
      for (int i = 0; i < l.length; i++)
        l2[i] = clone(l[i]);
      return l2;
    }
    
    // TODO: go to superclasses too
    Field[] fields = o.getClass().getDeclaredFields();
    Object clone = o.getClass().newInstance();
    for (Field field : fields) {
      if ((field.getModifiers() & Modifier.STATIC) != 0)
        continue;
      Object value;
      value = field.get(o);
      field.set(clone, clone(value));
    }
    return clone;
  }
  
}