summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libI77/util.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libI77/util.c')
-rw-r--r--contrib/libf2c/libI77/util.c70
1 files changed, 34 insertions, 36 deletions
diff --git a/contrib/libf2c/libI77/util.c b/contrib/libf2c/libI77/util.c
index 8280ac0..6e7c52b 100644
--- a/contrib/libf2c/libI77/util.c
+++ b/contrib/libf2c/libI77/util.c
@@ -8,47 +8,45 @@
#include "f2c.h"
#include "fio.h"
- VOID
-#ifdef KR_headers
-g_char(a,alen,b) char *a,*b; ftnlen alen;
-#else
-g_char(char *a, ftnlen alen, char *b)
-#endif
+void
+g_char (char *a, ftnlen alen, char *b)
{
- char *x = a + alen, *y = b + alen;
+ char *x = a + alen, *y = b + alen;
- for(;; y--) {
- if (x <= a) {
- *b = 0;
- return;
- }
- if (*--x != ' ')
- break;
- }
- *y-- = 0;
- do *y-- = *x;
- while(x-- > a);
+ for (;; y--)
+ {
+ if (x <= a)
+ {
+ *b = 0;
+ return;
}
+ if (*--x != ' ')
+ break;
+ }
+ *y-- = 0;
+ do
+ *y-- = *x;
+ while (x-- > a);
+}
- VOID
-#ifdef KR_headers
-b_char(a,b,blen) char *a,*b; ftnlen blen;
-#else
-b_char(char *a, char *b, ftnlen blen)
-#endif
-{ int i;
- for(i=0;i<blen && *a!=0;i++) *b++= *a++;
- for(;i<blen;i++) *b++=' ';
+void
+b_char (char *a, char *b, ftnlen blen)
+{
+ int i;
+ for (i = 0; i < blen && *a != 0; i++)
+ *b++ = *a++;
+ for (; i < blen; i++)
+ *b++ = ' ';
}
+
#ifndef NON_UNIX_STDIO
-#ifdef KR_headers
-long f__inode(a, dev) char *a; int *dev;
-#else
-long f__inode(char *a, int *dev)
-#endif
-{ struct stat x;
- if(stat(a,&x)<0) return(-1);
- *dev = x.st_dev;
- return(x.st_ino);
+long
+f__inode (char *a, int *dev)
+{
+ struct stat x;
+ if (stat (a, &x) < 0)
+ return (-1);
+ *dev = x.st_dev;
+ return (x.st_ino);
}
#endif
OpenPOWER on IntegriCloud