🚀 go-pugleaf

I'm trying to make libl77 and libf77 to use f2c with CodeWarrior.

libf77 is fine, but libl77 I'm having problems with - debugging would
be easy if for example, I knew what the declarations should be.

Has anyone done this sucessfully, or do I need to go find some fresh source?

Thanks for any help, here are the errors:

Error   : identifier 'cosd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 92   double_t cos ( double_t x );
Error   : identifier 'sind' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 93   double_t sin ( double_t x );
Error   : identifier 'tand' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 94   double_t tan ( double_t x );
Error   : identifier 'acosd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 96   double_t acos ( double_t x );                /*  result is in
[0,pi]          */
Error   : identifier 'asind' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 97   double_t asin ( double_t x );                /*  result is in
[-pi/2,pi/2]    */
Error   : identifier 'atand' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 98   double_t atan ( double_t x );                /*  result is in
[-pi/2,pi/2]    */
Error   : identifier 'atan2d' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 103   double_t atan2 ( double_t y, double_t x );
Error   : identifier 'coshd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 109   double_t cosh ( double_t x );
Error   : identifier 'sinhd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 110   double_t sinh ( double_t x );
Error   : identifier 'tanhd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 111   double_t tanh ( double_t x );
Error   : identifier 'expd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 121   double_t exp ( double_t x );
Error   : identifier 'frexpd' redeclared
was declared as: 'double (double, int *)'
now declared as: 'long double (long double, int *)'
fp.h line 130   double_t frexp ( double_t x, int *exponent );
Error   : identifier 'ldexpd' redeclared
was declared as: 'double (double, int)'
now declared as: 'long double (long double, int)'
fp.h line 131   double_t ldexp ( double_t x, int n );
Error   : identifier 'logd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 133   double_t log ( double_t x );
Error   : identifier 'log10d' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 141   double_t log10 ( double_t x ); 
Error   : identifier 'modfd' redeclared
was declared as: 'double (double, double *)'
now declared as: 'long double (long double, long double *)'
fp.h line 152   double_t    modf  ( double_t x, double_t *iptr );  /* <- note
NCEG difference */
Error   : identifier 'fabsd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 164   double_t fabs ( double_t x );
Error   : identifier 'powd' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 170   double_t pow   ( double_t x, double_t y );
Error   : identifier 'sqrtd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 171   double_t sqrt  ( double_t x );
Error   : identifier 'erf' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 177   double_t erf  ( double_t x );            /*   the error
function              */
Error   : identifier 'erfc' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 178   double_t erfc ( double_t x );            /*   complementary
error function    */
Error   : identifier 'ceild' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 191   double_t ceil  ( double_t x );
Error   : identifier 'floord' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 192   double_t floor ( double_t x ); 
Error   : identifier 'fmodd' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 238   double_t fmod ( double_t x, double_t y );
Error   : undefined identifier 'FMAX'
lread.c line 94   char s[FMAX+EXPMAXDIGS+4];
Error   : expression syntax error
lread.c line 95   register int ch;
Error   : expression syntax error
lread.c line 96   register char *sp, *spe, *sp1;
Error   : expression syntax error
lread.c line 97   long e, exp;
Error   : expression syntax error
lread.c line 98   int havenum, havestar, se;
Error   : not an lvalue
lread.c line 106   exp = 0;
Error   : undefined identifier 'havestar'
lread.c line 107   havestar = 0;
Error   : undefined identifier 'sp1'
lread.c line 109   sp1 = sp = s;
Error   : undefined identifier 'spe'
lread.c line 110   spe = sp + FMAX;
Error   : undefined identifier 'havenum'
lread.c line 111   havenum = 0;
Error   : undefined identifier 'ch'
lread.c line 113   (ch=(*l_getc)())
Error   : ';' expected
lread.c line 114   case '-': *sp++ = ch; sp1++; spe++;
Error   : illegal use of keyword
lread.c line 115   case '+':
Error   : undefined identifier 'ch'
lread.c line 116   (ch=(*l_getc)())
Error   : declaration syntax error
lread.c line 118   while(ch == '0') {
Error   : declaration syntax error
lread.c line 119   ++havenum;
Error   : ')' expected
lread.c line 120   (ch=(*l_getc)())
Error   : declaration syntax error
lread.c line 121   }
Error   : declaration syntax error
lread.c line 122   while(isdigit(ch)) {
Error   : declaration syntax error
lread.c line 123   if (sp < spe) *sp++ = ch;
Error   : declaration syntax error
lread.c line 124   else ++exp;
Error   : ')' expected
lread.c line 125   (ch=(*l_getc)())
Error   : declaration syntax error
lread.c line 126   }
Error   : declaration syntax error
lread.c line 127   if (ch == '*' && !poststar) {
Error   : declaration syntax error
lread.c line 128   if (sp == sp1 || exp || *s == '-') {
Error   : declaration syntax error
lread.c line 129   return err__fl((int)f__elist->cierr,112,"bad repetition
count")
Error   : declaration syntax error
lread.c line 130   }
Error   : identifier 'cosd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 92   double_t cos ( double_t x );
Error   : identifier 'sind' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 93   double_t sin ( double_t x );
Error   : identifier 'tand' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 94   double_t tan ( double_t x );
Error   : identifier 'acosd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 96   double_t acos ( double_t x );                /*  result is in
[0,pi]          */
Error   : identifier 'asind' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 97   double_t asin ( double_t x );                /*  result is in
[-pi/2,pi/2]    */
Error   : identifier 'atand' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 98   double_t atan ( double_t x );                /*  result is in
[-pi/2,pi/2]    */
Error   : identifier 'atan2d' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 103   double_t atan2 ( double_t y, double_t x );
Error   : identifier 'coshd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 109   double_t cosh ( double_t x );
Error   : identifier 'sinhd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 110   double_t sinh ( double_t x );
Error   : identifier 'tanhd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 111   double_t tanh ( double_t x );
Error   : identifier 'expd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 121   double_t exp ( double_t x );
Error   : identifier 'frexpd' redeclared
was declared as: 'double (double, int *)'
now declared as: 'long double (long double, int *)'
fp.h line 130   double_t frexp ( double_t x, int *exponent );
Error   : identifier 'ldexpd' redeclared
was declared as: 'double (double, int)'
now declared as: 'long double (long double, int)'
fp.h line 131   double_t ldexp ( double_t x, int n );
Error   : identifier 'logd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 133   double_t log ( double_t x );
Error   : identifier 'log10d' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 141   double_t log10 ( double_t x ); 
Error   : identifier 'modfd' redeclared
was declared as: 'double (double, double *)'
now declared as: 'long double (long double, long double *)'
fp.h line 152   double_t    modf  ( double_t x, double_t *iptr );  /* <- note
NCEG difference */
Error   : identifier 'fabsd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 164   double_t fabs ( double_t x );
Error   : identifier 'powd' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 170   double_t pow   ( double_t x, double_t y );
Error   : identifier 'sqrtd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 171   double_t sqrt  ( double_t x );
Error   : identifier 'erf' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 177   double_t erf  ( double_t x );            /*   the error
function              */
Error   : identifier 'erfc' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 178   double_t erfc ( double_t x );            /*   complementary
error function    */
Error   : identifier 'ceild' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 191   double_t ceil  ( double_t x );
Error   : identifier 'floord' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 192   double_t floor ( double_t x ); 
Error   : identifier 'fmodd' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 238   double_t fmod ( double_t x, double_t y );
Error   : undefined identifier 'FMAX'
rdfmt.c line 166   char s[FMAX+EXPMAXDIGS+4];
Error   : expression syntax error
rdfmt.c line 167   register int ch;
Error   : expression syntax error
rdfmt.c line 168   register char *sp, *spe, *sp1;
Error   : expression syntax error
rdfmt.c line 169   double x;
Error   : expression syntax error
rdfmt.c line 170   int scale1, se;
Error   : expression syntax error
rdfmt.c line 171   long e, exp;
Error   : undefined identifier 'sp1'
rdfmt.c line 173   sp1 = sp = s;
Error   : undefined identifier 'spe'
rdfmt.c line 174   spe = sp + FMAX;
Error   : not an lvalue
rdfmt.c line 175   exp = -d;
Error   : undefined identifier 'x'
rdfmt.c line 176   x = 0.;
Error   : undefined identifier 'ch'
rdfmt.c line 179   if((ch=(*f__getn)())<0) return(ch)
Error   : undefined identifier 'ch'
rdfmt.c line 181   } while (ch == ' ' && w);
Error   : undefined identifier 'ch'
rdfmt.c line 182   switch(ch) {
Error   : illegal use of keyword
rdfmt.c line 183   case '-': *sp++ = ch; sp1++; spe++;
Error   : illegal use of keyword
rdfmt.c line 184   case '+':
Error   : undefined identifier 'ch'
rdfmt.c line 187   if((ch=(*f__getn)())<0) return(ch)
Error   : undefined label 'zero'
rdfmt.c line 188   }
Error   : declaration syntax error
rdfmt.c line 189   while(ch == ' ') {
Error   : declaration syntax error
rdfmt.c line 190   blankdrop:
Error   : expression syntax error
rdfmt.c line 191   if (!w--) goto zero; GET(ch); }
Error   : declaration syntax error
rdfmt.c line 192   while(ch == '0')
Error   : declaration syntax error
rdfmt.c line 193   { if (!w--) goto zero; GET(ch); }
Error   : declaration syntax error
rdfmt.c line 194   if (ch == ' ' && f__cblank)
Error   : declaration syntax error
rdfmt.c line 195   goto blankdrop;
Error   : declaration syntax error
rdfmt.c line 196   scale1 = f__scale;
Error   : declaration syntax error
rdfmt.c line 197   while(isdigit(ch)) {
Error   : declaration syntax error
rdfmt.c line 198   digloop1:
Error   : identifier 'cosd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 92   double_t cos ( double_t x );
Error   : identifier 'sind' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 93   double_t sin ( double_t x );
Error   : identifier 'tand' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 94   double_t tan ( double_t x );
Error   : identifier 'acosd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 96   double_t acos ( double_t x );                /*  result is in
[0,pi]          */
Error   : identifier 'asind' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 97   double_t asin ( double_t x );                /*  result is in
[-pi/2,pi/2]    */
Error   : identifier 'atand' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 98   double_t atan ( double_t x );                /*  result is in
[-pi/2,pi/2]    */
Error   : identifier 'atan2d' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 103   double_t atan2 ( double_t y, double_t x );
Error   : identifier 'coshd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 109   double_t cosh ( double_t x );
Error   : identifier 'sinhd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 110   double_t sinh ( double_t x );
Error   : identifier 'tanhd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 111   double_t tanh ( double_t x );
Error   : identifier 'expd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 121   double_t exp ( double_t x );
Error   : identifier 'frexpd' redeclared
was declared as: 'double (double, int *)'
now declared as: 'long double (long double, int *)'
fp.h line 130   double_t frexp ( double_t x, int *exponent );
Error   : identifier 'ldexpd' redeclared
was declared as: 'double (double, int)'
now declared as: 'long double (long double, int)'
fp.h line 131   double_t ldexp ( double_t x, int n );
Error   : identifier 'logd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 133   double_t log ( double_t x );
Error   : identifier 'log10d' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 141   double_t log10 ( double_t x ); 
Error   : identifier 'modfd' redeclared
was declared as: 'double (double, double *)'
now declared as: 'long double (long double, long double *)'
fp.h line 152   double_t    modf  ( double_t x, double_t *iptr );  /* <- note
NCEG difference */
Error   : identifier 'fabsd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 164   double_t fabs ( double_t x );
Error   : identifier 'powd' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 170   double_t pow   ( double_t x, double_t y );
Error   : identifier 'sqrtd' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 171   double_t sqrt  ( double_t x );
Error   : identifier 'erf' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 177   double_t erf  ( double_t x );            /*   the error
function              */
Error   : identifier 'erfc' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 178   double_t erfc ( double_t x );            /*   complementary
error function    */
Error   : identifier 'ceild' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 191   double_t ceil  ( double_t x );
Error   : identifier 'floord' redeclared
was declared as: 'double (double)'
now declared as: 'long double (long double)'
fp.h line 192   double_t floor ( double_t x ); 
Error   : identifier 'fmodd' redeclared
was declared as: 'double (double, double)'
now declared as: 'long double (long double, long double)'
fp.h line 238   double_t fmod ( double_t x, double_t y );
Error   : undefined identifier 'FMAX'
wref.c line 23   char buf[FMAX+EXPMAXDIGS+4], *s, *se;
Error   : expression syntax error
wref.c line 24   int d1, delta, e1, i, sign, signspace;
Error   : expression syntax error
wref.c line 25   double dd;
Error   : expression syntax error
wref.c line 27   int e0 = e;
Error   : undefined identifier 'dd'
wref.c line 39   dd = p->pf;
Error   : expression syntax error
wref.c line 40   else
Error   : ';' expected
wref.c line 41   dd = p->pd;
Error   : undefined identifier 'dd'
wref.c line 42   if (dd < 0.) {
Error   : undefined identifier 'signspace'
wref.c line 43   signspace = sign = 1;
Error   : undefined identifier 'dd'
wref.c line 44   dd = -dd;
Error   : undefined label 'nogood'
wref.c line 45   }
Error   : declaration syntax error
wref.c line 46   else {
Error   : declaration syntax error
wref.c line 47   sign = 0;
Error   : declaration syntax error
wref.c line 48   signspace = (int)f__cplus;
Error   : declaration syntax error
wref.c line 50   if (!dd)
Error   : declaration syntax error
wref.c line 51   dd = 0.; /* avoid -0 */
Error   : declaration syntax error
wref.c line 53   }
Error   : declaration syntax error
wref.c line 54   delta = w - (2 /* for the . and the d adjustment above */
Error   : declaration syntax error
wref.c line 55   + 2 /* for the E+ */ + signspace + d + e);
Error   : declaration syntax error
wref.c line 56   if (delta < 0) {
Error   : declaration syntax error
wref.c line 57   nogood:
Error   : expression syntax error
wref.c line 58   while(--w >= 0)
Error   : declaration syntax error
wref.c line 59   (*f__putn)('*')
Error   : declaration syntax error
wref.c line 60   return(0);
Error   : declaration syntax error
wref.c line 61   }
Error   : declaration syntax error
wref.c line 62   if (f__scale < 0)
Error   : declaration syntax error
wref.c line 63   d += f__scale;

-- 
*    Guy Ruth Hammond - cold, tired, lonely, hungry and depressed    *
* Undergraduate at University College London, Mechanical Engineering *
* hammond_g@meng.ucl.ac.uk | http://www.ucl.ac.uk/~zcemm23/home.html *
*                Clear the DECs, it's time for action!               *