X-Git-Url: http://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/4c9cb9b99991c36920bd17e366e2128d1b22eb6e..8cb6370effd9f2dacc6dc9b662a43ea19ee637ac:/src/main.c

diff --git a/src/main.c b/src/main.c
index be842c6..d706cef 100644
--- a/src/main.c
+++ b/src/main.c
@@ -21,7 +21,9 @@
 
 #include "config.h"
 #include <glib.h>
+#if 0
 #include <popt.h>
+#endif
 #include <time.h>
 #include <stdio.h>
 #include <string.h>
@@ -29,8 +31,9 @@
 #include "tree.h"
 #include "parse.h"
 #include "out.h"
+#include "main.h"
 
-char *filename = "stdin";
+char *filename = NULL;
 
 int yyparse(void);
 
@@ -49,25 +52,30 @@ static char *ptypebase;
 
 static int signals = 0;
 static int arguments = 0;
+static int overrides = 0;
 
 FILE *out;
 FILE *outh;
 
 int exit_on_warn = FALSE;
+int exit_on_error = TRUE;
+int got_error = FALSE;
 
-static void
+void
 print_error(int is_warn, char *error,int line)
 {
 	char *w;
 	if(is_warn)
 		w = "Warning:";
-	else
+	else {
 		w = "Error:";
+		got_error = TRUE;
+	}
 	if(line>0)
 		fprintf(stderr,"%s:%d: %s %s\n",filename,line,w,error);
 	else
 		fprintf(stderr,"%s: %s %s\n",filename,w,error);
-	if(!is_warn || exit_on_warn)
+	if((!is_warn || exit_on_warn) && exit_on_error)
 		exit(1);
 }
 
@@ -251,6 +259,8 @@ print_method(FILE *fp, char *typeprefix, char *nameprefix,
 				out_printf(fp,"%s",arg->name); 
 
 		}
+		if(m->vararg)
+			out_printf(fp,", ..."); 
 	} else {
 		out_printf(fp,"void"); 
 	}
@@ -262,7 +272,10 @@ put_vs_method(Method *m)
 {
 	if(m->scope != SIGNAL_LAST_METHOD &&
 	   m->scope != SIGNAL_FIRST_METHOD &&
-	   m->scope != VIRTUAL_METHOD)
+	   m->scope != PRIVATE_SIGNAL_LAST_METHOD &&
+	   m->scope != PRIVATE_SIGNAL_FIRST_METHOD &&
+	   m->scope != VIRTUAL_METHOD &&
+	   m->scope != PRIVATE_VIRTUAL_METHOD)
 		return;
 
 	print_method(outh,"\t","(* ",") ",";",m);
@@ -274,7 +287,10 @@ put_pub_method(Method *m)
 	if(m->scope == PRIVATE_SCOPE ||
 	   m->scope == OVERRIDE_METHOD ||
 	   m->scope == INIT_METHOD ||
-	   m->scope == CLASS_INIT_METHOD)
+	   m->scope == CLASS_INIT_METHOD ||
+	   m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+	   m->scope == PRIVATE_SIGNAL_FIRST_METHOD ||
+	   m->scope == PRIVATE_VIRTUAL_METHOD)
 		return;
 
 	print_method(outh,"","\t","\t",";",m);
@@ -286,9 +302,15 @@ put_priv_method_prot(Method *m)
 	if(m->scope == PUBLIC_SCOPE)
 		return;
 
-	if(m->scope == SIGNAL_LAST_METHOD ||
-	   m->scope == SIGNAL_FIRST_METHOD ||
-	   m->scope == VIRTUAL_METHOD) {
+	if(m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+	   m->scope == PRIVATE_SIGNAL_FIRST_METHOD ||
+	   m->scope == PRIVATE_VIRTUAL_METHOD) {
+		if(m->cbuf)
+			print_method(out,"static ","_real_"," ",";",m);
+		print_method(out,"static ",""," ",";",m);
+	} else if(m->scope == SIGNAL_LAST_METHOD ||
+		  m->scope == SIGNAL_FIRST_METHOD ||
+		  m->scope == VIRTUAL_METHOD) {
 		if(!m->cbuf)
 			return;
 		print_method(out,"static ","_real_"," ",";",m);
@@ -341,7 +363,7 @@ make_inits(Class *cl)
 				  (Type *)new_type(0,g_strdup("void")),
 				  NULL,NULL,g_strdup("class_init"),
 				  make_init_args(cl,g_strdup("c"),TRUE),
-				  NULL, NULL,0,0);
+				  NULL, NULL,0,0,FALSE);
 		cl->nodes = g_list_prepend(cl->nodes,node);
 	}
 	if(!got_init) {
@@ -349,7 +371,7 @@ make_inits(Class *cl)
 				  (Type *)new_type(0,g_strdup("void")),
 				  NULL,NULL,g_strdup("init"),
 				  make_init_args(cl,g_strdup("o"),FALSE),
-				  NULL, NULL,0,0);
+				  NULL, NULL,0,0,FALSE);
 		cl->nodes = g_list_prepend(cl->nodes,node);
 	}
 }
@@ -364,7 +386,9 @@ add_signal_prots(Method *m)
 	char *s;
 	
 	if(m->scope != SIGNAL_LAST_METHOD &&
-	   m->scope != SIGNAL_FIRST_METHOD)
+	   m->scope != SIGNAL_FIRST_METHOD &&
+	   m->scope != PRIVATE_SIGNAL_LAST_METHOD &&
+	   m->scope != PRIVATE_SIGNAL_FIRST_METHOD)
 		return;
 
 	if(!marsh)
@@ -444,7 +468,9 @@ add_enums(Class *c)
 			if(n->type == METHOD_NODE) {
 				Method *m = (Method *)n;
 				if(m->scope == SIGNAL_LAST_METHOD ||
-				   m->scope == SIGNAL_FIRST_METHOD) {
+				   m->scope == SIGNAL_FIRST_METHOD ||
+				   m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+				   m->scope == PRIVATE_SIGNAL_FIRST_METHOD) {
 					char *s = g_strdup(m->id);
 					g_strup(s);
 					out_printf(out,"\t%s_SIGNAL,\n",s);
@@ -503,15 +529,17 @@ add_get_type(void)
 }
 
 static void
-add_overrides(Class *c, char *oname)
+add_overrides(Class *c, char *oname, gboolean did_gtk_obj)
 {
 	GList *li;
 	GHashTable *done;
 	char *s;
 	
 	done = g_hash_table_new(g_str_hash,g_str_equal);
-	s = g_strdup("GtkObject"); /* This was already done */
-	g_hash_table_insert(done,s,s);
+	if(did_gtk_obj) {
+		s = g_strdup("GtkObject"); /* This was already done */
+		g_hash_table_insert(done,s,s);
+	}
 	for(li=c->nodes;li;li=g_list_next(li)) {
 		Node *n = li->data;
 		char *f;
@@ -553,12 +581,21 @@ add_signals(Class *c)
 		char *mar;
 		char *sig;
 		int is_none;
+		int last = FALSE;
 		if(n->type != METHOD_NODE ||
 		   (((Method *)n)->scope != SIGNAL_FIRST_METHOD &&
-		    ((Method *)n)->scope != SIGNAL_LAST_METHOD))
+		    ((Method *)n)->scope != SIGNAL_LAST_METHOD &&
+		    ((Method *)n)->scope != PRIVATE_SIGNAL_FIRST_METHOD &&
+		    ((Method *)n)->scope != PRIVATE_SIGNAL_LAST_METHOD))
 			continue;
 
 		m = (Method *)n;
+		
+		if(m->scope == SIGNAL_FIRST_METHOD ||
+		   m->scope == PRIVATE_SIGNAL_FIRST_METHOD)
+			last = FALSE;
+		else
+			last = TRUE;
 
 		if(g_hash_table_lookup(marsh,m))
 			mar = g_strconcat("marshal_",
@@ -579,7 +616,7 @@ add_signals(Class *c)
                     	"\t\t\t%s,\n"
 		    	"\t\t\tGTK_TYPE_%s, %d",
 			sig,m->id,
-			m->scope==SIGNAL_LAST_METHOD?"LAST":"FIRST",
+			last?"LAST":"FIRST",
 			typebase,m->id,mar,(char *)m->gtktypes->data,
 			is_none?0:g_list_length(m->gtktypes->next));
 		g_free(mar);
@@ -610,7 +647,10 @@ set_def_handlers(Class *c, char *oname)
 		if(n->type != METHOD_NODE ||
 		   (((Method *)n)->scope != SIGNAL_FIRST_METHOD &&
 		    ((Method *)n)->scope != SIGNAL_LAST_METHOD &&
+		    ((Method *)n)->scope != PRIVATE_SIGNAL_FIRST_METHOD &&
+		    ((Method *)n)->scope != PRIVATE_SIGNAL_LAST_METHOD &&
 		    ((Method *)n)->scope != VIRTUAL_METHOD &&
+		    ((Method *)n)->scope != PRIVATE_VIRTUAL_METHOD &&
 		    ((Method *)n)->scope != OVERRIDE_METHOD))
 			continue;
 
@@ -699,12 +739,19 @@ add_inits(Class *c)
 			print_method(out,"static ","\n"," ","",m);
 			if(m->line_no>0)
 				out_addline_outfile(out);
-			out_printf(out,"{\n"
-				"\tGtkObjectClass *gtk_object_class = "
-				"(GtkObjectClass*) %s;\n",
-				((FuncArg *)m->args->data)->name);
+			out_printf(out,"{\n");
+			if(signals>0 ||
+			   arguments>0)
+				out_printf(out,
+					   "\tGtkObjectClass *"
+					   "gtk_object_class = "
+					   "(GtkObjectClass*) %s;\n",
+					   ((FuncArg *)m->args->data)->name);
 			
-			add_overrides(c, ((FuncArg *)m->args->data)->name);
+			if(overrides>0)
+				add_overrides(c,
+					      ((FuncArg *)m->args->data)->name,
+					      (signals>0 || arguments>0));
 			
 			out_printf(out,"\n\tparent_class = "
 				"gtk_type_class (%s_get_type ());\n",
@@ -742,8 +789,8 @@ add_getset_arg(Class *c, int is_set)
 		"\tGtkArg *arg,\n"
 		"\tguint arg_id)\n"
 		"{\n"
-		"\t%s *this;\n\n"
-		"\tthis = %s (object);\n\n"
+		"\t%s *self, *this;\n\n"
+		"\tself = this = %s (object);\n\n"
 		"\tswitch (arg_id) {\n",
 		is_set?"set":"get",typebase,macrobase);
 
@@ -869,6 +916,7 @@ static void
 put_method(Method *m)
 {
 	char *s;
+	int private = FALSE;
 	out_printf(out,"\n");
 	switch(m->scope) {
 	case PUBLIC_SCOPE:
@@ -881,10 +929,13 @@ put_method(Method *m)
 		print_method(out,"static ","\n"," ","",m);
 		print_method_body(m,TRUE);
 		break;
+	case PRIVATE_SIGNAL_FIRST_METHOD:
+	case PRIVATE_SIGNAL_LAST_METHOD:
+		private = TRUE;
 	case SIGNAL_FIRST_METHOD:
 	case SIGNAL_LAST_METHOD:
 		out_addline_infile(out,m->line_no);
-		print_method(out,"","\n"," ","",m);
+		print_method(out,private?"static ":"","\n"," ","",m);
 		out_addline_outfile(out);
 		out_printf(out,"{\n");
 		s = g_strdup(m->id);
@@ -893,8 +944,10 @@ put_method(Method *m)
 		   m->mtype->stars==0) {
 			GList *li;
 			print_preconditions(m);
-			out_printf(out,"\tgtk_signal_emit (GTK_OBJECT (this),\n"
-				"\t\tobject_signals[%s_SIGNAL]",s);
+			if(((FuncArg *)m->args->data)->name)
+			out_printf(out,"\tgtk_signal_emit (GTK_OBJECT (%s),\n"
+				"\t\tobject_signals[%s_SIGNAL]",
+				((FuncArg *)m->args->data)->name,s);
 			for(li=m->args->next;li;li=g_list_next(li)) {
 				FuncArg *fa = li->data;
 				out_printf(out,",\n\t\t%s",fa->name);
@@ -906,8 +959,9 @@ put_method(Method *m)
 			print_type(out,m->mtype);
 			out_printf(out,"return_val;\n");
 			print_preconditions(m);
-			out_printf(out,"\tgtk_signal_emit (GTK_OBJECT (this),\n"
-				"\t\tobject_signals[%s_SIGNAL]",s);
+			out_printf(out,"\tgtk_signal_emit (GTK_OBJECT (%s),\n"
+				"\t\tobject_signals[%s_SIGNAL]",
+				((FuncArg *)m->args->data)->name,s);
 			for(li=m->args->next;li;li=g_list_next(li)) {
 				FuncArg *fa = li->data;
 				out_printf(out,",\n\t\t%s",fa->name);
@@ -922,20 +976,23 @@ put_method(Method *m)
 		print_method(out,"static ","\n_real_"," ","",m);
 		print_method_body(m,FALSE);
 		break;
+	case PRIVATE_VIRTUAL_METHOD:
+		private = TRUE;
 	case VIRTUAL_METHOD:
 		out_addline_infile(out,m->line_no);
-		print_method(out,"","\n"," ","",m);
+		print_method(out,private?"static ":"","\n"," ","",m);
 		out_addline_outfile(out);
 		out_printf(out,"{\n"
 			"\t%sClass *class;\n",typebase);
 		print_preconditions(m);
-		out_printf(out,"\tclass = %s_CLASS(GTK_OBJECT(this)->klass);\n\n"
+		out_printf(out,"\tclass = %s_CLASS(GTK_OBJECT(%s)->klass);\n\n"
 			"\tif(class->%s)\n",
-			macrobase,m->id);
+			macrobase, ((FuncArg *)m->args->data)->name, m->id);
 		if(strcmp(m->mtype->name,"void")==0 &&
 		   m->mtype->stars==0) {
 			GList *li;
-			out_printf(out,"\t\t(*class->%s)(this",m->id);
+			out_printf(out,"\t\t(*class->%s)(%s",m->id,
+				   ((FuncArg *)m->args->data)->name);
 			for(li=m->args->next;li;li=g_list_next(li)) {
 				FuncArg *fa = li->data;
 				out_printf(out,",%s",fa->name);
@@ -943,7 +1000,8 @@ put_method(Method *m)
 			out_printf(out,");\n}\n");
 		} else {
 			GList *li;
-			out_printf(out,"\t\treturn (*class->%s)(this",m->id);
+			out_printf(out,"\t\treturn (*class->%s)(%s",m->id,
+				   ((FuncArg *)m->args->data)->name);
 			for(li=m->args->next;li;li=g_list_next(li)) {
 				FuncArg *fa = li->data;
 				out_printf(out,",%s",fa->name);
@@ -972,6 +1030,152 @@ put_method(Method *m)
 	}
 }
 
+static void
+check_duplicate(Class *c,Node *node,char *id, int line_no)
+{
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		char *nid;
+		int nline_no;
+		char *s;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			nid = m->id;
+			nline_no = m->line_no;
+		} else if(n->type == VARIABLE_NODE) {
+			Variable *v = (Variable *)n;
+			nid = v->id;
+			nline_no = v->line_no;
+		} else
+			continue;
+		if(n==node ||
+		   line_no>=nline_no ||
+		   strcmp(nid,id)!=0)
+			continue;
+		s = g_strdup_printf("symbol '%s' redefined, "
+				    "first defined on line %d",
+				    id,line_no);
+		print_error(FALSE,s,nline_no);
+	}
+}
+
+static void
+check_duplicate_symbols(Class *c)
+{
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			check_duplicate(c,n,m->id,m->line_no);
+		} else if(n->type == VARIABLE_NODE) {
+			Variable *v = (Variable *)n;
+			check_duplicate(c,n,v->id,v->line_no);
+		}
+	}
+}
+
+static void
+check_duplicate_named(Class *c,Node *node,char *id, int line_no)
+{
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		char *nid;
+		int nline_no;
+		char *s;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			if(m->scope == SIGNAL_LAST_METHOD ||
+			   m->scope == SIGNAL_FIRST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_FIRST_METHOD) {
+				nid = m->id;
+				nline_no = m->line_no;
+			} else
+				continue;
+		} else if(n->type == ARGUMENT_NODE) {
+			Argument *a = (Argument *)n;
+			nid = a->name;
+			nline_no = a->line_no;
+		} else
+			continue;
+		if(n==node ||
+		   line_no>=nline_no ||
+		   strcmp(nid,id)!=0)
+			continue;
+		s = g_strdup_printf("named symbol (argument or signal) '%s' "
+				    "redefined, first defined on line %d",
+				    id,line_no);
+		print_error(FALSE,s,nline_no);
+	}
+}
+
+static void
+check_duplicate_signals_args(Class *c)
+{
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			if(m->scope == SIGNAL_LAST_METHOD ||
+			   m->scope == SIGNAL_FIRST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_FIRST_METHOD)
+				check_duplicate_named(c,n,m->id,m->line_no);
+		} else if(n->type == ARGUMENT_NODE) {
+			Argument *a = (Argument *)n;
+			check_duplicate_named(c,n,a->name,a->line_no);
+		}
+	}
+}
+
+static void
+check_public_new(Class *c)
+{
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			if(m->scope!=PUBLIC_SCOPE &&
+			   strcmp(m->id,"new")==0)
+				print_error(TRUE,
+					    "'new' should be a public method",
+					    m->line_no);
+		}
+	}
+}
+
+static void
+check_vararg(Class *c)
+{
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			if(!m->vararg)
+				continue;
+			if(m->scope == OVERRIDE_METHOD ||
+			   m->scope == SIGNAL_LAST_METHOD ||
+			   m->scope == SIGNAL_FIRST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_FIRST_METHOD ||
+			   m->scope == VIRTUAL_METHOD ||
+			   m->scope == PRIVATE_VIRTUAL_METHOD) {
+				print_error(FALSE,
+					    "signals, overrides and virtuals, "
+					    "can't have variable argument "
+					    "lists",
+					    m->line_no);
+			}
+		}
+	}
+}
+
 static int
 count_signals(Class *c)
 {
@@ -982,7 +1186,9 @@ count_signals(Class *c)
 		if(n->type == METHOD_NODE) {
 			Method *m = (Method *)n;
 			if(m->scope == SIGNAL_LAST_METHOD ||
-			   m->scope == SIGNAL_FIRST_METHOD)
+			   m->scope == SIGNAL_FIRST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_LAST_METHOD ||
+			   m->scope == PRIVATE_SIGNAL_FIRST_METHOD)
 				num++;
 		}
 	}
@@ -1003,6 +1209,21 @@ count_arguments(Class *c)
 	return num;
 }
 
+static int
+count_overrides(Class *c)
+{
+	int num = 0;
+	GList *l;
+	for(l=c->nodes;l;l=g_list_next(l)) {
+		Node *n = l->data;
+		if(n->type == METHOD_NODE) {
+			Method *m = (Method *)n;
+			if(m->scope == OVERRIDE_METHOD)
+				num++;
+		}
+	}
+	return num;
+}
 
 
 static void
@@ -1053,13 +1274,15 @@ generate_outfiles(void)
 		if(node->type == CCODE_NODE) {
 			CCode *cc = (CCode *)node;
 			FILE *fp;
-			if(cc->header)
+			if(cc->header) {
 				fp = outh;
-			else {
+				out_printf(fp,"\n");
+			} else {
 				fp = out;
+				out_printf(fp,"\n");
 				out_addline_infile(fp,cc->line_no);
 			}
-			out_printf(fp,"\n%s\n",cc->cbuf->str);
+			out_printf(fp,"%s\n",cc->cbuf->str);
 			if(!cc->header)
 				out_addline_outfile(fp);
 		} else if(node->type == CLASS_NODE) {
@@ -1069,6 +1292,7 @@ generate_outfiles(void)
 
 			signals = count_signals(c);
 			arguments = count_arguments(c);
+			overrides = count_overrides(c);
 			
 			out_printf(outh,"\n#define %s(obj)\t"
 				"GTK_CHECK_CAST((obj),%s_get_type(),%s)\n",
@@ -1171,6 +1395,7 @@ generate_outfiles(void)
 		"#endif");
 }
 
+#if 0
 static void
 usage(poptContext optCon, int exitcode, char *error, char *addl)
 {
@@ -1178,11 +1403,80 @@ usage(poptContext optCon, int exitcode, char *error, char *addl)
 	if (error) fprintf(stderr, "%s: %s", error, addl);
 	exit(exitcode);
 }
+#endif
+
+static void
+print_help(void)
+{
+	fprintf(stderr,"Gob version %s\n\n",VERSION);
+	fprintf(stderr,"Options:\n"
+		"\t--help,-h,-?         Display this help\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");
+}
 
+static void
+parse_options(int argc, char *argv[])
+{
+	int i;
+	int got_file = FALSE;
+	int no_opts = FALSE;
+
+	filename = NULL;
+
+	for(i=1;i<argc;i++) {
+		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],"--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],"--")==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 = argv[i]+1;
+			for(p=argv[i]+1;*p;p++) {
+				switch(*p) {
+				case 'w':
+					exit_on_warn=TRUE;
+					break;
+				case 'h':
+				case '?':
+					print_help();
+					exit(0);
+				default:
+					fprintf(stderr,
+						"Unknown option '%c'!\n",*p);
+					print_help();
+					exit(1);
+				}
+			}
+		}
+	}
+}
 
 int
 main(int argc, char *argv[])
 {
+#if 0
 	int c;
 	poptContext optCon;
 	
@@ -1211,6 +1505,9 @@ main(int argc, char *argv[])
 			poptStrerror(c));
 		return 1;
 	}
+#endif
+
+	parse_options(argc,argv);
 	
 	if(filename) {
 		yyin = fopen(filename,"r");
@@ -1230,8 +1527,17 @@ main(int argc, char *argv[])
 	
 	make_bases();
 	
+	exit_on_error = FALSE;
 	make_inits((Class *)class);
+	check_duplicate_symbols((Class *)class);
+	check_duplicate_signals_args((Class *)class);
+	check_public_new((Class *)class);
+	check_vararg((Class *)class);
+	exit_on_error = TRUE;
 	
+	if(got_error)
+		exit(1);
+
 	open_files();
 	
 	generate_outfiles();
@@ -1239,6 +1545,8 @@ main(int argc, char *argv[])
 	fclose(out);
 	fclose(outh);
 	
+#if 0
 	poptFreeContext(optCon);
+#endif
 	return 0;
 }