diff options
Diffstat (limited to 'lib/libI77/fmt.c')
| -rw-r--r-- | lib/libI77/fmt.c | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lib/libI77/fmt.c b/lib/libI77/fmt.c index 12792fc..8689ef5 100644 --- a/lib/libI77/fmt.c +++ b/lib/libI77/fmt.c @@ -40,9 +40,9 @@ char *ap_end(char *s) /*NOTREACHED*/ return 0; } #ifdef KR_headers -op_gen(a,b,c,d) +int op_gen(a,b,c,d) #else -op_gen(int a, int b, int c, int d) +int op_gen(int a, int b, int c, int d) #endif { struct syl *p= &f__syl[f__pc]; if(f__pc>=SYLMX) @@ -99,9 +99,9 @@ char *f_s(char *s, int curloc) return(s); } #ifdef KR_headers -ne_d(s,p) char *s,**p; +int ne_d(s,p) char *s,**p; #else -ne_d(char *s, char **p) +int ne_d(char *s, char **p) #endif { int n,x,sign=0; struct syl *sp; @@ -185,9 +185,9 @@ ne_d(char *s, char **p) return(1); } #ifdef KR_headers -e_d(s,p) char *s,**p; +int e_d(s,p) char *s,**p; #else -e_d(char *s, char **p) +int e_d(char *s, char **p) #endif { int i,im,n,w,d,e,found=0,x=0; char *sv=s; @@ -333,9 +333,9 @@ char *f_list(char *s) } #ifdef KR_headers -pars_f(s) char *s; +int pars_f(s) char *s; #else -pars_f(char *s) +int pars_f(char *s) #endif { f__parenlvl=f__revloc=f__pc=0; @@ -350,9 +350,9 @@ int f__cnt[STKSZ],f__ret[STKSZ],f__cp,f__rp; flag f__workdone, f__nonl; #ifdef KR_headers -type_f(n) +int type_f(n) #else -type_f(int n) +int type_f(int n) #endif { switch(n) @@ -476,6 +476,8 @@ loop: switch(type_f((p= &f__syl[f__pc])->op)) } return(0); } + +int en_fio(Void) { ftnint one=1; return(do_fio(&one,(char *)NULL,(ftnint)0)); |
