1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- /* $Id$ */
- /*
- * (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();
- 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;
-
- _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;
- f->count = 1;
- f->buflen = f->count;
- }
- }
|