X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Funlit%2Funlit.c;h=1269b81463153c2c89e1ca89ffdc41f022c9d227;hb=f8f0e76ad302fda30196ebc9230e5fcbc97be537;hp=366302156a4236c2f9de6caa16a69bc6e9a84f36;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/utils/unlit/unlit.c b/utils/unlit/unlit.c
index 3663021..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();
     }	
@@ -204,7 +201,7 @@ FILE *istream, *ostream; {
     }
 
     if (c==DEFNCHAR) {
-/*	myputc(' ',ostream);*/
+	myputc(' ',ostream);
         while (c=egetc(istream), !isLineTerm(c))
             myputc(c,ostream);
         myputc('\n',ostream);
@@ -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;