ack/lang/pc/libpc/ini.c

/* $Header$ */
/*
 * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
 *
 *          This product is part of the Amsterdam Compiler Kit.
 *
 * Permission to use, sell, duplicate or disclose this software must be
 * obtained in writing. Requests for such permissions may be sent to
 *
 *      Dr. Andrew S. Tanenbaum
 *      Wiskundig Seminarium
 *      Vrije Universiteit
 *      Postbox 7161
 *      1007 MC Amsterdam
 *      The Netherlands
 *
 */

/* Author: J.W. Stevenson */

#include        <pc_file.h>
#include        <pc_err.h>

extern          (*_sig())();
extern          _catch();
#ifndef CPM
extern int      _gtty();
#endif

struct file     **_extfl;
int		_extflc;	/* number of external files */
char            *_m_lb;         /* LB of m_a_i_n */
struct file     *_curfil;       /* points to file struct in case of errors */
int             _pargc;
char            **_pargv;
char            **_penvp;
int		_fp_hook = 1;	/* This is for Minix, but does not harm others */

_ini(args,c,p,mainlb) char *args,*mainlb; int c; struct file **p; {
	struct file *f;
	char buf[128];

	_pargc= *(int *)args; args += sizeof (int);
	_pargv= *(char ***)args; args += sizeof (char **);
	_penvp= *(char ***)args;
	_sig(_catch);
	_extfl = p;
	_extflc = c;
	if( !c ) return;
	_m_lb = mainlb;
	if ( (f = _extfl[0]) != (struct file *) 0) {
		f->ptr = f->bufadr;
		f->flags = MAGIC|TXTBIT;
		f->fname = "INPUT";
		f->ufd = 0;
		f->size = 1;
		f->count = 0;
		f->buflen = PC_BUFLEN;
	}
	if ( (f = _extfl[1]) != (struct file *) 0) {
		f->ptr = f->bufadr;
		f->flags = MAGIC|TXTBIT|WRBIT|EOFBIT|ELNBIT;
		f->fname = "OUTPUT";
		f->ufd = 1;
		f->size = 1;
#ifdef CPM
		f->count = 1;
#else
		f->count = (_gtty(1,buf) >= 0 ? 1 : PC_BUFLEN);
#endif
		f->buflen = f->count;
	}
}