X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Funlit%2Funlit.c;h=1269b81463153c2c89e1ca89ffdc41f022c9d227;hb=d05212cf8475778cf41758c04f4eee510ae47e98;hp=c5beeb1cbf304e0e11e91c24df9dbab42d4966a3;hpb=28d732c362e13e58d653b3dc15fd376c3f0c54c2;p=ghc-hetmet.git diff --git a/utils/unlit/unlit.c b/utils/unlit/unlit.c index c5beeb1..1269b81 100644 --- a/utils/unlit/unlit.c +++ b/utils/unlit/unlit.c @@ -90,10 +90,8 @@ static char *ofilename = NULL; * if noisy is not set. */ -complain(file, lin, what) -char *file; -char *what; -int lin; { +void complain(char *file, int lin, char *what) +{ if (noisy) { if (file) fprintf(stderr, "%s ", file); @@ -102,7 +100,7 @@ int lin; { } } -writeerror() +void writeerror(void) { if (!strcmp(ofilename,"-")) { fprintf(stderr, CANNOTWRITESTDOUT); @@ -112,9 +110,8 @@ writeerror() exit(1); } -myputc(c, ostream) -char c; -FILE *ostream; { +void myputc(char c, FILE *ostream) +{ if (putc(c,ostream) == EOF) { writeerror(); } @@ -247,10 +244,8 @@ FILE *istream, *ostream; { * - there should be at least one DEFN line in a script. */ -unlit(file, istream, ostream) -char *file; -FILE *istream; -FILE *ostream; { +void unlit(char *file, FILE *istream, FILE *ostream) +{ line last, this=START; int linesread=0; int defnsread=0; @@ -317,9 +312,8 @@ FILE *ostream; { * position to specify the standard input or the standard output respectively. */ -main(argc,argv) -int argc; -char **argv; { +int main(int argc,char **argv) +{ FILE *istream, *ostream; char *file;