summaryrefslogtreecommitdiffstats
path: root/digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c
diff options
context:
space:
mode:
Diffstat (limited to 'digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c')
-rw-r--r--digikam/imageplugins/coreplugin/sharpnesseditor/clapack/wrtfmt.c76
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)
{