Diff: Script.cpp

Revision:

0:aae260bdcdd9

Child:

2:f0b75885747c

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Script.cpp	Sat Jan 11 20:19:11 2014 +0000
@@ -0,0 +1,148 @@
+/*
+ * TinyJS
+ *
+ * A single-file Javascript-alike engine
+ *
+ * Authored By Gordon Williams <gw@pur3.co.uk>
+ *
+ * Copyright (C) 2009 Pur3 Ltd
+ *
+ * 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.
+ */
+
+/*
+ * This is a simple program showing how to use TinyJS
+ */
+
+/*
+ * TinyJS for mbed.
+ *
+ * Authored by Takehisa Oneta (ohneta@gmail.com)
+ * 10th Jan. 2013
+ */
+#include "TinyJS.h"
+#include "TinyJS_Functions.h"
+#include <assert.h>
+#include <stdio.h>
+
+#include "mbed.h"
+
+
+//const char *code = "var a = 5; if (a==5) a=4; else a=3;";
+//const char *code = "{ var a = 4; var b = 1; while (a>0) { b = b * 2; a = a - 1; } var c = 5; }";
+//const char *code = "{ var b = 1; for (var i=0;i<4;i=i+1) b = b * 2; }";
+const char *code = "function myfunc(x, y) { return x + y; } var a = myfunc(1,2); print(a);";
+
+void js_print(CScriptVar *v, void *userdata) {
+    printf("> %s\n", v->getParameter("text")->getString().c_str());
+}
+
+void js_dump(CScriptVar *v, void *userdata) {
+    CTinyJS *js = (CTinyJS*)userdata;
+    js->root->trace(">  ");
+}
+
+#ifndef MBED
+int main(int argc, char **argv)
+{
+  CTinyJS *js = new CTinyJS();
+  /* add the functions from TinyJS_Functions.cpp */
+  registerFunctions(js);
+  /* Add a native function */
+  js->addNative("function print(text)", &js_print, 0);
+  js->addNative("function dump()", &js_dump, js);
+  /* Execute out bit of code - we could call 'evaluate' here if
+     we wanted something returned */
+  try {
+    js->execute("var lets_quit = 0; function quit() { lets_quit = 1; }");
+    js->execute("print(\"Interactive mode... Type quit(); to exit, or print(...); to print something, or dump() to dump the symbol table!\");");
+  } catch (CScriptException *e) {
+    printf("ERROR: %s\n", e->text.c_str());
+  }
+
+  while (js->evaluate("lets_quit") == "0") {
+    char buffer[2048];
+    fgets ( buffer, sizeof(buffer), stdin );
+    try {
+      js->execute(buffer);
+    } catch (CScriptException *e) {
+      printf("ERROR: %s\n", e->text.c_str());
+    }
+  }
+  delete js;
+#ifdef _WIN32
+#ifdef _DEBUG
+  _CrtDumpMemoryLeaks();
+#endif
+#endif
+  return 0;
+}
+#else
+
+int mbedErrorFlag;
+std::string mbedErrorMessage;
+
+extern int readOneLine(char *buffer, const int bufferSize);
+
+// mbed function(s)
+extern void mbedDigitalOut(CScriptVar *c, void *);
+extern char *mbedLedsVarString(int ledNo);
+extern void mbedMemfree(CScriptVar *c, void *);
+
+
+int tinyjs_main(int argc, char **argv)
+{
+  CTinyJS *js = new CTinyJS();
+  //registerFunctions(js);
+
+  js->addNative("function print(text)", &js_print, 0);
+  js->addNative("function dump()", &js_dump, js);
+
+  js->execute("var lets_quit = 0; function quit() { lets_quit = 1; }");
+  js->execute("print(\"Interactive mode... Type quit(); to exit, or print(...); to print something, or dump() to dump the symbol table!\");");
+
+  // add mbed functions
+  js->addNative("function mbed.memfree()", &mbedMemfree, 0);
+  js->addNative("function mbed.DigitalOut(pinName, val)", &mbedDigitalOut, 0);
+  js->execute(mbedLedsVarString(1));
+  js->execute(mbedLedsVarString(2));
+  js->execute(mbedLedsVarString(3));
+  js->execute(mbedLedsVarString(4));
+
+  while (js->evaluate("lets_quit") == "0") {
+    char buffer[2048];
+    int len = readOneLine(buffer, 2048);
+    {
+      mbedErrorFlag = 0;
+      js->execute(buffer);
+      if (mbedErrorFlag != 0) {
+        printf("ERROR: %s\n", mbedErrorMessage.c_str());
+      }
+    }
+  }
+  delete js;
+
+#ifdef _WIN32
+#ifdef _DEBUG
+  _CrtDumpMemoryLeaks();
+#endif
+#endif
+  return 0;
+}
+#endif