Forced antelope to compile under strict ANSI w/o any warnings.

src/toolsComm/antelope/Makefile.Unix

@@ -3,6 +3,7 @@ include Target.include
 include $(EPICS)/config/CONFIG_BASE
 
 CMPLR = OLD
+#CMPLR = STRICT
 USR_LDLIBS = -lm -s
 USR_CFLAGS = -D_NO_PROTO
 

src/toolsComm/antelope/error.c

@@ -40,7 +40,7 @@ char *st_cptr;
 {
     register char *s;
 
-    if (st_line == 0) return;
+    if (st_line == 0) return(0);
     for (s = st_line; *s != '\n'; ++s)
     {
 	if (isprint(*s) || *s == '\t')
@@ -58,6 +58,7 @@ char *st_cptr;
     }
     putc('^', stderr);
     putc('\n', stderr);
+	return(0);
 }
 
 

src/toolsComm/antelope/main.c

@@ -71,7 +71,7 @@ int k;
 }
 
 
-onintr()
+void onintr(int StupidInconsistantSignalTypes)
 {
     done(1);
 }
@@ -118,7 +118,7 @@ char *argv[];
 	case '\0':
 	    input_file = stdin;
 	    if (i + 1 < argc) usage();
-	    return;
+	    return(0);
 
 	case '-':
 	    ++i;
@@ -203,6 +203,8 @@ end_of_option:;
 no_more_options:;
     if (i + 1 != argc) usage();
     input_file_name = argv[i];
+
+	return(0);
 }
 
 

src/toolsComm/antelope/output.c

@@ -377,7 +377,7 @@ int default_state;
 	if (to_state[i] != default_state)
 	    ++count;
     }
-    if (count == 0) return;
+    if (count == 0) return(0);
 
     symno = symbol_value[symbol] + 2*nstates;
 
@@ -395,6 +395,7 @@ int default_state;
 
     tally[symno] = count;
     width[symno] = sp1[-1] - sp[0] + 1;
+	return(0);
 }
 
 sort_actions()
@@ -836,7 +837,7 @@ output_stored_text()
 	open_error(text_file_name);
     in = text_file;
     if ((c = getc(in)) == EOF)
-	return;
+	return(0);
     out = code_file;
     if (c ==  '\n')
 	++outline;
@@ -849,6 +850,8 @@ output_stored_text()
     }
     if (!lflag)
 	fprintf(out, line_format, ++outline + 1, code_file_name);
+
+	return(0);
 }
 
 
@@ -1082,7 +1085,7 @@ output_trailing_text()
     register FILE *in, *out;
 
     if (line == 0)
-	return;
+	return(0);
 
     in = input_file;
     out = code_file;
@@ -1091,7 +1094,7 @@ output_trailing_text()
     {
 	++lineno;
 	if ((c = getc(in)) == EOF)
-	    return;
+	    return(0);
 	if (!lflag)
 	{
 	    ++outline;
@@ -1130,6 +1133,8 @@ output_trailing_text()
     }
     if (!lflag)
 	fprintf(out, line_format, ++outline + 1, code_file_name);
+
+	return(0);
 }
 
 
@@ -1144,7 +1149,7 @@ output_semantic_actions()
 	open_error(action_file_name);
 
     if ((c = getc(action_file)) == EOF)
-	return;
+	return(0);
 
     out = code_file;
     last = c;
@@ -1167,6 +1172,8 @@ output_semantic_actions()
 
     if (!lflag)
 	fprintf(out, line_format, ++outline + 1, code_file_name);
+
+	return(0);
 }
 
 

src/toolsComm/antelope/reader.c

@@ -60,7 +60,7 @@ get_line()
 	if (line) { FREE(line); line = 0; }
 	cptr = 0;
 	saw_eof = 1;
-	return;
+	return(0);
     }
 
     if (line == 0 || linesize != (LINESIZE + 1))
@@ -76,7 +76,7 @@ get_line()
     for (;;)
     {
 	line[i]  =  c;
-	if (c == '\n') { cptr = line; return; }
+	if (c == '\n') { cptr = line; return(0); }
 	if (++i >= linesize)
 	{
 	    linesize += LINESIZE;
@@ -89,7 +89,7 @@ get_line()
 	    line[i] = '\n';
 	    saw_eof = 1;
 	    cptr = line;
-	    return;
+	    return(0);
 	}
     }
 }
@@ -128,7 +128,7 @@ skip_comment()
 	{
 	    cptr = s + 2;
 	    FREE(st_line);
-	    return;
+	    return(0);
 	}
 	if (*s == '\n')
 	{
@@ -284,14 +284,14 @@ copy_ident()
 	if (c == '\n')
 	{
 	    fprintf(f, "\"\n");
-	    return;
+	    return(0);
 	}
 	putc(c, f);
 	if (c == '"')
 	{
 	    putc('\n', f);
 	    ++cptr;
-	    return;
+	    return(0);
 	}
     }
 }
@@ -416,7 +416,7 @@ loop:
 	    if (need_newline) putc('\n', f);
 	    ++cptr;
 	    FREE(t_line);
-	    return;
+	    return(0);
 	}
 	/* fall through */
 
@@ -468,7 +468,7 @@ loop:
 	{
 	    fprintf(text_file, " YYSTYPE;\n");
 	    FREE(u_line);
-	    return;
+	    return(0);
 	}
 	goto loop;
 
@@ -850,7 +850,7 @@ int assoc;
 	else if (c == '\'' || c == '"')
 	    bp = get_literal();
 	else
-	    return;
+	    return(0);
 
 	if (bp == goal) tokenized_start(bp->name);
 	bp->class = TERM;
@@ -905,7 +905,7 @@ declare_types()
 	else if (c == '\'' || c == '"')
 	    bp = get_literal();
 	else
-	    return;
+	    return(0);
 
 	if (bp->tag && tag != bp->tag)
 	    retyped_warning(bp->name);
@@ -948,7 +948,7 @@ read_declarations()
 	switch (k = keyword())
 	{
 	case MARK:
-	    return;
+	    return(0);
 
 	case IDENT:
 	    copy_ident();
@@ -1163,7 +1163,7 @@ add_symbol()
 	end_rule();
 	start_rule(bp, s_lineno);
 	++cptr;
-	return;
+	return(0);
     }
 
     if (last_was_action)
@@ -1305,7 +1305,7 @@ loop:
     case ';':
 	if (depth > 0) goto loop;
 	fprintf(f, "\nbreak;\n");
-	return;
+	return(0);
 
     case '{':
 	++depth;
@@ -1314,7 +1314,7 @@ loop:
     case '}':
 	if (--depth > 0) goto loop;
 	fprintf(f, "\nbreak;\n");
-	return;
+	return(0);
 
     case '\'':
     case '"':
@@ -1480,7 +1480,7 @@ free_tags()
 {
     register int i;
 
-    if (tag_table == 0) return;
+    if (tag_table == 0) return(0);
 
     for (i = 0; i < ntags; ++i)
     {
@@ -1488,6 +1488,7 @@ free_tags()
 	FREE(tag_table[i]);
     }
     FREE(tag_table);
+	return(0);
 }
 
 
@@ -1723,7 +1724,7 @@ print_grammar()
     int spacing;
     register FILE *f = verbose_file;
 
-    if (!vflag) return;
+    if (!vflag) return(0);
 
     k = 1;
     for (i = 2; i < nrules; ++i)
@@ -1750,6 +1751,7 @@ print_grammar()
 	++k;
 	putc('\n', f);
     }
+	return(0);
 }
 
 

src/toolsComm/antelope/verbose.c

@@ -8,7 +8,7 @@ verbose()
 {
     register int i;
 
-    if (!vflag) return;
+    if (!vflag) return(0);
 
     null_rules = (short *) MALLOC(nrules*sizeof(short));
     if (null_rules == 0) no_space();
@@ -22,9 +22,10 @@ verbose()
     if (SRtotal || RRtotal)
 	log_conflicts();
 
-    fprintf(verbose_file, "\n\n%d terminals, %d nonterminals\n", ntokens,
-	    nvars);
+    fprintf(verbose_file, "\n\n%d terminals, %d nonterminals\n", ntokens, nvars);
     fprintf(verbose_file, "%d grammar rules, %d states\n", nrules - 2, nstates);
+
+	return(0);
 }