*** empty log message ***
This commit is contained in:
jwalz
335
sys/unix/unixunix.c
Normal file
335
sys/unix/unixunix.c
Normal file
@@ -0,0 +1,335 @@
|
||||
/* SCCS Id: @(#)unixunix.c 3.3 94/11/07 */
|
||||
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
||||
/* NetHack may be freely redistributed. See license for details. */
|
||||
|
||||
/* This file collects some Unix dependencies */
|
||||
|
||||
#include "hack.h" /* mainly for index() which depends on BSD */
|
||||
|
||||
#include <errno.h>
|
||||
#include <sys/stat.h>
|
||||
#if defined(NO_FILE_LINKS) || defined(SUNOS4) || defined(POSIX_TYPES)
|
||||
#include <fcntl.h>
|
||||
#endif
|
||||
#include <signal.h>
|
||||
|
||||
#ifdef _M_UNIX
|
||||
extern void NDECL(sco_mapon);
|
||||
extern void NDECL(sco_mapoff);
|
||||
#endif
|
||||
#ifdef __linux__
|
||||
extern void NDECL(linux_mapon);
|
||||
extern void NDECL(linux_mapoff);
|
||||
#endif
|
||||
|
||||
static struct stat buf;
|
||||
|
||||
/* see whether we should throw away this xlock file */
|
||||
static int
|
||||
veryold(fd)
|
||||
int fd;
|
||||
{
|
||||
time_t date;
|
||||
|
||||
if(fstat(fd, &buf)) return(0); /* cannot get status */
|
||||
#ifndef INSURANCE
|
||||
if(buf.st_size != sizeof(int)) return(0); /* not an xlock file */
|
||||
#endif
|
||||
#ifdef BSD
|
||||
(void) time((long *)(&date));
|
||||
#else
|
||||
(void) time(&date);
|
||||
#endif
|
||||
if(date - buf.st_mtime < 3L*24L*60L*60L) { /* recent */
|
||||
#ifndef NETWORK
|
||||
extern int errno;
|
||||
#endif
|
||||
int lockedpid; /* should be the same size as hackpid */
|
||||
|
||||
if(read(fd, (genericptr_t)&lockedpid, sizeof(lockedpid)) !=
|
||||
sizeof(lockedpid))
|
||||
/* strange ... */
|
||||
return(0);
|
||||
|
||||
/* From: Rick Adams <seismo!rick> */
|
||||
/* This will work on 4.1cbsd, 4.2bsd and system 3? & 5. */
|
||||
/* It will do nothing on V7 or 4.1bsd. */
|
||||
#ifndef NETWORK
|
||||
/* It will do a VERY BAD THING if the playground is shared
|
||||
by more than one machine! -pem */
|
||||
if(!(kill(lockedpid, 0) == -1 && errno == ESRCH))
|
||||
#endif
|
||||
return(0);
|
||||
}
|
||||
(void) close(fd);
|
||||
return(1);
|
||||
}
|
||||
|
||||
static int
|
||||
eraseoldlocks()
|
||||
{
|
||||
register int i;
|
||||
|
||||
/* cannot use maxledgerno() here, because we need to find a lock name
|
||||
* before starting everything (including the dungeon initialization
|
||||
* that sets astral_level, needed for maxledgerno()) up
|
||||
*/
|
||||
for(i = 1; i <= MAXDUNGEON*MAXLEVEL + 1; i++) {
|
||||
/* try to remove all */
|
||||
set_levelfile_name(lock, i);
|
||||
(void) unlink(fqname(lock, LEVELPREFIX, 0));
|
||||
}
|
||||
set_levelfile_name(lock, 0);
|
||||
if (unlink(fqname(lock, LEVELPREFIX, 0)))
|
||||
return(0); /* cannot remove it */
|
||||
return(1); /* success! */
|
||||
}
|
||||
|
||||
void
|
||||
getlock()
|
||||
{
|
||||
extern int errno;
|
||||
register int i = 0, fd, c;
|
||||
const char *fq_lock;
|
||||
|
||||
#ifdef TTY_GRAPHICS
|
||||
/* idea from rpick%ucqais@uccba.uc.edu
|
||||
* prevent automated rerolling of characters
|
||||
* test input (fd0) so that tee'ing output to get a screen dump still
|
||||
* works
|
||||
* also incidentally prevents development of any hack-o-matic programs
|
||||
*/
|
||||
/* added check for window-system type -dlc */
|
||||
if (!strcmp(windowprocs.name, "tty"))
|
||||
if (!isatty(0))
|
||||
error("You must play from a terminal.");
|
||||
#endif
|
||||
|
||||
/* we ignore QUIT and INT at this point */
|
||||
if (!lock_file(HLOCK, LOCKPREFIX, 10)) {
|
||||
wait_synch();
|
||||
error("%s", "");
|
||||
}
|
||||
|
||||
regularize(lock);
|
||||
set_levelfile_name(lock, 0);
|
||||
|
||||
if(locknum) {
|
||||
if(locknum > 25) locknum = 25;
|
||||
|
||||
do {
|
||||
lock[0] = 'a' + i++;
|
||||
fq_lock = fqname(lock, LEVELPREFIX, 0);
|
||||
|
||||
if((fd = open(fq_lock, 0)) == -1) {
|
||||
if(errno == ENOENT) goto gotlock; /* no such file */
|
||||
perror(fq_lock);
|
||||
unlock_file(HLOCK);
|
||||
error("Cannot open %s", fq_lock);
|
||||
}
|
||||
|
||||
if(veryold(fd) /* closes fd if true */
|
||||
&& eraseoldlocks())
|
||||
goto gotlock;
|
||||
(void) close(fd);
|
||||
} while(i < locknum);
|
||||
|
||||
unlock_file(HLOCK);
|
||||
error("Too many hacks running now.");
|
||||
} else {
|
||||
fq_lock = fqname(lock, LEVELPREFIX, 0);
|
||||
if((fd = open(fq_lock, 0)) == -1) {
|
||||
if(errno == ENOENT) goto gotlock; /* no such file */
|
||||
perror(fq_lock);
|
||||
unlock_file(HLOCK);
|
||||
error("Cannot open %s", fq_lock);
|
||||
}
|
||||
|
||||
if(veryold(fd) /* closes fd if true */ && eraseoldlocks())
|
||||
goto gotlock;
|
||||
(void) close(fd);
|
||||
|
||||
if(iflags.window_inited) {
|
||||
c = yn("There is already a game in progress under your name. Destroy old game?");
|
||||
} else {
|
||||
(void) printf("\nThere is already a game in progress under your name.");
|
||||
(void) printf(" Destroy old game? [yn] ");
|
||||
(void) fflush(stdout);
|
||||
c = getchar();
|
||||
(void) putchar(c);
|
||||
(void) fflush(stdout);
|
||||
while (getchar() != '\n') ; /* eat rest of line and newline */
|
||||
}
|
||||
if(c == 'y' || c == 'Y')
|
||||
if(eraseoldlocks())
|
||||
goto gotlock;
|
||||
else {
|
||||
unlock_file(HLOCK);
|
||||
error("Couldn't destroy old game.");
|
||||
}
|
||||
else {
|
||||
unlock_file(HLOCK);
|
||||
error("%s", "");
|
||||
}
|
||||
}
|
||||
|
||||
gotlock:
|
||||
fd = creat(fq_lock, FCMASK);
|
||||
unlock_file(HLOCK);
|
||||
if(fd == -1) {
|
||||
error("cannot creat lock file (%s).", fq_lock);
|
||||
} else {
|
||||
if(write(fd, (genericptr_t) &hackpid, sizeof(hackpid))
|
||||
!= sizeof(hackpid)){
|
||||
error("cannot write lock (%s)", fq_lock);
|
||||
}
|
||||
if(close(fd) == -1) {
|
||||
error("cannot close lock (%s)", fq_lock);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
regularize(s) /* normalize file name - we don't like .'s, /'s, spaces */
|
||||
register char *s;
|
||||
{
|
||||
register char *lp;
|
||||
#if defined(SYSV) && !defined(AIX_31) && defined(COMPRESS)
|
||||
int i;
|
||||
#endif
|
||||
|
||||
while((lp=index(s, '.')) || (lp=index(s, '/')) || (lp=index(s,' ')))
|
||||
*lp = '_';
|
||||
#if defined(SYSV) && !defined(AIX_31)
|
||||
/* avoid problems with 14 character file name limit */
|
||||
# ifdef COMPRESS
|
||||
/* leave room for .e from error and .Z from compress appended to
|
||||
* save files */
|
||||
# ifdef COMPRESS_EXTENSION
|
||||
i = 12 - strlen(COMPRESS_EXTENSION);
|
||||
# else
|
||||
i = 10; /* should never happen... */
|
||||
# endif
|
||||
if(strlen(s) > i)
|
||||
s[i] = '\0';
|
||||
# else
|
||||
if(strlen(s) > 11)
|
||||
/* leave room for .nn appended to level files */
|
||||
s[11] = '\0';
|
||||
# endif
|
||||
#endif
|
||||
}
|
||||
|
||||
#ifdef SHELL
|
||||
int
|
||||
dosh()
|
||||
{
|
||||
register char *str;
|
||||
if(child(0)) {
|
||||
if((str = getenv("SHELL")) != (char*)0)
|
||||
(void) execl(str, str, (char *)0);
|
||||
else
|
||||
(void) execl("/bin/sh", "sh", (char *)0);
|
||||
raw_print("sh: cannot execute.");
|
||||
exit(EXIT_FAILURE);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
#endif /* SHELL */
|
||||
|
||||
#if defined(SHELL) || defined(DEF_PAGER) || defined(DEF_MAILREADER)
|
||||
int
|
||||
child(wt)
|
||||
int wt;
|
||||
{
|
||||
register int f;
|
||||
suspend_nhwindows((char *)0); /* also calls end_screen() */
|
||||
#ifdef _M_UNIX
|
||||
sco_mapon();
|
||||
#endif
|
||||
#ifdef __linux__
|
||||
linux_mapon();
|
||||
#endif
|
||||
if((f = fork()) == 0){ /* child */
|
||||
(void) setgid(getgid());
|
||||
(void) setuid(getuid());
|
||||
#ifdef CHDIR
|
||||
(void) chdir(getenv("HOME"));
|
||||
#endif
|
||||
return(1);
|
||||
}
|
||||
if(f == -1) { /* cannot fork */
|
||||
pline("Fork failed. Try again.");
|
||||
return(0);
|
||||
}
|
||||
/* fork succeeded; wait for child to exit */
|
||||
(void) signal(SIGINT,SIG_IGN);
|
||||
(void) signal(SIGQUIT,SIG_IGN);
|
||||
(void) wait( (int *) 0);
|
||||
#ifdef _M_UNIX
|
||||
sco_mapoff();
|
||||
#endif
|
||||
#ifdef __linux__
|
||||
linux_mapoff();
|
||||
#endif
|
||||
(void) signal(SIGINT, (SIG_RET_TYPE) done1);
|
||||
#ifdef WIZARD
|
||||
if(wizard) (void) signal(SIGQUIT,SIG_DFL);
|
||||
#endif
|
||||
if(wt) {
|
||||
raw_print("");
|
||||
wait_synch();
|
||||
}
|
||||
resume_nhwindows();
|
||||
return(0);
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef GETRES_SUPPORT
|
||||
|
||||
extern int FDECL(nh_getresuid, (uid_t *, uid_t *, uid_t *));
|
||||
extern uid_t NDECL(nh_getuid);
|
||||
extern uid_t NDECL(nh_geteuid);
|
||||
extern int FDECL(nh_getresgid, (gid_t *, gid_t *, gid_t *));
|
||||
extern gid_t NDECL(nh_getgid);
|
||||
extern gid_t NDECL(nh_getegid);
|
||||
|
||||
int
|
||||
(getresuid)(ruid, euid, suid)
|
||||
uid_t *ruid, *euid, *suid;
|
||||
{
|
||||
return nh_getresuid(ruid, euid, suid);
|
||||
}
|
||||
|
||||
uid_t
|
||||
(getuid)()
|
||||
{
|
||||
return nh_getuid();
|
||||
}
|
||||
|
||||
uid_t
|
||||
(geteuid)()
|
||||
{
|
||||
return nh_geteuid();
|
||||
}
|
||||
|
||||
int
|
||||
(getresgid)(rgid, egid, sgid)
|
||||
gid_t *rgid, *egid, *sgid;
|
||||
{
|
||||
return nh_getresgid(rgid, egid, sgid);
|
||||
}
|
||||
|
||||
gid_t
|
||||
(getgid)()
|
||||
{
|
||||
return nh_getgid();
|
||||
}
|
||||
|
||||
gid_t
|
||||
(getegid)()
|
||||
{
|
||||
return nh_getegid();
|
||||
}
|
||||
|
||||
#endif /* GETRES_SUPPORT */
|
||||
Reference in New Issue
Block a user