summaryrefslogtreecommitdiff
path: root/utils/unlit/unlit.c
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-04-26 11:42:15 +0000
committerIan Lynagh <igloo@earth.li>2009-04-26 11:42:15 +0000
commit34cc75e1a62638f2833815746ebce0a9114dc26b (patch)
treeef21e8fd7af1356beea9cce7d6efb8a65374e24c /utils/unlit/unlit.c
parent74e1368d4688ee16f6decdf2cd3ebe27506b26ba (diff)
downloadhaskell-34cc75e1a62638f2833815746ebce0a9114dc26b.tar.gz
GHC new build system megapatch
Diffstat (limited to 'utils/unlit/unlit.c')
-rw-r--r--utils/unlit/unlit.c24
1 files changed, 9 insertions, 15 deletions
diff --git a/utils/unlit/unlit.c b/utils/unlit/unlit.c
index c5beeb1cbf..1269b81463 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;