Return to sysen.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

researchv10 Norman

/*
/   sysen - endfile
*/

#include "osint.h"
#include "spitblks.h"
#include "spitio.h"

sysen()
{
	register struct fcblk *fcb = WA (struct fcblk *);
	register struct ioblk *iob = fcb->iob;

	/* ensure the file is open */
	if ( osopen( iob ) != 0 )
		return EXIT_1;

	/* copy fcb chain head */
	/* rzfcb = r$fcb; */

	/* now close it */
	osclose( iob );

	return NORMAL_RETURN;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.