Norimasa Okamoto
/
TinyJS
TinyJS
Fork of TinyJS by
Diff: TinyJS_Functions.cpp
- Revision:
- 0:aae260bdcdd9
- Child:
- 9:f80cf055f03d
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/TinyJS_Functions.cpp Sat Jan 11 20:19:11 2014 +0000 @@ -0,0 +1,254 @@ +/* + * TinyJS + * + * A single-file Javascript-alike engine + * + * - Useful language functions + * + * 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. + */ + +#include "TinyJS_Functions.h" +#include <math.h> +#include <cstdlib> +#include <sstream> + +using namespace std; +// ----------------------------------------------- Actual Functions +void scTrace(CScriptVar *c, void *userdata) { + CTinyJS *js = (CTinyJS*)userdata; + js->root->trace(); +} + +void scObjectDump(CScriptVar *c, void *) { + c->getParameter("this")->trace("> "); +} + +void scObjectClone(CScriptVar *c, void *) { + CScriptVar *obj = c->getParameter("this"); + c->getReturnVar()->copyValue(obj); +} + +void scMathRand(CScriptVar *c, void *) { + c->getReturnVar()->setDouble((double)rand()/RAND_MAX); +} + +void scMathRandInt(CScriptVar *c, void *) { + int min = c->getParameter("min")->getInt(); + int max = c->getParameter("max")->getInt(); + int val = min + (int)(rand()%(1+max-min)); + c->getReturnVar()->setInt(val); +} + +void scCharToInt(CScriptVar *c, void *) { + string str = c->getParameter("ch")->getString();; + int val = 0; + if (str.length()>0) + val = (int)str.c_str()[0]; + c->getReturnVar()->setInt(val); +} + +void scStringIndexOf(CScriptVar *c, void *) { + string str = c->getParameter("this")->getString(); + string search = c->getParameter("search")->getString(); + size_t p = str.find(search); + int val = (p==string::npos) ? -1 : p; + c->getReturnVar()->setInt(val); +} + +void scStringSubstring(CScriptVar *c, void *) { + string str = c->getParameter("this")->getString(); + int lo = c->getParameter("lo")->getInt(); + int hi = c->getParameter("hi")->getInt(); + + int l = hi-lo; + if (l>0 && lo>=0 && lo+l<=(int)str.length()) + c->getReturnVar()->setString(str.substr(lo, l)); + else + c->getReturnVar()->setString(""); +} + +void scStringCharAt(CScriptVar *c, void *) { + string str = c->getParameter("this")->getString(); + int p = c->getParameter("pos")->getInt(); + if (p>=0 && p<(int)str.length()) + c->getReturnVar()->setString(str.substr(p, 1)); + else + c->getReturnVar()->setString(""); +} + +void scStringCharCodeAt(CScriptVar *c, void *) { + string str = c->getParameter("this")->getString(); + int p = c->getParameter("pos")->getInt(); + if (p>=0 && p<(int)str.length()) + c->getReturnVar()->setInt(str.at(p)); + else + c->getReturnVar()->setInt(0); +} + +void scStringSplit(CScriptVar *c, void *) { + string str = c->getParameter("this")->getString(); + string sep = c->getParameter("separator")->getString(); + CScriptVar *result = c->getReturnVar(); + result->setArray(); + int length = 0; + + size_t pos = str.find(sep); + while (pos != string::npos) { + result->setArrayIndex(length++, new CScriptVar(str.substr(0,pos))); + str = str.substr(pos+1); + pos = str.find(sep); + } + + if (str.size()>0) + result->setArrayIndex(length++, new CScriptVar(str)); +} + +void scStringFromCharCode(CScriptVar *c, void *) { + char str[2]; + str[0] = c->getParameter("char")->getInt(); + str[1] = 0; + c->getReturnVar()->setString(str); +} + +void scIntegerParseInt(CScriptVar *c, void *) { + string str = c->getParameter("str")->getString(); + int val = strtol(str.c_str(),0,0); + c->getReturnVar()->setInt(val); +} + +void scIntegerValueOf(CScriptVar *c, void *) { + string str = c->getParameter("str")->getString(); + + int val = 0; + if (str.length()==1) + val = str[0]; + c->getReturnVar()->setInt(val); +} + +void scJSONStringify(CScriptVar *c, void *) { +#ifndef MBED + std::ostringstream result; + c->getParameter("obj")->getJSON(result); + c->getReturnVar()->setString(result.str()); +#else + std::string result; + c->getParameter("obj")->getJSON(result); + c->getReturnVar()->setString(result); +#endif +} + +void scExec(CScriptVar *c, void *data) { + CTinyJS *tinyJS = (CTinyJS *)data; + std::string str = c->getParameter("jsCode")->getString(); + tinyJS->execute(str); +} + +void scEval(CScriptVar *c, void *data) { + CTinyJS *tinyJS = (CTinyJS *)data; + std::string str = c->getParameter("jsCode")->getString(); + c->setReturnVar(tinyJS->evaluateComplex(str).var); +} + +void scArrayContains(CScriptVar *c, void *data) { + CScriptVar *obj = c->getParameter("obj"); + CScriptVarLink *v = c->getParameter("this")->firstChild; + + bool contains = false; + while (v) { + if (v->var->equals(obj)) { + contains = true; + break; + } + v = v->nextSibling; + } + + c->getReturnVar()->setInt(contains); +} + +void scArrayRemove(CScriptVar *c, void *data) { + CScriptVar *obj = c->getParameter("obj"); + vector<int> removedIndices; + CScriptVarLink *v; + // remove + v = c->getParameter("this")->firstChild; + while (v) { + if (v->var->equals(obj)) { + removedIndices.push_back(v->getIntName()); + } + v = v->nextSibling; + } + // renumber + v = c->getParameter("this")->firstChild; + while (v) { + int n = v->getIntName(); + int newn = n; + for (size_t i=0;i<removedIndices.size();i++) + if (n>=removedIndices[i]) + newn--; + if (newn!=n) + v->setIntName(newn); + v = v->nextSibling; + } +} + +void scArrayJoin(CScriptVar *c, void *data) { + string sep = c->getParameter("separator")->getString(); + CScriptVar *arr = c->getParameter("this"); + + ostringstream sstr; + int l = arr->getArrayLength(); + for (int i=0;i<l;i++) { + if (i>0) sstr << sep; + sstr << arr->getArrayIndex(i)->getString(); + } + + c->getReturnVar()->setString(sstr.str()); +} + +// ----------------------------------------------- Register Functions +void registerFunctions(CTinyJS *tinyJS) { + tinyJS->addNative("function exec(jsCode)", scExec, tinyJS); // execute the given code + tinyJS->addNative("function eval(jsCode)", scEval, tinyJS); // execute the given string (an expression) and return the result + tinyJS->addNative("function trace()", scTrace, tinyJS); + tinyJS->addNative("function Object.dump()", scObjectDump, 0); + tinyJS->addNative("function Object.clone()", scObjectClone, 0); + tinyJS->addNative("function Math.rand()", scMathRand, 0); + tinyJS->addNative("function Math.randInt(min, max)", scMathRandInt, 0); + tinyJS->addNative("function charToInt(ch)", scCharToInt, 0); // convert a character to an int - get its value + tinyJS->addNative("function String.indexOf(search)", scStringIndexOf, 0); // find the position of a string in a string, -1 if not + tinyJS->addNative("function String.substring(lo,hi)", scStringSubstring, 0); + tinyJS->addNative("function String.charAt(pos)", scStringCharAt, 0); + tinyJS->addNative("function String.charCodeAt(pos)", scStringCharCodeAt, 0); + tinyJS->addNative("function String.fromCharCode(char)", scStringFromCharCode, 0); + tinyJS->addNative("function String.split(separator)", scStringSplit, 0); + tinyJS->addNative("function Integer.parseInt(str)", scIntegerParseInt, 0); // string to int + tinyJS->addNative("function Integer.valueOf(str)", scIntegerValueOf, 0); // value of a single character + tinyJS->addNative("function JSON.stringify(obj, replacer)", scJSONStringify, 0); // convert to JSON. replacer is ignored at the moment + // JSON.parse is left out as you can (unsafely!) use eval instead + tinyJS->addNative("function Array.contains(obj)", scArrayContains, 0); + tinyJS->addNative("function Array.remove(obj)", scArrayRemove, 0); + tinyJS->addNative("function Array.join(separator)", scArrayJoin, 0); +} + +