/* * Copyright 2012 Vincent Sanders * * This file is part of NetSurf, http://www.netsurf-browser.org/ * * NetSurf is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; version 2 of the License. * * NetSurf is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /** \file * spidermonkey jsapi compatability glue. */ #ifndef _NETSURF_JAVASCRIPT_JSAPI_H_ #define _NETSURF_JAVASCRIPT_JSAPI_H_ #ifdef WITH_MOZJS #include "js/jsapi.h" #else #include "mozjs/jsapi.h" #endif #if JS_VERSION < 180 /************************** Spidermonkey 1.7.0 **************************/ #include /* *CAUTION* these macros introduce and use jsapi_this and jsapi_rval * parameters, native function code should not conflict with these */ # ifndef JSVERSION_LATEST # define JSVERSION_LATEST JS_VERSION # endif /* five parameter jsapi native call */ #define JSAPI_NATIVE(name, cx, argc, vp) \ jsapi_native_##name(cx, JSObject *jsapi_this, argc, vp, jsval *jsapi_rval) /* five parameter function descriptor with no JS_FS macro */ #define JSAPI_FS(name, nargs, flags) \ { #name, jsapi_native_##name, nargs, flags, 0 } /* function descriptor end */ #define JSAPI_FS_END { NULL, NULL, 0, 0, 0 } /* return value */ #define JSAPI_RVAL(cx, vp) (jsapi_rval) /* return value setter */ #define JSAPI_SET_RVAL(cx, vp, v) (*jsapi_rval = (v)) /* arguments */ #define JSAPI_ARGV(cx, vp) (vp) /* The object instance in a native call */ /* "this" JSObject getter */ JSObject * js_ComputeThis(JSContext *cx, JSObject *thisp, void *argv); #define JSAPI_THIS_OBJECT(cx, vp) \ js_ComputeThis(cx, JSVAL_TO_OBJECT(vp[-1]), vp) /* proprty native calls */ #define JSAPI_PROPERTYGET(name, cx, obj, vp) \ jsapi_property_##name##_get(cx, obj, jsval id, vp) #define JSAPI_PROPERTYSET(name, cx, obj, vp) \ jsapi_property_##name##_set(cx, obj, jsval id, vp) /* property specifier */ #define JSAPI_PS(name, tinyid, flags) \ { #name , tinyid , flags , jsapi_property_##name##_get , jsapi_property_##name##_set } #define JSAPI_PS_RO(name, tinyid, flags) \ { #name , tinyid , flags | JSPROP_READONLY, jsapi_property_##name##_get , NULL } #define JSAPI_PS_END { NULL, 0, 0, NULL, NULL } static inline JSObject * JS_NewCompartmentAndGlobalObject(JSContext *cx, JSClass *jsclass, JSPrincipals *principals) { JSObject *global; global = JS_NewObject(cx, jsclass, NULL, NULL); if (global == NULL) { return NULL; } return global; } #define JS_StrictPropertyStub JS_PropertyStub #define JSString_to_char(injsstring, outchar, outlen) \ outchar = JS_GetStringBytes(injsstring); \ outlen = strlen(outchar) /* string type cast */ #define JSAPI_STRING_TO_JSVAL(str) ((str == NULL)?JSVAL_NULL:STRING_TO_JSVAL(str)) #define JSAPI_CLASS_NO_INTERNAL_MEMBERS NULL /* GC marking */ #define JSAPI_JSCLASS_MARK_IS_TRACE 0 #define JSAPI_JSCLASS_MARKOP(x) (x) #define JSAPI_MARKOP(name) uint32_t name(JSContext cx, JSObject *obj, void *arg) #define JSAPI_MARKCX cx #define JSAPI_GCMARK(thing) JS_MarkGCThing(cx, thing, "object", arg) #elif JS_VERSION == 180 /************************** Spidermonkey 1.8.0 **************************/ #include /* *CAUTION* these macros introduce and use jsapi_this and jsapi_rval * parameters, native function code should not conflict with these */ /* five parameter jsapi native call */ #define JSAPI_NATIVE(name, cx, argc, vp) \ jsapi_native_##name(cx, JSObject *jsapi_this, argc, vp, jsval *jsapi_rval) /* five parameter function descriptor */ #define JSAPI_FS(name, nargs, flags) \ JS_FS(#name, jsapi_native_##name, nargs, flags, 0) /* function descriptor end */ #define JSAPI_FS_END JS_FS_END /* return value */ #define JSAPI_RVAL(cx, vp) JS_RVAL(cx, jsapi_rval) /* return value setter */ #define JSAPI_SET_RVAL(cx, vp, v) JS_SET_RVAL(cx, jsapi_rval, v) /* arguments */ #define JSAPI_ARGV(cx, vp) (vp) /* The object instance in a native call */ #define JSAPI_THIS_OBJECT(cx,vp) jsapi_this /* proprty native calls */ #define JSAPI_PROPERTYGET(name, cx, obj, vp) \ jsapi_property_##name##_get(cx, obj, jsval id, vp) #define JSAPI_PROPERTYSET(name, cx, obj, vp) \ jsapi_property_##name##_set(cx, obj, jsval id, vp) /* property specifier */ #define JSAPI_PS(name, tinyid, flags) \ { #name , tinyid , flags , jsapi_property_##name##_get , jsapi_property_##name##_set } #define JSAPI_PS_RO(name, tinyid, flags) \ { #name , tinyid , flags | JSPROP_READONLY, jsapi_property_##name##_get , NULL } #define JSAPI_PS_END { NULL, 0, 0, NULL, NULL } static inline JSObject * JS_NewCompartmentAndGlobalObject(JSContext *cx, JSClass *jsclass, JSPrincipals *principals) { JSObject *global; global = JS_NewObject(cx, jsclass, NULL, NULL); if (global == NULL) { return NULL; } return global; } #define JS_StrictPropertyStub JS_PropertyStub #define JSString_to_char(injsstring, outchar, outlen) \ outchar = JS_GetStringBytes(injsstring); \ outlen = strlen(outchar) /* string type cast */ #define JSAPI_STRING_TO_JSVAL(str) ((str == NULL)?JSVAL_NULL:STRING_TO_JSVAL(str)) #define JSAPI_CLASS_NO_INTERNAL_MEMBERS NULL /* GC marking */ #ifdef JSCLASS_MARK_IS_TRACE /* mark requires casting */ #define JSAPI_JSCLASS_MARK_IS_TRACE JSCLASS_MARK_IS_TRACE #define JSAPI_JSCLASS_MARKOP(x) ((JSMarkOp)x) #else /* mark does not require casting */ #define JSAPI_JSCLASS_MARK_IS_TRACE 0 #define JSAPI_JSCLASS_MARKOP(x) (x) #endif #define JSAPI_MARKOP(name) JSBool name(JSTracer *trc, JSObject *obj) #define JSAPI_MARKCX trc->context #define JSAPI_GCMARK(thing) JS_CallTracer(trc, thing, JSTRACE_OBJECT); #else /* #if JS_VERSION == 180 */ /************************** Spidermonkey 1.8.5 **************************/ /* three parameter jsapi native call */ #define JSAPI_NATIVE(name, cx, argc, vp) jsapi_native_##name(cx, argc, vp) /* three parameter function descriptor */ #define JSAPI_FS(name, nargs, flags) \ JS_FS(#name, jsapi_native_##name, nargs, flags) /* function descriptor end */ #define JSAPI_FS_END JS_FS_END /* return value */ #define JSAPI_RVAL JS_RVAL /* return value setter */ #define JSAPI_SET_RVAL JS_SET_RVAL /* arguments */ #define JSAPI_ARGV(cx, vp) JS_ARGV(cx,vp) /* The object instance in a native call */ #define JSAPI_THIS_OBJECT(cx,vp) JS_THIS_OBJECT(cx,vp) /* proprty native calls */ #define JSAPI_PROPERTYGET(name, cx, obj, vp) \ jsapi_property_##name##_get(cx, obj, jsid id, vp) #define JSAPI_PROPERTYSET(name, cx, obj, vp) \ jsapi_property_##name##_set(cx, obj, jsid id, JSBool strict, vp) /* property specifier */ #define JSAPI_PS(name, tinyid, flags) { \ #name , \ tinyid , \ flags , \ jsapi_property_##name##_get , \ jsapi_property_##name##_set \ } #define JSAPI_PS_RO(name, tinyid, flags) { \ #name , \ tinyid , \ flags | JSPROP_READONLY, \ jsapi_property_##name##_get , \ NULL \ } #define JSAPI_PS_END { NULL, 0, 0, NULL, NULL } #define JSString_to_char(injsstring, outchar, outlen) \ outlen = JS_GetStringLength(injsstring); \ outchar = alloca(sizeof(char)*(outlen+1)); \ JS_EncodeStringToBuffer(injsstring, outchar, outlen); \ outchar[outlen] = '\0' /* string type cast */ #define JSAPI_STRING_TO_JSVAL(str) ((str == NULL)?JSVAL_NULL:STRING_TO_JSVAL(str)) #define JSAPI_CLASS_NO_INTERNAL_MEMBERS JSCLASS_NO_INTERNAL_MEMBERS /* GC marking */ #ifdef JSCLASS_MARK_IS_TRACE /* mark requires casting */ #define JSAPI_JSCLASS_MARK_IS_TRACE JSCLASS_MARK_IS_TRACE #define JSAPI_JSCLASS_MARKOP(x) ((JSMarkOp)x) #else /* mark does not require casting */ #define JSAPI_JSCLASS_MARK_IS_TRACE 0 #define JSAPI_JSCLASS_MARKOP(x) (x) #endif #define JSAPI_MARKOP(name) JSBool name(JSTracer *trc, JSObject *obj) #define JSAPI_MARKCX trc->context #define JSAPI_GCMARK(thing) JS_CallTracer(trc, thing, JSTRACE_OBJECT); #endif #define JSLOG(args...) LOG((args)) #endif