DataMuseum.dk

top - metrics - download

    Length: 1549 (0x60d)
    Types: TextFile
    Names: »rd_q.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/Lib/io/rd_q.c« 

TextFile

/* rd_q.c: reads the control file in Q/addr into memory */

# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Lib/io/RCS/rd_q.c,v 5.0 90/09/20 16:06:57 pp Exp Locker: pp $";
# endif

/*
 * $Header: /cs/research/pp/hubris/pp-beta/Lib/io/RCS/rd_q.c,v 5.0 90/09/20 16:06:57 pp Exp Locker: pp $
 *
 * $Log:	rd_q.c,v $
 * Revision 5.0  90/09/20  16:06:57  pp
 * rcsforce : 5.0 public release
 * 
 */



#include "head.h"
#include <isode/cmd_srch.h>
#include "q.h"
#include "tb_q.h"


/* ---------------------  Begin  Routines  -------------------------------- */

static int R_umpdu ();

int rd_q (qp, fp)
register Q_struct       *qp;
FILE                    *fp;
{

	PP_DBG (("Lib/io/rd_q()"));
	q_init (qp);
	return (R_umpdu (qp, fp));
}



/* ---------------------  Static  Routines  ------------------------------- */



static int R_umpdu (qp, fp)
register Q_struct       *qp;
FILE                    *fp;
{
	char            buf[BUFSIZ],
			*argv[100];
	int             argc,
			retval;


	PP_DBG (("Lib/io/R_umpdu()"));

	q_init (qp);

	for (;;) {

		retval = txt2buf (buf, fp);

		if (rp_isbad (retval)) {
			PP_DBG (("Lib/io/R_umpdu txt2buf retval (%d - %s)",
				retval, rp_valstr (retval)));
			return (retval);
		}

		PP_DBG (("Lib/io/R_umpdu(buf='%s')", &buf[0]));

		if ((argc = str2arg (buf, 100, argv)) == 0)
			return (RP_PARM);

		retval = txt2q (qp, argv, argc);

		PP_DBG (("Lib/io/R_umpdu (txt2q=%d)", retval));
		if (retval == NOTOK)    return (RP_PARM);
		if (retval == Q_END)    return (RP_OK);
	}
}