c3ad4b4583
the function naming problem for complex double function i've recently aksed for in -committers. (The recently committed rev 1.5 of proc.c was actually also part of this update.) Should the mailing lists come to an agreement that f2c better belongs into the ports, this could be done nevertheless. For the time being, we've at least got a current version now. Thanks, Steve! Submitted by: Steve Kargl <sgk@troutmask.apl.washington.edu>
54 lines
916 B
C
54 lines
916 B
C
#ifndef NON_UNIX_STDIO
|
|
#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
|
|
#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
|
|
#include "sys/types.h"
|
|
#include "sys/stat.h"
|
|
#endif
|
|
#include "f2c.h"
|
|
#include "fio.h"
|
|
|
|
VOID
|
|
#ifdef KR_headers
|
|
g_char(a,alen,b) char *a,*b; ftnlen alen;
|
|
#else
|
|
g_char(char *a, ftnlen alen, char *b)
|
|
#endif
|
|
{
|
|
char *x = a + alen, *y = b + alen;
|
|
|
|
for(;; y--) {
|
|
if (x <= a) {
|
|
*b = 0;
|
|
return;
|
|
}
|
|
if (*--x != ' ')
|
|
break;
|
|
}
|
|
*y-- = 0;
|
|
do *y-- = *x;
|
|
while(x-- > a);
|
|
}
|
|
|
|
VOID
|
|
#ifdef KR_headers
|
|
b_char(a,b,blen) char *a,*b; ftnlen blen;
|
|
#else
|
|
b_char(char *a, char *b, ftnlen blen)
|
|
#endif
|
|
{ int i;
|
|
for(i=0;i<blen && *a!=0;i++) *b++= *a++;
|
|
for(;i<blen;i++) *b++=' ';
|
|
}
|
|
#ifndef NON_UNIX_STDIO
|
|
#ifdef KR_headers
|
|
long f__inode(a, dev) char *a; int *dev;
|
|
#else
|
|
long f__inode(char *a, int *dev)
|
|
#endif
|
|
{ struct stat x;
|
|
if(stat(a,&x)<0) return(-1);
|
|
*dev = x.st_dev;
|
|
return(x.st_ino);
|
|
}
|
|
#endif
|