- public static class Array extends Obj {
- private Vec vec = new Vec();
- public Array() { }
- public Array(int size) { vec.setSize(size); }
- private static int intVal(Object o) {
- if (o instanceof Number) {
- int intVal = ((Number)o).intValue();
- if (intVal == ((Number)o).doubleValue()) return intVal;
- return Integer.MIN_VALUE;
- }
- if (!(o instanceof String)) return Integer.MIN_VALUE;
- String s = (String)o;
- for(int i=0; i<s.length(); i++) if (s.charAt(i) < '0' || s.charAt(i) > '9') return Integer.MIN_VALUE;
- return Integer.parseInt(s);
- }
- public Object get(Object key) throws JS.Exn {
- // FIXME: HACK!
- if (key.equals("cascade")) return org.xwt.Trap.cascadeFunction;
- if (key.equals("trapee")) return org.xwt.Trap.currentTrapee();
- if (key.equals("length")) return new Long(vec.size());
- int i = intVal(key);
- if (i == Integer.MIN_VALUE) return super.get(key);
- try {
- return vec.elementAt(i);
- } catch (ArrayIndexOutOfBoundsException e) {
- throw new JS.Exn(e.getMessage());
- }
- }
- public void put(Object key, Object val) {
- if (key.equals("length")) vec.setSize(toNumber(val).intValue());
- int i = intVal(key);
- if (i == Integer.MIN_VALUE) super.put(key, val);
- else {
- if (i >= vec.size()) vec.setSize(i+1);
- vec.setElementAt(val, i);
- }
- }
- public Object[] keys() {
- Object[] sup = super.keys();
- Object[] ret = new Object[vec.size() + 1 + sup.length];
- System.arraycopy(sup, 0, ret, vec.size(), sup.length);
- for(int i=0; i<vec.size(); i++) ret[i] = new Integer(i);
- ret[vec.size()] = "length";
- return ret;
- }
- public void setSize(int i) { vec.setSize(i); }
- public int length() { return vec.size(); }
- public Object elementAt(int i) { return vec.elementAt(i); }
- public void addElement(Object o) { vec.addElement(o); }
- public void setElementAt(Object o, int i) { vec.setElementAt(o, i); }
- }
-
- public static Hashtable currentFunction = new Hashtable();
- public static abstract class Function extends Obj {
- public abstract Object _call(JS.Array args) throws JS.Exn;
- public String getSourceName() throws JS.Exn { return "unknown"; }
- public final Object call(JS.Array args) throws JS.Exn { return _call(args); }
- }
-
- public static class Script extends Function {
- Vector e = null;
- private Script(Vector e) { this.e = e; }
- public String getSourceName() throws JS.Exn { return ((ForthBlock)e.elementAt(0)).sourceName; }
- public Object _call(JS.Array args) throws JS.Exn {
- Scope rootScope = (Scope)args.elementAt(0);
- Function saved = (Function)currentFunction.get(Thread.currentThread());
- currentFunction.put(Thread.currentThread(), this);
- try {
- for(int i=0; i<e.size(); i++)
- ((ForthBlock)e.elementAt(i)).eval(rootScope);
- } catch (ForthBlock.ReturnException e) {
- // ignore
- } catch (ForthBlock.ControlTransferException e) {
- throw new JS.Exn("block threw a ControlTransferException: " + e);
- } finally {
- if (saved == null) currentFunction.remove(Thread.currentThread());
- else currentFunction.put(Thread.currentThread(), saved);
- }
- return null;
- }
- public static Script parse(Reader r, String sourceName, int line) throws IOException {
- Parser p = new Parser(r, sourceName, line);
- try {
- Vector exprs = new Vector();
- while(true) {
- ForthBlock ret = p.parseStatement(false);
- if (ret == null) break;
- exprs.addElement(ret);
- }
- return new Script(exprs);
- } catch (Exception e) {
- if (Log.on) Log.log(Parser.class, e);
- return null;
- }
- }
+ /** the result of a graft */
+ // FIXME: uber-broken
+ public static class Graft extends JSCallable {
+ private JS graftee;
+ private Object replaced_key;
+ private Object replaced_val;
+ public Graft(Object graftee, Object key, Object val) {
+ if (graftee instanceof JSArray) throw new JS.Exn("can't graft onto JSArrays (yet)");
+ if (graftee instanceof JSCallable) throw new JS.Exn("can't graft onto JSCallables (yet)");
+ if (graftee instanceof JSScope) throw new JS.Exn("can't graft onto JSScopes (yet)");
+ this.graftee = (JS)graftee;
+ replaced_key = key;
+ replaced_val = val;
+ }
+ public boolean equals(Object o) { return (this == o || graftee.equals(o)); }
+ public int hashCode() { return graftee.hashCode(); }
+ public Object get(Object key) { return replaced_key.equals(key) ? replaced_val : graftee.get(key); }
+ public void put(Object key, Object val) { graftee.put(key, val); }
+ /*
+ public Object call(Object method, JSArray args) {
+ if (replaced_key.equals(method)) return ((JSCallable)replaced_val).call(null, args);
+ else if (graftee instanceof JSCallable) return ((JSCallable)graftee).call(method, args);
+ else throw new JS.Exn("cannot call this value");
+ }
+ */
+ public Number coerceToNumber() { return graftee.coerceToNumber(); }
+ public String coerceToString() { return graftee.coerceToString(); }
+ public boolean coerceToBoolean() { return graftee.coerceToBoolean(); }
+ public String typeName() { return graftee.typeName(); }
+ public Enumeration keys() {
+ return new Enumeration() {
+ Enumeration graftee_enumeration = graftee.keys();
+ boolean returned_replaced = false;
+ public boolean hasMoreElements() {
+ if (graftee_enumeration.hasMoreElements()) return true;
+ return !returned_replaced;
+ }
+ public Object nextElement() {
+ if (!graftee_enumeration.hasMoreElements()) {
+ if (returned_replaced) throw new NoSuchElementException();
+ returned_replaced = true;
+ return replaced_key;
+ } else {
+ Object ret = graftee_enumeration.nextElement();
+ if (!returned_replaced && ret.equals(replaced_key)) returned_replaced = true;
+ return ret;
+ }
+ }
+ };
+ }