X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/3b10bbd3a88d6e16146414d91d06bb2f36347bfc..5b42e9400440d86723a27747b2191ab8cd59c2ee:/src/checks.c diff --git a/src/checks.c b/src/checks.c index 80602d1..f2bb058 100644 --- a/src/checks.c +++ b/src/checks.c @@ -146,10 +146,11 @@ check_duplicate_named(Class *c,Node *node,char *id, int line_no) continue; if(n==node || line_no>=nline_no || - strcmp(nid,id)!=0) + g_strcasecmp(nid,id)!=0) continue; s = g_strdup_printf("named symbol (argument or signal) '%s' " - "redefined, first defined on line %d", + "redefined, first defined on line %d " + "(case insensitive)", id,line_no); print_error(FALSE,s,nline_no); } @@ -242,14 +243,14 @@ check_firstarg(Class *c) void check_nonvoidempty(Class *c) { - GList *l; - for(l=c->nodes;l;l=g_list_next(l)) { - Node *n = l->data; + GList *li; + for(li=c->nodes; li; li=g_list_next(li)) { + Node *n = li->data; if(n->type == METHOD_NODE) { Method *m = (Method *)n; if(m->method != REGULAR_METHOD) continue; - if(!(strcmp(m->mtype->name,"void")==0 && + if(!(strcmp(m->mtype->name, "void")==0 && m->mtype->stars == 0) && !m->cbuf) { print_error(TRUE, @@ -271,9 +272,9 @@ check_nonvoidempty(Class *c) void check_signal_args(Class *c) { - GList *l; - for(l=c->nodes;l;l=g_list_next(l)) { - Node *n = l->data; + GList *li; + for(li=c->nodes; li; li=g_list_next(li)) { + Node *n = li->data; if(n->type == METHOD_NODE) { Method *m = (Method *)n; GList *l; @@ -283,7 +284,7 @@ check_signal_args(Class *c) for(l=m->gtktypes;l;l=l->next) { char *s; - if(get_cast(l->data,FALSE)) + if(get_cast(l->data, FALSE)) continue; s = g_strdup_printf("Unknown GTK+ type '%s' " "among signal types", @@ -304,7 +305,7 @@ check_argument_types(Class *c) if(n->type == ARGUMENT_NODE) { Argument *a = (Argument *)n; char *s; - if(get_cast(a->gtktype,FALSE)) + if(get_cast(a->gtktype, FALSE)) continue; s = g_strdup_printf("Unknown GTK+ type '%s' " "as argument type",