[Bprocessor-commit] bscript/src/net/sourceforge/bprocessor/model/evaluator Primitive.java, 1.4, 1.5 Call.java, 1.6, 1.7

[Michael L. <he...@us...>]

Update of /cvsroot/bprocessor/bscript/src/net/sourceforge/bprocessor/model/evaluator
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv21194/src/net/sourceforge/bprocessor/model/evaluator

Modified Files:
	Primitive.java Call.java 
Log Message:
List access implemented in bscript

Index: Primitive.java
===================================================================
RCS file: /cvsroot/bprocessor/bscript/src/net/sourceforge/bprocessor/model/evaluator/Primitive.java,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Primitive.java	17 Sep 2006 17:29:21 -0000	1.4
--- Primitive.java	29 Sep 2006 07:13:16 -0000	1.5
***************
*** 8,11 ****
--- 8,12 ----
  package net.sourceforge.bprocessor.model.evaluator;
  
+ import java.util.List;
  import java.util.Stack;
  
***************
*** 30,33 ****
--- 31,36 ----
    /** gt */
    public static final int GT = 8;
+   /** get */
+   public static final int GET = 9;
    
    /** opcode */
***************
*** 97,100 ****
--- 100,109 ----
        break;
      }
+     case GET: {
+       Double op1 = (Double) stack.pop();
+       List op2 = (List) stack.pop();
+       stack.push(op2.get(op1.intValue()));
+       break;
+     }
      }
      return 1;

Index: Call.java
===================================================================
RCS file: /cvsroot/bprocessor/bscript/src/net/sourceforge/bprocessor/model/evaluator/Call.java,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Call.java	19 Sep 2006 19:22:42 -0000	1.6
--- Call.java	29 Sep 2006 07:13:16 -0000	1.7
***************
*** 59,62 ****
--- 59,63 ----
            locals.put(name, value);
          }
+         locals.put("args", arguments);
        }
        Environment activation = new Environment(env.origin(), locals, arguments);