Plan 9 from Bell Labs’s /n/sources/patch/maybe/ape-updates/fclose.c

Copyright © 2009 Alcatel-Lucent.
Distributed under the Lucent Public License version 1.02.
Download the Plan 9 distribution.


/*
 * pANS stdio -- fclose
 */
#include "iolib.h"
int fclose(FILE *f){
	int d, error=0;
	char *p;

	if(!f) return EOF;
	if(f->state==CLOSED) return EOF;
	if(fflush(f)==EOF) error=EOF;
	if(f->flags&BALLOC){
		if((p = f->buf)!=0){
			f->buf = 0;
			f->wp = 0;
			f->rp = 0;
			f->lp = 0;
			free(p);
		}
	}
	if(!(f->flags&STRING)){
		if((d = f->fd)>=0){
			f->fd = -1;
			if(close(d) < 0)
				error = EOF;
		}
	}
	f->state=CLOSED;
	f->flags=0;
	return error;
}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2009 Alcatel-Lucent. All Rights Reserved.
Comments to webmaster@plan9.bell-labs.com.