RCS_ID_C="$Id: setegid.c,v 4.1 1994/09/29 23:09:02 jraja Exp $";
/*
 *      setegid() - set effective group
 *
 *      Copyright © 1994 AmiTCP/IP Group, 
 *                       Network Solutions Development Inc.
 *                       All rights reserved.
 */

#include <sys/types.h>
#include <unistd.h>

#include <proto/usergroup.h>
#include "Python.h"

#ifdef setegid
#undef setegid
#endif

int
setegid(gid_t g)
{
  if(!checkusergrouplib()) return -1;
  return setregid(-1, g);
}