From 030915143e04815bd846f8685c2a27cd47d4c0a8 Mon Sep 17 00:00:00 2001 From: "waterson%netscape.com" Date: Thu, 1 Apr 1999 22:03:25 +0000 Subject: [PATCH] Fixed long-long codegen to use prlong macros (so it works on Mac). --- xpcom/tools/xpidl/xpidl_stub.c | 686 ------------------------------- xpcom/typelib/xpidl/xpidl_stub.c | 686 ------------------------------- 2 files changed, 1372 deletions(-) diff --git a/xpcom/tools/xpidl/xpidl_stub.c b/xpcom/tools/xpidl/xpidl_stub.c index b1efa89cd9c..e69de29bb2d 100644 --- a/xpcom/tools/xpidl/xpidl_stub.c +++ b/xpcom/tools/xpidl/xpidl_stub.c @@ -1,686 +0,0 @@ -/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/* - * The contents of this file are subject to the Netscape Public License - * Version 1.0 (the "NPL"); you may not use this file except in - * compliance with the NPL. You may obtain a copy of the NPL at - * http://www.mozilla.org/NPL/ - * - * Software distributed under the NPL is distributed on an "AS IS" basis, - * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL - * for the specific language governing rights and limitations under the - * NPL. - * - * The Initial Developer of this code under the NPL is Netscape - * Communications Corporation. Portions created by Netscape are - * Copyright (C) 1998 Netscape Communications Corporation. All Rights - * Reserved. - */ - -/* - * Generate JS API class stub functions from XPIDL. - */ - -#include "xpidl.h" -#include - -struct stub_private { - IDL_tree iface; - IDL_tree *funcs; - unsigned nfuncs; - IDL_tree *enums; - unsigned nenums; - IDL_tree *props; - unsigned nprops; -}; - -static void -free_stub_private(struct stub_private *priv) -{ - if (priv->funcs) - free(priv->funcs); - if (priv->enums) - free(priv->enums); - if (priv->props) - free(priv->props); - free(priv); -} - -#define VECTOR_CHUNK 8U - -/* XXXbe */ extern char OOM[]; - -static void -append_to_vector(IDL_tree **vecp, unsigned *lenp, IDL_tree elem) -{ - IDL_tree *vec = *vecp; - unsigned len = *lenp; - if (len % VECTOR_CHUNK == 0) { - if (!vec) { - vec = xpidl_malloc(VECTOR_CHUNK * sizeof *vec); - } else { - vec = realloc(vec, (len + VECTOR_CHUNK) * sizeof *vec); - if (!vec) { - fputs(OOM, stderr); - exit(1); - } - } - } - vec[len++] = elem; - *vecp = vec; - *lenp = len; -} - -static gboolean -stub_pass_1(TreeState *state) -{ - if (state->tree) { - fprintf(state->file, - "/*\n * DO NOT EDIT. THIS FILE IS GENERATED FROM %s.idl\n */\n" - "#include \"jsapi.h\"\n" - "#include \"%s.h\"\n" - "\n" - "static char XXXnsresult2string_fmt[] = \"XPCOM error %%#x\";\n" - "#define XXXnsresult2string(res) XXXnsresult2string_fmt, res\n", - state->basename, g_basename(state->basename)); - state->priv = NULL; - } else { - struct stub_private *priv = state->priv; - if (priv) { - state->priv = NULL; - free_stub_private(priv); - } - } - return TRUE; -} - -static gboolean -stub_list(TreeState *state) -{ - IDL_tree iter; - for (iter = state->tree; iter; iter = IDL_LIST(iter).next) { - state->tree = IDL_LIST(iter).data; - if (!xpidl_process_node(state)) - return FALSE; - } - return TRUE; -} - -static gboolean -stub_attr_dcl(TreeState *state) -{ - struct stub_private *priv = state->priv; - append_to_vector(&priv->props, &priv->nprops, state->tree); - return TRUE; -} - -/* XXXbe */ extern gboolean xpcom_type(TreeState *state); -/* XXXbe */ extern gboolean xpcom_param(TreeState *state); - -static char -js_convert_arguments_format(IDL_tree type) -{ - switch (IDL_NODE_TYPE(type)) { - case IDLN_TYPE_INTEGER: { - gboolean sign = IDL_TYPE_INTEGER(type).f_signed; - switch (IDL_TYPE_INTEGER(type).f_type) { - case IDL_INTEGER_TYPE_LONG: - return sign ? 'i' : 'u'; - default: - return '*'; /* XXXbe */ - } - break; - } - case IDLN_TYPE_CHAR: - return '*'; /* XXXbe */ - case IDLN_TYPE_WIDE_CHAR: - return 'c'; - case IDLN_TYPE_STRING: - return 's'; - case IDLN_TYPE_WIDE_STRING: - return 'W'; - case IDLN_TYPE_BOOLEAN: - return 'b'; - case IDLN_IDENT: - return 'o'; - default: - return '*'; /* XXXbe */ - } -} - -static gboolean -emit_convert_result(TreeState *state, const char *from, const char *to, - const char *extra_indent) -{ - IDL_tree_type type = IDL_NODE_TYPE(state->tree); - switch (type) { - case IDLN_TYPE_INTEGER: - fprintf(state->file, - "%s if (!JS_NewNumberValue(cx, (jsdouble) %s, %s))\n" - "%s return JS_FALSE;\n", - extra_indent, from, to, - extra_indent); - break; - case IDLN_TYPE_STRING: - case IDLN_TYPE_WIDE_STRING: - fprintf(state->file, - "%s JSString *str = JS_New%sStringCopyZ(cx, %s);\n", - extra_indent, (type == IDLN_TYPE_STRING) ? "" : "UC", from); - /* XXXbe must free 'from' using priv's nsIAllocator iff not weak! */ - if (IDL_tree_property_get(state->tree, "shared") != NULL) { - fputs("oink\n", state->file); - } - fprintf(state->file, - "%s if (!str)\n" - "%s return JS_FALSE;\n" - "%s *%s = STRING_TO_JSVAL(str);\n", - extra_indent, - extra_indent, - extra_indent, to); - break; - case IDLN_TYPE_BOOLEAN: - fprintf(state->file, - "%s *%s = BOOLEAN_TO_JSVAL(%s);\n", - extra_indent, to, from); - break; - case IDLN_IDENT: - if (IDL_NODE_UP(state->tree) && - IDL_NODE_TYPE(IDL_NODE_UP(state->tree)) == IDLN_NATIVE) { - /* XXXbe issue warning, method should have been noscript? */ - fprintf(state->file, - "%s *%s = JSVAL_NULL;\n", - extra_indent, to); - break; - } - fprintf(state->file, - "%s *%s = %s ? OBJECT_TO_JSVAL(%s::GetJSObject(cx, %s)) : 0;\n" - "%s NS_IF_RELEASE(%s);\n", - extra_indent, to, from, IDL_IDENT(state->tree).str, from, - extra_indent, from); - break; - default: - assert(0); /* XXXbe */ - break; - } - return TRUE; -} - -static gboolean -stub_op_dcl(TreeState *state) -{ - IDL_tree method = state->tree; - struct _IDL_OP_DCL *op = &IDL_OP_DCL(method); - struct stub_private *priv = state->priv; - IDL_tree iface, iter, param; - char *className; - gboolean has_parameters = (op->parameter_dcls!=NULL); - gboolean has_retval = (op->op_type_spec != NULL); - - if (op->f_noscript) - return TRUE; - - append_to_vector(&priv->funcs, &priv->nfuncs, method); - xpidl_write_comment(state, 0); - - assert(IDL_NODE_UP(IDL_NODE_UP(method))); - iface = IDL_NODE_UP(IDL_NODE_UP(method)); - assert(IDL_NODE_TYPE(iface) == IDLN_INTERFACE); - className = IDL_IDENT(IDL_INTERFACE(iface).ident).str; - - fprintf(state->file, - "static JSBool\n" - "%s_%s(JSContext *cx, JSObject *obj, uintN argc, jsval *argv," - " jsval *rval)\n" - "{\n", - className, IDL_IDENT(op->ident).str); - - fprintf(state->file, - " %s *priv = (%s *)JS_GetPrivate(cx, obj);\n" - " if (!priv)\n" - " return JS_TRUE;\n", - className, className); - - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - state->tree = IDL_LIST(iter).data; - fputs(" ", state->file); - if (IDL_NODE_TYPE(IDL_PARAM_DCL(state->tree).param_type_spec) == IDLN_IDENT) { - /* Emit a JSObject* for identifiers: we'll need to pull - out the object from the private ourselves */ - fputs("JSObject* js", state->file); - fputs(IDL_IDENT(IDL_PARAM_DCL(state->tree).simple_declarator).str, state->file); - } - else { - if (!xpcom_param(state)) - return FALSE; - } - fputs(";\n", state->file); - } - - fputs(" if (!JS_ConvertArguments(cx, argc, argv, \"", state->file); - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - assert(param); - fputc(js_convert_arguments_format(IDL_PARAM_DCL(param).param_type_spec), - state->file); - } - fputc('\"', state->file); - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - if (IDL_NODE_TYPE(IDL_PARAM_DCL(param).param_type_spec) == IDLN_IDENT) { - fputs(", &js", state->file); - fputs(IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str, state->file); - } - else { - fprintf(state->file, ", &%s", - IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str); - } - } - fputs("))\n" - " return JS_FALSE;\n", - state->file); - - /* Pull the native object out of each JSObject */ - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - if (IDL_NODE_TYPE(IDL_PARAM_DCL(param).param_type_spec) != IDLN_IDENT) - continue; - - fputs(" ", state->file); - - state->tree = param; - if (!xpcom_param(state)) - return FALSE; - - fputs(" = (", state->file); - if (!xpcom_type(state)) - return FALSE; - fputs(") ", state->file); - - fprintf(state->file, - "JS_GetPrivate(cx, js%s);\n", - IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str); - } - - /* declare the variable which will hold the return value */ - if (has_retval) { - state->tree = op->op_type_spec; - fputs(" ", state->file); - xpcom_type(state); - fputs(" retval;\n", state->file); - } - - /* we need to get the return type right on [nonxpcom] objects */ - fprintf(state->file, - " %s rv = ", - "nsresult"); - fprintf(state->file, - "priv->%s(", - IDL_IDENT(op->ident).str); - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - fprintf(state->file, - "%s", - IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str); - if (IDL_LIST(iter).next) - fputs(", ",state->file); - } - - /* the retval is the last parameter */ - if (has_retval) { - if (has_parameters) - fputs(", ", state->file); - fputs("&retval", state->file); - } - fputs(");\n", state->file); - - fputs(" if (NS_FAILED(rv)) {\n" - " JS_ReportError(cx, XXXnsresult2string(rv));\n" - " return JS_FALSE;\n" - " }\n", - state->file); - - if (has_retval) { - if (!emit_convert_result(state, "retval", "rval", "")) - return FALSE; - } - - fputs(" return JS_TRUE;\n" - "}\n", - state->file); - return TRUE; -} - -static gboolean -stub_type_enum(TreeState *state) -{ - struct stub_private *priv = state->priv; - if (priv) - append_to_vector(&priv->enums, &priv->nenums, state->tree); - return TRUE; -} - -static gboolean -emit_property_op(TreeState *state, const char *className, char which) -{ - struct stub_private *priv = state->priv; - unsigned i; - - fprintf(state->file, - "\nstatic JSBool\n" - "%s_%cetProperty(JSContext *cx, JSObject *obj, jsid id, jsval *vp)\n" - "{\n" - " if (!JSVAL_IS_INT(id))\n" - " return JS_TRUE;\n" - " nsresult result;\n" - " %s *priv = (%s *)JS_GetPrivate(cx, obj);\n" - " if (!priv)\n" - " return JS_TRUE;\n" - " switch (JSVAL_TO_INT(id)) {\n", - className, which, className, className); - - for (i = 0; i < priv->nprops; i++) { - IDL_tree attr = priv->props[i]; - const char *id = IDL_IDENT(IDL_LIST(IDL_ATTR_DCL(attr) - .simple_declarations) - .data).str; - - if (which == 'S' && IDL_ATTR_DCL(attr).f_readonly) - continue; - fprintf(state->file, - " case %d:\n" - " ", - -1 - (int)i); - state->tree = IDL_ATTR_DCL(attr).param_type_spec; - if (!xpcom_type(state)) - return FALSE; - fprintf(state->file, " %s;\n", id); - if (which == 'S') { - fprintf(state->file, - " if (!JS_ConvertArguments(cx, 1, vp, \"%c\", &%s))\n" - " return JS_FALSE;\n", - js_convert_arguments_format(state->tree), id); - } - fprintf(state->file, - " result = priv->%cet%c%s(%s%s);\n", - which, toupper(*id), id + 1, (which == 'G') ? "&" : "", id); - - fputs(" if (NS_FAILED(result))\n" - " goto bad;\n", - state->file); - - if (which == 'G') { - if (!emit_convert_result(state, id, "vp", " ")) - return FALSE; - } - fputs( " break;\n", - state->file); - } - - fputs( " }\n" - " return JS_TRUE;\n" - "bad:\n" - " JS_ReportError(cx, XXXnsresult2string(result));\n" - " return JS_FALSE;\n" - "}\n", - state->file); - return TRUE; -} - -static gboolean -stub_interface(TreeState *state) -{ - IDL_tree iface = state->tree; - const char *className; - const char *parentClassName = NULL; - struct stub_private *priv, *save_priv; - gboolean ok; - - className = IDL_IDENT(IDL_INTERFACE(iface).ident).str; - if(IDL_INTERFACE(iface).inheritance_spec) - parentClassName = IDL_IDENT(IDL_LIST(IDL_INTERFACE(iface).inheritance_spec).data).str; - /* XXX Assumes single inheritance */ - - priv = xpidl_malloc(sizeof *priv); - memset(priv, 0, sizeof *priv); - priv->iface = iface; - save_priv = state->priv; - state->priv = priv; - - state->tree = IDL_INTERFACE(iface).body; - ok = !state->tree || xpidl_process_node(state); - if (ok) { - gboolean allreadonly = TRUE; - unsigned i; - - if (priv->funcs) { - fprintf(state->file, - "\nstatic JSFunctionSpec %s_funcs[] = {\n", - className); - for (i = 0; i < priv->nfuncs; i++) { - IDL_tree method = priv->funcs[i]; - unsigned nargs = 0; - IDL_tree iter; - for (iter = IDL_OP_DCL(method).parameter_dcls; - iter; - iter = IDL_LIST(iter).next) { - nargs++; - } - fprintf(state->file, " {\"%s\", %s_%s, %u},\n", - IDL_IDENT(IDL_OP_DCL(method).ident).str, - className, - IDL_IDENT(IDL_OP_DCL(method).ident).str, - nargs); - } - fputs(" {0}\n};\n", state->file); - } - - if (priv->enums) { - fprintf(state->file, - "\nstatic JSConstDoubleSpec %s_const_dbls[] = {\n", - className); - for (i = 0; i < priv->nenums; i++) { - unsigned j = 0; - IDL_tree iter; - for (iter = IDL_TYPE_ENUM(priv->enums[i]).enumerator_list; - iter; - iter = IDL_LIST(iter).next) { - fprintf(state->file, - " {%u, \"%s\"},\n", - j, - IDL_IDENT(IDL_LIST(iter).data).str); - j++; - } - } - fputs(" {0}\n};\n", state->file); - - } - - if (priv->props) { - /* XXXbe check for tinyid overflow */ - fprintf(state->file, - "\nstatic JSPropertySpec %s_props[] = {\n", - className); - for (i = 0; i < priv->nprops; i++) { - IDL_tree attr = priv->props[i]; - if (!IDL_ATTR_DCL(attr).f_readonly) - allreadonly = FALSE; - fprintf(state->file, " {\"%s\", %d", - IDL_IDENT(IDL_LIST(IDL_ATTR_DCL(attr).simple_declarations) - .data).str, -1 - (int)i); - if (IDL_ATTR_DCL(attr).f_readonly) - fputs(", JSPROP_READONLY", state->file); - fputs("},\n", state->file); - } - fputs(" {0}\n};\n", state->file); - - /* Emit GetProperty. */ - if (!emit_property_op(state, className, 'G')) - return FALSE; - - /* Emit SetProperty. */ - if (!allreadonly && !emit_property_op(state, className, 'S')) - return FALSE; - } - - /* Emit a finalizer. */ - fprintf(state->file, - "\nstatic void\n" - "%s_Finalize(JSContext *cx, JSObject *obj)\n" - "{\n" - " %s *priv = (%s *)JS_GetPrivate(cx, obj);\n" - " if (!priv)\n" - " return;\n" - " JSObject *globj = JS_GetGlobalObject(cx);\n" - " if (globj)\n" - " (void) JS_DeleteElement(cx, globj, (jsint)priv >> 1);\n" - " NS_RELEASE(priv);\n" - "}\n", - className, className, className); - - /* Emit a constructor. */ - fprintf(state->file, - "\nstatic JSBool\n" - "%s_ctor(JSContext *cx, JSObject *obj, uintN argc, jsval *argv," - " jsval *rval)\n" - "{\n" - " return JS_TRUE;\n" - "}\n", - className); - - /* Emit an initialized JSClass struct. */ - fprintf(state->file, - "\nstatic JSClass %s_class = {\n" - " \"%s\",\n" - " JSCLASS_HAS_PRIVATE,\n" - " JS_PropertyStub, JS_PropertyStub, ", - className, className); - if (priv->props) { - fprintf(state->file, "%s_GetProperty, ", className); - if (!allreadonly) - fprintf(state->file, "%s_SetProperty", className); - else - fputs("JS_PropertyStub", state->file); - } else { - fputs("JS_PropertyStub, JS_PropertyStub", - state->file); - } - fputs(",\n JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, ", - state->file); - fprintf(state->file, "%s_Finalize\n};\n", className); - - /* Emit a InitJSClass static method. */ - fprintf(state->file, - "#ifdef XPIDL_JS_STUBS\n" - "\nJSObject *\n" - "%s::InitJSClass(JSContext *cx)\n", - className); - - fprintf(state->file, - "{\n" - " JSObject *globj = JS_GetGlobalObject(cx);\n" - " if (!globj)\n" - " return 0;\n"); - - fprintf(state->file, - " JSObject *proto;\n" - " jsval vp;\n" - " if (!JS_LookupProperty(cx, globj, \"%s\", &vp) ||\n" - " !JSVAL_IS_OBJECT(vp) ||\n" - " !JS_LookupProperty(cx, JSVAL_TO_OBJECT(vp), \"prototype\", &vp) ||\n" - " !JSVAL_IS_OBJECT(vp)) {\n", - className); - - if (parentClassName) { - fprintf(state->file, - " JSObject *parent_proto = %s::InitJSClass(cx);\n", - parentClassName); - } - else { - fprintf(state->file, - " JSObject *parent_proto = 0;\n"); - } - - fprintf(state->file, - " proto = JS_InitClass(cx, globj, parent_proto, &%s_class, %s_ctor, 0,\n", - className, className); - fputs( " ", - state->file); - if (priv->props) - fprintf(state->file, "%s_props", className); - else - fputc('0', state->file); - fputs(", ", state->file); - if (priv->funcs) - fprintf(state->file, "%s_funcs", className); - else - fputc('0', state->file); - fputs( ", 0, 0);\n", state->file); - - fputs( " }\n" - " else {\n" - " proto = JSVAL_TO_OBJECT(vp);\n" - " }\n", - state->file); - - if (priv->enums) { - fprintf(state->file, - " if (!proto)\n" - " return 0;\n" - " JSObject *ctor = JS_GetConstructor(cx, proto);\n" - " if (!ctor || !JS_DefineConstDoubles(cx, ctor, &%s_const_dbls))\n" - " return 0;\n", - className); - } - fputs( " return proto;\n" - "}\n", - state->file); - - /* Emit a GetJSObject static method. */ - fprintf(state->file, - "\nJSObject *\n" - "%s::GetJSObject(JSContext *cx, %s *priv)\n" - "{\n" - " JSObject *globj = JS_GetGlobalObject(cx);\n" - " if (!globj)\n" - " return 0;\n" - " jsval v;\n" - " if (!JS_LookupElement(cx, globj, (jsint)priv >> 1, &v))\n" - " return 0;\n" - " if (JSVAL_IS_VOID(v)) {\n" - " JSObject *obj = JS_NewObject(cx, &%s_class, 0, 0);\n" - " if (!obj || !JS_SetPrivate(cx, obj, priv))\n" - " return 0;\n" - " NS_ADDREF(priv);\n" - " v = PRIVATE_TO_JSVAL(obj);\n" - " if (!JS_DefineElement(cx, globj, (jsint)priv >> 1, v, 0, 0,\n" - " JSPROP_READONLY | JSPROP_PERMANENT)) {\n" - " return 0;\n" - " }\n" - " }\n" - " return (JSObject *)JSVAL_TO_PRIVATE(v);\n" - "}\n" - "#endif /* XPIDL_JS_STUBS */\n", - className, className, className); - } - - /* Clean up whether or not there were errors. */ - state->priv = save_priv; - free_stub_private(priv); - return ok; -} - -nodeHandler * -xpidl_stub_dispatch(void) -{ - static nodeHandler table[IDLN_LAST]; - - if (!table[IDLN_NONE]) { - table[IDLN_NONE] = stub_pass_1; - table[IDLN_LIST] = stub_list; - table[IDLN_ATTR_DCL] = stub_attr_dcl; - table[IDLN_OP_DCL] = stub_op_dcl; - table[IDLN_TYPE_ENUM] = stub_type_enum; - table[IDLN_INTERFACE] = stub_interface; - } - - return table; -} diff --git a/xpcom/typelib/xpidl/xpidl_stub.c b/xpcom/typelib/xpidl/xpidl_stub.c index b1efa89cd9c..e69de29bb2d 100644 --- a/xpcom/typelib/xpidl/xpidl_stub.c +++ b/xpcom/typelib/xpidl/xpidl_stub.c @@ -1,686 +0,0 @@ -/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/* - * The contents of this file are subject to the Netscape Public License - * Version 1.0 (the "NPL"); you may not use this file except in - * compliance with the NPL. You may obtain a copy of the NPL at - * http://www.mozilla.org/NPL/ - * - * Software distributed under the NPL is distributed on an "AS IS" basis, - * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL - * for the specific language governing rights and limitations under the - * NPL. - * - * The Initial Developer of this code under the NPL is Netscape - * Communications Corporation. Portions created by Netscape are - * Copyright (C) 1998 Netscape Communications Corporation. All Rights - * Reserved. - */ - -/* - * Generate JS API class stub functions from XPIDL. - */ - -#include "xpidl.h" -#include - -struct stub_private { - IDL_tree iface; - IDL_tree *funcs; - unsigned nfuncs; - IDL_tree *enums; - unsigned nenums; - IDL_tree *props; - unsigned nprops; -}; - -static void -free_stub_private(struct stub_private *priv) -{ - if (priv->funcs) - free(priv->funcs); - if (priv->enums) - free(priv->enums); - if (priv->props) - free(priv->props); - free(priv); -} - -#define VECTOR_CHUNK 8U - -/* XXXbe */ extern char OOM[]; - -static void -append_to_vector(IDL_tree **vecp, unsigned *lenp, IDL_tree elem) -{ - IDL_tree *vec = *vecp; - unsigned len = *lenp; - if (len % VECTOR_CHUNK == 0) { - if (!vec) { - vec = xpidl_malloc(VECTOR_CHUNK * sizeof *vec); - } else { - vec = realloc(vec, (len + VECTOR_CHUNK) * sizeof *vec); - if (!vec) { - fputs(OOM, stderr); - exit(1); - } - } - } - vec[len++] = elem; - *vecp = vec; - *lenp = len; -} - -static gboolean -stub_pass_1(TreeState *state) -{ - if (state->tree) { - fprintf(state->file, - "/*\n * DO NOT EDIT. THIS FILE IS GENERATED FROM %s.idl\n */\n" - "#include \"jsapi.h\"\n" - "#include \"%s.h\"\n" - "\n" - "static char XXXnsresult2string_fmt[] = \"XPCOM error %%#x\";\n" - "#define XXXnsresult2string(res) XXXnsresult2string_fmt, res\n", - state->basename, g_basename(state->basename)); - state->priv = NULL; - } else { - struct stub_private *priv = state->priv; - if (priv) { - state->priv = NULL; - free_stub_private(priv); - } - } - return TRUE; -} - -static gboolean -stub_list(TreeState *state) -{ - IDL_tree iter; - for (iter = state->tree; iter; iter = IDL_LIST(iter).next) { - state->tree = IDL_LIST(iter).data; - if (!xpidl_process_node(state)) - return FALSE; - } - return TRUE; -} - -static gboolean -stub_attr_dcl(TreeState *state) -{ - struct stub_private *priv = state->priv; - append_to_vector(&priv->props, &priv->nprops, state->tree); - return TRUE; -} - -/* XXXbe */ extern gboolean xpcom_type(TreeState *state); -/* XXXbe */ extern gboolean xpcom_param(TreeState *state); - -static char -js_convert_arguments_format(IDL_tree type) -{ - switch (IDL_NODE_TYPE(type)) { - case IDLN_TYPE_INTEGER: { - gboolean sign = IDL_TYPE_INTEGER(type).f_signed; - switch (IDL_TYPE_INTEGER(type).f_type) { - case IDL_INTEGER_TYPE_LONG: - return sign ? 'i' : 'u'; - default: - return '*'; /* XXXbe */ - } - break; - } - case IDLN_TYPE_CHAR: - return '*'; /* XXXbe */ - case IDLN_TYPE_WIDE_CHAR: - return 'c'; - case IDLN_TYPE_STRING: - return 's'; - case IDLN_TYPE_WIDE_STRING: - return 'W'; - case IDLN_TYPE_BOOLEAN: - return 'b'; - case IDLN_IDENT: - return 'o'; - default: - return '*'; /* XXXbe */ - } -} - -static gboolean -emit_convert_result(TreeState *state, const char *from, const char *to, - const char *extra_indent) -{ - IDL_tree_type type = IDL_NODE_TYPE(state->tree); - switch (type) { - case IDLN_TYPE_INTEGER: - fprintf(state->file, - "%s if (!JS_NewNumberValue(cx, (jsdouble) %s, %s))\n" - "%s return JS_FALSE;\n", - extra_indent, from, to, - extra_indent); - break; - case IDLN_TYPE_STRING: - case IDLN_TYPE_WIDE_STRING: - fprintf(state->file, - "%s JSString *str = JS_New%sStringCopyZ(cx, %s);\n", - extra_indent, (type == IDLN_TYPE_STRING) ? "" : "UC", from); - /* XXXbe must free 'from' using priv's nsIAllocator iff not weak! */ - if (IDL_tree_property_get(state->tree, "shared") != NULL) { - fputs("oink\n", state->file); - } - fprintf(state->file, - "%s if (!str)\n" - "%s return JS_FALSE;\n" - "%s *%s = STRING_TO_JSVAL(str);\n", - extra_indent, - extra_indent, - extra_indent, to); - break; - case IDLN_TYPE_BOOLEAN: - fprintf(state->file, - "%s *%s = BOOLEAN_TO_JSVAL(%s);\n", - extra_indent, to, from); - break; - case IDLN_IDENT: - if (IDL_NODE_UP(state->tree) && - IDL_NODE_TYPE(IDL_NODE_UP(state->tree)) == IDLN_NATIVE) { - /* XXXbe issue warning, method should have been noscript? */ - fprintf(state->file, - "%s *%s = JSVAL_NULL;\n", - extra_indent, to); - break; - } - fprintf(state->file, - "%s *%s = %s ? OBJECT_TO_JSVAL(%s::GetJSObject(cx, %s)) : 0;\n" - "%s NS_IF_RELEASE(%s);\n", - extra_indent, to, from, IDL_IDENT(state->tree).str, from, - extra_indent, from); - break; - default: - assert(0); /* XXXbe */ - break; - } - return TRUE; -} - -static gboolean -stub_op_dcl(TreeState *state) -{ - IDL_tree method = state->tree; - struct _IDL_OP_DCL *op = &IDL_OP_DCL(method); - struct stub_private *priv = state->priv; - IDL_tree iface, iter, param; - char *className; - gboolean has_parameters = (op->parameter_dcls!=NULL); - gboolean has_retval = (op->op_type_spec != NULL); - - if (op->f_noscript) - return TRUE; - - append_to_vector(&priv->funcs, &priv->nfuncs, method); - xpidl_write_comment(state, 0); - - assert(IDL_NODE_UP(IDL_NODE_UP(method))); - iface = IDL_NODE_UP(IDL_NODE_UP(method)); - assert(IDL_NODE_TYPE(iface) == IDLN_INTERFACE); - className = IDL_IDENT(IDL_INTERFACE(iface).ident).str; - - fprintf(state->file, - "static JSBool\n" - "%s_%s(JSContext *cx, JSObject *obj, uintN argc, jsval *argv," - " jsval *rval)\n" - "{\n", - className, IDL_IDENT(op->ident).str); - - fprintf(state->file, - " %s *priv = (%s *)JS_GetPrivate(cx, obj);\n" - " if (!priv)\n" - " return JS_TRUE;\n", - className, className); - - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - state->tree = IDL_LIST(iter).data; - fputs(" ", state->file); - if (IDL_NODE_TYPE(IDL_PARAM_DCL(state->tree).param_type_spec) == IDLN_IDENT) { - /* Emit a JSObject* for identifiers: we'll need to pull - out the object from the private ourselves */ - fputs("JSObject* js", state->file); - fputs(IDL_IDENT(IDL_PARAM_DCL(state->tree).simple_declarator).str, state->file); - } - else { - if (!xpcom_param(state)) - return FALSE; - } - fputs(";\n", state->file); - } - - fputs(" if (!JS_ConvertArguments(cx, argc, argv, \"", state->file); - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - assert(param); - fputc(js_convert_arguments_format(IDL_PARAM_DCL(param).param_type_spec), - state->file); - } - fputc('\"', state->file); - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - if (IDL_NODE_TYPE(IDL_PARAM_DCL(param).param_type_spec) == IDLN_IDENT) { - fputs(", &js", state->file); - fputs(IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str, state->file); - } - else { - fprintf(state->file, ", &%s", - IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str); - } - } - fputs("))\n" - " return JS_FALSE;\n", - state->file); - - /* Pull the native object out of each JSObject */ - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - if (IDL_NODE_TYPE(IDL_PARAM_DCL(param).param_type_spec) != IDLN_IDENT) - continue; - - fputs(" ", state->file); - - state->tree = param; - if (!xpcom_param(state)) - return FALSE; - - fputs(" = (", state->file); - if (!xpcom_type(state)) - return FALSE; - fputs(") ", state->file); - - fprintf(state->file, - "JS_GetPrivate(cx, js%s);\n", - IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str); - } - - /* declare the variable which will hold the return value */ - if (has_retval) { - state->tree = op->op_type_spec; - fputs(" ", state->file); - xpcom_type(state); - fputs(" retval;\n", state->file); - } - - /* we need to get the return type right on [nonxpcom] objects */ - fprintf(state->file, - " %s rv = ", - "nsresult"); - fprintf(state->file, - "priv->%s(", - IDL_IDENT(op->ident).str); - for (iter = op->parameter_dcls; iter; iter = IDL_LIST(iter).next) { - param = IDL_LIST(iter).data; - fprintf(state->file, - "%s", - IDL_IDENT(IDL_PARAM_DCL(param).simple_declarator).str); - if (IDL_LIST(iter).next) - fputs(", ",state->file); - } - - /* the retval is the last parameter */ - if (has_retval) { - if (has_parameters) - fputs(", ", state->file); - fputs("&retval", state->file); - } - fputs(");\n", state->file); - - fputs(" if (NS_FAILED(rv)) {\n" - " JS_ReportError(cx, XXXnsresult2string(rv));\n" - " return JS_FALSE;\n" - " }\n", - state->file); - - if (has_retval) { - if (!emit_convert_result(state, "retval", "rval", "")) - return FALSE; - } - - fputs(" return JS_TRUE;\n" - "}\n", - state->file); - return TRUE; -} - -static gboolean -stub_type_enum(TreeState *state) -{ - struct stub_private *priv = state->priv; - if (priv) - append_to_vector(&priv->enums, &priv->nenums, state->tree); - return TRUE; -} - -static gboolean -emit_property_op(TreeState *state, const char *className, char which) -{ - struct stub_private *priv = state->priv; - unsigned i; - - fprintf(state->file, - "\nstatic JSBool\n" - "%s_%cetProperty(JSContext *cx, JSObject *obj, jsid id, jsval *vp)\n" - "{\n" - " if (!JSVAL_IS_INT(id))\n" - " return JS_TRUE;\n" - " nsresult result;\n" - " %s *priv = (%s *)JS_GetPrivate(cx, obj);\n" - " if (!priv)\n" - " return JS_TRUE;\n" - " switch (JSVAL_TO_INT(id)) {\n", - className, which, className, className); - - for (i = 0; i < priv->nprops; i++) { - IDL_tree attr = priv->props[i]; - const char *id = IDL_IDENT(IDL_LIST(IDL_ATTR_DCL(attr) - .simple_declarations) - .data).str; - - if (which == 'S' && IDL_ATTR_DCL(attr).f_readonly) - continue; - fprintf(state->file, - " case %d:\n" - " ", - -1 - (int)i); - state->tree = IDL_ATTR_DCL(attr).param_type_spec; - if (!xpcom_type(state)) - return FALSE; - fprintf(state->file, " %s;\n", id); - if (which == 'S') { - fprintf(state->file, - " if (!JS_ConvertArguments(cx, 1, vp, \"%c\", &%s))\n" - " return JS_FALSE;\n", - js_convert_arguments_format(state->tree), id); - } - fprintf(state->file, - " result = priv->%cet%c%s(%s%s);\n", - which, toupper(*id), id + 1, (which == 'G') ? "&" : "", id); - - fputs(" if (NS_FAILED(result))\n" - " goto bad;\n", - state->file); - - if (which == 'G') { - if (!emit_convert_result(state, id, "vp", " ")) - return FALSE; - } - fputs( " break;\n", - state->file); - } - - fputs( " }\n" - " return JS_TRUE;\n" - "bad:\n" - " JS_ReportError(cx, XXXnsresult2string(result));\n" - " return JS_FALSE;\n" - "}\n", - state->file); - return TRUE; -} - -static gboolean -stub_interface(TreeState *state) -{ - IDL_tree iface = state->tree; - const char *className; - const char *parentClassName = NULL; - struct stub_private *priv, *save_priv; - gboolean ok; - - className = IDL_IDENT(IDL_INTERFACE(iface).ident).str; - if(IDL_INTERFACE(iface).inheritance_spec) - parentClassName = IDL_IDENT(IDL_LIST(IDL_INTERFACE(iface).inheritance_spec).data).str; - /* XXX Assumes single inheritance */ - - priv = xpidl_malloc(sizeof *priv); - memset(priv, 0, sizeof *priv); - priv->iface = iface; - save_priv = state->priv; - state->priv = priv; - - state->tree = IDL_INTERFACE(iface).body; - ok = !state->tree || xpidl_process_node(state); - if (ok) { - gboolean allreadonly = TRUE; - unsigned i; - - if (priv->funcs) { - fprintf(state->file, - "\nstatic JSFunctionSpec %s_funcs[] = {\n", - className); - for (i = 0; i < priv->nfuncs; i++) { - IDL_tree method = priv->funcs[i]; - unsigned nargs = 0; - IDL_tree iter; - for (iter = IDL_OP_DCL(method).parameter_dcls; - iter; - iter = IDL_LIST(iter).next) { - nargs++; - } - fprintf(state->file, " {\"%s\", %s_%s, %u},\n", - IDL_IDENT(IDL_OP_DCL(method).ident).str, - className, - IDL_IDENT(IDL_OP_DCL(method).ident).str, - nargs); - } - fputs(" {0}\n};\n", state->file); - } - - if (priv->enums) { - fprintf(state->file, - "\nstatic JSConstDoubleSpec %s_const_dbls[] = {\n", - className); - for (i = 0; i < priv->nenums; i++) { - unsigned j = 0; - IDL_tree iter; - for (iter = IDL_TYPE_ENUM(priv->enums[i]).enumerator_list; - iter; - iter = IDL_LIST(iter).next) { - fprintf(state->file, - " {%u, \"%s\"},\n", - j, - IDL_IDENT(IDL_LIST(iter).data).str); - j++; - } - } - fputs(" {0}\n};\n", state->file); - - } - - if (priv->props) { - /* XXXbe check for tinyid overflow */ - fprintf(state->file, - "\nstatic JSPropertySpec %s_props[] = {\n", - className); - for (i = 0; i < priv->nprops; i++) { - IDL_tree attr = priv->props[i]; - if (!IDL_ATTR_DCL(attr).f_readonly) - allreadonly = FALSE; - fprintf(state->file, " {\"%s\", %d", - IDL_IDENT(IDL_LIST(IDL_ATTR_DCL(attr).simple_declarations) - .data).str, -1 - (int)i); - if (IDL_ATTR_DCL(attr).f_readonly) - fputs(", JSPROP_READONLY", state->file); - fputs("},\n", state->file); - } - fputs(" {0}\n};\n", state->file); - - /* Emit GetProperty. */ - if (!emit_property_op(state, className, 'G')) - return FALSE; - - /* Emit SetProperty. */ - if (!allreadonly && !emit_property_op(state, className, 'S')) - return FALSE; - } - - /* Emit a finalizer. */ - fprintf(state->file, - "\nstatic void\n" - "%s_Finalize(JSContext *cx, JSObject *obj)\n" - "{\n" - " %s *priv = (%s *)JS_GetPrivate(cx, obj);\n" - " if (!priv)\n" - " return;\n" - " JSObject *globj = JS_GetGlobalObject(cx);\n" - " if (globj)\n" - " (void) JS_DeleteElement(cx, globj, (jsint)priv >> 1);\n" - " NS_RELEASE(priv);\n" - "}\n", - className, className, className); - - /* Emit a constructor. */ - fprintf(state->file, - "\nstatic JSBool\n" - "%s_ctor(JSContext *cx, JSObject *obj, uintN argc, jsval *argv," - " jsval *rval)\n" - "{\n" - " return JS_TRUE;\n" - "}\n", - className); - - /* Emit an initialized JSClass struct. */ - fprintf(state->file, - "\nstatic JSClass %s_class = {\n" - " \"%s\",\n" - " JSCLASS_HAS_PRIVATE,\n" - " JS_PropertyStub, JS_PropertyStub, ", - className, className); - if (priv->props) { - fprintf(state->file, "%s_GetProperty, ", className); - if (!allreadonly) - fprintf(state->file, "%s_SetProperty", className); - else - fputs("JS_PropertyStub", state->file); - } else { - fputs("JS_PropertyStub, JS_PropertyStub", - state->file); - } - fputs(",\n JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, ", - state->file); - fprintf(state->file, "%s_Finalize\n};\n", className); - - /* Emit a InitJSClass static method. */ - fprintf(state->file, - "#ifdef XPIDL_JS_STUBS\n" - "\nJSObject *\n" - "%s::InitJSClass(JSContext *cx)\n", - className); - - fprintf(state->file, - "{\n" - " JSObject *globj = JS_GetGlobalObject(cx);\n" - " if (!globj)\n" - " return 0;\n"); - - fprintf(state->file, - " JSObject *proto;\n" - " jsval vp;\n" - " if (!JS_LookupProperty(cx, globj, \"%s\", &vp) ||\n" - " !JSVAL_IS_OBJECT(vp) ||\n" - " !JS_LookupProperty(cx, JSVAL_TO_OBJECT(vp), \"prototype\", &vp) ||\n" - " !JSVAL_IS_OBJECT(vp)) {\n", - className); - - if (parentClassName) { - fprintf(state->file, - " JSObject *parent_proto = %s::InitJSClass(cx);\n", - parentClassName); - } - else { - fprintf(state->file, - " JSObject *parent_proto = 0;\n"); - } - - fprintf(state->file, - " proto = JS_InitClass(cx, globj, parent_proto, &%s_class, %s_ctor, 0,\n", - className, className); - fputs( " ", - state->file); - if (priv->props) - fprintf(state->file, "%s_props", className); - else - fputc('0', state->file); - fputs(", ", state->file); - if (priv->funcs) - fprintf(state->file, "%s_funcs", className); - else - fputc('0', state->file); - fputs( ", 0, 0);\n", state->file); - - fputs( " }\n" - " else {\n" - " proto = JSVAL_TO_OBJECT(vp);\n" - " }\n", - state->file); - - if (priv->enums) { - fprintf(state->file, - " if (!proto)\n" - " return 0;\n" - " JSObject *ctor = JS_GetConstructor(cx, proto);\n" - " if (!ctor || !JS_DefineConstDoubles(cx, ctor, &%s_const_dbls))\n" - " return 0;\n", - className); - } - fputs( " return proto;\n" - "}\n", - state->file); - - /* Emit a GetJSObject static method. */ - fprintf(state->file, - "\nJSObject *\n" - "%s::GetJSObject(JSContext *cx, %s *priv)\n" - "{\n" - " JSObject *globj = JS_GetGlobalObject(cx);\n" - " if (!globj)\n" - " return 0;\n" - " jsval v;\n" - " if (!JS_LookupElement(cx, globj, (jsint)priv >> 1, &v))\n" - " return 0;\n" - " if (JSVAL_IS_VOID(v)) {\n" - " JSObject *obj = JS_NewObject(cx, &%s_class, 0, 0);\n" - " if (!obj || !JS_SetPrivate(cx, obj, priv))\n" - " return 0;\n" - " NS_ADDREF(priv);\n" - " v = PRIVATE_TO_JSVAL(obj);\n" - " if (!JS_DefineElement(cx, globj, (jsint)priv >> 1, v, 0, 0,\n" - " JSPROP_READONLY | JSPROP_PERMANENT)) {\n" - " return 0;\n" - " }\n" - " }\n" - " return (JSObject *)JSVAL_TO_PRIVATE(v);\n" - "}\n" - "#endif /* XPIDL_JS_STUBS */\n", - className, className, className); - } - - /* Clean up whether or not there were errors. */ - state->priv = save_priv; - free_stub_private(priv); - return ok; -} - -nodeHandler * -xpidl_stub_dispatch(void) -{ - static nodeHandler table[IDLN_LAST]; - - if (!table[IDLN_NONE]) { - table[IDLN_NONE] = stub_pass_1; - table[IDLN_LIST] = stub_list; - table[IDLN_ATTR_DCL] = stub_attr_dcl; - table[IDLN_OP_DCL] = stub_op_dcl; - table[IDLN_TYPE_ENUM] = stub_type_enum; - table[IDLN_INTERFACE] = stub_interface; - } - - return table; -}