X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/154af5b3783df5a53759b700db95b88a1e9365ab..f0cd5b9c13a412c2248b74da2cef04ec9bcffc10:/src/main.c diff --git a/src/main.c b/src/main.c index 5767215..c994d5a 100644 --- a/src/main.c +++ b/src/main.c @@ -2,7 +2,7 @@ * Copyright (C) 1999,2000 the Free Software Foundation. * Copyright (C) 2000 Eazel, Inc. * Copyright (C) 2001-2011 George (Jiri) Lebl - * Copyright © 2019-2020 Nick Bowler + * Copyright © 2019-2021 Nick Bowler * * Author: George (Jiri) Lebl * @@ -31,6 +31,8 @@ #include #include #include +#include +#include #include "treefuncs.h" #include "parse.h" @@ -40,6 +42,44 @@ #include "main.h" +enum { + SOPT_END = UCHAR_MAX, + LOPT_VERSION, + LOPT_NO_TOUCH, + LOPT_FILE_SEP, + LOPT_M4, + LOPT_M4_CLEAN, + LOPT_M4_DIR +}; + +static const char sopts[] = "wnho:"; +static const struct option lopts[] = { + { "help", 0, NULL, 'h' }, + { "version", 0, NULL, LOPT_VERSION }, + { "exit-on-warn", 0, NULL, 'w' }, + { "no-exit-on-warn", 0, &exit_on_warn, FALSE }, + { "for-cpp", 0, &for_cpp, TRUE }, + { "no-extern-c", 0, &no_extern_c, TRUE }, + { "no-gnu", 0, &no_gnu, TRUE }, + { "no-touch", 0, NULL, LOPT_NO_TOUCH }, + { "no-touch-headers", 0, &no_touch_headers, TRUE }, + { "always-private-header", 0, &private_header, PRIVATE_HEADER_ALWAYS }, + { "ondemand-private-header", 0, &private_header, PRIVATE_HEADER_ONDEMAND }, + { "no-private-header", 0, &private_header, PRIVATE_HEADER_NEVER }, + { "always-private-struct", 0, &always_private_struct, TRUE }, + { "m4", 0, NULL, LOPT_M4 }, + { "m4-clean", 0, NULL, LOPT_M4_CLEAN }, + { "m4-dir", 0, NULL, LOPT_M4_DIR }, + { "no-write", 0, NULL, 'n' }, + { "no-lines", 0, &no_lines, TRUE }, + { "no-self-alias", 0, &no_self_alias, TRUE }, + { "no-kill-underscores", 0, NULL, 0 /* no-op */ }, + { "output-dir", 1, NULL, 'o' }, + { "file-sep", 2, NULL, LOPT_FILE_SEP }, + { "gtk3", 0, >k3_ok, TRUE }, + { 0 } +}; + char *filename = NULL; int yyparse(void); @@ -128,7 +168,6 @@ gint prealloc = 0; gboolean use_m4 = FALSE; /* preprocess sources with m4 */ -gboolean use_m4_clean = FALSE; /* preprocess sources with m4, no m4 flags */ char *m4_commandline = NULL; #define M4_INCLUDE_DIR PKGDATADIR "/m4" #define M4_BASE_FILENAME "gobm4.m4" @@ -1122,254 +1161,299 @@ add_interface_inits(Class *c) } static void -add_interface_infos (void) +add_interface_infos(Class *c, gboolean static_storage) { GList *li; - for (li = ((Class *)class)->interfaces; - li != NULL; - li = li->next) { - char *name = replace_sep (li->data, '_'); - out_printf (out, - "\t\tstatic const GInterfaceInfo %s_info = {\n" - "\t\t\t(GInterfaceInitFunc) ___%s_init,\n" - "\t\t\tNULL,\n" - "\t\t\tNULL\n" - "\t\t};\n\n", - name, name); - g_free (name); + + for (li = c->interfaces; li; li = li->next) { + char *name = replace_sep(li->data, '_'); + out_printf(out, "\t%sconst GInterfaceInfo %s_info = {\n" + "\t\t(GInterfaceInitFunc) ___%s_init,\n" + "\t\tNULL,\n" + "\t\tNULL\n" + "\t};\n", + static_storage ? "static " : "", + name, name); + g_free(name); } + + out_printf(out, "\n"); } static void -add_interfaces (void) +define_add_interfaces(Class *c) { GList *li; - for (li = ((Class *)class)->interfaces; - li != NULL; - li = li->next) { - char *name = replace_sep (li->data, '_'); - char *type = make_pre_macro (li->data, "TYPE"); - out_printf (out, - "\t\tg_type_add_interface_static (type,\n" - "\t\t\t%s,\n" - "\t\t\t&%s_info);\n", - type, - name); + if (!c->interfaces) + return; - g_free (type); - g_free (name); + out_printf(out, "static void ___add_interfaces(GType type)\n{\n"); + add_interface_infos(c, TRUE); + + for (li = c->interfaces; li; li = li->next) { + char *type = make_pre_macro(li->data, "TYPE"); + char *name = replace_sep(li->data, '_'); + + out_printf(out, "\tg_type_add_interface_static\n" + "\t\t( type\n" + "\t\t, %s\n" + "\t\t, &%s_info\n" + "\t\t);\n", + type, name); + + g_free(name); + g_free(type); } + + out_printf(out, "}\n\n"); } static void -add_dynamic_interfaces(void) +define_dynamic_add_interfaces(Class *c) { - GList *li = ((Class *)class)->interfaces; + GList *li; - if (li) { - /* - * Hack to work around bug in g_type_module_add_interface, - * which will fail to add an interface to types that derive - * from something that also implements the same interface. - * - * The actual GType system does not have any such problem, - * and the GTypeModule implementation details relied upon - * here have not changed once since the feature was first - * implemented almost 20 years ago. - */ - out_printf(out, "\t\tstruct _ModuleInterfaceInfo {\n" - "\t\t\tgboolean loaded;\n" - "\t\t\tGType instance_type;\n" - "\t\t\tGType interface_type;\n" - "\t\t\tGInterfaceInfo info;\n" - "\t\t} *modinfo;\n"); - } + if (!c->interfaces) + return; - for (; li; li = li->next) { - char *name = replace_sep(li->data, '_'); + out_printf(out, "static void ___add_interfaces" + "(GTypeModule *type_module, GType type)\n" + "{\n"); + add_interface_infos(c, FALSE); + + /* + * Hack to work around bug in g_type_module_add_interface, + * which will fail to add an interface to types that derive + * from something that also implements the same interface. + * + * The actual GType system does not have any such problem, + * and the GTypeModule implementation details relied upon + * here have not changed once since the feature was first + * implemented almost 20 years ago. + */ + out_printf(out, "\tstruct _ModuleInterfaceInfo {\n" + "\t\tgboolean loaded;\n" + "\t\tGType instance_type;\n" + "\t\tGType interface_type;\n" + "\t\tGInterfaceInfo info;\n" + "\t} *modinfo;\n"); + + for (li = c->interfaces; li; li = li->next) { char *type = make_pre_macro(li->data, "TYPE"); + char *name = replace_sep(li->data, '_'); out_printf(out, "\n" - "\t\tmodinfo = g_malloc(sizeof *modinfo);\n" - "\t\tmodinfo->loaded = TRUE;\n" - "\t\tmodinfo->instance_type = %s_type_id;\n" - "\t\tmodinfo->interface_type = %s;\n" - "\t\tmodinfo->info = %s_info;\n" - "\t\tg_type_add_interface_dynamic\n" - "\t\t\t( modinfo->instance_type\n" - "\t\t\t, modinfo->interface_type\n" - "\t\t\t, G_TYPE_PLUGIN(type_module)\n" - "\t\t\t);\n" - "\t\ttype_module->interface_infos = g_slist_prepend\n" - "\t\t\t( type_module->interface_infos\n" - "\t\t\t, modinfo\n" - "\t\t\t);\n", funcbase, type, name); + "\tmodinfo = g_malloc(sizeof *modinfo);\n" + "\tmodinfo->loaded = TRUE;\n" + "\tmodinfo->instance_type = type;\n" + "\tmodinfo->interface_type = %s;\n" + "\tmodinfo->info = %s_info;\n" + "\tg_type_add_interface_dynamic\n" + "\t\t( modinfo->instance_type\n" + "\t\t, modinfo->interface_type\n" + "\t\t, G_TYPE_PLUGIN(type_module)\n" + "\t\t);\n" + "\ttype_module->interface_infos = g_slist_prepend\n" + "\t\t( type_module->interface_infos\n" + "\t\t, modinfo\n" + "\t\t);\n", + type, name); - g_free(type); g_free(name); + g_free(type); } + + out_printf(out, "}\n\n"); } -static void -add_get_type(void) +static void define_add_privates(Class *c) { - /*char *chunk_size = ((Class*)class)->chunk_size;*/ + const char *addprivate = c->dynamic + ? "G_ADD_PRIVATE_DYNAMIC" + : "G_ADD_PRIVATE"; - out_printf(out, - "GType\n" - "%s_get_type (void)\n" - "{\n" - "\tstatic GType type = 0;\n\n" - "\tif ___GOB_UNLIKELY(type == 0) {\n" - "\t\tstatic const GTypeInfo info = {\n" - "\t\t\tsizeof (%sClass),\n" - "\t\t\t(GBaseInitFunc) NULL,\n" - "\t\t\t(GBaseFinalizeFunc) NULL,\n" - "\t\t\t(GClassInitFunc) %s_class_init,\n" - "\t\t\t(GClassFinalizeFunc) NULL,\n" - "\t\t\tNULL /* class_data */,\n" - "\t\t\tsizeof (%s),\n" - "\t\t\t%d /* n_preallocs */,\n" - "\t\t\t(GInstanceInitFunc) %s_init,\n" - "\t\t\tNULL\n" - "\t\t};\n\n", - funcbase, typebase, funcbase, typebase, prealloc, funcbase); - - add_interface_infos (); + if (!privates) + return; - out_printf (out, - "\t\ttype = g_type_register_static (%s, \"%s\", &info, (GTypeFlags)%s);\n", - pmacrotype, typebase, ((Class *)class)->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); + out_printf(out, "#ifdef %s\n" + "#define ___add_privates() %s(%s)\n" + "#else\n" + "#define ___add_privates()\n" + "#endif\n\n", + addprivate, addprivate, typebase); +} - add_interfaces (); +static void add_type_info(void) +{ + out_printf(out, "\tstatic const GTypeInfo info = {\n" + "\t\tsizeof (%sClass),\n" + "\t\t(GBaseInitFunc) NULL,\n" + "\t\t(GBaseFinalizeFunc) NULL,\n" + "\t\t(GClassInitFunc) %s_class_init,\n" + "\t\t(GClassFinalizeFunc) NULL,\n" + "\t\tNULL /* class_data */,\n" + "\t\tsizeof (%s),\n" + "\t\t%d /* n_preallocs */,\n" + "\t\t(GInstanceInitFunc) %s_init,\n" + "\t\tNULL\n" + "\t};\n\n", + typebase, funcbase, typebase, prealloc, funcbase); +} - /* - if(chunk_size) { - out_printf(out, - "#if %s > 0\n" - "\t\tgtk_type_set_chunk_alloc(type, %s);\n" - "#endif\n", - chunk_size, chunk_size); - } - */ - out_printf(out, - "\t}\n\n" - "\treturn type;\n" - "}\n\n"); +static void +add_get_type(void) +{ + Class *c = (Class *)class; + + define_add_interfaces(c); + define_add_privates(c); + + out_printf(out, "#ifdef G_DEFINE_TYPE_EXTENDED\n\n" + "G_DEFINE_TYPE_EXTENDED(%s, %s, %s,\n" + "\t(GTypeFlags)%s,\n", + typebase, funcbase, pmacrotype, + c->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); + + if (privates) + out_printf(out, "\t___add_privates();\n"); + + if (c->interfaces) + out_printf(out, "\t___add_interfaces(g_define_type_id);\n"); + + /* Fallback for GLib < 2.4 */ + out_printf(out, ");\n\n" + "#else\n\n" + "GType %s_get_type(void)\n" + "{\n" + "\tstatic GType type = 0;\n", + funcbase); + + add_type_info(); + + out_printf(out, "\tif ___GOB_UNLIKELY(type == 0) {\n" + "\t\ttype = g_type_register_static\n" + "\t\t\t( %s\n" + "\t\t\t, \"%s\"\n" + "\t\t\t, &info\n" + "\t\t\t, (GTypeFlags)%s\n" + "\t\t\t);\n", + pmacrotype, typebase, + c->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); + + if (c->interfaces) + out_printf(out, "\t\t___add_interfaces(type);\n"); + + out_printf(out, "\t}\n\n" + "\treturn type;\n" + "}\n\n" + "#endif\n\n"); } static void -add_dynamic_get_type (void) +add_dynamic_get_type(void) { - out_printf(out, - "static GType %s_type_id;\n\n" - "GType\n" - "%s_get_type (void)\n" - "{\n" - "\treturn %s_type_id;\n" - "}\n\n", - funcbase, funcbase, funcbase); + Class *c = (Class *)class; - out_printf(out, - "void\n" - "%s_register_type (GTypeModule *type_module)\n" - "{\n" - "\tstatic const GTypeInfo info = {\n" - "\t\tsizeof (%sClass),\n" - "\t\t(GBaseInitFunc) NULL,\n" - "\t\t(GBaseFinalizeFunc) NULL,\n" - "\t\t(GClassInitFunc) %s_class_init,\n" - "\t\t(GClassFinalizeFunc) NULL,\n" - "\t\tNULL /* class_data */,\n" - "\t\tsizeof (%s),\n" - "\t\t%d /* n_preallocs */,\n" - "\t\t(GInstanceInitFunc) %s_init,\n" - "\t\tNULL\n" - "\t};\n\n", - funcbase, typebase, funcbase, typebase, prealloc, funcbase); - - add_interface_infos(); + define_dynamic_add_interfaces(c); + define_add_privates(c); - out_printf(out, - "\t%s_type_id = g_type_module_register_type(\n" - "\t\ttype_module,\n" - "\t\t%s,\n" - "\t\t\"%s\",\n" - "\t\t&info,\n" - "\t\t(GTypeFlags)%s\n" - "\t);\n\n" - "\t{\n", - funcbase, pmacrotype, typebase, - ((Class *)class)->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); - - add_dynamic_interfaces(); + /* + * G_DEFINE_DYNAMIC_TYPE_EXTENDED is usable if available, except for + * some reason it defines an xxx_register_type function with internal + * linkage. This is kind of weird so we have to work around that. + */ + out_printf(out, "#ifdef G_DEFINE_DYNAMIC_TYPE_EXTENDED\n\n" + "static void %s_class_finalize(%sClass *c) { }\n\n" + "#define %s_register_type ___register_type\n", + funcbase, typebase, funcbase); + + out_printf(out, "G_DEFINE_DYNAMIC_TYPE_EXTENDED(%s, %s, %s,\n" + "\t(GTypeFlags)%s,\n", + typebase, funcbase, pmacrotype, + c->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); + + if (privates) + out_printf(out, "\t___add_privates();\n"); + + if (c->interfaces) { + out_printf(out, "\t___add_interfaces" + "(type_module, %s_type_id);\n", funcbase); + } - out_printf(out, - "\t}\n" - "}\n\n"); + out_printf(out, ");\n" + "#undef %s_register_type\n\n" + "void %s_register_type(GTypeModule *type_module)\n" + "{\n" + "\t___register_type(type_module);\n" + "}\n\n", + funcbase, funcbase); + + /* Fallback for GLib < 2.14 */ + out_printf(out, "#else\n\n" + "static GType %s_type_id;\n\n" + "GType %s_get_type(void)\n" + "{\n" + "\treturn %s_type_id;\n" + "}\n\n", + funcbase, funcbase, funcbase); + + out_printf(out, "void %s_register_type(GTypeModule *type_module)\n" + "{\n", + funcbase); + + add_type_info(); + + out_printf(out, "\t%s_type_id = g_type_module_register_type\n" + "\t\t( type_module\n" + "\t\t, %s\n" + "\t\t, \"%s\"\n" + "\t\t, &info\n" + "\t\t, (GTypeFlags)%s\n" + "\t\t);\n", + funcbase, pmacrotype, typebase, + c->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); + + if (c->interfaces) { + out_printf(out, "\t___add_interfaces" + "(type_module, %s_type_id);\n", + funcbase); + } + + out_printf(out, "}\n\n" + "#endif\n\n"); } static void -add_bonobo_object_get_type (void) +add_bonobo_object_get_type(void) { - /* char *chunk_size = ((Class*)class)->chunk_size; */ - /* _vicious_ spanks seth with a rusty nail - out_printf(out, - "\n#warning \"Bonobo isn't fully ported to glib 2.0 and " - "gob2 doesn't officially support it yet. It'd be safer " - "and a lot more fun to blow goats.\"\n"); - */ + Class *c = (Class *)class; - out_printf (out, - "GType\n" - "%s_get_type (void)\n" /* 1 */ - "{\n" - "\tstatic GType type = 0;\n\n" - "\tif ___GOB_UNLIKELY(type == 0) {\n" - "\t\tstatic const GTypeInfo info = {\n" - "\t\t\tsizeof (%sClass),\n" /* 2 */ - "\t\t\t(GBaseInitFunc) NULL,\n" - "\t\t\t(GBaseFinalizeFunc) NULL,\n" - "\t\t\t(GClassInitFunc) %s_class_init,\n" /* 3 */ - "\t\t\tNULL, /* class_finalize */\n" - "\t\t\tNULL, /* class_data */\n" - "\t\t\tsizeof (%s),\n" /* 4 */ - "\t\t\t0, /* n_preallocs */\n" - "\t\t\t(GInstanceInitFunc) %s_init,\n" /* 5 */ - "\t\t\tNULL\n" - "\t\t};\n\n", - funcbase /* 1 */, - typebase /* 2 */, - funcbase /* 3 */, - typebase /* 4 */, - funcbase /* 5 */); - - add_interface_infos (); + define_add_interfaces(c); - out_printf (out, - "\t\ttype = bonobo_type_unique (\n" - "\t\t\tBONOBO_OBJECT_TYPE,\n" - "\t\t\tPOA_%s__init, NULL,\n" /* 1 */ - "\t\t\tG_STRUCT_OFFSET (%sClass, _epv),\n" /* 2 */ - "\t\t\t&info, \"%s\");\n", /* 3 */ - ((Class*)class)->bonobo_object_class /* 1 */, - typebase /* 2 */, - typebase /* 3 */); - - add_interfaces (); - - /*if(chunk_size) { - out_printf(out, - "#if %s > 0\n" - "\t\tgtk_type_set_chunk_alloc(type, %s);\n" - "#endif\n", - chunk_size, chunk_size); - }*/ - out_printf(out, - "\t}\n\n" - "\treturn type;\n" - "}\n\n"); + out_printf (out, "GType %s_get_type(void)\n" + "{\n" + "\tstatic GType type = 0;\n", + funcbase); + + add_type_info(); + + out_printf (out, "\tif ___GOB_UNLIKELY(type == 0) {\n" + "\t\ttype = bonobo_type_unique\n" + "\t\t\t( BONOBO_OBJECT_TYPE\n" + "\t\t\t, POA_%s__init, NULL\n" + "\t\t\t, G_STRUCT_OFFSET (%sClass, _epv)\n" + "\t\t\t, &info\n" + "\t\t\t, \"%s\"\n" + "\t\t\t);\n", + c->bonobo_object_class, typebase, typebase); + + if (((Class *)class)->interfaces) + out_printf(out, "\t\t___add_interfaces(type);\n"); + + out_printf(out, "\t}\n\n" + "\treturn type;\n" + "}\n\n"); } static void @@ -2524,6 +2608,51 @@ make_bonobo_object_epv (Class *c, const char *classname) out_addline_outfile(out); } +static void add_class_private(Class *c, Method *m) +{ + const char *dynamic = c->dynamic ? "_DYNAMIC" : ""; + + if (!privates) + return; + + out_printf(out, "\n#if !defined(G_DEFINE%s_TYPE_EXTENDED)" + " || !defined(G_ADD_PRIVATE%s)\n" + "\tg_type_class_add_private(%s, sizeof(%sPrivate));\n" + "#endif\n", + dynamic, dynamic, + ((FuncArg *)m->args->data)->name, typebase); +} + +static void get_instance_private(Class *c, Method *m) +{ + const char *self = ((FuncArg *)m->args->data)->name; + const char *dynamic = c->dynamic ? "_DYNAMIC" : ""; + + if (!privates) { + if (always_private_struct) { + out_printf(out, "\t%s->_priv = NULL;\n", self); + } + + return; + } + + out_printf(out, "\t%s->_priv = (%sPrivate *)\n" + "#if defined(G_DEFINE%s_TYPE_EXTENDED)" + " && defined(G_ADD_PRIVATE%s)\n" + "\t\t%s_get_instance_private(%s);\n" + "#else\n" + "\t\tG_TYPE_INSTANCE_GET_PRIVATE\n" + "\t\t\t( %s\n" + "\t\t\t, %s\n" + "\t\t\t, %sPrivate\n" + "\t\t\t);\n" + "#endif\n", + self, typebase, + dynamic, dynamic, + funcbase, self, + self, macrotype, typebase); +} + static void add_inits(Class *c) { @@ -2552,17 +2681,9 @@ add_inits(Class *c) out_printf(out, "#define __GOB_FUNCTION__ \"%s::init\"\n", c->otype); - if (privates > 0) { - out_printf(out, "\t%s->_priv = " - "G_TYPE_INSTANCE_GET_PRIVATE(%s,%s,%sPrivate);\n", - ((FuncArg *)m->args->data)->name, - ((FuncArg *)m->args->data)->name, - macrotype, - typebase); - } else if(always_private_struct) { - out_printf(out, "\t%s->_priv = NULL;\n", - ((FuncArg *)m->args->data)->name); - } + + get_instance_private(c, m); + if(initializers > 0) { GList *li; for(li = ((Class *)class)->nodes; @@ -2623,11 +2744,7 @@ add_inits(Class *c) ((FuncArg *)m->args->data)->name, did_base_obj); - if (privates > 0) - out_printf (out, - "\n\tg_type_class_add_private(%s,sizeof(%sPrivate));\n", - ((FuncArg *)m->args->data)->name, - typebase); + add_class_private(c, m); if (initializers > 0) { GList *li; @@ -3414,13 +3531,13 @@ open_files(void) if (file_sep != 0) sep[0] = file_sep; outfilephbase = g_strconcat (fullfilebase, sep, "private.h", NULL); - outfileph = g_strconcat (outfilephbase, no_touch ? "#gob#" : "", NULL); + outfileph = g_strconcat (outfilephbase, no_touch_headers ? "#gob#" : "", NULL); } else { outfilephbase = NULL; outfileph = NULL; } - + if ( ! no_write) { out = fopen (outfile, "w"); if (out == NULL) { @@ -3829,7 +3946,7 @@ print_class_block(Class *c) " * Public methods\n" " */\n"); - if (!overrode_get_type) { + if (!overrode_get_type && !no_gnu) { /* * For ordinary "static" types it should be safe to mark the * get_type implementation as const, since the get_type @@ -4237,7 +4354,8 @@ print_enum (EnumDef *enode) g_free (str); out_printf (outh, "%s_get_type()\n", funcprefix); - out_printf (outh, "GType %s_get_type (void) G_GNUC_CONST;\n\n", funcprefix); + out_printf (outh, "GType %s_get_type (void)%s;\n\n", + funcprefix, no_gnu ? "": " G_GNUC_CONST"); out_printf (out, "GType\n%s_get_type (void)\n" @@ -4302,7 +4420,8 @@ print_flags (Flags *fnode) g_free (str); out_printf (outh, "%s_get_type()\n", funcprefix); - out_printf (outh, "GType %s_get_type (void) G_GNUC_CONST;\n\n", funcprefix); + out_printf (outh, "GType %s_get_type (void)%s;\n\n", + funcprefix, no_gnu ? "" : " G_GNUC_CONST"); out_printf (out, "GType\n%s_get_type (void)\n" @@ -4365,7 +4484,8 @@ print_error (Error *enode) g_free (str); out_printf (outh, "%s_get_type ()\n", funcprefix); - out_printf (outh, "GType %s_get_type (void) G_GNUC_CONST;\n\n", funcprefix); + out_printf (outh, "GType %s_get_type (void)%s;\n\n", + funcprefix, no_gnu ? "" : " G_GNUC_CONST"); out_printf (out, "GType\n%s_get_type (void)\n" @@ -4442,237 +4562,226 @@ generate_outfiles(void) print_header_postfixes(); } +static void print_version(void) +{ + printf("%s (%s) %s\n", PACKAGE_NAME, PACKAGE_TARNAME, PACKAGE_VERSION); + putchar('\n'); + puts("Copyright (C) 2013 George (Jiri) Lebl et al."); + puts("Copyright (C) 2020 Nick Bowler"); + puts("License GPLv2+: GNU GPL version 2 or later ."); + puts("This is free software: you are free to change and redistribute it."); + puts("There is NO WARRANTY, to the extent permitted by law."); + +} + +static void print_usage(FILE *f) +{ + fprintf(f, "Usage: %s [options] file.gob\n", g_get_prgname()); + if (f == stderr) { + fprintf(f, "Try '%s --help' for more information.\n", + g_get_prgname()); + } +} + static void print_help(void) { - fprintf(stderr, "Gob version %s\n\n", VERSION); - fprintf(stderr, "gob [options] file.gob\n\n"); - fprintf(stderr, "Options:\n" - "\t--help,-h,-? Display this help\n" - "\t--version Display version\n" - "\t--exit-on-warn,-w Exit with an error on warnings\n" - "\t--no-exit-on-warn Don't exit on warnings [default]\n" - "\t--for-cpp Create C++ files\n" - "\t--no-extern-c Never print extern \"C\" into the " - "header\n" - "\t--no-gnu Never use GNU extentions\n" - "\t--no-touch Don't touch output files unless they " - "really\n" - "\t changed (implies --no-touch-headers)\n" - "\t--no-touch-headers Don't touch headers unless they " - "really changed\n" - "\t--always-private-header Always create a private header " - "file,\n" - "\t even if it would be empty\n" - "\t--ondemand-private-header Create private header only when " - "needed\n" - "\t [default]\n" - "\t--no-private-header Don't create a private header, " - "put private\n" - "\t structure and protected " - "prototypes inside c file\n" - "\t--always-private-struct Always create a private pointer " - "in\n" - "\t the object structure\n" - "\t--m4 Preprocess source with m4. " - "Following args will\n" - "\t be passed to m4\n" - "\t--m4-dir Print directory that will be " - "searched for m4\n" - "\t files\n" - "\t--no-write,-n Don't write output files, just " - "check syntax\n" - "\t--no-lines Don't print '#line' to output\n" - "\t--no-self-alias Don't create self type and macro " - "aliases\n" - "\t--no-kill-underscores Ignored for compatibility\n" - "\t-o,--output-dir The directory where output " - "should be placed\n" - "\t--file-sep[=c] replace default \'-\' file " - "name separator\n\n" - "\t--gtk3 Use gtk+3\n" - ); - fprintf(stderr, "End world hunger, donate to the World Food Programme, http://www.wfp.org\n"); + print_usage(stdout); + + puts( +"This is \"GObject Builder\": a simple preprocessor to help with\n" +"implementing GObject types in C.\n" + ); + + puts("Options:"); + puts(" --help,-h,-? Display this help\n" + " --version Display version\n" + " --exit-on-warn,-w Exit with an error on warnings\n" + " --no-exit-on-warn Don't exit on warnings [default]\n" + " --for-cpp Create C++ files\n" + " --no-extern-c Never print extern \"C\" into the " + "header\n" + " --no-gnu Never use GNU extentions\n" + " --no-touch Don't touch output files unless they " + "really\n" + " changed (implies --no-touch-headers)\n" + " --no-touch-headers Don't touch headers unless they " + "really changed\n" + " --always-private-header Always create a private header " + "file,\n" + " even if it would be empty\n" + " --ondemand-private-header Create private header only when " + "needed\n" + " [default]\n" + " --no-private-header Don't create a private header, " + "put private\n" + " structure and protected " + "prototypes inside c file\n" + " --always-private-struct Always create a private pointer " + "in\n" + " the object structure\n" + " --m4 Preprocess source with m4. " + "Following args will\n" + " be passed to m4\n" + " --m4-dir Print directory that will be " + "searched for m4\n" + " files\n" + " --no-write,-n Don't write output files, just " + "check syntax\n" + " --no-lines Don't print '#line' to output\n" + " --no-self-alias Don't create self type and macro " + "aliases\n" + " --no-kill-underscores Ignored for compatibility\n" + " -o,--output-dir The directory where output " + "should be placed\n" + " --file-sep[=c] replace default \'-\' file " + "name separator\n\n" + " --gtk3 Use gtk+3\n" + ); + + puts("End world hunger, donate to the World Food Programme: https://www.wfp.org/"); } -static void -parse_options(int argc, char *argv[]) +/* + * Called after getopt_long receives an --m4 argument. Immediately stop + * processing options. Then all non-option arguments seen so far together + * with all remaining arguments are appended to M4_COMMANDLINE. If m4_clean + * is false, then M4_FLAGS is inserted before the first non-option argument, + * if any. + * + * The resulting string is returned, which should be freed by the caller. + */ +static char *parse_m4_options(int argc, char **argv, gboolean m4_clean) { - int i; - int got_file = FALSE; - int no_opts = FALSE; - int m4_opts = FALSE; /* if we are just passing on args to m4 */ - - filename = NULL; - - for(i = 1 ; i < argc; i++) { - if(m4_opts) { - char *new_commandline; - g_assert(m4_commandline!=NULL); - - /* check whether this one looks like the filename */ - if((!strcmp(argv[i],"-") || argv[i][0] != '-') - && !got_file) { - const gchar *m4_flags=use_m4_clean?"":M4_FLAGS; - filename = argv[i]; - got_file = TRUE; - - /* insert flags before the filename */ - new_commandline=g_strconcat(m4_commandline, - " ", - m4_flags, - " ", - argv[i], - NULL); - } + char **nonopt = NULL, *save_argv0, *ret; + int opt; - /* just an ordinary option */ - else - new_commandline=g_strconcat(m4_commandline, - " ", - argv[i], - NULL); - - /* free old commandline */ - g_free(m4_commandline); - m4_commandline=new_commandline; - - } else if(no_opts || - argv[i][0] != '-') { - /*must be a file*/ - if(got_file) { - fprintf(stderr, "Specify only one file!\n"); - print_help(); - exit(1); - } - filename = argv[i]; - got_file = TRUE; - } else if(strcmp(argv[i], "--help")==0) { - print_help(); - exit(0); - } else if(strcmp(argv[i], "--version")==0) { - fprintf(stderr, "Gob version %s\n", VERSION); - exit(0); - } else if(strcmp(argv[i], "--exit-on-warn")==0) { - exit_on_warn = TRUE; - } else if(strcmp(argv[i], "--no-exit-on-warn")==0) { - exit_on_warn = FALSE; - } else if(strcmp(argv[i], "--for-cpp")==0) { - for_cpp = TRUE; - } else if(strcmp(argv[i], "--no-touch")==0) { - no_touch = TRUE; - no_touch_headers = TRUE; - } else if(strcmp(argv[i], "--no-touch-headers")==0) { - no_touch_headers = TRUE; - } else if(strcmp(argv[i], "--ondemand-private-header")==0) { - private_header = PRIVATE_HEADER_ONDEMAND; - } else if(strcmp(argv[i], "--always-private-header")==0) { - private_header = PRIVATE_HEADER_ALWAYS; - } else if(strcmp(argv[i], "--no-private-header")==0) { - private_header = PRIVATE_HEADER_NEVER; - } else if(strcmp(argv[i], "--no-gnu")==0) { - no_gnu = TRUE; - } else if(strcmp(argv[i], "--no-extern-c")==0) { - no_extern_c = TRUE; - } else if(strcmp(argv[i], "--no-write")==0) { + /* First, conclude getopt run and reset with remaining args */ + getopt_long(optind, argv, sopts, lopts, NULL); + argv += optind-1; + argc -= optind-1; + optind = 0; + + save_argv0 = argv[0]; + argv[0] = M4_COMMANDLINE; + + if (m4_clean) { + ret = g_strjoinv(" ", argv); + argv[0] = save_argv0; + return ret; + } + + /* Locate first non-option argument, if any. */ + while ((opt = getopt_long(argc, argv, "-", NULL, NULL)) != -1) { + if (opt == 1) { + nonopt = &argv[optind-2]; + break; + } + } + + /* If there is a non-option but the above didn't see it, must be "--" */ + if (!nonopt && argv[optind]) + nonopt = &argv[optind-2]; + + if (nonopt) { + /* Found non-option, insert M4_FLAGS just before it. */ + char *save_argv[3] = { nonopt[0], nonopt[1], nonopt[2] }; + + nonopt[1] = M4_FLAGS; + nonopt[2] = NULL; + nonopt[0] = g_strjoinv(" ", argv); + + nonopt[1] = save_argv[1]; + nonopt[2] = save_argv[2]; + ret = g_strjoinv(" ", nonopt); + + g_free(nonopt[0]); + nonopt[0] = save_argv[0]; + } else { + /* Only options, not inserting M4_FLAGS. */ + ret = g_strjoinv(" ", argv); + } + + argv[0] = save_argv0; + return ret; +} + +static int parse_options(int argc, char **argv) +{ + gboolean show_m4_dir = FALSE, m4_clean = FALSE; + char *raw_file_sep = "-"; + int opt; + + opterr = 0; + while ((opt = getopt_long(argc, argv, sopts, lopts, NULL)) != -1) { + switch (opt) { + case 'n': no_write = TRUE; - } else if(strcmp(argv[i], "--no-lines")==0) { - no_lines = TRUE; - } else if(strcmp(argv[i], "--no-self-alias")==0) { - no_self_alias = TRUE; - } else if(strcmp(argv[i], "--no-kill-underscores")==0) { - /* no op */; - } else if(strcmp(argv[i], "--always-private-struct")==0) { - always_private_struct = TRUE; - } else if(strcmp(argv[i], "--m4-dir")==0) { - printf("%s\n",M4_INCLUDE_DIR); - exit(0); - } else if(strcmp(argv[i], "--m4")==0) { - use_m4 = TRUE; - use_m4_clean=FALSE; - m4_opts = TRUE; - m4_commandline=g_strdup(M4_COMMANDLINE); - } else if(strcmp(argv[i], "--m4-clean")==0) { + break; + case 'o': + output_dir = optarg; + break; + case 'w': + exit_on_warn = TRUE; + break; + case LOPT_FILE_SEP: + raw_file_sep = optarg ? optarg : ""; + break; + case LOPT_M4_DIR: + show_m4_dir = TRUE; + break; + case LOPT_NO_TOUCH: + no_touch = no_touch_headers = TRUE; + break; + case LOPT_M4_CLEAN: + m4_clean = TRUE; + case LOPT_M4: use_m4 = TRUE; - use_m4_clean=TRUE; - m4_opts = TRUE; - m4_commandline=g_strdup(M4_COMMANDLINE); - } else if (strcmp (argv[i], "-o") == 0 || - strcmp (argv[i], "--output-dir") == 0) { - if (i+1 < argc) { - output_dir = g_strdup (argv[i+1]); - i++; - } else { - output_dir = NULL; - } - } else if (strncmp (argv[i], "-o=", strlen ("-o=")) == 0 || - strncmp (argv[i], - "--output-dir=", - strlen ("--output-dir=")) == 0) { - char *p = strchr (argv[i], '='); - g_assert (p != NULL); - output_dir = g_strdup (p+1); - } else if (strncmp (argv[i], "--file-sep=", - strlen ("--file-sep=")) == 0) { - char *p = strchr (argv[i], '='); - g_assert (p != NULL); - file_sep = *(p+1); - } else if (strncmp (argv[i], "--file-sep", - strlen ("--file-sep")) == 0) { - if (i+1 < argc) { - file_sep = (argv[i+1])[0]; - i++; - } else { - file_sep = 0; - } - } else if(strcmp(argv[i], "--gtk3")==0) { - gtk3_ok = TRUE; - } else if(strcmp(argv[i], "--")==0) { - /*further arguments are files*/ - no_opts = TRUE; - } else if(strncmp(argv[i], "--", 2)==0) { - /*unknown long option*/ - fprintf(stderr, "Unknown option '%s'!\n", argv[i]); - print_help(); - exit(1); - } else { - /*by now we know we have a string starting with - - which is a short option string*/ - char *p; - for(p = argv[i] + 1; *p; p++) { - switch(*p) { - case 'w': - exit_on_warn=TRUE; - break; - case 'n': - no_write = TRUE; - break; - case 'h': - case '?': - print_help(); - exit(0); - default: - fprintf(stderr, - "Unknown option '%c'!\n", *p); - print_help(); - exit(1); - } + m4_commandline = parse_m4_options(argc, argv, m4_clean); + goto out; + case LOPT_VERSION: + print_version(); + return 1; + default: + if (optopt == '?') { + case 'h': + print_help(); + return 1; } + + /* Rewind getopt to get internal error messages. */ + optind = 0, opterr = 1; + while (getopt_long(argc, argv, sopts, lopts, NULL) + != opt); + return -1; + case 0: /* no-op or option set by flag */; } } -#if 0 - /* if we are using m4, and got no filename, append m4 flags now */ - if(!got_file && use_m4 && !use_m4_clean) { - char *new_commandline; - new_commandline=g_strconcat(m4_commandline, - " ", - M4_FLAGS, - NULL); - g_free(m4_commandline); - m4_commandline=new_commandline; + filename = argv[optind]; + if (argc > optind+1) { + char *s = g_strjoinv(" ", argv+optind+1); + fprintf(stderr, "%s: Warning: excess arguments ignored: %s\n", + g_get_prgname(), s); + g_free(s); + if (exit_on_warn) + return -1; + } +out: + file_sep = raw_file_sep[0]; + if (raw_file_sep[0] && raw_file_sep[1]) { + fprintf(stderr, "%s: Warning: --file-sep characters beyond the first are ignored\n", + g_get_prgname()); + if (exit_on_warn) + return -1; + } + + if (show_m4_dir) { + printf("%s\n", M4_INCLUDE_DIR); + return 1; } -#endif + + return 0; } static void @@ -4753,7 +4862,17 @@ compare_and_move (const char *old_filename) int main(int argc, char *argv[]) { - parse_options(argc, argv); + int rc; + + g_set_prgname(argc > 0 ? argv[0] : "gob2"); + + rc = parse_options(argc, argv); + if (rc < 0) { + print_usage(stderr); + return EXIT_FAILURE; + } else if (rc > 0) { + return EXIT_SUCCESS; + } if(use_m4) { yyin = popen(m4_commandline, "r"); @@ -4857,15 +4976,16 @@ main(int argc, char *argv[]) if (outph) fclose (outph); - if (! no_write) { + if (!no_write) { if (no_touch) { - compare_and_move (outfilebase); + compare_and_move(outfilebase); + } + if (no_touch_headers) { + compare_and_move(outfilehbase); if (outfilephbase) - compare_and_move (outfilephbase); + compare_and_move(outfilephbase); } - if (no_touch_headers) - compare_and_move (outfilehbase); } - + return 0; }