1 files changed, 61 insertions, 58 deletions

diff --git a/contrib/libf2c/libI77/wsfe.c b/contrib/libf2c/libI77/wsfe.c
index 490231a..46f7a8f 100644
--- a/contrib/libf2c/libI77/wsfe.c
+++ b/contrib/libf2c/libI77/wsfe.c
@@ -5,72 +5,75 @@
 #include "fmt.h"
 extern int f__hiwater;
 
- int
-x_wSL(Void)
+int
+x_wSL (void)
 {
-	int n = f__putbuf('\n');
-	f__hiwater = f__recpos = f__cursor = 0;
-	return(n == 0);
+  int n = f__putbuf ('\n');
+  f__hiwater = f__recpos = f__cursor = 0;
+  return (n == 0);
 }
 
- static int
-xw_end(Void)
+static int
+xw_end (void)
 {
-	int n;
+  int n;
 
-	if(f__nonl) {
-		f__putbuf(n = 0);
-		fflush(f__cf);
-		}
-	else
-		n = f__putbuf('\n');
-	f__hiwater = f__recpos = f__cursor = 0;
-	return n;
+  if (f__nonl)
+    {
+      f__putbuf (n = 0);
+      fflush (f__cf);
+    }
+  else
+    n = f__putbuf ('\n');
+  f__hiwater = f__recpos = f__cursor = 0;
+  return n;
 }
 
- static int
-xw_rev(Void)
+static int
+xw_rev (void)
 {
-	int n = 0;
-	if(f__workdone) {
-		n = f__putbuf('\n');
-		f__workdone = 0;
-		}
-	f__hiwater = f__recpos = f__cursor = 0;
-	return n;
+  int n = 0;
+  if (f__workdone)
+    {
+      n = f__putbuf ('\n');
+      f__workdone = 0;
+    }
+  f__hiwater = f__recpos = f__cursor = 0;
+  return n;
 }
 
-#ifdef KR_headers
-integer s_wsfe(a) cilist *a;	/*start*/
-#else
-integer s_wsfe(cilist *a)	/*start*/
-#endif
-{	int n;
-	if(f__init != 1) f_init();
-	f__init = 3;
-	f__reading=0;
-	f__sequential=1;
-	f__formatted=1;
-	f__external=1;
-	if(n=c_sfe(a)) return(n);
-	f__elist=a;
-	f__hiwater = f__cursor=f__recpos=0;
-	f__nonl = 0;
-	f__scale=0;
-	f__fmtbuf=a->cifmt;
-	f__curunit = &f__units[a->ciunit];
-	f__cf=f__curunit->ufd;
-	if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
-	f__putn= x_putc;
-	f__doed= w_ed;
-	f__doned= w_ned;
-	f__doend=xw_end;
-	f__dorevert=xw_rev;
-	f__donewrec=x_wSL;
-	fmt_bg();
-	f__cplus=0;
-	f__cblank=f__curunit->ublnk;
-	if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
-		err(a->cierr,errno,"write start");
-	return(0);
+integer
+s_wsfe (cilist * a)		/*start */
+{
+  int n;
+  if (f__init != 1)
+    f_init ();
+  f__init = 3;
+  f__reading = 0;
+  f__sequential = 1;
+  f__formatted = 1;
+  f__external = 1;
+  if ((n = c_sfe (a)))
+    return (n);
+  f__elist = a;
+  f__hiwater = f__cursor = f__recpos = 0;
+  f__nonl = 0;
+  f__scale = 0;
+  f__fmtbuf = a->cifmt;
+  f__curunit = &f__units[a->ciunit];
+  f__cf = f__curunit->ufd;
+  if (pars_f (f__fmtbuf) < 0)
+    err (a->cierr, 100, "startio");
+  f__putn = x_putc;
+  f__doed = w_ed;
+  f__doned = w_ned;
+  f__doend = xw_end;
+  f__dorevert = xw_rev;
+  f__donewrec = x_wSL;
+  fmt_bg ();
+  f__cplus = 0;
+  f__cblank = f__curunit->ublnk;
+  if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit))
+    err (a->cierr, errno, "write start");
+  return (0);
 }