diff options
Diffstat (limited to 'digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c')
| -rw-r--r-- | digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c | 69 |
1 files changed, 8 insertions, 61 deletions
diff --git a/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c b/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c index d0d2997..a4fcbc3 100644 --- a/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c +++ b/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c @@ -21,12 +21,7 @@ extern flag f__cblank,f__cplus; /*blanks in I and compulsory plus*/ static struct syl f__syl[SYLMX]; int f__parenlvl,f__pc,f__revloc; - static -#ifdef KR_headers -char *ap_end(s) char *s; -#else -char *ap_end(char *s) -#endif +static char *ap_end(char *s) { char quote; quote= *s++; for(;*s;s++) @@ -41,12 +36,7 @@ char *ap_end(char *s) /*NOTREACHED*/ return 0; } - static -#ifdef KR_headers -int op_gen(a,b,c,d) -#else -int op_gen(int a, int b, int c, int d) -#endif +static int op_gen(int a, int b, int c, int d) { struct syl *p= &f__syl[f__pc]; if(f__pc>=SYLMX) { fprintf(stderr,"format too complicated:\n"); @@ -59,13 +49,8 @@ int op_gen(int a, int b, int c, int d) return(f__pc++); } -#ifdef KR_headers -static char *f_list(); -static char *gt_num(s,n,n1) char *s; int *n, n1; -#else static char *f_list(char*); static char *gt_num(char *s, int *n, int n1) -#endif { int m=0,f__cnt=0; char c; for(c= *s;;c = *s) @@ -87,12 +72,7 @@ static char *gt_num(char *s, int *n, int n1) return(s); } - static -#ifdef KR_headers -char *f_s(s,curloc) char *s; -#else -char *f_s(char *s, int curloc) -#endif +static char *f_s(char *s, int curloc) { skip(s); if(*s++!='(') @@ -109,12 +89,7 @@ char *f_s(char *s, int curloc) return(s); } - static -#ifdef KR_headers -int ne_d(s,p) char *s,**p; -#else -int ne_d(char *s, char **p) -#endif +static int ne_d(char *s, char **p) { int n,x,sign=0; struct syl *sp; switch(*s) @@ -201,12 +176,7 @@ int ne_d(char *s, char **p) return(1); } - static -#ifdef KR_headers -int e_d(s,p) char *s,**p; -#else -int e_d(char *s, char **p) -#endif +static int e_d(char *s, char **p) { int i,im,n,w,d,e,found=0,x=0; char *sv=s; s=gt_num(s,&n,1); @@ -321,12 +291,7 @@ int e_d(char *s, char **p) return(1); } - static -#ifdef KR_headers -char *i_tem(s) char *s; -#else -char *i_tem(char *s) -#endif +static char *i_tem(char *s) { char *t; int n,curloc; if(*s==')') return(s); @@ -337,12 +302,7 @@ char *i_tem(char *s) return(f_s(s,curloc)); } - static -#ifdef KR_headers -char *f_list(s) char *s; -#else -char *f_list(char *s) -#endif +static char *f_list(char *s) { for(;*s!=0;) { skip(s); @@ -362,11 +322,7 @@ char *f_list(char *s) return(NULL); } -#ifdef KR_headers -int pars_f(s) char *s; -#else int pars_f(char *s) -#endif { f__parenlvl=f__revloc=f__pc=0; if(f_s(s,0) == NULL) @@ -380,12 +336,7 @@ int pars_f(char *s) int f__cnt[STKSZ],f__ret[STKSZ],f__cp,f__rp; flag f__workdone, f__nonl; - static -#ifdef KR_headers -int type_f(n) -#else -int type_f(int n) -#endif +static int type_f(int n) { switch(n) { @@ -414,11 +365,7 @@ int type_f(int n) } } -#ifdef KR_headers -integer do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr; -#else integer do_fio(ftnint *number, char *ptr, ftnlen len) -#endif { struct syl *p; int n,i; for(i=0;i<*number;i++,ptr+=len) |