diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/xwsne.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.17/libf2c/xwsne.c | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/xwsne.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/xwsne.c deleted file mode 100644 index f810d3edbfe..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/xwsne.c +++ /dev/null @@ -1,77 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#include "fmt.h" - -extern int f__Aquote; - - static VOID -nl_donewrec(Void) -{ - (*f__donewrec)(); - PUT(' '); - } - -#ifdef KR_headers -x_wsne(a) cilist *a; -#else -#include "string.h" -#ifdef __cplusplus -extern "C" { -#endif - - VOID -x_wsne(cilist *a) -#endif -{ - Namelist *nl; - char *s; - Vardesc *v, **vd, **vde; - ftnint number, type; - ftnlen *dims; - ftnlen size; - extern ftnlen f__typesize[]; - - nl = (Namelist *)a->cifmt; - PUT('&'); - for(s = nl->name; *s; s++) - PUT(*s); - PUT(' '); - f__Aquote = 1; - vd = nl->vars; - vde = vd + nl->nvars; - while(vd < vde) { - v = *vd++; - s = v->name; -#ifdef No_Extra_Namelist_Newlines - if (f__recpos+strlen(s)+2 >= L_len) -#endif - nl_donewrec(); - while(*s) - PUT(*s++); - PUT(' '); - PUT('='); - number = (dims = v->dims) ? dims[1] : 1; - type = v->type; - if (type < 0) { - size = -type; - type = TYCHAR; - } - else - size = f__typesize[type]; - l_write(&number, v->addr, size, type); - if (vd < vde) { - if (f__recpos+2 >= L_len) - nl_donewrec(); - PUT(','); - PUT(' '); - } - else if (f__recpos+1 >= L_len) - nl_donewrec(); - } - f__Aquote = 0; - PUT('/'); - } -#ifdef __cplusplus -} -#endif |