/* close.c	close file or channel					*/

/*
 * Copyright (C) 1988 by Frederic Hemmer
 * All rights reserved
 */

#include <errno.h>
#include <ssdef.h>

#define PUBLIC
#define PRIVATE	static

PUBLIC int
_unix$close(s)
int		s;
{
	int	rc;



	if (FindChannel(s))	{
		if ((rc = sys$dassgn(s)) != SS$_NORMAL) 	{
			vaxc$errno = rc;
			errno = EVMSERR;
			return(-1);
		}
	}
	else	close(s);

	return(0);
}