Return to xwsne.c CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/xwsne.c, revision 1.1.1.1

1.1       root        1: #include "f2c.h"
                      2: #include "fio.h"
                      3: #include "lio.h"
                      4: #include "fmt.h"
                      5: 
                      6:  static VOID
                      7: nl_donewrec(Void)
                      8: {
                      9:        (*f__donewrec)();
                     10:        PUT(' ');
                     11:        }
                     12: 
                     13: #ifdef KR_headers
                     14: x_wsne(a) cilist *a;
                     15: #else
                     16: #include "string.h"
                     17: 
                     18:  VOID
                     19: x_wsne(cilist *a)
                     20: #endif
                     21: {
                     22:        Namelist *nl;
                     23:        char *s;
                     24:        Vardesc *v, **vd, **vde;
                     25:        ftnint *number, type;
                     26:        ftnlen *dims;
                     27:        ftnlen size;
                     28:        static ftnint one = 1;
                     29:        extern ftnlen f__typesize[];
                     30: 
                     31:        nl = (Namelist *)a->cifmt;
                     32:        PUT('&');
                     33:        for(s = nl->name; *s; s++)
                     34:                PUT(*s);
                     35:        PUT(' ');
                     36:        vd = nl->vars;
                     37:        vde = vd + nl->nvars;
                     38:        while(vd < vde) {
                     39:                v = *vd++;
                     40:                s = v->name;
                     41: #ifdef No_Extra_Namelist_Newlines
                     42:                if (f__recpos+strlen(s)+2 >= L_len)
                     43: #endif
                     44:                        nl_donewrec();
                     45:                while(*s)
                     46:                        PUT(*s++);
                     47:                PUT(' ');
                     48:                PUT('=');
                     49:                number = (dims = v->dims) ? dims + 1 : &one;
                     50:                type = v->type;
                     51:                if (type < 0) {
                     52:                        size = -type;
                     53:                        type = TYCHAR;
                     54:                        }
                     55:                else
                     56:                        size = f__typesize[type];
                     57:                l_write(number, v->addr, size, type);
                     58:                if (vd < vde) {
                     59:                        if (f__recpos+2 >= L_len)
                     60:                                nl_donewrec();
                     61:                        PUT(',');
                     62:                        PUT(' ');
                     63:                        }
                     64:                else if (f__recpos+1 >= L_len)
                     65:                        nl_donewrec();
                     66:                }
                     67:        PUT('/');
                     68:        }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.