51 lines
		
	
	
		
			977 B
		
	
	
	
		
			C
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			51 lines
		
	
	
		
			977 B
		
	
	
	
		
			C
		
	
	
		
			Executable File
		
	
	
	
	
| /* $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>
 | |
| 
 | |
| #define EINTR	4
 | |
| 
 | |
| extern int	errno;
 | |
| extern		_trp();
 | |
| extern int	_write();
 | |
| 
 | |
| _flush(f) struct file *f; {
 | |
| 	int i,n;
 | |
| 
 | |
| 	f->ptr = f->bufadr;
 | |
| 	n = f->buflen - f->count;
 | |
| 	if (n <= 0)
 | |
| 		return;
 | |
| 	f->count = f->buflen;
 | |
| 	if ((i = _write(f->ufd,f->bufadr,n)) < 0 && errno == EINTR)
 | |
| 		return;
 | |
| 	if (i != n)
 | |
| 		_trp(EWRITE);
 | |
| }
 | |
| 
 | |
| _outcpt(f) struct file *f; {
 | |
| 
 | |
| 	f->flags &= ~ELNBIT;
 | |
| 	f->ptr += f->size;
 | |
| 	if ((f->count -= f->size) <= 0)
 | |
| 		_flush(f);
 | |
| }
 | 
