add example

Author: gaocegege

example/hello-processing.R

@@ -1 +1,2 @@
 processing$line(11, 22, 33, 22)
+print("Hello, Processing.R")

example/test-settings.R

@@ -0,0 +1,15 @@
+yPos <- 0.0;
+
+settings <- function() {
+  print("Set width and height.")
+  processing$size(500, 500)
+}
+
+draw <- function() {
+  processing$background(as.integer(204))
+  yPos <- yPos - 1.0;
+  if (yPos < 0) {
+    yPos <- height;
+  }
+  processing$line(0, yPos, width, yPos)
+}

example/test-setup.R

@@ -0,0 +1,4 @@
+setup <- function {
+  processing$line(11, 22, 33, 22)
+  print("Hello, Processing.R")
+}

readme.md

@@ -21,3 +21,15 @@ processing$line(posAX, posAY, posBX, posBY)
 The output is:
 
 <img src="./docs/img/demo.png" height="200">
+
+## License
+
+MIT License
+
+Copyright (c) 2016 Ce Gao
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

src/rprocessing/RLangPApplet.java

@@ -3,8 +3,12 @@
 import javax.script.ScriptEngine;
 import javax.script.ScriptException;
 
+import org.renjin.parser.RParser;
 import org.renjin.script.RenjinScriptEngine;
 import org.renjin.sexp.Closure;
+import org.renjin.sexp.ExpressionVector;
+import org.renjin.sexp.FunctionCall;
+import org.renjin.sexp.SEXP;
 
 import processing.core.PApplet;
 
@@ -25,8 +29,15 @@ private enum Mode {
         STATIC, ACTIVE, MIXED
     }
 
+    // A static-mode sketch must be interpreted from within the setup() method.
+    // All others are interpreted during construction in order to harvest method
+    // definitions, which we then invoke during the run loop.
+    private final Mode               mode;
+
+    /** The name of processing's PApplet in R top context. */
     private static final String      PROCESSING_VAR_NAME = "processing";
 
+    /** Program Code */
     private final String             programText;
 
     /** Engine to interpret R code */
@@ -35,32 +46,99 @@ private enum Mode {
     public RLangPApplet(final ScriptEngine renjinEngine, final String programText) {
         this.renjinEngine = (RenjinScriptEngine) renjinEngine;
         this.programText = programText;
+        this.mode = this.detectMode();
+        this.prePassCode();
+    }
+
+    /**
+     * Evaluate all the function calls.
+     */
+    public void prePassCode() {
+        SEXP source = RParser.parseSource(this.programText + "\n", "inline-string");
+        if (source.getClass().equals(ExpressionVector.class)) {
+            ExpressionVector ev = (ExpressionVector) source;
+            for (int i = 0; i < ev.length(); ++i) {
+                if (ev.get(i).getClass().equals(FunctionCall.class)) {
+                    this.renjinEngine.getTopLevelContext().evaluate(ev.get(i),
+                        this.renjinEngine.getTopLevelContext().getEnvironment());
+                }
+            }
+        }
+    }
+
+    /**
+     * TODO: Detect the mode.
+     */
+    private Mode detectMode() {
+        return Mode.STATIC;
     }
 
+    /**
+     * Add PApplet instance to R top context
+     * Notice: DO NOT do it in constructor.
+     */
     public void AddPAppletToRContext() {
         this.renjinEngine.put(PROCESSING_VAR_NAME, this);
     }
 
+    /**
+     * TODO: Evaluate settings before the main program.
+     * @see processing.core.PApplet#settings()
+     */
+    @Override
+    public void settings() {
+        Object obj = this.renjinEngine.get("settings");
+        if (obj.getClass() == Closure.class) {
+            ((Closure) obj).doApply(this.renjinEngine.getTopLevelContext());
+        } else if (mode == Mode.STATIC) {
+            // TODO: Implement Static Mode.
+        }
+    }
+
+    /**
+     * Evaluate the program code.
+     * @see processing.core.PApplet#setup()
+     */
     @Override
     public void setup() {
-        try {
-            wrapProcessingVariables();
-            this.renjinEngine.eval(this.programText);
-        } catch (ScriptException e) {
-            System.out.println(e);
+        if (this.mode == Mode.STATIC) {
+            try {
+                wrapProcessingVariables();
+                this.renjinEngine.eval(this.programText);
+                //                System.out.println(this.renjinEngine.getTopLevelContext().getEnvironment()
+                //                    .getVariable("settings"));
+            } catch (ScriptException e) {
+                System.out.println(e);
+            }
+        } else if (this.mode == Mode.ACTIVE) {
+            Object obj = this.renjinEngine.get("setup");
+            if (obj.getClass() == Closure.class) {
+                ((Closure) obj).doApply(this.renjinEngine.getTopLevelContext());
+            }
+        } else {
+            // TODO: implement MIX Mode.
         }
     }
 
+    /**
+     * Call the draw function in R script.
+     * @see processing.core.PApplet#draw()
+     */
     @Override
     public void draw() {
-        Closure c = (Closure) this.renjinEngine.get("draw");
-        c.doApply(this.renjinEngine.getTopLevelContext());
+        Object obj = this.renjinEngine.get("draw");
+        if (obj.getClass() == Closure.class) {
+            ((Closure) obj).doApply(this.renjinEngine.getTopLevelContext());
+        }
     }
 
     /*
      * Helper functions
      */
 
+    /**
+     * Set Environment variables in R top context.
+     */
     protected void wrapProcessingVariables() {
         this.renjinEngine.put("width", width);
         this.renjinEngine.put("height", height);
@@ -74,8 +152,15 @@ protected void wrapProcessingVariables() {
 
     /*
      * Wrapper functions
+     * 
+     * float is not implemented in R, so processing.r need to cast double to
+     * float.
      */
 
+    public void size(double width, double height) {
+        super.size((int) width, (int) height);
+    }
+
     public void point(double x, double y) {
         super.point((float) x, (float) y);
     }