diff options
Diffstat (limited to 'digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c')
-rw-r--r-- | digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c | 76 |
1 files changed, 16 insertions, 60 deletions
diff --git a/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c b/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c index c65a6bc..74d1131 100644 --- a/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c +++ b/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c @@ -64,12 +64,7 @@ mv_cur(Void) /* shouldn't use fseek because it insists on calling fflush */ return(0); } - static int -#ifdef KR_headers -wrt_Z(n,w,minlen,len) Uint *n; int w, minlen; ftnlen len; -#else -wrt_Z(Uint *n, int w, int minlen, ftnlen len) -#endif +static int wrt_Z(Uint *n, int w, int minlen, ftnlen len) { char *s, *se; int i, w1; @@ -119,12 +114,7 @@ wrt_Z(Uint *n, int w, int minlen, ftnlen len) return 0; } - static int -#ifdef KR_headers -wrt_I(n,w,len, base) Uint *n; ftnlen len; int base; -#else -wrt_I(Uint *n, int w, ftnlen len, int base) -#endif +static int wrt_I(Uint *n, int w, ftnlen len, int base) { int ndigit,sign,spare,i; longint x; char *ans; @@ -147,12 +137,8 @@ wrt_I(Uint *n, int w, ftnlen len, int base) } return(0); } - static int -#ifdef KR_headers -wrt_IM(n,w,m,len,base) Uint *n; ftnlen len; int base; -#else -wrt_IM(Uint *n, int w, int m, ftnlen len, int base) -#endif + +static int wrt_IM(Uint *n, int w, int m, ftnlen len, int base) { int ndigit,sign,spare,i,xsign; longint x; char *ans; @@ -184,12 +170,8 @@ wrt_IM(Uint *n, int w, int m, ftnlen len, int base) for(i=0;i<ndigit;i++) (*f__putn)(*ans++); return(0); } - static int -#ifdef KR_headers -wrt_AP(s) char *s; -#else -wrt_AP(char *s) -#endif + +static int wrt_AP(char *s) { char quote; int i; @@ -203,12 +185,8 @@ wrt_AP(char *s) } return(1); } - static int -#ifdef KR_headers -wrt_H(a,s) char *s; -#else -wrt_H(int a, char *s) -#endif + +static int wrt_H(int a, char *s) { int i; @@ -217,11 +195,8 @@ wrt_H(int a, char *s) while(a--) (*f__putn)(*s++); return(1); } -#ifdef KR_headers -int wrt_L(n,len, sz) Uint *n; ftnlen sz; -#else + int wrt_L(Uint *n, int len, ftnlen sz) -#endif { int i; long x; if(sizeof(long)==sz) x=n->il; @@ -233,22 +208,14 @@ int wrt_L(Uint *n, int len, ftnlen sz) else (*f__putn)('F'); return(0); } - static int -#ifdef KR_headers -wrt_A(p,len) char *p; ftnlen len; -#else -wrt_A(char *p, ftnlen len) -#endif + +static int wrt_A(char *p, ftnlen len) { while(len-- > 0) (*f__putn)(*p++); return(0); } - static int -#ifdef KR_headers -wrt_AW(p,w,len) char * p; ftnlen len; -#else -wrt_AW(char * p, int w, ftnlen len) -#endif + +static int wrt_AW(char * p, int w, ftnlen len) { while(w>len) { w--; @@ -259,12 +226,7 @@ wrt_AW(char * p, int w, ftnlen len) return(0); } - static int -#ifdef KR_headers -wrt_G(p,w,d,e,len) ufloat *p; ftnlen len; -#else -wrt_G(ufloat *p, int w, int d, int e, ftnlen len) -#endif +static int wrt_G(ufloat *p, int w, int d, int e, ftnlen len) { double up = 1,x; int i=0,oldscale,n,j; x = len==sizeof(real)?p->pf:p->pd; @@ -289,11 +251,8 @@ wrt_G(ufloat *p, int w, int d, int e, ftnlen len) } return(wrt_E(p,w,d,e,len)); } -#ifdef KR_headers -int w_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len; -#else + int w_ed(struct syl *p, char *ptr, ftnlen len) -#endif { int i; @@ -335,11 +294,8 @@ int w_ed(struct syl *p, char *ptr, ftnlen len) return(wrt_Z((Uint *)ptr,p->p1,p->p2.i[0],len)); } } -#ifdef KR_headers -int w_ned(p) struct syl *p; -#else + int w_ned(struct syl *p) -#endif { switch(p->op) { |