diff options
Diffstat (limited to 'src/duk-libdom-generated.c')
| -rw-r--r-- | src/duk-libdom-generated.c | 210 |
1 files changed, 210 insertions, 0 deletions
diff --git a/src/duk-libdom-generated.c b/src/duk-libdom-generated.c new file mode 100644 index 0000000..dd294ca --- /dev/null +++ b/src/duk-libdom-generated.c @@ -0,0 +1,210 @@ +/* duktape and libdom binding generation implementation + * + * This file is part of nsgenbind. + * Licensed under the MIT License, + * http://www.opensource.org/licenses/mit-license.php + * Copyright 2015 Vincent Sanders <vince@netsurf-browser.org> + */ + +/** + * \file + * functions that automatically generate binding contents based on heuristics + * with explicit knowledge about libdom and how IDL data types map to it. + */ + +#include <stdio.h> +#include <stdlib.h> +#include <stdbool.h> +#include <string.h> +#include <unistd.h> +#include <getopt.h> +#include <errno.h> +#include <ctype.h> + +#include "options.h" +#include "utils.h" +#include "nsgenbind-ast.h" +#include "webidl-ast.h" +#include "ir.h" +#include "duk-libdom.h" + +/* exported function documented in duk-libdom.h */ +int +output_generated_attribute_getter(FILE* outf, + struct ir_entry *interfacee, + struct ir_attribute_entry *atributee) +{ + switch (atributee->base_type) { + case WEBIDL_TYPE_STRING: + fprintf(outf, + "\tdom_exception exc;\n" + "\tdom_string *str;\n" + "\n"); + fprintf(outf, + "\texc = dom_%s_get_%s((struct dom_%s *)((node_private_t*)priv)->node, &str);\n", + interfacee->class_name, + atributee->property_name, + interfacee->class_name); + fprintf(outf, + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n" + "\tduk_push_lstring(ctx,\n" + "\t\tdom_string_data(str),\n" + "\t\tdom_string_length(str));\n" + "\tdom_string_unref(str);\n" + "\n" + "\treturn 1;\n"); + break; + + case WEBIDL_TYPE_LONG: + if (atributee->type_modifier == WEBIDL_TYPE_MODIFIER_UNSIGNED) { + fprintf(outf, "\tdom_ulong l;\n"); + } else { + fprintf(outf, "\tdom_long l;\n"); + } + fprintf(outf, + "\tdom_exception exc;\n" + "\n"); + fprintf(outf, + "\texc = dom_%s_get_%s((struct dom_%s *)((node_private_t*)priv)->node, &l);\n", + interfacee->class_name, + atributee->property_name, + interfacee->class_name); + fprintf(outf, + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n" + "\tduk_push_number(ctx, (duk_double_t)l);\n" + "\n" + "\treturn 1;\n"); + break; + + case WEBIDL_TYPE_BOOL: + fprintf(outf, + "\tdom_exception exc;\n" + "\tbool b;\n" + "\n"); + fprintf(outf, + "\texc = dom_%s_get_%s((struct dom_%s *)((node_private_t*)priv)->node, &b);\n", + interfacee->class_name, + atributee->property_name, + interfacee->class_name); + fprintf(outf, + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n" + "\tduk_push_boolean(ctx, b);\n" + "\n" + "\treturn 1;\n"); + break; + + default: + return -1; + + } + + WARN(WARNING_GENERATED, + "Generated: getter %s::%s();", + interfacee->name, atributee->name); + + return 0; +} + +/* exported function documented in duk-libdom.h */ +int +output_generated_attribute_setter(FILE* outf, + struct ir_entry *interfacee, + struct ir_attribute_entry *atributee) +{ + switch (atributee->base_type) { + case WEBIDL_TYPE_STRING: + fprintf(outf, + "\tdom_exception exc;\n" + "\tdom_string *str;\n" + "\tduk_size_t slen;\n" + "\tconst char *s;\n" + "\ts = duk_safe_to_lstring(ctx, 0, &slen);\n" + "\n" + "\texc = dom_string_create((const uint8_t *)s, slen, &str);\n" + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n"); + fprintf(outf, + "\texc = dom_%s_set_%s((struct dom_%s *)((node_private_t*)priv)->node, str);\n", + interfacee->class_name, + atributee->property_name, + interfacee->class_name); + fprintf(outf, + "\tdom_string_unref(str);\n" + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n" + "\treturn 0;\n"); + break; + + case WEBIDL_TYPE_LONG: + if (atributee->type_modifier == WEBIDL_TYPE_MODIFIER_UNSIGNED) { + fprintf(outf, + "\tdom_exception exc;\n" + "\tdom_ulong l;\n" + "\n" + "\tl = duk_get_uint(ctx, 0);\n" + "\n"); + } else { + fprintf(outf, + "\tdom_exception exc;\n" + "\tdom_long l;\n" + "\n" + "\tl = duk_get_int(ctx, 0);\n" + "\n"); + } + fprintf(outf, + "\texc = dom_%s_set_%s((struct dom_%s *)((node_private_t*)priv)->node, l);\n", + interfacee->class_name, + atributee->property_name, + interfacee->class_name); + fprintf(outf, + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n" + "\treturn 0;\n"); + break; + + case WEBIDL_TYPE_BOOL: + fprintf(outf, + "\tdom_exception exc;\n" + "\tbool b;\n" + "\n" + "\tb = duk_get_boolean(ctx, 0);\n" + "\n"); + fprintf(outf, + "\texc = dom_%s_set_%s((struct dom_%s *)((node_private_t*)priv)->node, b);\n", + interfacee->class_name, + atributee->property_name, + interfacee->class_name); + fprintf(outf, + "\tif (exc != DOM_NO_ERR) {\n" + "\t\treturn 0;\n" + "\t}\n" + "\n" + "\treturn 0;\n"); + break; + + default: + return -1; + + } + + WARN(WARNING_GENERATED, + "Generated: getter %s::%s();", + interfacee->name, atributee->name); + + return 0; +} |