diff --git a/src/toolsComm/antelope/Makefile.Unix b/src/toolsComm/antelope/Makefile.Unix index f4bc9ff4f..5861bccb9 100644 --- a/src/toolsComm/antelope/Makefile.Unix +++ b/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 diff --git a/src/toolsComm/antelope/error.c b/src/toolsComm/antelope/error.c index 3ed564c62..c21063732 100644 --- a/src/toolsComm/antelope/error.c +++ b/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); } diff --git a/src/toolsComm/antelope/main.c b/src/toolsComm/antelope/main.c index f17e19b43..8048355cb 100644 --- a/src/toolsComm/antelope/main.c +++ b/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); } diff --git a/src/toolsComm/antelope/output.c b/src/toolsComm/antelope/output.c index 7e2b76cf6..07c434ccf 100644 --- a/src/toolsComm/antelope/output.c +++ b/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); } diff --git a/src/toolsComm/antelope/reader.c b/src/toolsComm/antelope/reader.c index 059a04371..1ac277f01 100644 --- a/src/toolsComm/antelope/reader.c +++ b/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); } diff --git a/src/toolsComm/antelope/verbose.c b/src/toolsComm/antelope/verbose.c index 2c7cc52c7..947824bd3 100644 --- a/src/toolsComm/antelope/verbose.c +++ b/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); }