pread.c File Reference

#include "defs.h"

Include dependency graph for pread.c:

Go to the source code of this file.

Defines
#define	P_space   1
#define	P_anum   2
#define	P_delim   3
#define	P_slash   4
#define	TGULP   100
#define	checklogical(n)
Functions
static void	trealloc (Void)
static void	badchar (int c)
static void	bad_type (Void)
static void	badflag (char *tname, char *option)
static void	detected (char *msg)
static void	checkreal (int k)
static void	Pnotboth (Extsym *e)
static int	numread (register FILE *pf, int *n)
static void argverify	Argdcl ((int, Extsym *))
static void Pbadret	Argdcl ((int ftype, Extsym *p))
static int	readref (register FILE *pf, Extsym *e, int ftype)
static int	comlen (register FILE *pf)
static int	Ptoken (FILE *pf, int canend)
static int	Pftype (Void)
static void	wanted (int i, char *what)
static int	Ptype (FILE *pf)
static char *	trimunder (Void)
static void	Pbadmsg (char *msg, Extsym *p)
static void	Pbadret (int ftype, Extsym *p)
static void	argverify (int ftype, Extsym *p)
static void	newarg (int ftype, Extsym *p)
static int	Pfile (char *fname)
void	read_Pfiles (char **ffiles)
Variables
static char	Ptok [128]
static char	Pct [Table_size]
static char *	Pfname
static long	Plineno
static int	Pbad
static int *	tfirst
static int *	tlast
static int *	tnext
static int	tmax

---

Define Documentation

#define checklogical

(

n

)

Definition at line 143 of file pread.c.

Referenced by Pftype(), and Ptype().

#define P_anum   2

Definition at line 33 of file pread.c.

Referenced by comlen(), Pfile(), Ptoken(), Ptype(), and wanted().

#define P_delim   3

Definition at line 34 of file pread.c.

Referenced by Pfile(), and Ptoken().

#define P_slash   4

Definition at line 35 of file pread.c.

Referenced by Pfile(), and Ptoken().

#define P_space   1

Definition at line 32 of file pread.c.

Referenced by Pfile(), and Ptoken().

#define TGULP   100

Definition at line 37 of file pread.c.

Referenced by trealloc().

---

Function Documentation

static void Pbadret Argdcl

(

(int ftype, Extsym *p)

)

[static]

static void argverify Argdcl

(

(int, Extsym *)

)

[static]

static void argverify	(	int	ftype,
		Extsym *	p
	)			[static]

Definition at line 755 of file pread.c.

References Argtype(), Argtypes::atypes, Argtypes::changes, j, Argtypes::nargs, p, Pbadmsg(), Pbadret(), t, tfirst, tnext, Atype::type, type_fixup(), TYSUBR, and TYUNKNOWN.

Referenced by Pfile().

{
        Argtypes *at;
        register Atype *aty;
        int i, j, k;
        register int *t, *te;
        char buf1[32], buf2[32];

        at = p->arginfo;
        if (at->nargs < 0)
                return;
        if (p->extype != ftype) {
                Pbadret(ftype, p);
                return;
                }
        t = tfirst;
        te = tnext;
        i = te - t;
        if (at->nargs != i) {
                j = at->nargs;
                Pbadmsg("differing numbers of arguments",p);
                fprintf(stderr, "here %d, previously %d\n",
                        i, j);
                return;
                }
        for(aty = at->atypes; t < te; t++, aty++) {
                if (*t == aty->type)
                        continue;
                j = aty->type;
                k = *t;
                if (k >= 300 || k == j)
                        continue;
                if (j >= 300) {
                        if (k >= 200) {
                                if (k == TYUNKNOWN + 200)
                                        continue;
                                if (j % 100 != k - 200
                                 && k != TYSUBR + 200
                                 && j != TYUNKNOWN + 300
                                 && !type_fixup(at,aty,k))
                                        goto badtypes;
                                }
                        else if (j % 100 % TYSUBR != k % TYSUBR
                                        && !type_fixup(at,aty,k))
                                goto badtypes;
                        }
                else if (k < 200 || j < 200)
                        goto badtypes;
                else if (k == TYUNKNOWN+200)
                        continue;
                else if (j != TYUNKNOWN+200)
                        {
 badtypes:
                        Pbadmsg("differing calling sequences",p);
                        i = t - tfirst + 1;
                        fprintf(stderr,
                                "arg %d: here %s, prevously %s\n",
                                i, Argtype(k,buf1), Argtype(j,buf2));
                        return;
                        }
                /* We've subsequently learned the right type,
                   as in the call on zoo below...

                        subroutine foo(x, zap)
                        external zap
                        call goo(zap)
                        x = zap(3)
                        call zoo(zap)
                        end
                 */
                aty->type = k;
                at->changes = 1;
                }
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static void bad_type

(

Void

)

[static]

Definition at line 69 of file pread.c.

References Pfname, Plineno, and Ptok.

Referenced by Pftype(), and Ptype().

{
        fprintf(stderr,
                "unexpected type \"%s\" on line %ld of %s\n",
                Ptok, Plineno, Pfname);
        exit(2);
        }

Here is the caller graph for this function:

static void badchar

(

int

c

)

[static]

Definition at line 59 of file pread.c.

References Pfname, and Plineno.

Referenced by Pfile(), Ptoken(), and Ptype().

{
        fprintf(stderr,
                "unexpected character 0x%.2x = '%c' on line %ld of %s\n",
                c, c, Plineno, Pfname);
        exit(2);
        }

Here is the caller graph for this function:

static void badflag	(	char *	tname,
		char *	option
	)			[static]

Definition at line 83 of file pread.c.

References Pbad, Pfname, and Plineno.

Referenced by checkreal().

{
        fprintf(stderr, "%s type from `f2c -%s` on line %ld of %s\n",
                tname, option, Plineno, Pfname);
        Pbad++;
        }

Here is the caller graph for this function:

static void checkreal

(

int

k

)

[static]

Definition at line 151 of file pread.c.

References badflag(), detected(), and forcedouble.

Referenced by Pftype().

{
        static int warned = 0;
        static int seen[2] = {0,0};

        seen[k] = 1;
        if (seen[1-k]) {
                if (warned < 2)
                        detected("Illegal mixture of -R and -!R ");
                warned = 2;
                return;
                }
        if (k == forcedouble || warned)
                return;
        warned = 1;
        badflag("REAL return", (char*)(k ? "!R" : "R"));
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static int comlen

(

register FILE *

pf

)

[static]

Definition at line 297 of file pread.c.

References buf, Extsym::extstg, L, Extsym::maxleng, mkext1(), P_anum, Pct, Pfname, Plineno, Pnotboth(), readref(), s, STGCOMMON, STGUNKNOWN, and ungetc().

Referenced by Ptoken().

{
        register int c;
        register char *s, *se;
        char buf[128], cbuf[128];
        int refread;
        long L;
        Extsym *e;

        if ((c = getc(pf)) == EOF)
                return 1;
        if (c == ' ') {
                refread = 0;
                s = "comlen ";
                }
        else if (c == ':') {
                refread = 1;
                s = "ref: ";
                }
        else {
 ret0:
                if (c == '*')
                        ungetc(c,pf);
                return 0;
                }
        while(*s) {
                if ((c = getc(pf)) == EOF)
                        return 1;
                if (c != *s++)
                        goto ret0;
                }
        s = buf;
        se = buf + sizeof(buf) - 1;
        for(;;) {
                if ((c = getc(pf)) == EOF)
                        return 1;
                if (c == ' ')
                        break;
                if (s >= se || Pct[c] != P_anum)
                        goto ret0;
                *s++ = c;
                }
        *s-- = 0;
        if (s <= buf || *s != '_')
                return 0;
        strcpy(cbuf,buf);
        *s-- = 0;
        if (*s == '_') {
                *s-- = 0;
                if (s <= buf)
                        return 0;
                }
        for(L = 0;;) {
                if ((c = getc(pf)) == EOF)
                        return 1;
                if (c == ' ')
                        break;
                if (c < '0' && c > '9')
                        goto ret0;
                L = 10*L + c - '0';
                }
        if (!L && !refread)
                return 0;
        e = mkext1(buf, cbuf);
        if (refread)
                return readref(pf, e, (int)L);
        if (e->extstg == STGUNKNOWN) {
                e->extstg = STGCOMMON;
                e->maxleng = L;
                }
        else if (e->extstg != STGCOMMON)
                Pnotboth(e);
        else if (e->maxleng != L) {
                fprintf(stderr,
        "incompatible lengths for common block %s (line %ld of %s)\n",
                                    buf, Plineno, Pfname);
                if (e->maxleng < L)
                        e->maxleng = L;
                }
        return 0;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static void detected

(

char *

msg

)

[static]

Definition at line 96 of file pread.c.

References Pbad, Pfname, and Plineno.

Referenced by checkreal().

{
        fprintf(stderr,
        "%sdetected on line %ld of %s\n", msg, Plineno, Pfname);
        Pbad++;
        }

Here is the caller graph for this function:

static void newarg	(	int	ftype,
		Extsym *	p
	)			[static]

Definition at line 837 of file pread.c.

References Argtypes::atypes, Argtypes::changes, Atype::cp, Argtypes::defined, Argtypes::dnargs, gmem(), Argtypes::nargs, p, Pnotboth(), STGCOMMON, STGEXT, t, tfirst, tnext, and Atype::type.

Referenced by Pfile().

{
        Argtypes *at;
        register Atype *aty;
        register int *t, *te;
        int i, k;

        if (p->extstg == STGCOMMON) {
                Pnotboth(p);
                return;
                }
        p->extstg = STGEXT;
        p->extype = ftype;
        p->exproto = 1;
        t = tfirst;
        te = tnext;
        i = te - t;
        k = sizeof(Argtypes) + (i-1)*sizeof(Atype);
        at = p->arginfo = (Argtypes *)gmem(k,1);
        at->dnargs = at->nargs = i;
        at->defined = at->changes = 0;
        for(aty = at->atypes; t < te; aty++) {
                aty->type = *t++;
                aty->cp = 0;
                }
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static int numread	(	register FILE *	pf,
		int *	n
	)			[static]

Definition at line 193 of file pread.c.

Referenced by readref().

{
        register int c, k;

        if ((c = getc(pf)) < '0' || c > '9')
                return c;
        k = c - '0';
        for(;;) {
                if ((c = getc(pf)) == ' ') {
                        *n = k;
                        return c;
                        }
                if (c < '0' || c > '9')
                        break;
                k = 10*k + c - '0';
                }
        return c;
        }

Here is the caller graph for this function:

static void Pbadmsg	(	char *	msg,
		Extsym *	p
	)			[static]

Definition at line 723 of file pread.c.

References p, Pbad, Pfname, and Plineno.

Referenced by argverify(), and Pbadret().

{
        Pbad++;
        fprintf(stderr, "%s for %s (line %ld of %s):\n\t", msg,
                p->fextname, Plineno, Pfname);
        p->arginfo->nargs = -1;
        }

Here is the caller graph for this function:

static void Pbadret	(	int	ftype,
		Extsym *	p
	)			[static]

Definition at line 738 of file pread.c.

References Argtype(), p, and Pbadmsg().

Referenced by argverify(), and readref().

{
        char buf1[32], buf2[32];

        Pbadmsg("inconsistent types",p);
        fprintf(stderr, "here %s, previously %s\n",
                Argtype(ftype+200,buf1),
                Argtype(p->extype+200,buf2));
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static int Pfile

(

char *

fname

)

[static]

Definition at line 870 of file pread.c.

References argverify(), badchar(), getname(), mkext1(), newarg(), p, P_anum, P_delim, P_slash, P_space, Pct, Pfname, Pftype(), Plineno, Ptok, Ptoken(), Ptype(), s, textread, tfirst, tlast, tnext, trealloc(), trimunder(), and wanted().

Referenced by read_Pfiles().

{
        char *s;
        int ftype, i;
        FILE *pf;
        Extsym *p;

        for(s = fname; *s; s++);
        if (s - fname < 2
        || s[-2] != '.'
        || (s[-1] != 'P' && s[-1] != 'p'))
                return 0;

        if (!(pf = fopen(fname, textread))) {
                fprintf(stderr, "can't open %s\n", fname);
                exit(2);
                }
        Pfname = fname;
        Plineno = 1;
        if (!Pct[' ']) {
                for(s = " \t\n\r\v\f"; *s; s++)
                        Pct[*s] = P_space;
                for(s = "*,();"; *s; s++)
                        Pct[*s] = P_delim;
                for(i = '0'; i <= '9'; i++)
                        Pct[i] = P_anum;
                for(s = "abcdefghijklmnopqrstuvwxyz"; i = *s; s++)
                        Pct[i] = Pct[i+'A'-'a'] = P_anum;
                Pct['_'] = P_anum;
                Pct['/'] = P_slash;
                }

        for(;;) {
                if (!(i = Ptoken(pf,1)))
                        break;
                if (i != P_anum
                || !strcmp(Ptok, "extern") && (i = Ptoken(pf,0)) != P_anum)
                        badchar(i);
                ftype = Pftype();
 getname:
                if ((i = Ptoken(pf,0)) != P_anum)
                        badchar(i);
                p = mkext1(trimunder(), Ptok);

                if ((i = Ptoken(pf,0)) != '(')
                        badchar(i);
                tnext = tfirst;
                while(i = Ptype(pf)) {
                        if (tnext >= tlast)
                                trealloc();
                        *tnext++ = i;
                        }
                if (p->arginfo) {
                        argverify(ftype, p);
                        if (p->arginfo->nargs < 0)
                                newarg(ftype, p);
                        }
                else
                        newarg(ftype, p);
                p->arginfo->defined = 1;
                i = Ptoken(pf,0);
                switch(i) {
                        case ';':
                                break;
                        case ',':
                                goto getname;
                        default:
                                wanted(i, "\";\" or \",\"");
                        }
                }
        fclose(pf);
        return 1;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static int Pftype

(

Void

)

[static]

Definition at line 463 of file pread.c.

References bad_type(), checklogical, checkreal(), Ptok, TYCHAR, TYCOMPLEX, TYDCOMPLEX, TYDREAL, TYINT1, TYLOGICAL, TYLOGICAL1, TYLOGICAL2, TYLONG, TYQUAD, TYREAL, TYSHORT, and TYSUBR.

Referenced by Pfile().

{
        switch(Ptok[0]) {
                case 'C':
                        if (!strcmp(Ptok+1, "_f"))
                                return TYCOMPLEX;
                        break;
                case 'E':
                        if (!strcmp(Ptok+1, "_f")) {
                                /* TYREAL under forcedouble */
                                checkreal(1);
                                return TYREAL;
                                }
                        break;
                case 'H':
                        if (!strcmp(Ptok+1, "_f"))
                                return TYCHAR;
                        break;
                case 'Z':
                        if (!strcmp(Ptok+1, "_f"))
                                return TYDCOMPLEX;
                        break;
                case 'd':
                        if (!strcmp(Ptok+1, "oublereal"))
                                return TYDREAL;
                        break;
                case 'i':
                        if (!strcmp(Ptok+1, "nt"))
                                return TYSUBR;
                        if (!strcmp(Ptok+1, "nteger"))
                                return TYLONG;
                        if (!strcmp(Ptok+1, "nteger1"))
                                return TYINT1;
                        break;
                case 'l':
                        if (!strcmp(Ptok+1, "ogical")) {
                                checklogical(1);
                                return TYLOGICAL;
                                }
                        if (!strcmp(Ptok+1, "ogical1"))
                                return TYLOGICAL1;
#ifdef TYQUAD
                        if (!strcmp(Ptok+1, "ongint"))
                                return TYQUAD;
#endif
                        break;
                case 'r':
                        if (!strcmp(Ptok+1, "eal")) {
                                checkreal(0);
                                return TYREAL;
                                }
                        break;
                case 's':
                        if (!strcmp(Ptok+1, "hortint"))
                                return TYSHORT;
                        if (!strcmp(Ptok+1, "hortlogical")) {
                                checklogical(0);
                                return TYLOGICAL2;
                                }
                        break;
                }
        bad_type();
        /* NOT REACHED */
        return 0;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static void Pnotboth

(

Extsym *

e

)

[static]

Definition at line 175 of file pread.c.

References Extsym::curno, Extsym::fextname, Pbad, Pfname, and Plineno.

Referenced by comlen(), newarg(), and readref().

{
        if (e->curno)
                return;
        Pbad++;
        e->curno = 1;
        fprintf(stderr,
        "%s cannot be both a procedure and a common block (line %ld of %s)\n",
                e->fextname, Plineno, Pfname);
        }

Here is the caller graph for this function:

static int Ptoken	(	FILE *	pf,
		int	canend
	)			[static]

Definition at line 386 of file pread.c.

References badchar(), comlen(), P_anum, P_delim, P_slash, P_space, Pct, Pfname, Plineno, Ptok, s, top, and ungetc().

Referenced by Pfile(), and Ptype().

{
        register int c;
        register char *s, *se;

 top:
        for(;;) {
                c = getc(pf);
                if (c == EOF) {
                        if (canend)
                                return 0;
                        goto badeof;
                        }
                if (Pct[c] != P_space)
                        break;
                if (c == '\n')
                        Plineno++;
                }
        switch(Pct[c]) {
                case P_anum:
                        if (c == '_')
                                badchar(c);
                        s = Ptok;
                        se = s + sizeof(Ptok) - 1;
                        do {
                                if (s < se)
                                        *s++ = c;
                                if ((c = getc(pf)) == EOF) {
 badeof:
                                        fprintf(stderr,
                                        "unexpected end of file in %s\n",
                                                Pfname);
                                        exit(2);
                                        }
                                }
                                while(Pct[c] == P_anum);
                        ungetc(c,pf);
                        *s = 0;
                        return P_anum;

                case P_delim:
                        return c;

                case P_slash:
                        if ((c = getc(pf)) != '*') {
                                if (c == EOF)
                                        goto badeof;
                                badchar('/');
                                }
                        if (canend && comlen(pf))
                                goto badeof;
                        for(;;) {
                                while((c = getc(pf)) != '*') {
                                        if (c == EOF)
                                                goto badeof;
                                        if (c == '\n')
                                                Plineno++;
                                        }
 slashseek:
                                switch(getc(pf)) {
                                        case '/':
                                                goto top;
                                        case EOF:
                                                goto badeof;
                                        case '*':
                                                goto slashseek;
                                        }
                                }
                default:
                        badchar(c);
                }
        /* NOT REACHED */
        return 0;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static int Ptype

(

FILE *

pf

)

[static]

Definition at line 552 of file pread.c.

References bad_type(), badchar(), checklogical, P_anum, Ptok, Ptoken(), tfirst, tnext, TYCHAR, TYCOMPLEX, TYDCOMPLEX, TYDREAL, TYFTNLEN, TYINT1, TYLOGICAL, TYLOGICAL1, TYLOGICAL2, TYLONG, TYQUAD, TYREAL, TYSHORT, TYSUBR, TYUNKNOWN, ungetc(), and wanted().

Referenced by Pfile().

{
        int i, rv;

        i = Ptoken(pf,0);
        if (i == ')')
                return 0;
        if (i != P_anum)
                badchar(i);

        rv = 0;
        switch(Ptok[0]) {
                case 'C':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYCOMPLEX+200;
                        break;
                case 'D':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYDREAL+200;
                        break;
                case 'E':
                case 'R':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYREAL+200;
                        break;
                case 'H':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYCHAR+200;
                        break;
                case 'I':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYLONG+200;
                        else if (!strcmp(Ptok+1, "1_fp"))
                                rv = TYINT1+200;
#ifdef TYQUAD
                        else if (!strcmp(Ptok+1, "8_fp"))
                                rv = TYQUAD+200;
#endif
                        break;
                case 'J':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYSHORT+200;
                        break;
                case 'K':
                        checklogical(0);
                        goto Logical;
                case 'L':
                        checklogical(1);
 Logical:
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYLOGICAL+200;
                        else if (!strcmp(Ptok+1, "1_fp"))
                                rv = TYLOGICAL1+200;
                        else if (!strcmp(Ptok+1, "2_fp"))
                                rv = TYLOGICAL2+200;
                        break;
                case 'S':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYSUBR+200;
                        break;
                case 'U':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYUNKNOWN+300;
                        break;
                case 'Z':
                        if (!strcmp(Ptok+1, "_fp"))
                                rv = TYDCOMPLEX+200;
                        break;
                case 'c':
                        if (!strcmp(Ptok+1, "har"))
                                rv = TYCHAR;
                        else if (!strcmp(Ptok+1, "omplex"))
                                rv = TYCOMPLEX;
                        break;
                case 'd':
                        if (!strcmp(Ptok+1, "oublereal"))
                                rv = TYDREAL;
                        else if (!strcmp(Ptok+1, "oublecomplex"))
                                rv = TYDCOMPLEX;
                        break;
                case 'f':
                        if (!strcmp(Ptok+1, "tnlen"))
                                rv = TYFTNLEN+100;
                        break;
                case 'i':
                        if (!strncmp(Ptok+1, "nteger", 6)) {
                                if (!Ptok[7])
                                        rv = TYLONG;
                                else if (Ptok[7] == '1' && !Ptok[8])
                                        rv = TYINT1;
                                }
                        break;
                case 'l':
                        if (!strncmp(Ptok+1, "ogical", 6)) {
                                if (!Ptok[7]) {
                                        checklogical(1);
                                        rv = TYLOGICAL;
                                        }
                                else if (Ptok[7] == '1' && !Ptok[8])
                                        rv = TYLOGICAL1;
                                }
#ifdef TYQUAD
                        else if (!strcmp(Ptok+1,"ongint"))
                                rv = TYQUAD;
#endif
                        break;
                case 'r':
                        if (!strcmp(Ptok+1, "eal"))
                                rv = TYREAL;
                        break;
                case 's':
                        if (!strcmp(Ptok+1, "hortint"))
                                rv = TYSHORT;
                        else if (!strcmp(Ptok+1, "hortlogical")) {
                                checklogical(0);
                                rv = TYLOGICAL2;
                                }
                        break;
                case 'v':
                        if (tnext == tfirst && !strcmp(Ptok+1, "oid")) {
                                if ((i = Ptoken(pf,0)) != /*(*/ ')')
                                        wanted(i, /*(*/ "\")\"");
                                return 0;
                                }
                }
        if (!rv)
                bad_type();
        if (rv < 100 && (i = Ptoken(pf,0)) != '*')
                        wanted(i, "\"*\"");
        if ((i = Ptoken(pf,0)) == P_anum)
                i = Ptoken(pf,0);       /* skip variable name */
        switch(i) {
                case ')':
                        ungetc(i,pf);
                        break;
                case ',':
                        break;
                default:
                        wanted(i, "\",\" or \")\"");
                }
        return rv;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

void read_Pfiles

(

char **

ffiles

)

Definition at line 950 of file pread.c.

References Extsym::arginfo, Argtypes::changes, Extsym::extstg, extsymtab, free(), Argtypes::nargs, nextext, Pbad, Pfile(), retcode, s, STGEXT, tfirst, tlast, tmax, and tnext.

Referenced by main().

{
        char **f1files, **f1files0, *s;
        int k;
        register Extsym *e, *ee;
        register Argtypes *at;
        extern int retcode;

        f1files0 = f1files = ffiles;
        while(s = *ffiles++)
                if (!Pfile(s))
                        *f1files++ = s;
        if (Pbad)
                retcode = 8;
        if (tfirst) {
                free((char *)tfirst);
                /* following should be unnecessary, as we won't be back here */
                tfirst = tnext = tlast = 0;
                tmax = 0;
                }
        *f1files = 0;
        if (f1files == f1files0)
                f1files[1] = 0;

        k = 0;
        ee = nextext;
        for (e = extsymtab; e < ee; e++)
                if (e->extstg == STGEXT
                && (at = e->arginfo)) {
                        if (at->nargs < 0 || at->changes)
                                k++;
                        at->changes = 2;
                        }
        if (k) {
                fprintf(diagfile,
                "%d prototype%s updated while reading prototypes.\n", k,
                        k > 1 ? "s" : "");
                }
        fflush(diagfile);
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static int readref	(	register FILE *	pf,
		Extsym *	e,
		int	ftype
	)			[static]

Definition at line 223 of file pread.c.

References a, Extsym::arginfo, Argtypes::atypes, Argtypes::changes, Argtypes::dnargs, Extsym::extstg, Extsym::extype, gmem(), i, Argtypes::nargs, numread(), Pbadret(), Pnotboth(), STGEXT, STGUNKNOWN, t, tfirst, tlast, tnext, trealloc(), TYFTNLEN, type, and TYSUBR.

Referenced by comlen().

{
        register int c, *t;
        int i, nargs, type;
        Argtypes *at;
        Atype *a, *ae;

        if (ftype > TYSUBR)
                return 0;
        if ((c = numread(pf, &nargs)) != ' ') {
                if (c != ':')
                        return c == EOF;
                /* just a typed external */
                if (e->extstg == STGUNKNOWN) {
                        at = 0;
                        goto justsym;
                        }
                if (e->extstg == STGEXT) {
                        if (e->extype != ftype)
                                Pbadret(ftype, e);
                        }
                else
                        Pnotboth(e);
                return 0;
                }

        tnext = tfirst;
        for(i = 0; i < nargs; i++) {
                if ((c = numread(pf, &type)) != ' '
                || type >= 500
                || type != TYFTNLEN + 100 && type % 100 > TYSUBR)
                        return c == EOF;
                if (tnext >= tlast)
                        trealloc();
                *tnext++ = type;
                }

        if (e->extstg == STGUNKNOWN) {
 save_at:
                at = (Argtypes *)
                        gmem(sizeof(Argtypes) + (nargs-1)*sizeof(Atype), 1);
                at->dnargs = at->nargs = nargs;
                at->changes = 0;
                t = tfirst;
                a = at->atypes;
                for(ae = a + nargs; a < ae; a++) {
                        a->type = *t++;
                        a->cp = 0;
                        }
 justsym:
                e->extstg = STGEXT;
                e->extype = ftype;
                e->arginfo = at;
                }
        else if (e->extstg != STGEXT) {
                Pnotboth(e);
                }
        else if (!e->arginfo) {
                if (e->extype != ftype)
                        Pbadret(ftype, e);
                else
                        goto save_at;
                }
        else
                argverify(ftype, e);
        return 0;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static void trealloc

(

Void

)

[static]

Definition at line 40 of file pread.c.

References realloc(), tfirst, TGULP, tlast, tmax, and tnext.

Referenced by Pfile(), and readref().

{
        int k = tmax;
        tfirst = (int *)realloc((char *)tfirst,
                (tmax += TGULP)*sizeof(int));
        if (!tfirst) {
                fprintf(stderr,
                "Pfile: realloc failure!\n");
                exit(2);
                }
        tlast = tfirst + tmax;
        tnext = tfirst + k;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

static char* trimunder

(

Void

)

[static]

Definition at line 697 of file pread.c.

References buf, Pfname, Plineno, Ptok, and s.

Referenced by Pfile().

{
        register char *s;
        register int n;
        static char buf[128];

        s = Ptok + strlen(Ptok) - 1;
        if (*s != '_') {
                fprintf(stderr,
                        "warning: %s does not end in _ (line %ld of %s)\n",
                        Ptok, Plineno, Pfname);
                return Ptok;
                }
        if (s[-1] == '_')
                s--;
        strncpy(buf, Ptok, n = s - Ptok);
        buf[n] = 0;
        return buf;
        }

Here is the caller graph for this function:

static void wanted	(	int	i,
		char *	what
	)			[static]

Definition at line 535 of file pread.c.

References P_anum, Pfname, Plineno, and Ptok.

Referenced by Pfile(), and Ptype().

{
        if (i != P_anum) {
                Ptok[0] = i;
                Ptok[1] = 0;
                }
        fprintf(stderr,"Error: expected %s, not \"%s\" (line %ld of %s)\n",
                what, Ptok, Plineno, Pfname);
        exit(2);
        }

Here is the caller graph for this function:

---

Variable Documentation

int Pbad [static]

Definition at line 29 of file pread.c.

Referenced by badflag(), detected(), Pbadmsg(), Pnotboth(), and read_Pfiles().

char Pct[Table_size] [static]

Definition at line 26 of file pread.c.

Referenced by comlen(), Pfile(), and Ptoken().

char* Pfname [static]

Definition at line 27 of file pread.c.

Referenced by bad_type(), badchar(), badflag(), comlen(), detected(), Pbadmsg(), Pfile(), Pnotboth(), Ptoken(), trimunder(), and wanted().

long Plineno [static]

Definition at line 28 of file pread.c.

Referenced by bad_type(), badchar(), badflag(), comlen(), detected(), Pbadmsg(), Pfile(), Pnotboth(), Ptoken(), trimunder(), and wanted().

char Ptok[128] [static]

Definition at line 26 of file pread.c.

Referenced by bad_type(), Pfile(), Pftype(), Ptoken(), Ptype(), trimunder(), and wanted().

int* tfirst [static]

Definition at line 30 of file pread.c.

Referenced by argverify(), newarg(), Pfile(), Ptype(), read_Pfiles(), readref(), and trealloc().

int * tlast [static]

Definition at line 30 of file pread.c.

Referenced by Pfile(), read_Pfiles(), readref(), and trealloc().

int tmax [static]

Definition at line 30 of file pread.c.

Referenced by read_Pfiles(), and trealloc().

int * tnext [static]

Definition at line 30 of file pread.c.

Referenced by argverify(), newarg(), Pfile(), Ptype(), read_Pfiles(), readref(), and trealloc().

---