diff options
Diffstat (limited to 'digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c')
-rw-r--r-- | digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c b/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c index 364210c..d0d2997 100644 --- a/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c +++ b/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/fmt.c @@ -40,11 +40,12 @@ char *ap_end(char *s) f__fatal(100, "bad string"); /*NOTREACHED*/ return 0; } + static #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) @@ -57,6 +58,7 @@ op_gen(int a, int b, int c, int d) p->p2.i[1]=d; return(f__pc++); } + #ifdef KR_headers static char *f_list(); static char *gt_num(s,n,n1) char *s; int *n, n1; @@ -109,9 +111,9 @@ char *f_s(char *s, int curloc) static #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; @@ -201,9 +203,9 @@ ne_d(char *s, char **p) static #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; @@ -318,6 +320,7 @@ e_d(char *s, char **p) *p=s; return(1); } + static #ifdef KR_headers char *i_tem(s) char *s; @@ -360,9 +363,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; @@ -372,15 +375,16 @@ pars_f(char *s) } return(0); } + #define STKSZ 10 int f__cnt[STKSZ],f__ret[STKSZ],f__cp,f__rp; flag f__workdone, f__nonl; static #ifdef KR_headers -type_f(n) +int type_f(n) #else -type_f(int n) +int type_f(int n) #endif { switch(n) @@ -409,6 +413,7 @@ type_f(int n) return(ED); } } + #ifdef KR_headers integer do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr; #else @@ -504,10 +509,12 @@ loop: switch(type_f((p= &f__syl[f__pc])->op)) } return(0); } -en_fio(Void) + +int en_fio(Void) { ftnint one=1; return(do_fio(&one,(char *)NULL,(ftnint)0)); } + VOID fmt_bg(Void) { |