X-Git-Url: http://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/573256d3bc21896c54c511d5c0e6927f09b4209e..4cc7be2f1b2212541321468f58762879985a5411:/src/main.c diff --git a/src/main.c b/src/main.c index dfd87d0..1fddc26 100644 --- a/src/main.c +++ b/src/main.c @@ -25,6 +25,7 @@ #include #include #include +#include #include #include #include @@ -54,6 +55,9 @@ extern GHashTable *gtk_doc_hash; char *filebase; char *fullfilebase; +static char *outfilebase; +static char *outfilehbase; +static char *outfilephbase; static char *funcbase; static char *pfuncbase; static char *macrobase; @@ -66,6 +70,8 @@ static char *ptypebase; char *output_dir = NULL; +static char file_sep = '-'; + static int signals = 0; /* number of signals */ static int set_properties = 0; /* number of named (set) properties */ static int get_properties = 0; /* number of named (get) properties */ @@ -75,6 +81,7 @@ static int protecteds = 0; /* number of protected methods */ static int unreftors = 0; /* number of variable unreffing destructors */ static int destructors = 0; /* number of variable non-unreffing destructors */ static int initializers = 0; /* number of variable initializers */ +static int glade_widgets = 0; /* number of glade widgets */ static gboolean overrode_get_type = FALSE; /* provided your won _get_type */ static gboolean made_aliases = FALSE; /* if we made any shorthand aliases @@ -96,6 +103,7 @@ FILE *outh = NULL; FILE *outph = NULL; FILE *devnull = NULL; +gboolean no_touch = FALSE; gboolean no_touch_headers = FALSE; gboolean for_cpp = FALSE; gboolean no_gnu = FALSE; @@ -108,6 +116,7 @@ gboolean no_write = FALSE; gboolean no_lines = FALSE; gboolean no_self_alias = FALSE; gboolean always_private_struct = FALSE; +gint prealloc = 0; gboolean use_m4 = FALSE; /* preprocess sources with m4 */ gboolean use_m4_clean = FALSE; /* preprocess sources with m4, no m4 flags */ @@ -122,7 +131,7 @@ int method_unique_id = 1; static void make_bases (void) { - filebase = replace_sep (((Class *)class)->otype, '-'); + filebase = replace_sep (((Class *)class)->otype, file_sep); gob_strdown (filebase); if (output_dir != NULL && @@ -733,6 +742,8 @@ print_signal_marsal_args (const Method *m) if (strcmp (li->data, "UNICHAR") == 0) /* hack because glib is braindamaged */ get_func = g_strdup ("g_value_get_uint"); + else if (strncmp(li->data, "BOXED_", 6) == 0) + get_func = g_strdup ("g_value_get_boxed"); else get_func = g_strdup_printf ("g_value_get_%s", (char *)li->data); @@ -1068,17 +1079,17 @@ add_get_type(void) "\t\t\t(GClassFinalizeFunc) NULL,\n" "\t\t\tNULL /* class_data */,\n" "\t\t\tsizeof (%s),\n" - "\t\t\t0 /* n_preallocs */,\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, funcbase); + funcbase, typebase, funcbase, typebase, prealloc, funcbase); add_interface_infos (); out_printf (out, - "\t\ttype = g_type_register_static (%s, \"%s\", &info, (GTypeFlags)0);\n", - pmacrotype, typebase); + "\t\ttype = g_type_register_static (%s, \"%s\", &info, (GTypeFlags)%s);\n", + pmacrotype, typebase, ((Class *)class)->abstract ? "G_TYPE_FLAG_ABSTRACT" : "0"); add_interfaces (); @@ -1304,9 +1315,16 @@ add_signals(Class *c) if( ! is_none) { GList *l; - for(l = m->gtktypes->next; l != NULL; l = l->next) - out_printf(out, ",\n\t\t\tG_TYPE_%s", - (char *)l->data); + char *t; + for(l = m->gtktypes->next; l != NULL; l = l->next) { + char *str = l->data; + if (strncmp (str, "BOXED_", 6) == 0) + t = g_strdup (&(str[6])); + else + t = g_strconcat ("G_TYPE_", str, NULL); + out_printf (out, ",\n\t\t\t%s", t); + g_free (t); + } } out_printf(out, ");\n"); @@ -1426,8 +1444,8 @@ make_argument (Argument *a) char *argflags[] = { "CONSTRUCT", "CONSTRUCT_ONLY", - "CHILD_ARG", - "MASK", + "LAX_VALIDATION", + "PRIVATE", NULL }; @@ -1457,13 +1475,7 @@ make_argument (Argument *a) if(strcmp(argflags[i], flag)==0) break; } - /* if we haven't found it in our list */ - if( ! argflags[i]) { - error_printf(GOB_WARN, a->line_no, - "Unknown flag '%s' used, " - "perhaps it was misspelled", flag); - } - g_string_sprintfa(flags, " | G_PARAM_%s", flag); + g_string_sprintfa(flags, " | %s%s", argflags[i] ? "G_PARAM_" : "", flag); } g_string_append (flags, ")"); @@ -1584,367 +1596,391 @@ make_argument (Argument *a) static void make_property (Property *p) { - GString *flags; - GList *l; char *s; - char *argflags[] = { - "CONSTRUCT", - "CONSTRUCT_ONLY", - "CHILD_ARG", - "MASK", - NULL - }; - - flags = g_string_new ("(GParamFlags)("); - - if (p->get != NULL && p->set != NULL) - g_string_append (flags, "G_PARAM_READABLE | G_PARAM_WRITABLE"); - else if (p->get != NULL) - g_string_append (flags, "G_PARAM_READABLE"); - else - g_string_append (flags, "G_PARAM_WRITABLE"); if (p->get == NULL && p->set == NULL) { error_print (GOB_ERROR, p->line_no, "Property has no getter nor setter"); } - for (l = p->flags; l != NULL; l = l->next) { - char *flag = l->data; - int i; - if(strcmp (flag, "READABLE") == 0 || - strcmp (flag, "WRITABLE") == 0) { - error_print(GOB_WARN, p->line_no, - "READABLE and " - "WRITABLE argument flags are " - "set automatically"); - continue; - } - for(i = 0; argflags[i]; i++) { - if(strcmp(argflags[i], flag)==0) - break; + if (p->override) { + if (p->flags != NULL) + error_print (GOB_WARN, p->line_no, + "Overriden property, flags ignored"); + if (p->nick != NULL) + error_print (GOB_WARN, p->line_no, + "Overriden property, nick ignored"); + if (p->blurb != NULL) + error_print (GOB_WARN, p->line_no, + "Overriden property, blurb ignored"); + if (p->minimum != NULL) + error_print (GOB_WARN, p->line_no, + "Overriden property, minimum ignored"); + if (p->maximum != NULL) + error_print (GOB_WARN, p->line_no, + "Overriden property, maximum ignored"); + if (p->default_value != NULL) + error_print (GOB_WARN, p->line_no, + "Overriden property, default_value ignored"); + + s = g_strdup (p->name); + gob_strup (s); + out_printf (out, "\tg_object_class_override_property (g_object_class,\n" + "\t\tPROP_%s,\n" + "\t\t\"%s\");\n", s, p->name); + g_free (s); + } else { + GString *flags; + GList *l; + char *argflags[] = { + "CONSTRUCT", + "CONSTRUCT_ONLY", + "LAX_VALIDATION", + "PRIVATE", + NULL + }; + + flags = g_string_new ("(GParamFlags)("); + + if (p->get != NULL && p->set != NULL) + g_string_append (flags, "G_PARAM_READABLE | G_PARAM_WRITABLE"); + else if (p->get != NULL) + g_string_append (flags, "G_PARAM_READABLE"); + else + g_string_append (flags, "G_PARAM_WRITABLE"); + + + for (l = p->flags; l != NULL; l = l->next) { + char *flag = l->data; + int i; + if(strcmp (flag, "READABLE") == 0 || + strcmp (flag, "WRITABLE") == 0) { + error_print(GOB_WARN, p->line_no, + "READABLE and " + "WRITABLE argument flags are " + "set automatically"); + continue; + } + for(i = 0; argflags[i]; i++) { + if(strcmp(argflags[i], flag)==0) + break; + } + g_string_sprintfa(flags, " | %s%s", argflags[i] ? "G_PARAM_" : "", flag); } - /* if we haven't found it in our list */ - if( ! argflags[i]) { - error_printf(GOB_WARN, p->line_no, - "Unknown flag '%s' used, " - "perhaps it was misspelled", flag); + + g_string_append (flags, ")"); + + if (strcmp (p->gtktype, "CHAR") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_char\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "-128"), + value_for_print (p->maximum, "127"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "UCHAR") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_uchar\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "0"), + value_for_print (p->maximum, "0xFF"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "BOOLEAN") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_boolean\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->default_value, "FALSE"), + flags->str); + } else if (strcmp (p->gtktype, "INT") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_int\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "G_MININT"), + value_for_print (p->maximum, "G_MAXINT"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "UINT") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_uint\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "0"), + value_for_print (p->maximum, "G_MAXUINT"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "LONG") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_long\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "G_MINLONG"), + value_for_print (p->maximum, "G_MAXLONG"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "ULONG") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_ulong\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "0"), + value_for_print (p->maximum, "G_MAXULONG"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "INT64") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_int64\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "G_MININT64"), + value_for_print (p->maximum, "G_MAXINT64"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "UINT64") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_uint64\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "0"), + value_for_print (p->maximum, "G_MAXUINT64"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "UNICHAR") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_unichar\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->default_value, "0"), + flags->str); + } else if (strcmp (p->gtktype, "ENUM") == 0) { + char *type = make_me_type (p->extra_gtktype, + "G_TYPE_ENUM"); + out_printf (out, "\tparam_spec = g_param_spec_enum\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* enum_type */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + type, + value_for_print (p->default_value, "0"), + flags->str); + g_free (type); + } else if (strcmp (p->gtktype, "FLAGS") == 0) { + char *type = make_me_type (p->extra_gtktype, + "G_TYPE_FLAGS"); + out_printf (out, "\tparam_spec = g_param_spec_flags\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* flags_type */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + type, + value_for_print (p->default_value, "0"), + flags->str); + g_free (type); + } else if (strcmp (p->gtktype, "FLOAT") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_float\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "G_MINFLOAT"), + value_for_print (p->maximum, "G_MAXFLOAT"), + value_for_print (p->default_value, "0.0"), + flags->str); + } else if (strcmp (p->gtktype, "DOUBLE") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_double\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* minimum */,\n" + "\t\t %s /* maximum */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->minimum, "G_MINDOUBLE"), + value_for_print (p->maximum, "G_MAXDOUBLE"), + value_for_print (p->default_value, "0.0"), + flags->str); + } else if (strcmp (p->gtktype, "STRING") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_string\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* default_value */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + value_for_print (p->default_value, "NULL"), + flags->str); + } else if (strcmp (p->gtktype, "PARAM") == 0) { + char *type = make_me_type (p->extra_gtktype, + "G_TYPE_PARAM"); + out_printf (out, "\tparam_spec = g_param_spec_param\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* param_type */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + type, + flags->str); + g_free (type); + } else if (strcmp (p->gtktype, "BOXED") == 0) { + char *type = make_me_type (p->extra_gtktype, + "G_TYPE_BOXED"); + out_printf (out, "\tparam_spec = g_param_spec_boxed\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* boxed_type */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + type, + flags->str); + g_free (type); + } else if (strcmp (p->gtktype, "POINTER") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_pointer\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + flags->str); + /* FIXME: VALUE_ARRAY */ + } else if (strcmp (p->gtktype, "CLOSURE") == 0) { + out_printf (out, "\tparam_spec = g_param_spec_pointer\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + flags->str); + } else if (strcmp (p->gtktype, "OBJECT") == 0) { + char *type = make_me_type (p->extra_gtktype, + "G_TYPE_BOXED"); + out_printf (out, "\tparam_spec = g_param_spec_object\n" + "\t\t(\"%s\" /* name */,\n" + "\t\t %s /* nick */,\n" + "\t\t %s /* blurb */,\n" + "\t\t %s /* object_type */,\n" + "\t\t %s);\n", + p->name, + value_for_print (p->nick, "NULL"), + value_for_print (p->blurb, "NULL"), + type, + flags->str); + g_free (type); + } else { + error_printf (GOB_ERROR, p->line_no, + "%s type is not supported by properties", + p->gtktype); } - g_string_sprintfa(flags, " | G_PARAM_%s", flag); - } - g_string_append (flags, ")"); + s = g_strdup (p->name); + gob_strup (s); + out_printf (out, "\tg_object_class_install_property (g_object_class,\n" + "\t\tPROP_%s,\n" + "\t\tparam_spec);\n", s); + g_free (s); - if (strcmp (p->gtktype, "CHAR") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_char\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "-128"), - value_for_print (p->maximum, "127"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "UCHAR") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_uchar\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "0"), - value_for_print (p->maximum, "0xFF"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "BOOLEAN") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_boolean\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->default_value, "FALSE"), - flags->str); - } else if (strcmp (p->gtktype, "INT") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_int\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "G_MININT"), - value_for_print (p->maximum, "G_MAXINT"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "UINT") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_uint\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "0"), - value_for_print (p->maximum, "G_MAXUINT"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "LONG") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_long\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "G_MINLONG"), - value_for_print (p->maximum, "G_MAXLONG"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "ULONG") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_ulong\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "0"), - value_for_print (p->maximum, "G_MAXULONG"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "INT64") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_int64\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "G_MININT64"), - value_for_print (p->maximum, "G_MAXINT64"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "UINT64") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_uint64\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "0"), - value_for_print (p->maximum, "G_MAXUINT64"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "UNICHAR") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_unichar\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->default_value, "0"), - flags->str); - } else if (strcmp (p->gtktype, "ENUM") == 0) { - char *type = make_me_type (p->extra_gtktype, - "G_TYPE_ENUM"); - out_printf (out, "\tparam_spec = g_param_spec_enum\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* enum_type */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - type, - value_for_print (p->default_value, "0"), - flags->str); - g_free (type); - } else if (strcmp (p->gtktype, "FLAGS") == 0) { - char *type = make_me_type (p->extra_gtktype, - "G_TYPE_FLAGS"); - out_printf (out, "\tparam_spec = g_param_spec_flags\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* flags_type */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - type, - value_for_print (p->default_value, "0"), - flags->str); - g_free (type); - } else if (strcmp (p->gtktype, "FLOAT") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_float\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "G_MINFLOAT"), - value_for_print (p->maximum, "G_MAXFLOAT"), - value_for_print (p->default_value, "0.0"), - flags->str); - } else if (strcmp (p->gtktype, "DOUBLE") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_double\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* minimum */,\n" - "\t\t %s /* maximum */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->minimum, "G_MINDOUBLE"), - value_for_print (p->maximum, "G_MAXDOUBLE"), - value_for_print (p->default_value, "0.0"), - flags->str); - } else if (strcmp (p->gtktype, "STRING") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_string\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* default_value */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - value_for_print (p->default_value, "NULL"), - flags->str); - } else if (strcmp (p->gtktype, "PARAM") == 0) { - char *type = make_me_type (p->extra_gtktype, - "G_TYPE_PARAM"); - out_printf (out, "\tparam_spec = g_param_spec_param\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* param_type */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - type, - flags->str); - g_free (type); - } else if (strcmp (p->gtktype, "BOXED") == 0) { - char *type = make_me_type (p->extra_gtktype, - "G_TYPE_BOXED"); - out_printf (out, "\tparam_spec = g_param_spec_boxed\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* boxed_type */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - type, - flags->str); - g_free (type); - } else if (strcmp (p->gtktype, "POINTER") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_pointer\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - flags->str); - /* FIXME: VALUE_ARRAY */ - } else if (strcmp (p->gtktype, "CLOSURE") == 0) { - out_printf (out, "\tparam_spec = g_param_spec_pointer\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - flags->str); - } else if (strcmp (p->gtktype, "OBJECT") == 0) { - char *type = make_me_type (p->extra_gtktype, - "G_TYPE_BOXED"); - out_printf (out, "\tparam_spec = g_param_spec_object\n" - "\t\t(\"%s\" /* name */,\n" - "\t\t %s /* nick */,\n" - "\t\t %s /* blurb */,\n" - "\t\t %s /* object_type */,\n" - "\t\t %s);\n", - p->name, - value_for_print (p->nick, "NULL"), - value_for_print (p->blurb, "NULL"), - type, - flags->str); - g_free (type); - } else { - error_printf (GOB_ERROR, p->line_no, - "%s type is not supported by properties", - p->gtktype); + g_string_free (flags, TRUE); } - - s = g_strdup (p->name); - gob_strup (s); - out_printf (out, "\tg_object_class_install_property (g_object_class,\n" - "\t\tPROP_%s,\n" - "\t\tparam_spec);\n", s); - g_free (s); - - g_string_free (flags, TRUE); } static void @@ -1955,8 +1991,15 @@ make_arguments(Class *c) out_printf(out, "\tg_object_class->get_property = ___object_get_property;\n"); if (set_properties > 0) out_printf(out, "\tg_object_class->set_property = ___object_set_property;\n"); - out_printf (out, " {\n" - "\tGParamSpec *param_spec;\n\n"); + out_printf (out, " {\n"); + for (li = c->nodes; li != NULL; li = li->next) { + Node *n = li->data; + if ((n->type == PROPERTY_NODE && ! ((Property *) n)->override) + || n->type == ARGUMENT_NODE) { + out_printf(out, "\tGParamSpec *param_spec;\n\n"); + break; + } + } for (li = c->nodes; li != NULL; li = li->next) { Node *n = li->data; @@ -1972,6 +2015,9 @@ static void print_initializer(Method *m, Variable *v) { char *root; + + if(v->glade_widget) + return; if(v->initializer == NULL) return; @@ -1985,8 +2031,13 @@ print_initializer(Method *m, Variable *v) if(v->initializer_line > 0) out_addline_infile(out, v->initializer_line); - out_printf(out, "\t%s->%s = %s;\n", + if (v->initializer_simple) + out_printf(out, "\t%s->%s = %s;\n", root, v->id, v->initializer); + else if (!strcmp(v->id, "_glade_xml")) + out_printf(out,v->initializer, ((FuncArg *)m->args->data)->name); + else + out_printf(out,v->initializer); if(v->initializer_line > 0) out_addline_outfile(out); @@ -1994,6 +2045,28 @@ print_initializer(Method *m, Variable *v) g_free(root); } +static void +print_glade_widget(Method *m, Variable *v) +{ + char *root; + char *cast; + + if(!v->glade_widget) + return; + + if(v->scope == PRIVATE_SCOPE) + root = g_strconcat(((FuncArg *)m->args->data)->name, + "->_priv", NULL); + else + root = g_strdup(((FuncArg *)m->args->data)->name); + + cast = get_type(v->vtype, FALSE); + out_printf(out, "\t%s->%s = (%s)glade_xml_get_widget(%s->_glade_xml, \"%s\");\n", + root, v->id, cast, root, v->id); + + g_free(root); +} + static void print_destructor (Variable *v) { @@ -2011,11 +2084,19 @@ print_destructor (Variable *v) if(v->destructor_line > 0) out_addline_infile(out, v->destructor_line); - out_printf(out, "\tif(%s->%s) { " - "((*(void (*)(void *))%s)) (%s->%s); " - "%s->%s = NULL; }\n", - root, v->id, v->destructor, root, v->id, - root, v->id); + if (for_cpp) { + out_printf(out, "\tif(%s->%s) { " + "(reinterpret_cast(%s)) ((gpointer)%s->%s); " + "%s->%s = NULL; }\n", + root, v->id, v->destructor, root, v->id, + root, v->id); + } else { + out_printf(out, "\tif(%s->%s) { " + "%s ((gpointer) %s->%s); " + "%s->%s = NULL; }\n", + root, v->id, v->destructor, root, v->id, + root, v->id); + } if(v->destructor_line > 0) out_addline_outfile(out); @@ -2102,11 +2183,15 @@ add_finalize (Class *c) const char *unused = ""; if ( ! no_gnu) unused = " G_GNUC_UNUSED"; - out_printf(out, "\t%s *self %s = %s (obj_self);\n", + out_printf(out, "\t%s *self%s = %s (obj_self);\n", typebase, unused, macrobase); } if (privates > 0) { - out_printf(out, "\tgpointer priv = self->_priv;\n"); + const char *unused = ""; + if ( ! no_gnu) + unused = " G_GNUC_UNUSED"; + out_printf(out, "\tgpointer priv%s = self->_priv;\n", + unused); } if(finalize_handler) { @@ -2137,10 +2222,6 @@ add_finalize (Class *c) } } - if (privates > 0) { - out_printf(out, "\tg_free (priv);\n"); - } - out_printf(out, "}\n" "#undef __GOB_FUNCTION__\n\n"); } @@ -2201,11 +2282,13 @@ add_inits(Class *c) out_printf(out, "{\n" "#define __GOB_FUNCTION__ \"%s::init\"\n", c->otype); - if(privates > 0) { + if (privates > 0) { out_printf(out, "\t%s->_priv = " - "g_new0 (%sPrivate, 1);\n", - ((FuncArg *)m->args->data)->name, - typebase); + "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); @@ -2223,6 +2306,19 @@ add_inits(Class *c) print_initializer(m, v); } } + if(glade_widgets > 0) { + GList *li; + for(li = ((Class *)class)->nodes; + li != NULL; + li = li->next) { + Node *n = li->data; + Variable *v = (Variable *)n; + if(n->type != VARIABLE_NODE || + v->scope == CLASS_SCOPE) + continue; + print_glade_widget(m, v); + } + } } else if(m->method == CLASS_INIT_METHOD) { gboolean did_base_obj = FALSE; @@ -2254,6 +2350,12 @@ 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); + if (initializers > 0) { GList *li; for(li = ((Class *)class)->nodes; @@ -2629,12 +2731,15 @@ put_signal_args (Method *m) li != NULL && ali != NULL; li = li->next, ali = ali->next, i++) { FuncArg *fa = li->data; - char *cast = g_strdup (get_cast (ali->data, FALSE)); + char *str = ali->data; + char *cast = g_strdup (get_cast (str, FALSE)); /* FIXME: This code is so fucking ugly it hurts */ gboolean do_static = - (strcmp ((char *)ali->data, "STRING") == 0 || - strcmp ((char *)ali->data, "BOXED") == 0); + (strcmp (str, "STRING") == 0 || + strcmp (str, "BOXED") == 0 || + strncmp (str, "BOXED_", 6) == 0); char *set_func; + char *t; if (cast == NULL) { cast = get_type (fa->atype, TRUE); @@ -2643,18 +2748,26 @@ put_signal_args (Method *m) the we know all the types */ g_assert (cast != NULL); + if (strncmp (str, "BOXED_", 6) == 0) + t = g_strdup (&(str[6])); + else + t = g_strconcat ("G_TYPE_", str, NULL); + out_printf (out, "\t___param_values[%d].g_type = 0;\n" - "\tg_value_init (&___param_values[%d], G_TYPE_%s);\n", - i, i, (char *)ali->data); + "\tg_value_init (&___param_values[%d], %s);\n", + i, i, t); + g_free (t); - if (strcmp (ali->data, "UNICHAR") == 0) + if (strcmp (str, "UNICHAR") == 0) /* hack because glib is braindamaged */ set_func = g_strdup ("g_value_set_uint"); + else if (strncmp (str, "BOXED_", 6) == 0) + set_func = g_strdup ("g_value_set_static_boxed"); else set_func = g_strdup_printf ("g_value_set%s_%s", do_static ? "_static" : "", - (char *)ali->data); + str); gob_strdown (set_func); out_printf (out, "\t%s (&___param_values[%d], (%s) %s);\n\n", @@ -2962,21 +3075,24 @@ open_files(void) { char *outfile, *outfileh, *outfileph; - if ( ! for_cpp) - outfile = g_strconcat (fullfilebase, ".c", NULL); - else - outfile = g_strconcat (fullfilebase, ".cc", NULL); - if (no_touch_headers) - outfileh = g_strconcat (fullfilebase, ".h#gob#", NULL); - else - outfileh = g_strconcat (fullfilebase, ".h", NULL); + outfilebase = g_strconcat (fullfilebase, for_cpp ? ".cc" : ".c", NULL); + outfile = g_strconcat(outfilebase, no_touch ? "#gob#" : "", NULL); + + outfilehbase = g_strconcat (fullfilebase, ".h", NULL); + outfileh = g_strconcat(outfilehbase, no_touch_headers ? "#gob#" : "", NULL); if ((privates > 0 || protecteds > 0 || private_header == PRIVATE_HEADER_ALWAYS) && - private_header != PRIVATE_HEADER_NEVER) - outfileph = g_strconcat (fullfilebase, "-private.h", NULL); - else + private_header != PRIVATE_HEADER_NEVER) { + char sep[2] = {0,0}; + if (file_sep != 0) + sep[0] = file_sep; + outfilephbase = g_strconcat (fullfilebase, sep, "private.h", NULL); + outfileph = g_strconcat (outfilephbase, no_touch ? "#gob#" : "", NULL); + } else { + outfilephbase = NULL; outfileph = NULL; + } if (no_write) { @@ -3199,6 +3315,12 @@ print_class_block(Class *c) char *s; gboolean printed_private = FALSE; + if (c->glade_xml) + { + out_printf(outph ? outph : outh, "#include \n"); + out_printf(outph ? outph : outh, "#include \n\n"); + } + if(any_special) { out_printf(out, "/* utility types we may need */\n"); if(special_array[SPECIAL_2POINTER]) @@ -3325,16 +3447,19 @@ print_class_block(Class *c) out_printf (outfp, "struct _%sPrivate {\n", typebase); - for(li=c->nodes; li; li=li->next) { - Node *n = li->data; - Variable *v = (Variable *)n; - if(n->type == VARIABLE_NODE && - v->scope == PRIVATE_SCOPE) { - out_addline_infile(outfp, v->line_no); - put_variable(v, outfp); + if (privates > 0) + { + for(li=c->nodes; li; li=li->next) { + Node *n = li->data; + Variable *v = (Variable *)n; + if(n->type == VARIABLE_NODE && + v->scope == PRIVATE_SCOPE) { + out_addline_infile(outfp, v->line_no); + put_variable(v, outfp); + } } + out_addline_outfile(outfp); } - out_addline_outfile(outfp); out_printf(outfp, "};\n"); } @@ -3480,6 +3605,43 @@ print_class_block(Class *c) no_gnu ? "" : " G_GNUC_UNUSED", typebase, typebase, typebase, funcbase); + if (c->glade_xml) + { + out_printf (out, "/* a function to connect glade callback */\n"); + out_printf (out,"static void\n" + "___glade_xml_connect_foreach(const gchar *handler_name,\n" + "GObject *object,\n" + "const gchar *signal_name,\n" + "const gchar *signal_data,\n" + "GObject *connect_object,\n" + "gboolean after,\n" + "gpointer user_data)\n" + "{\n" + "\tstatic GModule * allsymbols = NULL;\n" + " \n" + "\tif (!allsymbols) allsymbols = g_module_open(NULL, 0);\n" + "\tif (allsymbols) {\n" + "\t\tgchar * func_name = g_strdup_printf(\"%s_%%s\", handler_name);\n" + "\t\tGCallback func;\n" + "\n" + "\t\tif (!g_module_symbol(allsymbols, func_name, (gpointer)&func)){\n" + "\t\t\tif (!g_module_symbol(allsymbols, handler_name, (gpointer)&func)) {\n" + "\t\t\t\tg_warning(\"could not find signal handler '%%s'.\", func_name);\n" + "\t\t\t\tg_free(func_name);\n" + "\t\t\t\treturn;\n" + "\t\t\t}\n" + "\t\t}\n" + "\t\tif (after)\n" + "\t\t\tg_signal_connect_data(object, signal_name, func, user_data, NULL, G_CONNECT_AFTER | G_CONNECT_SWAPPED);\n" + "\t\telse\n" + "\t\t\tg_signal_connect_data(object, signal_name, func, user_data, NULL, G_CONNECT_SWAPPED);\n" + "\t\tg_free(func_name);\n" + "\t}\n" + "}\n" + "\n", + funcbase); + } + if (need_dispose) add_dispose (c); @@ -3542,16 +3704,13 @@ print_more_useful_macros (void) static void print_file_comments(void) { - time_t curtime; - time(&curtime); out_printf(outh, "/* Generated by GOB (v%s)" " (do not edit directly) */\n\n", VERSION); if(outph) out_printf(outph, "/* Generated by GOB (v%s)" " (do not edit directly) */\n\n", VERSION); - out_printf(out, "/* Generated by GOB (v%s) on %s" - " (do not edit directly) */\n\n", - VERSION, ctime(&curtime)); + out_printf(out, "/* Generated by GOB (v%s)" + " (do not edit directly) */\n\n", VERSION); out_printf(out, "/* End world hunger, donate to the World Food Programme, http://www.wfp.org */\n\n"); } @@ -3563,8 +3722,7 @@ print_includes(void) char *p; /* We may need string.h for memset */ - if(destructors > 0 && - ! g_list_find_custom(include_files, "string.h", (GCompareFunc)strcmp)) { + if ( ! g_list_find_custom(include_files, "string.h", (GCompareFunc)strcmp)) { out_printf(out, "#include /* memset() */\n\n"); } @@ -3943,6 +4101,9 @@ print_help(void) "\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 " @@ -3971,7 +4132,9 @@ print_help(void) "aliases\n" "\t--no-kill-underscores Ignored for compatibility\n" "\t-o,--output-dir The directory where output " - "should be placed\n"); + "should be placed\n" + "\t--file-sep[=c] replace default \'-\' file " + "name separator\n"); } static void @@ -4038,6 +4201,9 @@ parse_options(int argc, char *argv[]) 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) { @@ -4088,6 +4254,19 @@ parse_options(int argc, char *argv[]) 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], "--")==0) { /*further arguments are files*/ no_opts = TRUE; @@ -4136,35 +4315,79 @@ parse_options(int argc, char *argv[]) #endif } -/* this is a somewhat ugly hack, but it appears to work */ static void -compare_and_move_header(void) +compare_and_move (const char *old_filename) { - char *hfnew = g_strconcat(fullfilebase, ".h#gob#", NULL); - char *hf = g_strconcat(fullfilebase, ".h", NULL); - struct stat s; - if(stat(hf, &s) == 0) { - char *s; - s = g_strdup_printf("cmp '%s' '%s' > /dev/null", hf, hfnew); - if(system(s) == 0) { - if(unlink(hfnew) != 0) - error_printf(GOB_ERROR, 0, - "Can't remove new header file"); - g_free(hfnew); - g_free(hf); - g_free(s); - return; + char *new_filename = g_strconcat (old_filename, "#gob#", NULL); + FILE *old_f; + gboolean equal = FALSE; + + old_f = fopen (old_filename, "r"); + if (old_f) { + FILE *new_f; + gboolean error = FALSE; + + new_f = fopen (new_filename, "r"); + if (new_f) { + char new_buf[1024]; + char old_buf[1024]; + + while (TRUE) { + size_t new_n; + size_t old_n; + + new_n = fread (new_buf, 1, sizeof (new_buf), new_f); + if (ferror (new_f)) { + error = TRUE; + error_printf (GOB_ERROR, 0, + "Can't read %s: %s", + new_filename, + g_strerror (errno)); + break; + } + + old_n = fread (old_buf, 1, sizeof (old_buf), old_f); + if (ferror (old_f) + || feof (new_f) != feof (old_f) + || new_n != old_n + || memcmp (new_buf, old_buf, new_n) != 0) + break; + + if (feof (new_f)) { + equal = TRUE; + break; + } + } + } else + error_printf (GOB_ERROR, 0, "Can't open %s: %s", + new_filename, g_strerror (errno)); + + fclose (old_f); + fclose (new_f); + + if (error) + goto end; + + if (! equal && unlink (old_filename) != 0) { + error_printf (GOB_ERROR, 0, "Can't remove %s: %s", + old_filename, g_strerror (errno)); + goto end; } - g_free(s); - if(unlink(hf) != 0) - error_printf(GOB_ERROR, 0, - "Can't remove old header file"); } - if(rename(hfnew, hf) != 0) - error_printf(GOB_ERROR, 0, - "Can't rename new header file"); - g_free(hfnew); - g_free(hf); + + if (equal) { + if (unlink (new_filename) != 0) + error_printf (GOB_ERROR, 0, "Can't remove %s: %s", + new_filename, g_strerror (errno)); + } else { + if (rename (new_filename, old_filename) != 0) + error_printf (GOB_ERROR, 0, "Can't rename %s to %s: %s", + new_filename, old_filename, + g_strerror (errno)); + } + + end: + g_free (new_filename); } int @@ -4218,6 +4441,7 @@ main(int argc, char *argv[]) unreftors = count_unreftors ((Class *)class); destructors = count_destructors ((Class *)class); initializers = count_initializers ((Class *)class); + glade_widgets = count_glade_widgets ((Class *)class); overrode_get_type = find_get_type ((Class *)class); make_bases (); @@ -4265,9 +4489,15 @@ main(int argc, char *argv[]) fclose (outph); } - if (no_touch_headers && - ! no_write) - compare_and_move_header (); + if (! no_write) { + if (no_touch) { + compare_and_move (outfilebase); + if (outfilephbase) + compare_and_move (outfilephbase); + } + if (no_touch_headers) + compare_and_move (outfilehbase); + } return 0; }