-/* NetHack 3.5 files.c $NHDT-Date: 1426969026 2015/03/21 20:17:06 $ $NHDT-Branch: master $:$NHDT-Revision: 1.137 $ */
+/* NetHack 3.5 files.c $NHDT-Date: 1427337311 2015/03/26 02:35:11 $ $NHDT-Branch: derek-farming $:$NHDT-Revision: 1.141 $ */
/* NetHack 3.5 files.c $Date: 2012/03/10 02:49:08 $ $Revision: 1.124 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed. See license for details. */
#endif
STATIC_DCL FILE *FDECL(fopen_config_file, (const char *, int));
STATIC_DCL int FDECL(get_uchars,
- (FILE *,char *,char *,uchar *,BOOLEAN_P,int,const char *));
+ (FILE *,char *,char *,uchar *,BOOLEAN_P,int,const char *));
int FDECL(parse_config_line, (FILE *,char *,int));
STATIC_DCL FILE *NDECL(fopen_sym_file);
STATIC_DCL void FDECL(set_symhandling, (char *,int));
char *s, *callerbuf;
int bufsz;
{
- char *sp, *op;
- int cnt = 0;
- static char hexdigits[] = "0123456789ABCDEF";
-
- sp = s;
- op = callerbuf;
- *op = '\0';
-
- while (*sp) {
- /* Do we have room for one more character or encoding? */
- if ((bufsz - cnt) <= 4) return callerbuf;
-
- if (*sp == quotechar) {
- (void)sprintf(op, "%c%02X", quotechar, *sp);
- op += 3;
- cnt += 3;
- } else if ((index(legal, *sp) != 0) || (index(hexdigits, *sp) != 0)) {
- *op++ = *sp;
- *op = '\0';
- cnt++;
- } else {
- (void)sprintf(op,"%c%02X", quotechar, *sp);
- op += 3;
- cnt += 3;
- }
- sp++;
- }
- return callerbuf;
+ char *sp, *op;
+ int cnt = 0;
+ static char hexdigits[] = "0123456789ABCDEF";
+
+ sp = s;
+ op = callerbuf;
+ *op = '\0';
+
+ while (*sp) {
+ /* Do we have room for one more character or encoding? */
+ if ((bufsz - cnt) <= 4) return callerbuf;
+
+ if (*sp == quotechar) {
+ (void)sprintf(op, "%c%02X", quotechar, *sp);
+ op += 3;
+ cnt += 3;
+ } else if ((index(legal, *sp) != 0) || (index(hexdigits, *sp) != 0)) {
+ *op++ = *sp;
+ *op = '\0';
+ cnt++;
+ } else {
+ (void)sprintf(op,"%c%02X", quotechar, *sp);
+ op += 3;
+ cnt += 3;
+ }
+ sp++;
+ }
+ return callerbuf;
}
/*
char *s, *callerbuf;
int bufsz;
{
- char *sp, *op;
- int k,calc,cnt = 0;
- static char hexdigits[] = "0123456789ABCDEF";
-
- sp = s;
- op = callerbuf;
- *op = '\0';
- calc = 0;
-
- while (*sp) {
- /* Do we have room for one more character? */
- if ((bufsz - cnt) <= 2) return callerbuf;
- if (*sp == quotechar) {
- sp++;
- for (k=0; k < 16; ++k) if (*sp == hexdigits[k]) break;
- if (k >= 16) return callerbuf; /* impossible, so bail */
- calc = k << 4;
- sp++;
- for (k=0; k < 16; ++k) if (*sp == hexdigits[k]) break;
- if (k >= 16) return callerbuf; /* impossible, so bail */
- calc += k;
- sp++;
- *op++ = calc;
- *op = '\0';
- } else {
- *op++ = *sp++;
- *op = '\0';
- }
- cnt++;
- }
- return callerbuf;
+ char *sp, *op;
+ int k,calc,cnt = 0;
+ static char hexdigits[] = "0123456789ABCDEF";
+
+ sp = s;
+ op = callerbuf;
+ *op = '\0';
+ calc = 0;
+
+ while (*sp) {
+ /* Do we have room for one more character? */
+ if ((bufsz - cnt) <= 2) return callerbuf;
+ if (*sp == quotechar) {
+ sp++;
+ for (k=0; k < 16; ++k) if (*sp == hexdigits[k]) break;
+ if (k >= 16) return callerbuf; /* impossible, so bail */
+ calc = k << 4;
+ sp++;
+ for (k=0; k < 16; ++k) if (*sp == hexdigits[k]) break;
+ if (k >= 16) return callerbuf; /* impossible, so bail */
+ calc += k;
+ sp++;
+ *op++ = calc;
+ *op = '\0';
+ } else {
+ *op++ = *sp++;
+ *op = '\0';
+ }
+ cnt++;
+ }
+ return callerbuf;
}
#ifdef PREFIXES_IN_USE
int buffnum UNUSED_if_not_PREFIXES_IN_USE;
{
#ifndef PREFIXES_IN_USE
- return basenam;
+ return basenam;
#else
- if (!basenam || whichprefix < 0 || whichprefix >= PREFIX_COUNT)
- return basenam;
- if (!fqn_prefix[whichprefix])
- return basenam;
- if (buffnum < 0 || buffnum >= FQN_NUMBUF) {
- impossible("Invalid fqn_filename_buffer specified: %d",
- buffnum);
- buffnum = 0;
- }
- if (strlen(fqn_prefix[whichprefix]) + strlen(basenam) >=
- FQN_MAX_FILENAME) {
- impossible("fqname too long: %s + %s", fqn_prefix[whichprefix],
- basenam);
- return basenam; /* XXX */
- }
- Strcpy(fqn_filename_buffer[buffnum], fqn_prefix[whichprefix]);
- return strcat(fqn_filename_buffer[buffnum], basenam);
+ if (!basenam || whichprefix < 0 || whichprefix >= PREFIX_COUNT)
+ return basenam;
+ if (!fqn_prefix[whichprefix])
+ return basenam;
+ if (buffnum < 0 || buffnum >= FQN_NUMBUF) {
+ impossible("Invalid fqn_filename_buffer specified: %d",
+ buffnum);
+ buffnum = 0;
+ }
+ if (strlen(fqn_prefix[whichprefix]) + strlen(basenam) >=
+ FQN_MAX_FILENAME) {
+ impossible("fqname too long: %s + %s", fqn_prefix[whichprefix],
+ basenam);
+ return basenam; /* XXX */
+ }
+ Strcpy(fqn_filename_buffer[buffnum], fqn_prefix[whichprefix]);
+ return strcat(fqn_filename_buffer[buffnum], basenam);
#endif
}
char *reasonbuf; /* reasonbuf must be at least BUFSZ, supplied by caller */
{
#if defined(NOCWD_ASSUMPTIONS)
- FILE *fp;
- const char *filename;
- int prefcnt, failcount = 0;
- char panicbuf1[BUFSZ], panicbuf2[BUFSZ];
- const char *details;
+ FILE *fp;
+ const char *filename;
+ int prefcnt, failcount = 0;
+ char panicbuf1[BUFSZ], panicbuf2[BUFSZ];
+ const char *details;
#endif
- if (reasonbuf) reasonbuf[0] = '\0';
+ if (reasonbuf) reasonbuf[0] = '\0';
#if defined(NOCWD_ASSUMPTIONS)
- for (prefcnt = 1; prefcnt < PREFIX_COUNT; prefcnt++) {
- /* don't test writing to configdir or datadir; they're readonly */
- if (prefcnt == SYSCONFPREFIX ||
- prefcnt == CONFIGPREFIX ||
- prefcnt == DATAPREFIX) continue;
- filename = fqname("validate", prefcnt, 3);
- if ((fp = fopen(filename, "w"))) {
- fclose(fp);
- (void) unlink(filename);
- } else {
- if (reasonbuf) {
- if (failcount) Strcat(reasonbuf,", ");
- Strcat(reasonbuf, fqn_prefix_names[prefcnt]);
- }
- /* the paniclog entry gets the value of errno as well */
- Sprintf(panicbuf1,"Invalid %s", fqn_prefix_names[prefcnt]);
+ for (prefcnt = 1; prefcnt < PREFIX_COUNT; prefcnt++) {
+ /* don't test writing to configdir or datadir; they're readonly */
+ if (prefcnt == SYSCONFPREFIX ||
+ prefcnt == CONFIGPREFIX ||
+ prefcnt == DATAPREFIX) continue;
+ filename = fqname("validate", prefcnt, 3);
+ if ((fp = fopen(filename, "w"))) {
+ fclose(fp);
+ (void) unlink(filename);
+ } else {
+ if (reasonbuf) {
+ if (failcount) Strcat(reasonbuf,", ");
+ Strcat(reasonbuf, fqn_prefix_names[prefcnt]);
+ }
+ /* the paniclog entry gets the value of errno as well */
+ Sprintf(panicbuf1,"Invalid %s", fqn_prefix_names[prefcnt]);
#if defined (NHSTDC) && !defined(NOTSTDC)
- if (!(details = strerror(errno)))
-#endif
- details = "";
- Sprintf(panicbuf2,"\"%s\", (%d) %s",
- fqn_prefix[prefcnt], errno, details);
- paniclog(panicbuf1, panicbuf2);
- failcount++;
- }
- }
- if (failcount)
- return 0;
- else
-#endif
- return 1;
+ if (!(details = strerror(errno)))
+#endif
+ details = "";
+ Sprintf(panicbuf2,"\"%s\", (%d) %s",
+ fqn_prefix[prefcnt], errno, details);
+ paniclog(panicbuf1, panicbuf2);
+ failcount++;
+ }
+ }
+ if (failcount)
+ return 0;
+ else
+#endif
+ return 1;
}
/* fopen a file, with OS-dependent bells and whistles */
const char *filename, *mode;
int prefix;
{
- FILE *fp;
+ FILE *fp;
- filename = fqname(filename, prefix, prefix == TROUBLEPREFIX ? 3 : 0);
- fp = fopen(filename, mode);
- return fp;
+ filename = fqname(filename, prefix, prefix == TROUBLEPREFIX ? 3 : 0);
+ fp = fopen(filename, mode);
+ return fp;
}
/* ---------- BEGIN LEVEL FILE HANDLING ----------- */
void
set_lock_and_bones()
{
- if (!ramdisk) {
- Strcpy(levels, permbones);
- Strcpy(bones, permbones);
- }
- append_slash(permbones);
- append_slash(levels);
+ if (!ramdisk) {
+ Strcpy(levels, permbones);
+ Strcpy(bones, permbones);
+ }
+ append_slash(permbones);
+ append_slash(levels);
#ifdef AMIGA
- strncat(levels, bbs_id, PATHLEN);
+ strncat(levels, bbs_id, PATHLEN);
#endif
- append_slash(bones);
- Strcat(bones, "bonesnn.*");
- Strcpy(lock, levels);
+ append_slash(bones);
+ Strcat(bones, "bonesnn.*");
+ Strcpy(lock, levels);
#ifndef AMIGA
- Strcat(lock, alllevels);
+ Strcat(lock, alllevels);
#endif
- return;
+ return;
}
#endif /* MFLOPPY */
char *file;
int lev;
{
- char *tf;
+ char *tf;
- tf = rindex(file, '.');
- if (!tf) tf = eos(file);
- Sprintf(tf, ".%d", lev);
+ tf = rindex(file, '.');
+ if (!tf) tf = eos(file);
+ Sprintf(tf, ".%d", lev);
#ifdef VMS
- Strcat(tf, ";1");
+ Strcat(tf, ";1");
#endif
- return;
+ return;
}
int
int lev;
char errbuf[];
{
- int fd;
- const char *fq_lock;
+ int fd;
+ const char *fq_lock;
- if (errbuf) *errbuf = '\0';
- set_levelfile_name(lock, lev);
- fq_lock = fqname(lock, LEVELPREFIX, 0);
+ if (errbuf) *errbuf = '\0';
+ set_levelfile_name(lock, lev);
+ fq_lock = fqname(lock, LEVELPREFIX, 0);
#if defined(MICRO) || defined(WIN32)
- /* Use O_TRUNC to force the file to be shortened if it already
- * exists and is currently longer.
- */
+ /* Use O_TRUNC to force the file to be shortened if it already
+ * exists and is currently longer.
+ */
# ifdef HOLD_LOCKFILE_OPEN
- if (lev == 0)
- fd = open_levelfile_exclusively(fq_lock, lev,
- O_WRONLY |O_CREAT | O_TRUNC | O_BINARY);
- else
+ if (lev == 0)
+ fd = open_levelfile_exclusively(fq_lock, lev,
+ O_WRONLY |O_CREAT | O_TRUNC | O_BINARY);
+ else
# endif
- fd = open(fq_lock, O_WRONLY |O_CREAT | O_TRUNC | O_BINARY, FCMASK);
+ fd = open(fq_lock, O_WRONLY |O_CREAT | O_TRUNC | O_BINARY, FCMASK);
#else
# ifdef MAC
- fd = maccreat(fq_lock, LEVL_TYPE);
+ fd = maccreat(fq_lock, LEVL_TYPE);
# else
- fd = creat(fq_lock, FCMASK);
+ fd = creat(fq_lock, FCMASK);
# endif
#endif /* MICRO || WIN32 */
- if (fd >= 0)
- level_info[lev].flags |= LFILE_EXISTS;
- else if (errbuf) /* failure explanation */
- Sprintf(errbuf,
- "Cannot create file \"%s\" for level %d (errno %d).",
- lock, lev, errno);
+ if (fd >= 0)
+ level_info[lev].flags |= LFILE_EXISTS;
+ else if (errbuf) /* failure explanation */
+ Sprintf(errbuf,
+ "Cannot create file \"%s\" for level %d (errno %d).",
+ lock, lev, errno);
- return fd;
+ return fd;
}
int lev;
char errbuf[];
{
- int fd;
- const char *fq_lock;
+ int fd;
+ const char *fq_lock;
- if (errbuf) *errbuf = '\0';
- set_levelfile_name(lock, lev);
- fq_lock = fqname(lock, LEVELPREFIX, 0);
+ if (errbuf) *errbuf = '\0';
+ set_levelfile_name(lock, lev);
+ fq_lock = fqname(lock, LEVELPREFIX, 0);
#ifdef MFLOPPY
- /* If not currently accessible, swap it in. */
- if (level_info[lev].where != ACTIVE)
- swapin_file(lev);
+ /* If not currently accessible, swap it in. */
+ if (level_info[lev].where != ACTIVE)
+ swapin_file(lev);
#endif
#ifdef MAC
- fd = macopen(fq_lock, O_RDONLY | O_BINARY, LEVL_TYPE);
+ fd = macopen(fq_lock, O_RDONLY | O_BINARY, LEVL_TYPE);
#else
# ifdef HOLD_LOCKFILE_OPEN
- if (lev == 0)
- fd = open_levelfile_exclusively(fq_lock, lev, O_RDONLY | O_BINARY );
- else
+ if (lev == 0)
+ fd = open_levelfile_exclusively(fq_lock, lev, O_RDONLY | O_BINARY );
+ else
# endif
- fd = open(fq_lock, O_RDONLY | O_BINARY, 0);
+ fd = open(fq_lock, O_RDONLY | O_BINARY, 0);
#endif
- /* for failure, return an explanation that our caller can use;
- settle for `lock' instead of `fq_lock' because the latter
- might end up being too big for nethack's BUFSZ */
- if (fd < 0 && errbuf)
- Sprintf(errbuf,
- "Cannot open file \"%s\" for level %d (errno %d).",
- lock, lev, errno);
+ /* for failure, return an explanation that our caller can use;
+ settle for `lock' instead of `fq_lock' because the latter
+ might end up being too big for nethack's BUFSZ */
+ if (fd < 0 && errbuf)
+ Sprintf(errbuf,
+ "Cannot open file \"%s\" for level %d (errno %d).",
+ lock, lev, errno);
- return fd;
+ return fd;
}
delete_levelfile(lev)
int lev;
{
- /*
- * Level 0 might be created by port specific code that doesn't
- * call create_levfile(), so always assume that it exists.
- */
- if (lev == 0 || (level_info[lev].flags & LFILE_EXISTS)) {
- set_levelfile_name(lock, lev);
+ /*
+ * Level 0 might be created by port specific code that doesn't
+ * call create_levfile(), so always assume that it exists.
+ */
+ if (lev == 0 || (level_info[lev].flags & LFILE_EXISTS)) {
+ set_levelfile_name(lock, lev);
#ifdef HOLD_LOCKFILE_OPEN
- if (lev == 0) really_close();
+ if (lev == 0) really_close();
#endif
- (void) unlink(fqname(lock, LEVELPREFIX, 0));
- level_info[lev].flags &= ~LFILE_EXISTS;
- }
+ (void) unlink(fqname(lock, LEVELPREFIX, 0));
+ level_info[lev].flags &= ~LFILE_EXISTS;
+ }
}
clearlocks()
{
#ifdef HANGUPHANDLING
- if (program_state.preserve_locks) return;
+ if (program_state.preserve_locks) return;
#endif
#if !defined(PC_LOCKING) && defined(MFLOPPY) && !defined(AMIGA)
- eraseall(levels, alllevels);
- if (ramdisk)
- eraseall(permbones, alllevels);
+ eraseall(levels, alllevels);
+ if (ramdisk)
+ eraseall(permbones, alllevels);
#else
{
- register int x;
+ register int x;
# ifndef NO_SIGNAL
- (void) signal(SIGINT, SIG_IGN);
+ (void) signal(SIGINT, SIG_IGN);
# endif
# if defined(UNIX) || defined(VMS)
- sethanguphandler((void FDECL((*),(int)))SIG_IGN);
+ sethanguphandler((void FDECL((*),(int)))SIG_IGN);
# endif
- /* can't access maxledgerno() before dungeons are created -dlc */
- for (x = (n_dgns ? maxledgerno() : 0); x >= 0; x--)
- delete_levelfile(x); /* not all levels need be present */
+ /* can't access maxledgerno() before dungeons are created -dlc */
+ for (x = (n_dgns ? maxledgerno() : 0); x >= 0; x--)
+ delete_levelfile(x); /* not all levels need be present */
}
#endif /* ?PC_LOCKING,&c */
}
const void *q;
{
#if defined(UNIX) && defined(QT_GRAPHICS)
- return strncasecmp(*(char **) p, *(char **) q, 16);
+ return strncasecmp(*(char **) p, *(char **) q, 16);
# else
- return strncmpi(*(char **) p, *(char **) q, 16);
+ return strncmpi(*(char **) p, *(char **) q, 16);
# endif
}
#endif
const char *name;
int lev, oflag;
{
- int reslt, fd;
- if (!lftrack.init) {
- lftrack.init = 1;
- lftrack.fd = -1;
- }
- if (lftrack.fd >= 0) {
- /* check for compatible access */
- if (lftrack.oflag == oflag) {
- fd = lftrack.fd;
- reslt = lseek(fd, 0L, SEEK_SET);
- if (reslt == -1L)
- panic("open_levelfile_exclusively: lseek failed %d", errno);
- lftrack.nethack_thinks_it_is_open = TRUE;
- } else {
- really_close();
- fd = sopen(name, oflag,SH_DENYRW, FCMASK);
- lftrack.fd = fd;
- lftrack.oflag = oflag;
- lftrack.nethack_thinks_it_is_open = TRUE;
- }
- } else {
- fd = sopen(name, oflag,SH_DENYRW, FCMASK);
- lftrack.fd = fd;
- lftrack.oflag = oflag;
- if (fd >= 0)
- lftrack.nethack_thinks_it_is_open = TRUE;
- }
- return fd;
+ int reslt, fd;
+ if (!lftrack.init) {
+ lftrack.init = 1;
+ lftrack.fd = -1;
+ }
+ if (lftrack.fd >= 0) {
+ /* check for compatible access */
+ if (lftrack.oflag == oflag) {
+ fd = lftrack.fd;
+ reslt = lseek(fd, 0L, SEEK_SET);
+ if (reslt == -1L)
+ panic("open_levelfile_exclusively: lseek failed %d", errno);
+ lftrack.nethack_thinks_it_is_open = TRUE;
+ } else {
+ really_close();
+ fd = sopen(name, oflag,SH_DENYRW, FCMASK);
+ lftrack.fd = fd;
+ lftrack.oflag = oflag;
+ lftrack.nethack_thinks_it_is_open = TRUE;
+ }
+ } else {
+ fd = sopen(name, oflag,SH_DENYRW, FCMASK);
+ lftrack.fd = fd;
+ lftrack.oflag = oflag;
+ if (fd >= 0)
+ lftrack.nethack_thinks_it_is_open = TRUE;
+ }
+ return fd;
}
void
really_close()
{
- int fd = lftrack.fd;
- lftrack.nethack_thinks_it_is_open = FALSE;
- lftrack.fd = -1;
- lftrack.oflag = 0;
- if (fd != -1)
- (void)_close(fd);
- return;
+ int fd = lftrack.fd;
+ lftrack.nethack_thinks_it_is_open = FALSE;
+ lftrack.fd = -1;
+ lftrack.oflag = 0;
+ if (fd != -1)
+ (void)_close(fd);
+ return;
}
int
close(fd)
int fd;
{
- if (lftrack.fd == fd) {
- really_close(); /* close it, but reopen it to hold it */
- fd = open_levelfile(0, (char *)0);
- lftrack.nethack_thinks_it_is_open = FALSE;
- return 0;
- }
- return _close(fd);
+ if (lftrack.fd == fd) {
+ really_close(); /* close it, but reopen it to hold it */
+ fd = open_levelfile(0, (char *)0);
+ lftrack.nethack_thinks_it_is_open = FALSE;
+ return 0;
+ }
+ return _close(fd);
}
#endif
-
+
/* ---------- END LEVEL FILE HANDLING ----------- */
char *file;
d_level *lev;
{
- s_level *sptr;
- char *dptr;
-
- Sprintf(file, "bon%c%s", dungeons[lev->dnum].boneid,
- In_quest(lev) ? urole.filecode : "0");
- dptr = eos(file);
- if ((sptr = Is_special(lev)) != 0)
- Sprintf(dptr, ".%c", sptr->boneid);
- else
- Sprintf(dptr, ".%d", lev->dlevel);
+ s_level *sptr;
+ char *dptr;
+
+ Sprintf(file, "bon%c%s", dungeons[lev->dnum].boneid,
+ In_quest(lev) ? urole.filecode : "0");
+ dptr = eos(file);
+ if ((sptr = Is_special(lev)) != 0)
+ Sprintf(dptr, ".%c", sptr->boneid);
+ else
+ Sprintf(dptr, ".%d", lev->dlevel);
#ifdef VMS
- Strcat(dptr, ";1");
+ Strcat(dptr, ";1");
#endif
- return(dptr-2);
+ return(dptr-2);
}
/* set up temporary file name for writing bones, to avoid another game's
STATIC_OVL char *
set_bonestemp_name()
{
- char *tf;
+ char *tf;
- tf = rindex(lock, '.');
- if (!tf) tf = eos(lock);
- Sprintf(tf, ".bn");
+ tf = rindex(lock, '.');
+ if (!tf) tf = eos(lock);
+ Sprintf(tf, ".bn");
#ifdef VMS
- Strcat(tf, ";1");
+ Strcat(tf, ";1");
#endif
- return lock;
+ return lock;
}
int
char **bonesid;
char errbuf[];
{
- const char *file;
- int fd;
+ const char *file;
+ int fd;
- if (errbuf) *errbuf = '\0';
- *bonesid = set_bonesfile_name(bones, lev);
- file = set_bonestemp_name();
- file = fqname(file, BONESPREFIX, 0);
+ if (errbuf) *errbuf = '\0';
+ *bonesid = set_bonesfile_name(bones, lev);
+ file = set_bonestemp_name();
+ file = fqname(file, BONESPREFIX, 0);
#if defined(MICRO) || defined(WIN32)
- /* Use O_TRUNC to force the file to be shortened if it already
- * exists and is currently longer.
- */
- fd = open(file, O_WRONLY |O_CREAT | O_TRUNC | O_BINARY, FCMASK);
+ /* Use O_TRUNC to force the file to be shortened if it already
+ * exists and is currently longer.
+ */
+ fd = open(file, O_WRONLY |O_CREAT | O_TRUNC | O_BINARY, FCMASK);
#else
# ifdef MAC
- fd = maccreat(file, BONE_TYPE);
+ fd = maccreat(file, BONE_TYPE);
# else
- fd = creat(file, FCMASK);
+ fd = creat(file, FCMASK);
# endif
#endif
- if (fd < 0 && errbuf) /* failure explanation */
- Sprintf(errbuf,
- "Cannot create bones \"%s\", id %s (errno %d).",
- lock, *bonesid, errno);
+ if (fd < 0 && errbuf) /* failure explanation */
+ Sprintf(errbuf,
+ "Cannot create bones \"%s\", id %s (errno %d).",
+ lock, *bonesid, errno);
# if defined(VMS) && !defined(SECURE)
- /*
- Re-protect bones file with world:read+write+execute+delete access.
- umask() doesn't seem very reliable; also, vaxcrtl won't let us set
- delete access without write access, which is what's really wanted.
- Can't simply create it with the desired protection because creat
- ANDs the mask with the user's default protection, which usually
- denies some or all access to world.
- */
- (void) chmod(file, FCMASK | 007); /* allow other users full access */
+ /*
+ Re-protect bones file with world:read+write+execute+delete access.
+ umask() doesn't seem very reliable; also, vaxcrtl won't let us set
+ delete access without write access, which is what's really wanted.
+ Can't simply create it with the desired protection because creat
+ ANDs the mask with the user's default protection, which usually
+ denies some or all access to world.
+ */
+ (void) chmod(file, FCMASK | 007); /* allow other users full access */
# endif /* VMS && !SECURE */
- return fd;
+ return fd;
}
#ifdef MFLOPPY
void
cancel_bonesfile()
{
- const char *tempname;
+ const char *tempname;
- tempname = set_bonestemp_name();
- tempname = fqname(tempname, BONESPREFIX, 0);
- (void) unlink(tempname);
+ tempname = set_bonestemp_name();
+ tempname = fqname(tempname, BONESPREFIX, 0);
+ (void) unlink(tempname);
}
#endif /* MFLOPPY */
commit_bonesfile(lev)
d_level *lev;
{
- const char *fq_bones, *tempname;
- int ret;
+ const char *fq_bones, *tempname;
+ int ret;
- (void) set_bonesfile_name(bones, lev);
- fq_bones = fqname(bones, BONESPREFIX, 0);
- tempname = set_bonestemp_name();
- tempname = fqname(tempname, BONESPREFIX, 1);
+ (void) set_bonesfile_name(bones, lev);
+ fq_bones = fqname(bones, BONESPREFIX, 0);
+ tempname = set_bonestemp_name();
+ tempname = fqname(tempname, BONESPREFIX, 1);
#if (defined(SYSV) && !defined(SVR4)) || defined(GENIX)
- /* old SYSVs don't have rename. Some SVR3's may, but since they
- * also have link/unlink, it doesn't matter. :-)
- */
- (void) unlink(fq_bones);
- ret = link(tempname, fq_bones);
- ret += unlink(tempname);
+ /* old SYSVs don't have rename. Some SVR3's may, but since they
+ * also have link/unlink, it doesn't matter. :-)
+ */
+ (void) unlink(fq_bones);
+ ret = link(tempname, fq_bones);
+ ret += unlink(tempname);
#else
- ret = rename(tempname, fq_bones);
+ ret = rename(tempname, fq_bones);
#endif
- if (wizard && ret != 0)
- pline("couldn't rename %s to %s.", tempname, fq_bones);
+ if (wizard && ret != 0)
+ pline("couldn't rename %s to %s.", tempname, fq_bones);
}
d_level *lev;
char **bonesid;
{
- const char *fq_bones;
- int fd;
+ const char *fq_bones;
+ int fd;
- *bonesid = set_bonesfile_name(bones, lev);
- fq_bones = fqname(bones, BONESPREFIX, 0);
- nh_uncompress(fq_bones); /* no effect if nonexistent */
+ *bonesid = set_bonesfile_name(bones, lev);
+ fq_bones = fqname(bones, BONESPREFIX, 0);
+ nh_uncompress(fq_bones); /* no effect if nonexistent */
#ifdef MAC
- fd = macopen(fq_bones, O_RDONLY | O_BINARY, BONE_TYPE);
+ fd = macopen(fq_bones, O_RDONLY | O_BINARY, BONE_TYPE);
#else
- fd = open(fq_bones, O_RDONLY | O_BINARY, 0);
+ fd = open(fq_bones, O_RDONLY | O_BINARY, 0);
#endif
- return fd;
+ return fd;
}
delete_bonesfile(lev)
d_level *lev;
{
- (void) set_bonesfile_name(bones, lev);
- return !(unlink(fqname(bones, BONESPREFIX, 0)) < 0);
+ (void) set_bonesfile_name(bones, lev);
+ return !(unlink(fqname(bones, BONESPREFIX, 0)) < 0);
}
void
compress_bonesfile()
{
- nh_compress(fqname(bones, BONESPREFIX, 0));
+ nh_compress(fqname(bones, BONESPREFIX, 0));
}
/* ---------- END BONES FILE HANDLING ----------- */
boolean regularize_it;
{
#ifdef VMS
- Sprintf(SAVEF, "[.save]%d%s", getuid(), plname);
- if (regularize_it) regularize(SAVEF+7);
- Strcat(SAVEF, ";1");
+ Sprintf(SAVEF, "[.save]%d%s", getuid(), plname);
+ if (regularize_it) regularize(SAVEF+7);
+ Strcat(SAVEF, ";1");
#else
# if defined(MICRO)
- Strcpy(SAVEF, SAVEP);
+ Strcpy(SAVEF, SAVEP);
# ifdef AMIGA
- strncat(SAVEF, bbs_id, PATHLEN);
+ strncat(SAVEF, bbs_id, PATHLEN);
# endif
- {
- int i = strlen(SAVEP);
+ {
+ int i = strlen(SAVEP);
# ifdef AMIGA
- /* plname has to share space with SAVEP and ".sav" */
- (void)strncat(SAVEF, plname, FILENAME - i - 4);
+ /* plname has to share space with SAVEP and ".sav" */
+ (void)strncat(SAVEF, plname, FILENAME - i - 4);
# else
- (void)strncat(SAVEF, plname, 8);
+ (void)strncat(SAVEF, plname, 8);
# endif
- if (regularize_it) regularize(SAVEF+i);
- }
- Strcat(SAVEF, SAVE_EXTENSION);
+ if (regularize_it) regularize(SAVEF+i);
+ }
+ Strcat(SAVEF, SAVE_EXTENSION);
# else
# if defined(WIN32)
{
- static const char okchars[] =
- "*ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_-.";
- const char *legal = okchars;
- char fnamebuf[BUFSZ], encodedfnamebuf[BUFSZ];
-
- /* Obtain the name of the logged on user and incorporate
- * it into the name. */
- Sprintf(fnamebuf, "%s-%s", get_username(0), plname);
- if (regularize_it) ++legal; /* skip '*' wildcard character */
- (void)fname_encode(legal, '%', fnamebuf, encodedfnamebuf, BUFSZ);
- Sprintf(SAVEF, "%s%s", encodedfnamebuf,SAVE_EXTENSION);
+ static const char okchars[] =
+ "*ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_-.";
+ const char *legal = okchars;
+ char fnamebuf[BUFSZ], encodedfnamebuf[BUFSZ];
+
+ /* Obtain the name of the logged on user and incorporate
+ * it into the name. */
+ Sprintf(fnamebuf, "%s-%s", get_username(0), plname);
+ if (regularize_it) ++legal; /* skip '*' wildcard character */
+ (void)fname_encode(legal, '%', fnamebuf, encodedfnamebuf, BUFSZ);
+ Sprintf(SAVEF, "%s%s", encodedfnamebuf,SAVE_EXTENSION);
}
# else /* not VMS or MICRO or WIN32 */
- Sprintf(SAVEF, "save/%d%s", (int)getuid(), plname);
- if (regularize_it) regularize(SAVEF+5); /* avoid . or / in name */
+ Sprintf(SAVEF, "save/%d%s", (int)getuid(), plname);
+ if (regularize_it) regularize(SAVEF+5); /* avoid . or / in name */
# endif /* WIN32 */
# endif /* MICRO */
#endif /* VMS */
save_savefile_name(fd)
int fd;
{
- (void) write(fd, (genericptr_t) SAVEF, sizeof(SAVEF));
+ (void) write(fd, (genericptr_t) SAVEF, sizeof(SAVEF));
}
#endif
{
# ifdef VMS
{
- char *semi_colon = rindex(SAVEF, ';');
- if (semi_colon) *semi_colon = '\0';
+ char *semi_colon = rindex(SAVEF, ';');
+ if (semi_colon) *semi_colon = '\0';
}
- Strcat(SAVEF, ".e;1");
+ Strcat(SAVEF, ".e;1");
# else
# ifdef MAC
- Strcat(SAVEF, "-e");
+ Strcat(SAVEF, "-e");
# else
- Strcat(SAVEF, ".e");
+ Strcat(SAVEF, ".e");
# endif
# endif
}
int
create_savefile()
{
- const char *fq_save;
- int fd;
+ const char *fq_save;
+ int fd;
- fq_save = fqname(SAVEF, SAVEPREFIX, 0);
+ fq_save = fqname(SAVEF, SAVEPREFIX, 0);
#if defined(MICRO) || defined(WIN32)
- fd = open(fq_save, O_WRONLY | O_BINARY | O_CREAT | O_TRUNC, FCMASK);
+ fd = open(fq_save, O_WRONLY | O_BINARY | O_CREAT | O_TRUNC, FCMASK);
#else
# ifdef MAC
- fd = maccreat(fq_save, SAVE_TYPE);
+ fd = maccreat(fq_save, SAVE_TYPE);
# else
- fd = creat(fq_save, FCMASK);
+ fd = creat(fq_save, FCMASK);
# endif
# if defined(VMS) && !defined(SECURE)
- /*
- Make sure the save file is owned by the current process. That's
- the default for non-privileged users, but for priv'd users the
- file will be owned by the directory's owner instead of the user.
- */
+ /*
+ Make sure the save file is owned by the current process. That's
+ the default for non-privileged users, but for priv'd users the
+ file will be owned by the directory's owner instead of the user.
+ */
# undef getuid
- (void) chown(fq_save, getuid(), getgid());
+ (void) chown(fq_save, getuid(), getgid());
# define getuid() vms_getuid()
# endif /* VMS && !SECURE */
#endif /* MICRO */
- return fd;
+ return fd;
}
int
open_savefile()
{
- const char *fq_save;
- int fd;
+ const char *fq_save;
+ int fd;
- fq_save = fqname(SAVEF, SAVEPREFIX, 0);
+ fq_save = fqname(SAVEF, SAVEPREFIX, 0);
#ifdef MAC
- fd = macopen(fq_save, O_RDONLY | O_BINARY, SAVE_TYPE);
+ fd = macopen(fq_save, O_RDONLY | O_BINARY, SAVE_TYPE);
#else
- fd = open(fq_save, O_RDONLY | O_BINARY, 0);
+ fd = open(fq_save, O_RDONLY | O_BINARY, 0);
#endif
- return fd;
+ return fd;
}
int
delete_savefile()
{
- (void) unlink(fqname(SAVEF, SAVEPREFIX, 0));
- return 0; /* for restore_saved_game() (ex-xxxmain.c) test */
+ (void) unlink(fqname(SAVEF, SAVEPREFIX, 0));
+ return 0; /* for restore_saved_game() (ex-xxxmain.c) test */
}
int
restore_saved_game()
{
- const char *fq_save;
- int fd;
+ const char *fq_save;
+ int fd;
- reset_restpref();
- set_savefile_name(TRUE);
+ reset_restpref();
+ set_savefile_name(TRUE);
#ifdef MFLOPPY
- if (!saveDiskPrompt(1))
- return -1;
+ if (!saveDiskPrompt(1))
+ return -1;
#endif /* MFLOPPY */
- fq_save = fqname(SAVEF, SAVEPREFIX, 0);
+ fq_save = fqname(SAVEF, SAVEPREFIX, 0);
- nh_uncompress(fq_save);
- if ((fd = open_savefile()) < 0) return fd;
+ nh_uncompress(fq_save);
+ if ((fd = open_savefile()) < 0) return fd;
- if (validate(fd, fq_save) != 0) {
- (void) close(fd), fd = -1;
- (void) delete_savefile();
- }
- return fd;
+ if (validate(fd, fq_save) != 0) {
+ (void) close(fd), fd = -1;
+ (void) delete_savefile();
+ }
+ return fd;
}
#if defined(SELECTSAVED)
# endif
nh_uncompress(SAVEF);
if ((fd = open_savefile()) >= 0) {
- if (validate(fd, filename)==0) {
- char tplname[PL_NSIZ];
- get_plname_from_file(fd, tplname);
- result = dupstr(tplname);
- }
- (void) close(fd);
+ if (validate(fd, filename)==0) {
+ char tplname[PL_NSIZ];
+ get_plname_from_file(fd, tplname);
+ result = dupstr(tplname);
+ }
+ (void) close(fd);
}
nh_compress(SAVEF);
if ( sscanf( filename, "%*[^/]/%d%63[^.]" EXTSTR, &uid, name ) == 2 ) {
#undef EXTSTR
/* "_" most likely means " ", which certainly looks nicer */
- for (k=0; name[k]; k++)
- if ( name[k]=='_' )
- name[k]=' ';
- return dupstr(name);
+ for (k=0; name[k]; k++)
+ if ( name[k]=='_' )
+ name[k]=' ';
+ return dupstr(name);
} else
# endif /* UNIX && QT_GRAPHICS */
{
- return 0;
+ return 0;
}
/* --------- end of obsolete code ----*/
# endif /* 0 - WAS STORE_PLNAME_IN_FILE*/
char **result = 0;
# ifdef WIN32CON
{
- char *foundfile;
- const char *fq_save;
+ char *foundfile;
+ const char *fq_save;
- Strcpy(plname, "*");
- set_savefile_name(FALSE);
+ Strcpy(plname, "*");
+ set_savefile_name(FALSE);
#if defined(ZLIB_COMP)
- Strcat(SAVEF, COMPRESS_EXTENSION);
-#endif
- fq_save = fqname(SAVEF, SAVEPREFIX, 0);
-
- n = 0;
- foundfile = foundfile_buffer();
- if (findfirst((char *)fq_save)) {
- do {
- ++n;
- } while (findnext());
- }
- if (n > 0) {
- result = (char**)alloc((n+1)*sizeof(char*)); /* at most */
- (void) memset((genericptr_t) result, 0, (n+1)*sizeof(char*));
- if (findfirst((char *)fq_save)) {
- j = n = 0;
- do {
- char *r;
- r = plname_from_file(foundfile);
- if (r)
- result[j++] = r;
- ++n;
- } while (findnext());
- }
- }
+ Strcat(SAVEF, COMPRESS_EXTENSION);
+#endif
+ fq_save = fqname(SAVEF, SAVEPREFIX, 0);
+
+ n = 0;
+ foundfile = foundfile_buffer();
+ if (findfirst((char *)fq_save)) {
+ do {
+ ++n;
+ } while (findnext());
+ }
+ if (n > 0) {
+ result = (char**)alloc((n+1)*sizeof(char*)); /* at most */
+ (void) memset((genericptr_t) result, 0, (n+1)*sizeof(char*));
+ if (findfirst((char *)fq_save)) {
+ j = n = 0;
+ do {
+ char *r;
+ r = plname_from_file(foundfile);
+ if (r)
+ result[j++] = r;
+ ++n;
+ } while (findnext());
+ }
+ }
}
# endif
# if defined(UNIX) && defined(QT_GRAPHICS)
- /* posixly correct version */
+ /* posixly correct version */
int myuid=getuid();
DIR *dir;
if((dir=opendir(fqname("save", SAVEPREFIX, 0)))) {
- for(n=0; readdir(dir); n++)
- ;
- closedir(dir);
- if(n>0) {
- int i;
- if(!(dir=opendir(fqname("save", SAVEPREFIX, 0))))
- return 0;
- result = (char**)alloc((n+1)*sizeof(char*)); /* at most */
- (void) memset((genericptr_t) result, 0, (n+1)*sizeof(char*));
- for (i=0, j=0; i<n; i++) {
- int uid;
- char name[64]; /* more than PL_NSIZ */
- struct dirent *entry=readdir(dir);
- if(!entry)
- break;
- if ( sscanf( entry->d_name, "%d%63s", &uid, name ) == 2 ) {
- if ( uid == myuid ) {
- char filename[BUFSZ];
- char* r;
- Sprintf(filename,"save/%d%s",uid,name);
- r = plname_from_file(filename);
- if ( r )
- result[j++] = r;
- }
- }
- }
- closedir(dir);
- }
+ for(n=0; readdir(dir); n++)
+ ;
+ closedir(dir);
+ if(n>0) {
+ int i;
+ if(!(dir=opendir(fqname("save", SAVEPREFIX, 0))))
+ return 0;
+ result = (char**)alloc((n+1)*sizeof(char*)); /* at most */
+ (void) memset((genericptr_t) result, 0, (n+1)*sizeof(char*));
+ for (i=0, j=0; i<n; i++) {
+ int uid;
+ char name[64]; /* more than PL_NSIZ */
+ struct dirent *entry=readdir(dir);
+ if(!entry)
+ break;
+ if ( sscanf( entry->d_name, "%d%63s", &uid, name ) == 2 ) {
+ if ( uid == myuid ) {
+ char filename[BUFSZ];
+ char* r;
+ Sprintf(filename,"save/%d%s",uid,name);
+ r = plname_from_file(filename);
+ if ( r )
+ result[j++] = r;
+ }
+ }
+ }
+ closedir(dir);
+ }
}
# endif
# ifdef VMS
# endif /* VMS */
if (j > 0) {
- if (j > 1) qsort(result, j, sizeof (char *), strcmp_wrap);
- result[j] = 0;
- return result;
+ if (j > 1) qsort(result, j, sizeof (char *), strcmp_wrap);
+ result[j] = 0;
+ return result;
} else if (result) { /* could happen if save files are obsolete */
- free_saved_games(result);
+ free_saved_games(result);
}
#endif /* SELECTSAVED */
return 0;
char** saved;
{
if ( saved ) {
- int i=0;
- while (saved[i]) free((genericptr_t)saved[i++]);
- free((genericptr_t)saved);
+ int i=0;
+ while (saved[i]) free((genericptr_t)saved[i++]);
+ free((genericptr_t)saved);
}
}
FILE *stream;
boolean uncomp;
{
- if (freopen(filename, mode, stream) == (FILE *)0) {
- (void) fprintf(stderr, "freopen of %s for %scompress failed\n",
- filename, uncomp ? "un" : "");
- terminate(EXIT_FAILURE);
- }
+ if (freopen(filename, mode, stream) == (FILE *)0) {
+ (void) fprintf(stderr, "freopen of %s for %scompress failed\n",
+ filename, uncomp ? "un" : "");
+ terminate(EXIT_FAILURE);
+ }
}
/*
const char *filename;
boolean uncomp;
{
- char cfn[80];
- FILE *cf;
- const char *args[10];
+ char cfn[80];
+ FILE *cf;
+ const char *args[10];
# ifdef COMPRESS_OPTIONS
- char opts[80];
+ char opts[80];
# endif
- int i = 0;
- int f;
+ int i = 0;
+ int f;
# ifdef TTY_GRAPHICS
- boolean istty = !strncmpi(windowprocs.name, "tty", 3);
+ boolean istty = !strncmpi(windowprocs.name, "tty", 3);
# endif
- Strcpy(cfn, filename);
+ Strcpy(cfn, filename);
# ifdef COMPRESS_EXTENSION
- Strcat(cfn, COMPRESS_EXTENSION);
+ Strcat(cfn, COMPRESS_EXTENSION);
# endif
- /* when compressing, we know the file exists */
- if (uncomp) {
- if ((cf = fopen(cfn, RDBMODE)) == (FILE *)0)
- return;
- (void) fclose(cf);
- }
-
- args[0] = COMPRESS;
- if (uncomp) args[++i] = "-d"; /* uncompress */
+ /* when compressing, we know the file exists */
+ if (uncomp) {
+ if ((cf = fopen(cfn, RDBMODE)) == (FILE *)0)
+ return;
+ (void) fclose(cf);
+ }
+
+ args[0] = COMPRESS;
+ if (uncomp) args[++i] = "-d"; /* uncompress */
# ifdef COMPRESS_OPTIONS
- {
- /* we can't guarantee there's only one additional option, sigh */
- char *opt;
- boolean inword = FALSE;
-
- Strcpy(opts, COMPRESS_OPTIONS);
- opt = opts;
- while (*opt) {
- if ((*opt == ' ') || (*opt == '\t')) {
- if (inword) {
- *opt = '\0';
- inword = FALSE;
- }
- } else if (!inword) {
- args[++i] = opt;
- inword = TRUE;
- }
- opt++;
- }
- }
+ {
+ /* we can't guarantee there's only one additional option, sigh */
+ char *opt;
+ boolean inword = FALSE;
+
+ Strcpy(opts, COMPRESS_OPTIONS);
+ opt = opts;
+ while (*opt) {
+ if ((*opt == ' ') || (*opt == '\t')) {
+ if (inword) {
+ *opt = '\0';
+ inword = FALSE;
+ }
+ } else if (!inword) {
+ args[++i] = opt;
+ inword = TRUE;
+ }
+ opt++;
+ }
+ }
# endif
- args[++i] = (char *)0;
+ args[++i] = (char *)0;
# ifdef TTY_GRAPHICS
- /* If we don't do this and we are right after a y/n question *and*
- * there is an error message from the compression, the 'y' or 'n' can
- * end up being displayed after the error message.
- */
- if (istty)
- mark_synch();
+ /* If we don't do this and we are right after a y/n question *and*
+ * there is an error message from the compression, the 'y' or 'n' can
+ * end up being displayed after the error message.
+ */
+ if (istty)
+ mark_synch();
# endif
- f = fork();
- if (f == 0) { /* child */
+ f = fork();
+ if (f == 0) { /* child */
# ifdef TTY_GRAPHICS
- /* any error messages from the compression must come out after
- * the first line, because the more() to let the user read
- * them will have to clear the first line. This should be
- * invisible if there are no error messages.
- */
- if (istty)
- raw_print("");
+ /* any error messages from the compression must come out after
+ * the first line, because the more() to let the user read
+ * them will have to clear the first line. This should be
+ * invisible if there are no error messages.
+ */
+ if (istty)
+ raw_print("");
# endif
- /* run compressor without privileges, in case other programs
- * have surprises along the line of gzip once taking filenames
- * in GZIP.
- */
- /* assume all compressors will compress stdin to stdout
- * without explicit filenames. this is true of at least
- * compress and gzip, those mentioned in config.h.
- */
- if (uncomp) {
- redirect(cfn, RDBMODE, stdin, uncomp);
- redirect(filename, WRBMODE, stdout, uncomp);
- } else {
- redirect(filename, RDBMODE, stdin, uncomp);
- redirect(cfn, WRBMODE, stdout, uncomp);
- }
- (void) setgid(getgid());
- (void) setuid(getuid());
- (void) execv(args[0], (char *const *) args);
- perror((char *)0);
- (void) fprintf(stderr, "Exec to %scompress %s failed.\n",
- uncomp ? "un" : "", filename);
- terminate(EXIT_FAILURE);
- } else if (f == -1) {
- perror((char *)0);
- pline("Fork to %scompress %s failed.",
- uncomp ? "un" : "", filename);
- return;
- }
+ /* run compressor without privileges, in case other programs
+ * have surprises along the line of gzip once taking filenames
+ * in GZIP.
+ */
+ /* assume all compressors will compress stdin to stdout
+ * without explicit filenames. this is true of at least
+ * compress and gzip, those mentioned in config.h.
+ */
+ if (uncomp) {
+ redirect(cfn, RDBMODE, stdin, uncomp);
+ redirect(filename, WRBMODE, stdout, uncomp);
+ } else {
+ redirect(filename, RDBMODE, stdin, uncomp);
+ redirect(cfn, WRBMODE, stdout, uncomp);
+ }
+ (void) setgid(getgid());
+ (void) setuid(getuid());
+ (void) execv(args[0], (char *const *) args);
+ perror((char *)0);
+ (void) fprintf(stderr, "Exec to %scompress %s failed.\n",
+ uncomp ? "un" : "", filename);
+ terminate(EXIT_FAILURE);
+ } else if (f == -1) {
+ perror((char *)0);
+ pline("Fork to %scompress %s failed.",
+ uncomp ? "un" : "", filename);
+ return;
+ }
# ifndef NO_SIGNAL
- (void) signal(SIGINT, SIG_IGN);
- (void) signal(SIGQUIT, SIG_IGN);
- (void) wait((int *)&i);
- (void) signal(SIGINT, (SIG_RET_TYPE) done1);
- if (wizard) (void) signal(SIGQUIT, SIG_DFL);
+ (void) signal(SIGINT, SIG_IGN);
+ (void) signal(SIGQUIT, SIG_IGN);
+ (void) wait((int *)&i);
+ (void) signal(SIGINT, (SIG_RET_TYPE) done1);
+ if (wizard) (void) signal(SIGQUIT, SIG_DFL);
#else
- /* I don't think we can really cope with external compression
- * without signals, so we'll declare that compress failed and
- * go on. (We could do a better job by forcing off external
- * compression if there are no signals, but we want this for
- * testing with FailSafeC
- */
- i = 1;
-#endif
- if (i == 0) {
- /* (un)compress succeeded: remove file left behind */
- if (uncomp)
- (void) unlink(cfn);
- else
- (void) unlink(filename);
- } else {
- /* (un)compress failed; remove the new, bad file */
- if (uncomp) {
- raw_printf("Unable to uncompress %s", filename);
- (void) unlink(filename);
- } else {
- /* no message needed for compress case; life will go on */
- (void) unlink(cfn);
- }
+ /* I don't think we can really cope with external compression
+ * without signals, so we'll declare that compress failed and
+ * go on. (We could do a better job by forcing off external
+ * compression if there are no signals, but we want this for
+ * testing with FailSafeC
+ */
+ i = 1;
+#endif
+ if (i == 0) {
+ /* (un)compress succeeded: remove file left behind */
+ if (uncomp)
+ (void) unlink(cfn);
+ else
+ (void) unlink(filename);
+ } else {
+ /* (un)compress failed; remove the new, bad file */
+ if (uncomp) {
+ raw_printf("Unable to uncompress %s", filename);
+ (void) unlink(filename);
+ } else {
+ /* no message needed for compress case; life will go on */
+ (void) unlink(cfn);
+ }
#ifdef TTY_GRAPHICS
- /* Give them a chance to read any error messages from the
- * compression--these would go to stdout or stderr and would get
- * overwritten only in tty mode. It's still ugly, since the
- * messages are being written on top of the screen, but at least
- * the user can read them.
- */
- if (istty)
- {
- clear_nhwindow(WIN_MESSAGE);
- more();
- /* No way to know if this is feasible */
- /* doredraw(); */
- }
-#endif
- }
+ /* Give them a chance to read any error messages from the
+ * compression--these would go to stdout or stderr and would get
+ * overwritten only in tty mode. It's still ugly, since the
+ * messages are being written on top of the screen, but at least
+ * the user can read them.
+ */
+ if (istty)
+ {
+ clear_nhwindow(WIN_MESSAGE);
+ more();
+ /* No way to know if this is feasible */
+ /* doredraw(); */
+ }
+#endif
+ }
}
#endif /* COMPRESS */
# pragma unused(filename)
# endif
#else
- docompress_file(filename, FALSE);
+ docompress_file(filename, FALSE);
#endif
}
# pragma unused(filename)
# endif
#else
- docompress_file(filename, TRUE);
+ docompress_file(filename, TRUE);
#endif
}
char *cfn;
{
#ifndef SHORT_FILENAMES
- /* Assume free-form filename with no 8.3 restrictions */
- strcpy(cfn, filename);
- strcat(cfn, COMPRESS_EXTENSION);
- return TRUE;
+ /* Assume free-form filename with no 8.3 restrictions */
+ strcpy(cfn, filename);
+ strcat(cfn, COMPRESS_EXTENSION);
+ return TRUE;
#else
# ifdef SAVE_EXTENSION
- char *bp = (char *)0;
- strcpy(cfn, filename);
- if ((bp = strstri(cfn, SAVE_EXTENSION))) {
- strsubst(bp, SAVE_EXTENSION, ".saz");
- return TRUE;
- } else {
- /* find last occurrence of bon */
- bp = eos(cfn);
- while (bp-- > cfn) {
- if (strstri(bp,"bon")) {
- strsubst(bp, "bon", "boz");
- return TRUE;
- }
- }
- }
+ char *bp = (char *)0;
+ strcpy(cfn, filename);
+ if ((bp = strstri(cfn, SAVE_EXTENSION))) {
+ strsubst(bp, SAVE_EXTENSION, ".saz");
+ return TRUE;
+ } else {
+ /* find last occurrence of bon */
+ bp = eos(cfn);
+ while (bp-- > cfn) {
+ if (strstri(bp,"bon")) {
+ strsubst(bp, "bon", "boz");
+ return TRUE;
+ }
+ }
+ }
# endif /* SAVE_EXTENSION */
- return FALSE;
+ return FALSE;
#endif /* SHORT_FILENAMES */
}
const char *filename;
boolean uncomp;
{
- gzFile *compressedfile;
- FILE *uncompressedfile;
- char cfn[256];
- char buf[1024];
- unsigned len, len2;
-
- if (!make_compressed_name(filename, cfn))
- return;
-
- if (!uncomp) {
- /* Open the input and output files */
- /* Note that gzopen takes "wb" as its mode, even on systems where
- fopen takes "r" and "w" */
-
- uncompressedfile = fopen(filename, RDBMODE);
- if (!uncompressedfile) {
- pline("Error in zlib docompress_file %s", filename);
- return;
- }
- compressedfile = gzopen(cfn, "wb");
- if (compressedfile == NULL) {
- if (errno == 0) {
- pline("zlib failed to allocate memory");
- } else {
- panic("Error in docompress_file %d",
- errno);
- }
- fclose(uncompressedfile);
- return;
- }
-
- /* Copy from the uncompressed to the compressed file */
-
- while (1) {
- len = fread(buf, 1, sizeof(buf), uncompressedfile);
- if (ferror(uncompressedfile)) {
- pline("Failure reading uncompressed file");
- pline("Can't compress %s.", filename);
- fclose(uncompressedfile);
- gzclose(compressedfile);
- (void)unlink(cfn);
- return;
- }
- if (len == 0) break; /* End of file */
-
- len2 = gzwrite(compressedfile, buf, len);
- if (len2 == 0) {
- pline("Failure writing compressed file");
- pline("Can't compress %s.", filename);
- fclose(uncompressedfile);
- gzclose(compressedfile);
- (void)unlink(cfn);
- return;
- }
- }
-
- fclose(uncompressedfile);
- gzclose(compressedfile);
-
- /* Delete the file left behind */
-
- (void)unlink(filename);
-
- } else { /* uncomp */
-
- /* Open the input and output files */
- /* Note that gzopen takes "rb" as its mode, even on systems where
- fopen takes "r" and "w" */
-
- compressedfile = gzopen(cfn, "rb");
- if (compressedfile == NULL) {
- if (errno == 0) {
- pline("zlib failed to allocate memory");
- } else if (errno != ENOENT) {
- panic("Error in zlib docompress_file %s, %d",
- filename, errno);
- }
- return;
- }
- uncompressedfile = fopen(filename, WRBMODE);
- if (!uncompressedfile) {
- pline("Error in zlib docompress file uncompress %s",
- filename);
- gzclose(compressedfile);
- return;
- }
-
- /* Copy from the compressed to the uncompressed file */
-
- while (1) {
- len = gzread(compressedfile, buf, sizeof(buf));
- if (len == (unsigned)-1) {
- pline("Failure reading compressed file");
- pline("Can't uncompress %s.", filename);
- fclose(uncompressedfile);
- gzclose(compressedfile);
- (void)unlink(filename);
- return;
- }
- if (len == 0) break; /* End of file */
-
- fwrite(buf, 1, len, uncompressedfile);
- if (ferror(uncompressedfile)) {
- pline("Failure writing uncompressed file");
- pline("Can't uncompress %s.", filename);
- fclose(uncompressedfile);
- gzclose(compressedfile);
- (void)unlink(filename);
- return;
- }
- }
-
- fclose(uncompressedfile);
- gzclose(compressedfile);
-
- /* Delete the file left behind */
- (void)unlink(cfn);
- }
+ gzFile *compressedfile;
+ FILE *uncompressedfile;
+ char cfn[256];
+ char buf[1024];
+ unsigned len, len2;
+
+ if (!make_compressed_name(filename, cfn))
+ return;
+
+ if (!uncomp) {
+ /* Open the input and output files */
+ /* Note that gzopen takes "wb" as its mode, even on systems where
+ fopen takes "r" and "w" */
+
+ uncompressedfile = fopen(filename, RDBMODE);
+ if (!uncompressedfile) {
+ pline("Error in zlib docompress_file %s", filename);
+ return;
+ }
+ compressedfile = gzopen(cfn, "wb");
+ if (compressedfile == NULL) {
+ if (errno == 0) {
+ pline("zlib failed to allocate memory");
+ } else {
+ panic("Error in docompress_file %d",
+ errno);
+ }
+ fclose(uncompressedfile);
+ return;
+ }
+
+ /* Copy from the uncompressed to the compressed file */
+
+ while (1) {
+ len = fread(buf, 1, sizeof(buf), uncompressedfile);
+ if (ferror(uncompressedfile)) {
+ pline("Failure reading uncompressed file");
+ pline("Can't compress %s.", filename);
+ fclose(uncompressedfile);
+ gzclose(compressedfile);
+ (void)unlink(cfn);
+ return;
+ }
+ if (len == 0) break; /* End of file */
+
+ len2 = gzwrite(compressedfile, buf, len);
+ if (len2 == 0) {
+ pline("Failure writing compressed file");
+ pline("Can't compress %s.", filename);
+ fclose(uncompressedfile);
+ gzclose(compressedfile);
+ (void)unlink(cfn);
+ return;
+ }
+ }
+
+ fclose(uncompressedfile);
+ gzclose(compressedfile);
+
+ /* Delete the file left behind */
+
+ (void)unlink(filename);
+
+ } else { /* uncomp */
+
+ /* Open the input and output files */
+ /* Note that gzopen takes "rb" as its mode, even on systems where
+ fopen takes "r" and "w" */
+
+ compressedfile = gzopen(cfn, "rb");
+ if (compressedfile == NULL) {
+ if (errno == 0) {
+ pline("zlib failed to allocate memory");
+ } else if (errno != ENOENT) {
+ panic("Error in zlib docompress_file %s, %d",
+ filename, errno);
+ }
+ return;
+ }
+ uncompressedfile = fopen(filename, WRBMODE);
+ if (!uncompressedfile) {
+ pline("Error in zlib docompress file uncompress %s",
+ filename);
+ gzclose(compressedfile);
+ return;
+ }
+
+ /* Copy from the compressed to the uncompressed file */
+
+ while (1) {
+ len = gzread(compressedfile, buf, sizeof(buf));
+ if (len == (unsigned)-1) {
+ pline("Failure reading compressed file");
+ pline("Can't uncompress %s.", filename);
+ fclose(uncompressedfile);
+ gzclose(compressedfile);
+ (void)unlink(filename);
+ return;
+ }
+ if (len == 0) break; /* End of file */
+
+ fwrite(buf, 1, len, uncompressedfile);
+ if (ferror(uncompressedfile)) {
+ pline("Failure writing uncompressed file");
+ pline("Can't uncompress %s.", filename);
+ fclose(uncompressedfile);
+ gzclose(compressedfile);
+ (void)unlink(filename);
+ return;
+ }
+ }
+
+ fclose(uncompressedfile);
+ gzclose(compressedfile);
+
+ /* Delete the file left behind */
+ (void)unlink(cfn);
+ }
}
#endif /* RLC 09 Mar 1999: End ZLIB patch */
{
#if defined(UNIX) || defined(VMS) || defined(AMIGA) || defined(WIN32) || defined(MSDOS)
# ifdef NO_FILE_LINKS
- Strcpy(lockname, LOCKDIR);
- Strcat(lockname, "/");
- Strcat(lockname, filename);
+ Strcpy(lockname, LOCKDIR);
+ Strcat(lockname, "/");
+ Strcat(lockname, filename);
# else
- Strcpy(lockname, filename);
+ Strcpy(lockname, filename);
# endif
# ifdef VMS
{
- char *semi_colon = rindex(lockname, ';');
- if (semi_colon) *semi_colon = '\0';
+ char *semi_colon = rindex(lockname, ';');
+ if (semi_colon) *semi_colon = '\0';
}
- Strcat(lockname, ".lock;1");
+ Strcat(lockname, ".lock;1");
# else
- Strcat(lockname, "_lock");
+ Strcat(lockname, "_lock");
# endif
- return lockname;
+ return lockname;
#else /* !(UNIX || VMS || AMIGA || WIN32 || MSDOS) */
# ifdef PRAGMA_UNUSED
# pragma unused(filename)
# endif
- lockname[0] = '\0';
- return (char*)0;
+ lockname[0] = '\0';
+ return (char*)0;
#endif
}
#endif /* !USE_FCNTL */
# pragma unused(retryct)
#endif
#ifndef USE_FCNTL
- char locknambuf[BUFSZ];
- const char *lockname;
+ char locknambuf[BUFSZ];
+ const char *lockname;
#endif
- nesting++;
- if (nesting > 1) {
- impossible("TRIED TO NEST LOCKS");
- return TRUE;
- }
+ nesting++;
+ if (nesting > 1) {
+ impossible("TRIED TO NEST LOCKS");
+ return TRUE;
+ }
#ifndef USE_FCNTL
- lockname = make_lockname(filename, locknambuf);
+ lockname = make_lockname(filename, locknambuf);
#ifndef NO_FILE_LINKS /* LOCKDIR should be subsumed by LOCKPREFIX */
- lockname = fqname(lockname, LOCKPREFIX, 2);
+ lockname = fqname(lockname, LOCKPREFIX, 2);
#endif
#endif
- filename = fqname(filename, whichprefix, 0);
+ filename = fqname(filename, whichprefix, 0);
#ifdef USE_FCNTL
- lockfd = open(filename,O_RDWR);
- if (lockfd == -1) {
- HUP raw_printf("Cannot open file %s. This is a program bug.",
- filename);
- }
- sflock.l_type = F_WRLCK;
- sflock.l_whence = SEEK_SET;
- sflock.l_start = 0;
- sflock.l_len = 0;
+ lockfd = open(filename,O_RDWR);
+ if (lockfd == -1) {
+ HUP raw_printf("Cannot open file %s. This is a program bug.",
+ filename);
+ }
+ sflock.l_type = F_WRLCK;
+ sflock.l_whence = SEEK_SET;
+ sflock.l_start = 0;
+ sflock.l_len = 0;
#endif
#if defined(UNIX) || defined(VMS)
# ifdef USE_FCNTL
- while (fcntl(lockfd,F_SETLK,&sflock) == -1) {
+ while (fcntl(lockfd,F_SETLK,&sflock) == -1) {
# else
# ifdef NO_FILE_LINKS
- while ((lockfd = open(lockname, O_RDWR|O_CREAT|O_EXCL, 0666)) == -1) {
+ while ((lockfd = open(lockname, O_RDWR|O_CREAT|O_EXCL, 0666)) == -1) {
# else
- while (link(filename, lockname) == -1) {
+ while (link(filename, lockname) == -1) {
# endif
# endif
#ifdef USE_FCNTL
- if (retryct--) {
- HUP raw_printf(
- "Waiting for release of fcntl lock on %s. (%d retries left).",
- filename, retryct);
- sleep(1);
- } else {
- HUP (void) raw_print("I give up. Sorry.");
- HUP raw_printf("Some other process has an unnatural grip on %s.",
- filename);
- nesting--;
- return FALSE;
- }
+ if (retryct--) {
+ HUP raw_printf(
+ "Waiting for release of fcntl lock on %s. (%d retries left).",
+ filename, retryct);
+ sleep(1);
+ } else {
+ HUP (void) raw_print("I give up. Sorry.");
+ HUP raw_printf("Some other process has an unnatural grip on %s.",
+ filename);
+ nesting--;
+ return FALSE;
+ }
#else
- register int errnosv = errno;
-
- switch (errnosv) { /* George Barbanis */
- case EEXIST:
- if (retryct--) {
- HUP raw_printf(
- "Waiting for access to %s. (%d retries left).",
- filename, retryct);
+ register int errnosv = errno;
+
+ switch (errnosv) { /* George Barbanis */
+ case EEXIST:
+ if (retryct--) {
+ HUP raw_printf(
+ "Waiting for access to %s. (%d retries left).",
+ filename, retryct);
# if defined(SYSV) || defined(ULTRIX) || defined(VMS)
- (void)
+ (void)
# endif
- sleep(1);
- } else {
- HUP (void) raw_print("I give up. Sorry.");
- HUP raw_printf("Perhaps there is an old %s around?",
- lockname);
- nesting--;
- return FALSE;
- }
-
- break;
- case ENOENT:
- HUP raw_printf("Can't find file %s to lock!", filename);
- nesting--;
- return FALSE;
- case EACCES:
- HUP raw_printf("No write permission to lock %s!", filename);
- nesting--;
- return FALSE;
+ sleep(1);
+ } else {
+ HUP (void) raw_print("I give up. Sorry.");
+ HUP raw_printf("Perhaps there is an old %s around?",
+ lockname);
+ nesting--;
+ return FALSE;
+ }
+
+ break;
+ case ENOENT:
+ HUP raw_printf("Can't find file %s to lock!", filename);
+ nesting--;
+ return FALSE;
+ case EACCES:
+ HUP raw_printf("No write permission to lock %s!", filename);
+ nesting--;
+ return FALSE;
# ifdef VMS /* c__translate(vmsfiles.c) */
- case EPERM:
- /* could be misleading, but usually right */
- HUP raw_printf("Can't lock %s due to directory protection.",
- filename);
- nesting--;
- return FALSE;
+ case EPERM:
+ /* could be misleading, but usually right */
+ HUP raw_printf("Can't lock %s due to directory protection.",
+ filename);
+ nesting--;
+ return FALSE;
# endif
- case EROFS:
- /* take a wild guess at the underlying cause */
- HUP perror(lockname);
- HUP raw_printf("Cannot lock %s.", filename);
- HUP raw_printf(
+ case EROFS:
+ /* take a wild guess at the underlying cause */
+ HUP perror(lockname);
+ HUP raw_printf("Cannot lock %s.", filename);
+ HUP raw_printf(
"(Perhaps you are running NetHack from inside the distribution package?)."
- );
- nesting--;
- return FALSE;
- default:
- HUP perror(lockname);
- HUP raw_printf(
- "Cannot lock %s for unknown reason (%d).",
- filename, errnosv);
- nesting--;
- return FALSE;
- }
+ );
+ nesting--;
+ return FALSE;
+ default:
+ HUP perror(lockname);
+ HUP raw_printf(
+ "Cannot lock %s for unknown reason (%d).",
+ filename, errnosv);
+ nesting--;
+ return FALSE;
+ }
#endif /* USE_FCNTL */
- }
+ }
#endif /* UNIX || VMS */
#if (defined(AMIGA) || defined(WIN32) || defined(MSDOS)) && !defined(USE_FCNTL)
# endif
while (--retryct && OPENFAILURE(lockptr)) {
# if defined(WIN32) && !defined(WIN_CE)
- lockptr = sopen(lockname, O_RDWR|O_CREAT, SH_DENYRW, S_IWRITE);
+ lockptr = sopen(lockname, O_RDWR|O_CREAT, SH_DENYRW, S_IWRITE);
# else
- (void)DeleteFile(lockname); /* in case dead process was here first */
+ (void)DeleteFile(lockname); /* in case dead process was here first */
# ifdef AMIGA
- lockptr = Open(lockname,MODE_NEWFILE);
+ lockptr = Open(lockname,MODE_NEWFILE);
# else
- lockptr = open(lockname, O_RDWR|O_CREAT|O_EXCL, S_IWRITE);
+ lockptr = open(lockname, O_RDWR|O_CREAT|O_EXCL, S_IWRITE);
# endif
# endif
- if (OPENFAILURE(lockptr)) {
- raw_printf("Waiting for access to %s. (%d retries left).",
- filename, retryct);
- Delay(50);
- }
+ if (OPENFAILURE(lockptr)) {
+ raw_printf("Waiting for access to %s. (%d retries left).",
+ filename, retryct);
+ Delay(50);
+ }
}
if (!retryct) {
- raw_printf("I give up. Sorry.");
- nesting--;
- return FALSE;
+ raw_printf("I give up. Sorry.");
+ nesting--;
+ return FALSE;
}
#endif /* AMIGA || WIN32 || MSDOS */
- return TRUE;
+ return TRUE;
}
const char *filename;
{
#ifndef USE_FCNTL
- char locknambuf[BUFSZ];
- const char *lockname;
+ char locknambuf[BUFSZ];
+ const char *lockname;
#endif
- if (nesting == 1) {
+ if (nesting == 1) {
#ifdef USE_FCNTL
- sflock.l_type = F_UNLCK;
- if (fcntl(lockfd,F_SETLK,&sflock) == -1) {
- HUP raw_printf("Can't remove fcntl lock on %s.", filename);
- (void) close(lockfd);
- }
+ sflock.l_type = F_UNLCK;
+ if (fcntl(lockfd,F_SETLK,&sflock) == -1) {
+ HUP raw_printf("Can't remove fcntl lock on %s.", filename);
+ (void) close(lockfd);
+ }
#else
- lockname = make_lockname(filename, locknambuf);
+ lockname = make_lockname(filename, locknambuf);
#ifndef NO_FILE_LINKS /* LOCKDIR should be subsumed by LOCKPREFIX */
- lockname = fqname(lockname, LOCKPREFIX, 2);
+ lockname = fqname(lockname, LOCKPREFIX, 2);
#endif
#if defined(UNIX) || defined(VMS)
- if (unlink(lockname) < 0)
- HUP raw_printf("Can't unlink %s.", lockname);
+ if (unlink(lockname) < 0)
+ HUP raw_printf("Can't unlink %s.", lockname);
# ifdef NO_FILE_LINKS
- (void) close(lockfd);
+ (void) close(lockfd);
# endif
#endif /* UNIX || VMS */
#if defined(AMIGA) || defined(WIN32) || defined(MSDOS)
- if (lockptr) Close(lockptr);
- DeleteFile(lockname);
- lockptr = 0;
+ if (lockptr) Close(lockptr);
+ DeleteFile(lockname);
+ lockptr = 0;
#endif /* AMIGA || WIN32 || MSDOS */
#endif /* USE_FCNTL */
- }
+ }
- nesting--;
+ nesting--;
}
/* ---------- END FILE LOCKING HANDLING ----------- */
const char *configfile =
#ifdef UNIX
- ".nethackrc";
+ ".nethackrc";
#else
# if defined(MAC) || defined(__BEOS__)
- "NetHack Defaults";
+ "NetHack Defaults";
# else
# if defined(MSDOS) || defined(WIN32)
- "defaults.nh";
+ "defaults.nh";
# else
- "NetHack.cnf";
+ "NetHack.cnf";
# endif
# endif
#endif
const char *filename;
int src;
{
- FILE *fp;
-#if defined(UNIX) || defined(VMS) || defined(WIN32) || defined(MSDOS)
- char tmp_config[BUFSZ];
- char *envp;
+ FILE *fp;
+#if defined(UNIX) || defined(VMS)
+ char *envp;
#endif
- /* If src != SET_IN_SYS, "filename" is an environment variable, so it
- * should hang around. If set, it is expected to be a full path name
- * (if relevant) */
- if (filename) {
+ /* If src != SET_IN_SYS, "filename" is an environment variable, so it
+ * should hang around. If set, it is expected to be a full path name
+ * (if relevant) */
+ if (filename) {
#ifdef UNIX
- if ((src!=SET_IN_SYS) && access(filename, 4) == -1) {
- /* 4 is R_OK on newer systems */
- /* nasty sneaky attempt to read file through
- * NetHack's setuid permissions -- this is the only
- * place a file name may be wholly under the player's
- * control (but SYSCF_FILE is not under the player's
- * control so it's OK).
- */
- raw_printf("Access to %s denied (%d).",
- filename, errno);
- wait_synch();
- /* fall through to standard names */
- } else
+ if ((src!=SET_IN_SYS) && access(filename, 4) == -1) {
+ /* 4 is R_OK on newer systems */
+ /* nasty sneaky attempt to read file through
+ * NetHack's setuid permissions -- this is the only
+ * place a file name may be wholly under the player's
+ * control (but SYSCF_FILE is not under the player's
+ * control so it's OK).
+ */
+ raw_printf("Access to %s denied (%d).",
+ filename, errno);
+ wait_synch();
+ /* fall through to standard names */
+ } else
#endif
#ifdef PREFIXES_IN_USE
- if (src == SET_IN_SYS) {
- (void) strncpy(lastconfigfile,
- fqname(filename, SYSCONFPREFIX, 0), BUFSZ-1);
- } else
-#endif
- (void) strncpy(lastconfigfile, filename, BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0) {
- return(fp);
+ if (src == SET_IN_SYS) {
+ (void) strncpy(lastconfigfile,
+ fqname(filename, SYSCONFPREFIX, 0), BUFSZ-1);
+ } else
+#endif
+ /* always honor sysconf first before anything else */
+ (void) strncpy(lastconfigfile, filename, BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
+ return(fp);
+ if ((fp = fopenp(filename, "r")) != (FILE *)0) {
+ return(fp);
#if defined(UNIX) || defined(VMS)
- } else {
- /* access() above probably caught most problems for UNIX */
- raw_printf("Couldn't open requested config file %s (%d).",
- filename, errno);
- wait_synch();
- /* fall through to standard names */
+ } else {
+ /* access() above probably caught most problems for UNIX */
+ raw_printf("Couldn't open requested config file %s (%d).",
+ filename, errno);
+ wait_synch();
+ /* fall through to standard names */
#endif
- }
- }
+ }
+ }
#if defined(MICRO) || defined(MAC) || defined(__BEOS__) || defined(WIN32)
-# if defined(WIN32) || defined(MSDOS)
- /* user's home directory should be where we look first here, too */
- envp = nh_getenv("USERPROFILE");
-# endif
-/*
- * TODO: uncomment this when you figure out where to put it
- (void) strncpy(lastconfigfile,
- fqname(configfile, CONFIGPREFIX, 0), BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0) {
-*/
-# ifdef WIN32
- if (!envp) {
- Strcpy(tmp_config, configfile);
- } else {
- Sprintf(tmp_config, "%s\\%s", envp, configfile);
- }
- /* try the home directory first, then the output of fqname() will
- * pick up the current dir */
- if ((fp = fopenp(tmp_config, "r")) != (FILE *)0)
+ if ((fp = fopenp(fqname(configfile, CONFIGPREFIX, 0), "r")) != (FILE *)0)
return(fp);
- if ((fp = fopenp(fqname(configfile, CONFIGPREFIX, 0), "r")) != (FILE *)0)
- return(fp);
-# else
- if ((fp = fopenp(fqname(configfile, CONFIGPREFIX, 0), "r")) != (FILE *)0)
+ if ((fp = fopenp(configfile, "r")) != (FILE *)0)
return(fp);
-# endif
# ifdef MSDOS
- else {
- if (!envp) {
- Strcpy(tmp_config, backward_compat_configfile);
- } else {
- Sprintf(tmp_config, "%s\\%s", envp, backward_compat_configfile);
- }
- if ((fp = fopenp(tmp_config, "r")) != (FILE *)0)
- return(fp);
- if ((fp = fopenp(fqname(configfile, CONFIGPREFIX, 0), "r")) != (FILE *)0)
- return(fp);
- }
+ if ((fp = fopenp(fqname(backward_compat_configfile, CONFIGPREFIX, 0), "r")) != (FILE *)0)
+ return(fp);
+ if ((fp = fopenp(backward_compat_configfile, "r")) != (FILE *)0)
+ return(fp);
# endif
#else
- /* constructed full path names don't need fqname() */
+ /* constructed full path names don't need fqname() */
# ifdef VMS
- (void) strncpy(lastconfigfile, fqname("nethackini", CONFIGPREFIX, 0),
- BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0) {
- return(fp);
- }
- (void) strncpy(lastconfigfile,"sys$login:nethack.ini", BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0) {
- return(fp);
- }
-
- envp = nh_getenv("HOME");
- if (!envp)
- Strcpy(tmp_config, "NetHack.cnf");
- else
- Sprintf(tmp_config, "%s%s", envp, "NetHack.cnf");
-
- (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(tmp_config, "r")) != (FILE *)0)
- return(fp);
+ (void) strncpy(lastconfigfile, fqname("nethackini", CONFIGPREFIX, 0),
+ BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0) {
+ return(fp);
+ }
+ (void) strncpy(lastconfigfile,"sys$login:nethack.ini", BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0) {
+ return(fp);
+ }
+
+ envp = nh_getenv("HOME");
+ if (!envp)
+ Strcpy(tmp_config, "NetHack.cnf");
+ else
+ Sprintf(tmp_config, "%s%s", envp, "NetHack.cnf");
+
+ (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(tmp_config, "r")) != (FILE *)0)
+ return(fp);
# else /* should be only UNIX left */
- envp = nh_getenv("HOME");
- if (!envp)
- Strcpy(tmp_config, ".nethackrc");
- else
- Sprintf(tmp_config, "%s/%s", envp, ".nethackrc");
-
- (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
- return(fp);
+ envp = nh_getenv("HOME");
+ if (!envp)
+ Strcpy(tmp_config, ".nethackrc");
+ else
+ Sprintf(tmp_config, "%s/%s", envp, ".nethackrc");
+
+ (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
+ return(fp);
# if defined(__APPLE__)
- /* try an alternative */
- if (envp) {
- Sprintf(tmp_config, "%s/%s", envp,
- "Library/Preferences/NetHack Defaults");
- (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
- return(fp);
- Sprintf(tmp_config, "%s/%s", envp,
- "Library/Preferences/NetHack Defaults.txt");
- (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
- lastconfigfile[BUFSZ-1] = '\0';
- if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
- return(fp);
- }
+ /* try an alternative */
+ if (envp) {
+ Sprintf(tmp_config, "%s/%s", envp,
+ "Library/Preferences/NetHack Defaults");
+ (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
+ return(fp);
+ Sprintf(tmp_config, "%s/%s", envp,
+ "Library/Preferences/NetHack Defaults.txt");
+ (void) strncpy(lastconfigfile, tmp_config, BUFSZ-1);
+ lastconfigfile[BUFSZ-1] = '\0';
+ if ((fp = fopenp(lastconfigfile, "r")) != (FILE *)0)
+ return(fp);
+ }
# endif
- if (errno != ENOENT) {
- const char *details;
+ if (errno != ENOENT) {
+ const char *details;
- /* e.g., problems when setuid NetHack can't search home
- * directory restricted to user */
+ /* e.g., problems when setuid NetHack can't search home
+ * directory restricted to user */
# if defined (NHSTDC) && !defined(NOTSTDC)
- if ((details = strerror(errno)) == 0)
+ if ((details = strerror(errno)) == 0)
# endif
- details = "";
- raw_printf("Couldn't open default config file %s %s(%d).",
- lastconfigfile, details, errno);
- wait_synch();
- }
+ details = "";
+ raw_printf("Couldn't open default config file %s %s(%d).",
+ lastconfigfile, details, errno);
+ wait_synch();
+ }
# endif /* Unix */
#endif
- return (FILE *)0;
+ return (FILE *)0;
}
boolean havenum = FALSE;
while (1) {
- switch(*bufp) {
- case ' ': case '\0':
- case '\t': case '\n':
- if (havenum) {
- /* if modifying in place, don't insert zeros */
- if (num || !modlist) list[count] = num;
- count++;
- num = 0;
- havenum = FALSE;
- }
- if (count == size || !*bufp) return count;
- bufp++;
- break;
-
- case '0': case '1': case '2': case '3':
- case '4': case '5': case '6': case '7':
- case '8': case '9':
- havenum = TRUE;
- num = num*10 + (*bufp-'0');
- bufp++;
- break;
-
- case '\\':
- if (fp == (FILE *)0)
- goto gi_error;
- do {
- if (!fgets(buf, BUFSZ, fp)) goto gi_error;
- } while (buf[0] == '#');
- bufp = buf;
- break;
-
- default:
+ switch(*bufp) {
+ case ' ': case '\0':
+ case '\t': case '\n':
+ if (havenum) {
+ /* if modifying in place, don't insert zeros */
+ if (num || !modlist) list[count] = num;
+ count++;
+ num = 0;
+ havenum = FALSE;
+ }
+ if (count == size || !*bufp) return count;
+ bufp++;
+ break;
+
+ case '0': case '1': case '2': case '3':
+ case '4': case '5': case '6': case '7':
+ case '8': case '9':
+ havenum = TRUE;
+ num = num*10 + (*bufp-'0');
+ bufp++;
+ break;
+
+ case '\\':
+ if (fp == (FILE *)0)
+ goto gi_error;
+ do {
+ if (!fgets(buf, BUFSZ, fp)) goto gi_error;
+ } while (buf[0] == '#');
+ bufp = buf;
+ break;
+
+ default:
gi_error:
- raw_printf("Syntax error in %s", name);
- wait_synch();
- return count;
- }
+ raw_printf("Syntax error in %s", name);
+ wait_synch();
+ return count;
+ }
}
/*NOTREACHED*/
}
char *bufp;
int prefixid;
{
- char *ptr;
-
- if (!bufp) return;
- /* Backward compatibility, ignore trailing ;n */
- if ((ptr = index(bufp, ';')) != 0) *ptr = '\0';
- if (strlen(bufp) > 0) {
- fqn_prefix[prefixid] = (char *)alloc(strlen(bufp)+2);
- Strcpy(fqn_prefix[prefixid], bufp);
- append_slash(fqn_prefix[prefixid]);
- }
+ char *ptr;
+
+ if (!bufp) return;
+ /* Backward compatibility, ignore trailing ;n */
+ if ((ptr = index(bufp, ';')) != 0) *ptr = '\0';
+ if (strlen(bufp) > 0) {
+ fqn_prefix[prefixid] = (char *)alloc(strlen(bufp)+2);
+ Strcpy(fqn_prefix[prefixid], bufp);
+ append_slash(fqn_prefix[prefixid]);
+ }
}
#endif
int src;
{
#if defined(MICRO) && !defined(NOCWD_ASSUMPTIONS)
- static boolean ramdisk_specified = FALSE;
+ static boolean ramdisk_specified = FALSE;
#endif
#ifdef SYSCF
- int n;
-#endif
- char *bufp, *altp;
- uchar translate[MAXPCHARS];
- int len;
- /* lines beginning with '#' are comments */
- if (*buf == '#')
- return 1;
-
- /* remove trailing whitespace */
- bufp = eos(buf);
- while (--bufp > buf && isspace(*bufp))
- continue;
-
- if (bufp <= buf)
- return 1; /* skip all-blank lines */
- else
- *(bufp + 1) = '\0'; /* terminate line */
-
- /* find the '=' or ':' */
- bufp = index(buf, '=');
- altp = index(buf, ':');
- if (!bufp || (altp && altp < bufp)) bufp = altp;
- if (!bufp) return 0;
-
- /* skip whitespace between '=' and value */
- do { ++bufp; } while (isspace(*bufp));
-
- /* Go through possible variables */
- /* some of these (at least LEVELS and SAVE) should now set the
- * appropriate fqn_prefix[] rather than specialized variables
- */
- if (match_varname(buf, "OPTIONS", 4)) {
- parseoptions(bufp, TRUE, TRUE);
- if (plname[0]) /* If a name was given */
- plnamesuffix(); /* set the character class */
- } else if (match_varname(buf, "AUTOPICKUP_EXCEPTION", 5)) {
- add_autopickup_exception(bufp);
+ int n;
+#endif
+ char *bufp, *altp;
+ uchar translate[MAXPCHARS];
+ int len;
+ /* lines beginning with '#' are comments */
+ if (*buf == '#')
+ return 1;
+
+ /* remove trailing whitespace */
+ bufp = eos(buf);
+ while (--bufp > buf && isspace(*bufp))
+ continue;
+
+ if (bufp <= buf)
+ return 1; /* skip all-blank lines */
+ else
+ *(bufp + 1) = '\0'; /* terminate line */
+
+ /* find the '=' or ':' */
+ bufp = index(buf, '=');
+ altp = index(buf, ':');
+ if (!bufp || (altp && altp < bufp)) bufp = altp;
+ if (!bufp) return 0;
+
+ /* skip whitespace between '=' and value */
+ do { ++bufp; } while (isspace(*bufp));
+
+ /* Go through possible variables */
+ /* some of these (at least LEVELS and SAVE) should now set the
+ * appropriate fqn_prefix[] rather than specialized variables
+ */
+ if (match_varname(buf, "OPTIONS", 4)) {
+ parseoptions(bufp, TRUE, TRUE);
+ if (plname[0]) /* If a name was given */
+ plnamesuffix(); /* set the character class */
+ } else if (match_varname(buf, "AUTOPICKUP_EXCEPTION", 5)) {
+ add_autopickup_exception(bufp);
#ifdef NOCWD_ASSUMPTIONS
- } else if (match_varname(buf, "HACKDIR", 4)) {
- adjust_prefix(bufp, HACKPREFIX);
- } else if (match_varname(buf, "LEVELDIR", 4) ||
- match_varname(buf, "LEVELS", 4)) {
- adjust_prefix(bufp, LEVELPREFIX);
- } else if (match_varname(buf, "SAVEDIR", 4)) {
- adjust_prefix(bufp, SAVEPREFIX);
- } else if (match_varname(buf, "BONESDIR", 5)) {
- adjust_prefix(bufp, BONESPREFIX);
- } else if (match_varname(buf, "DATADIR", 4)) {
- adjust_prefix(bufp, DATAPREFIX);
- } else if (match_varname(buf, "SCOREDIR", 4)) {
- adjust_prefix(bufp, SCOREPREFIX);
- } else if (match_varname(buf, "LOCKDIR", 4)) {
- adjust_prefix(bufp, LOCKPREFIX);
- } else if (match_varname(buf, "CONFIGDIR", 4)) {
- adjust_prefix(bufp, CONFIGPREFIX);
- } else if (match_varname(buf, "TROUBLEDIR", 4)) {
- adjust_prefix(bufp, TROUBLEPREFIX);
+ } else if (match_varname(buf, "HACKDIR", 4)) {
+ adjust_prefix(bufp, HACKPREFIX);
+ } else if (match_varname(buf, "LEVELDIR", 4) ||
+ match_varname(buf, "LEVELS", 4)) {
+ adjust_prefix(bufp, LEVELPREFIX);
+ } else if (match_varname(buf, "SAVEDIR", 4)) {
+ adjust_prefix(bufp, SAVEPREFIX);
+ } else if (match_varname(buf, "BONESDIR", 5)) {
+ adjust_prefix(bufp, BONESPREFIX);
+ } else if (match_varname(buf, "DATADIR", 4)) {
+ adjust_prefix(bufp, DATAPREFIX);
+ } else if (match_varname(buf, "SCOREDIR", 4)) {
+ adjust_prefix(bufp, SCOREPREFIX);
+ } else if (match_varname(buf, "LOCKDIR", 4)) {
+ adjust_prefix(bufp, LOCKPREFIX);
+ } else if (match_varname(buf, "CONFIGDIR", 4)) {
+ adjust_prefix(bufp, CONFIGPREFIX);
+ } else if (match_varname(buf, "TROUBLEDIR", 4)) {
+ adjust_prefix(bufp, TROUBLEPREFIX);
#else /*NOCWD_ASSUMPTIONS*/
# ifdef MICRO
- } else if (match_varname(buf, "HACKDIR", 4)) {
- (void) strncpy(hackdir, bufp, PATHLEN-1);
+ } else if (match_varname(buf, "HACKDIR", 4)) {
+ (void) strncpy(hackdir, bufp, PATHLEN-1);
# ifdef MFLOPPY
- } else if (match_varname(buf, "RAMDISK", 3)) {
- /* The following ifdef is NOT in the wrong
- * place. For now, we accept and silently
- * ignore RAMDISK */
+ } else if (match_varname(buf, "RAMDISK", 3)) {
+ /* The following ifdef is NOT in the wrong
+ * place. For now, we accept and silently
+ * ignore RAMDISK */
# ifndef AMIGA
- if (strlen(bufp) >= PATHLEN) bufp[PATHLEN-1] = '\0';
- Strcpy(levels, bufp);
- ramdisk = (strcmp(permbones, levels) != 0);
- ramdisk_specified = TRUE;
+ if (strlen(bufp) >= PATHLEN) bufp[PATHLEN-1] = '\0';
+ Strcpy(levels, bufp);
+ ramdisk = (strcmp(permbones, levels) != 0);
+ ramdisk_specified = TRUE;
# endif
# endif
- } else if (match_varname(buf, "LEVELS", 4)) {
- if (strlen(bufp) >= PATHLEN) bufp[PATHLEN-1] = '\0';
- Strcpy(permbones, bufp);
- if (!ramdisk_specified || !*levels) Strcpy(levels, bufp);
- ramdisk = (strcmp(permbones, levels) != 0);
- } else if (match_varname(buf, "SAVE", 4)) {
+ } else if (match_varname(buf, "LEVELS", 4)) {
+ if (strlen(bufp) >= PATHLEN) bufp[PATHLEN-1] = '\0';
+ Strcpy(permbones, bufp);
+ if (!ramdisk_specified || !*levels) Strcpy(levels, bufp);
+ ramdisk = (strcmp(permbones, levels) != 0);
+ } else if (match_varname(buf, "SAVE", 4)) {
# ifdef MFLOPPY
- extern int saveprompt;
+ extern int saveprompt;
# endif
- char *ptr;
+ char *ptr;
- if ((ptr = index(bufp, ';')) != 0) {
- *ptr = '\0';
+ if ((ptr = index(bufp, ';')) != 0) {
+ *ptr = '\0';
# ifdef MFLOPPY
- if (*(ptr+1) == 'n' || *(ptr+1) == 'N') {
- saveprompt = FALSE;
- }
+ if (*(ptr+1) == 'n' || *(ptr+1) == 'N') {
+ saveprompt = FALSE;
+ }
# endif
- }
+ }
# if defined(SYSFLAGS) && defined(MFLOPPY)
- else
- saveprompt = sysflags.asksavedisk;
+ else
+ saveprompt = sysflags.asksavedisk;
# endif
- (void) strncpy(SAVEP, bufp, SAVESIZE-1);
- append_slash(SAVEP);
+ (void) strncpy(SAVEP, bufp, SAVESIZE-1);
+ append_slash(SAVEP);
# endif /* MICRO */
#endif /*NOCWD_ASSUMPTIONS*/
- } else if (match_varname(buf, "NAME", 4)) {
- (void) strncpy(plname, bufp, PL_NSIZ-1);
- plnamesuffix();
- } else if (match_varname(buf, "ROLE", 4) ||
- match_varname(buf, "CHARACTER", 4)) {
- if ((len = str2role(bufp)) >= 0)
- flags.initrole = len;
- } else if (match_varname(buf, "DOGNAME", 3)) {
- (void) strncpy(dogname, bufp, PL_PSIZ-1);
- } else if (match_varname(buf, "CATNAME", 3)) {
- (void) strncpy(catname, bufp, PL_PSIZ-1);
+ } else if (match_varname(buf, "NAME", 4)) {
+ (void) strncpy(plname, bufp, PL_NSIZ-1);
+ plnamesuffix();
+ } else if (match_varname(buf, "ROLE", 4) ||
+ match_varname(buf, "CHARACTER", 4)) {
+ if ((len = str2role(bufp)) >= 0)
+ flags.initrole = len;
+ } else if (match_varname(buf, "DOGNAME", 3)) {
+ (void) strncpy(dogname, bufp, PL_PSIZ-1);
+ } else if (match_varname(buf, "CATNAME", 3)) {
+ (void) strncpy(catname, bufp, PL_PSIZ-1);
#ifdef SYSCF
- } else if (src == SET_IN_SYS && match_varname(buf, "WIZARDS", 7)) {
- if (sysopt.wizards) free(sysopt.wizards);
- sysopt.wizards = dupstr(bufp);
- } else if (src == SET_IN_SYS && match_varname(buf, "SHELLERS", 8)) {
- if (sysopt.shellers) free(sysopt.shellers);
- sysopt.shellers = dupstr(bufp);
- } else if (src == SET_IN_SYS && match_varname(buf, "DEBUGFILES", 5)) {
- if (sysopt.debugfiles) free(sysopt.debugfiles);
- /* if showdebug() has already been called (perhaps we've added
- some debugpline() calls to option processing) and has found
- a value for getenv("DEBUGFILES"), don't override that */
- if (sysopt.env_dbgfl == 0)
- sysopt.debugfiles = dupstr(bufp);
- } else if (src == SET_IN_SYS && match_varname(buf, "SUPPORT", 7)) {
- if (sysopt.support) free(sysopt.support);
- sysopt.support = dupstr(bufp);
- } else if (src == SET_IN_SYS && match_varname(buf, "RECOVER", 7)) {
- if (sysopt.recover) free(sysopt.recover);
- sysopt.recover = dupstr(bufp);
- } else if (match_varname(buf, "SEDUCE", 6)) {
- n = !!atoi(bufp); /* XXX this could be tighter */
- /* allow anyone to turn it off, but only sysconf to turn it on*/
- if (src != SET_IN_SYS && n != 0) {
- raw_printf("Illegal value in SEDUCE");
- return 0;
- }
- sysopt.seduce = n;
- sysopt_seduce_set(sysopt.seduce);
- } else if (src == SET_IN_SYS && match_varname(buf, "MAXPLAYERS", 10)) {
- n = atoi(bufp);
- /* XXX to get more than 25, need to rewrite all lock code */
- if (n < 1 || n > 25) {
- raw_printf("Illegal value in MAXPLAYERS (maximum is 25).");
- return 0;
- }
- sysopt.maxplayers = n;
- } else if (src == SET_IN_SYS && match_varname(buf, "PERSMAX", 7)) {
- n = atoi(bufp);
- if (n < 1) {
- raw_printf("Illegal value in PERSMAX (minimum is 1).");
- return 0;
- }
- sysopt.persmax = n;
- } else if (src == SET_IN_SYS && match_varname(buf, "PERS_IS_UID", 11)) {
- n = atoi(bufp);
- if (n != 0 && n != 1) {
- raw_printf("Illegal value in PERS_IS_UID (must be 0 or 1).");
- return 0;
- }
- sysopt.pers_is_uid = n;
- } else if (src == SET_IN_SYS && match_varname(buf, "ENTRYMAX", 8)) {
- n = atoi(bufp);
- if (n < 10) {
- raw_printf("Illegal value in ENTRYMAX (minimum is 10).");
- return 0;
- }
- sysopt.entrymax = n;
- } else if ( (src==SET_IN_SYS) && match_varname(buf, "POINTSMIN", 9)) {
- n = atoi(bufp);
- if (n < 1) {
- raw_printf("Illegal value in POINTSMIN (minimum is 1).");
- return 0;
- }
- sysopt.pointsmin = n;
- } else if (src == SET_IN_SYS && match_varname(buf, "MAX_STATUENAME_RANK", 10)) {
- n = atoi(bufp);
- if (n < 1) {
- raw_printf("Illegal value in MAX_STATUENAME_RANK (minimum is 1).");
- return 0;
- }
- sysopt.tt_oname_maxrank = n;
+ } else if (src == SET_IN_SYS && match_varname(buf, "WIZARDS", 7)) {
+ if (sysopt.wizards) free(sysopt.wizards);
+ sysopt.wizards = dupstr(bufp);
+ } else if (src == SET_IN_SYS && match_varname(buf, "SHELLERS", 8)) {
+ if (sysopt.shellers) free(sysopt.shellers);
+ sysopt.shellers = dupstr(bufp);
+ } else if (src == SET_IN_SYS && match_varname(buf, "DEBUGFILES", 5)) {
+ if (sysopt.debugfiles) free(sysopt.debugfiles);
+ /* if showdebug() has already been called (perhaps we've added
+ some debugpline() calls to option processing) and has found
+ a value for getenv("DEBUGFILES"), don't override that */
+ if (sysopt.env_dbgfl == 0)
+ sysopt.debugfiles = dupstr(bufp);
+ } else if (src == SET_IN_SYS && match_varname(buf, "SUPPORT", 7)) {
+ if (sysopt.support) free(sysopt.support);
+ sysopt.support = dupstr(bufp);
+ } else if (src == SET_IN_SYS && match_varname(buf, "RECOVER", 7)) {
+ if (sysopt.recover) free(sysopt.recover);
+ sysopt.recover = dupstr(bufp);
+ } else if (match_varname(buf, "SEDUCE", 6)) {
+ n = !!atoi(bufp); /* XXX this could be tighter */
+ /* allow anyone to turn it off, but only sysconf to turn it on*/
+ if (src != SET_IN_SYS && n != 0) {
+ raw_printf("Illegal value in SEDUCE");
+ return 0;
+ }
+ sysopt.seduce = n;
+ sysopt_seduce_set(sysopt.seduce);
+ } else if (src == SET_IN_SYS && match_varname(buf, "MAXPLAYERS", 10)) {
+ n = atoi(bufp);
+ /* XXX to get more than 25, need to rewrite all lock code */
+ if (n < 1 || n > 25) {
+ raw_printf("Illegal value in MAXPLAYERS (maximum is 25).");
+ return 0;
+ }
+ sysopt.maxplayers = n;
+ } else if (src == SET_IN_SYS && match_varname(buf, "PERSMAX", 7)) {
+ n = atoi(bufp);
+ if (n < 1) {
+ raw_printf("Illegal value in PERSMAX (minimum is 1).");
+ return 0;
+ }
+ sysopt.persmax = n;
+ } else if (src == SET_IN_SYS && match_varname(buf, "PERS_IS_UID", 11)) {
+ n = atoi(bufp);
+ if (n != 0 && n != 1) {
+ raw_printf("Illegal value in PERS_IS_UID (must be 0 or 1).");
+ return 0;
+ }
+ sysopt.pers_is_uid = n;
+ } else if (src == SET_IN_SYS && match_varname(buf, "ENTRYMAX", 8)) {
+ n = atoi(bufp);
+ if (n < 10) {
+ raw_printf("Illegal value in ENTRYMAX (minimum is 10).");
+ return 0;
+ }
+ sysopt.entrymax = n;
+ } else if ( (src==SET_IN_SYS) && match_varname(buf, "POINTSMIN", 9)) {
+ n = atoi(bufp);
+ if (n < 1) {
+ raw_printf("Illegal value in POINTSMIN (minimum is 1).");
+ return 0;
+ }
+ sysopt.pointsmin = n;
+ } else if (src == SET_IN_SYS && match_varname(buf, "MAX_STATUENAME_RANK", 10)) {
+ n = atoi(bufp);
+ if (n < 1) {
+ raw_printf("Illegal value in MAX_STATUENAME_RANK (minimum is 1).");
+ return 0;
+ }
+ sysopt.tt_oname_maxrank = n;
# ifdef PANICTRACE
- } else if (src == SET_IN_SYS &&
- match_varname(buf, "PANICTRACE_LIBC", 15)) {
+ } else if (src == SET_IN_SYS &&
+ match_varname(buf, "PANICTRACE_LIBC", 15)) {
# ifdef PANICTRACE_LIBC
- n = atoi(bufp);
- if (n < 0 || n > 2) {
- raw_printf("Illegal value in PANICTRACE_LIBC (not 0,1,2).");
- return 0;
- }
- sysopt.panictrace_libc = n;
+ n = atoi(bufp);
+ if (n < 0 || n > 2) {
+ raw_printf("Illegal value in PANICTRACE_LIBC (not 0,1,2).");
+ return 0;
+ }
+ sysopt.panictrace_libc = n;
# endif /* PANICTRACE_LIBC */
- } else if (src == SET_IN_SYS &&
- match_varname(buf, "PANICTRACE_GDB", 14)) {
- n = atoi(bufp);
- if (n < 0 || n > 2) {
- raw_printf("Illegal value in PANICTRACE_GDB (not 0,1,2).");
- return 0;
- }
- sysopt.panictrace_gdb = n;
- } else if (src == SET_IN_SYS && match_varname(buf, "GDBPATH", 7)) {
- if (!file_exists(bufp)) {
- raw_printf("File specified in GDBPATH does not exist.");
- return 0;
- }
- if (sysopt.gdbpath) free(sysopt.gdbpath);
- sysopt.gdbpath = dupstr(bufp);
- } else if (src == SET_IN_SYS && match_varname(buf, "GREPPATH", 7)) {
- if (!file_exists(bufp)) {
- raw_printf("File specified in GREPPATH does not exist.");
- return 0;
- }
- if (sysopt.greppath) free(sysopt.greppath);
- sysopt.greppath = dupstr(bufp);
+ } else if (src == SET_IN_SYS &&
+ match_varname(buf, "PANICTRACE_GDB", 14)) {
+ n = atoi(bufp);
+ if (n < 0 || n > 2) {
+ raw_printf("Illegal value in PANICTRACE_GDB (not 0,1,2).");
+ return 0;
+ }
+ sysopt.panictrace_gdb = n;
+ } else if (src == SET_IN_SYS && match_varname(buf, "GDBPATH", 7)) {
+ if (!file_exists(bufp)) {
+ raw_printf("File specified in GDBPATH does not exist.");
+ return 0;
+ }
+ if (sysopt.gdbpath) free(sysopt.gdbpath);
+ sysopt.gdbpath = dupstr(bufp);
+ } else if (src == SET_IN_SYS && match_varname(buf, "GREPPATH", 7)) {
+ if (!file_exists(bufp)) {
+ raw_printf("File specified in GREPPATH does not exist.");
+ return 0;
+ }
+ if (sysopt.greppath) free(sysopt.greppath);
+ sysopt.greppath = dupstr(bufp);
# endif /* PANICTRACE */
#endif /* SYSCF */
- } else if (match_varname(buf, "BOULDER", 3)) {
- (void) get_uchars(fp, buf, bufp, &iflags.bouldersym, TRUE,
- 1, "BOULDER");
- } else if (match_varname(buf, "WARNINGS", 5)) {
- (void) get_uchars(fp, buf, bufp, translate, FALSE,
- WARNCOUNT, "WARNINGS");
- assign_warnings(translate);
- } else if (match_varname(buf, "SYMBOLS", 4)) {
- char *op, symbuf[BUFSZ];
- boolean morelines;
- do {
- morelines = FALSE;
-
- /* strip leading and trailing white space */
- while (isspace(*bufp)) bufp++;
- op = eos(bufp);
- while (--op >= bufp && isspace(*op)) *op = '\0';
-
- /* check for line continuation (trailing '\') */
- op = eos(bufp);
- if (--op >= bufp && *op == '\\') {
- *op = '\0';
- morelines = TRUE;
- /* strip trailing space now that '\' is gone */
- while (--op >= bufp && isspace(*op)) *op = '\0';
- }
- /* parse here */
- parsesymbols(bufp);
- if (morelines)
- do {
- *symbuf = '\0';
- if (!fgets(symbuf, BUFSZ, fp)) {
- morelines = FALSE;
- break;
- }
- bufp = symbuf;
- } while (*bufp == '#');
- } while (morelines);
- switch_symbols(TRUE);
- } else if (match_varname(buf, "WIZKIT", 6)) {
- (void) strncpy(wizkit, bufp, WIZKIT_MAX-1);
+ } else if (match_varname(buf, "BOULDER", 3)) {
+ (void) get_uchars(fp, buf, bufp, &iflags.bouldersym, TRUE,
+ 1, "BOULDER");
+ } else if (match_varname(buf, "WARNINGS", 5)) {
+ (void) get_uchars(fp, buf, bufp, translate, FALSE,
+ WARNCOUNT, "WARNINGS");
+ assign_warnings(translate);
+ } else if (match_varname(buf, "SYMBOLS", 4)) {
+ char *op, symbuf[BUFSZ];
+ boolean morelines;
+ do {
+ morelines = FALSE;
+
+ /* strip leading and trailing white space */
+ while (isspace(*bufp)) bufp++;
+ op = eos(bufp);
+ while (--op >= bufp && isspace(*op)) *op = '\0';
+
+ /* check for line continuation (trailing '\') */
+ op = eos(bufp);
+ if (--op >= bufp && *op == '\\') {
+ *op = '\0';
+ morelines = TRUE;
+ /* strip trailing space now that '\' is gone */
+ while (--op >= bufp && isspace(*op)) *op = '\0';
+ }
+ /* parse here */
+ parsesymbols(bufp);
+ if (morelines)
+ do {
+ *symbuf = '\0';
+ if (!fgets(symbuf, BUFSZ, fp)) {
+ morelines = FALSE;
+ break;
+ }
+ bufp = symbuf;
+ } while (*bufp == '#');
+ } while (morelines);
+ switch_symbols(TRUE);
+ } else if (match_varname(buf, "WIZKIT", 6)) {
+ (void) strncpy(wizkit, bufp, WIZKIT_MAX-1);
#ifdef AMIGA
- } else if (match_varname(buf, "FONT", 4)) {
- char *t;
-
- if( t = strchr( buf+5, ':' ) )
- {
- *t = 0;
- amii_set_text_font( buf+5, atoi( t + 1 ) );
- *t = ':';
- }
- } else if (match_varname(buf, "PATH", 4)) {
- (void) strncpy(PATH, bufp, PATHLEN-1);
- } else if (match_varname(buf, "DEPTH", 5)) {
- extern int amii_numcolors;
- int val = atoi( bufp );
- amii_numcolors = 1L << min( DEPTH, val );
+ } else if (match_varname(buf, "FONT", 4)) {
+ char *t;
+
+ if( t = strchr( buf+5, ':' ) )
+ {
+ *t = 0;
+ amii_set_text_font( buf+5, atoi( t + 1 ) );
+ *t = ':';
+ }
+ } else if (match_varname(buf, "PATH", 4)) {
+ (void) strncpy(PATH, bufp, PATHLEN-1);
+ } else if (match_varname(buf, "DEPTH", 5)) {
+ extern int amii_numcolors;
+ int val = atoi( bufp );
+ amii_numcolors = 1L << min( DEPTH, val );
#if defined(SYSFLAGS)
- } else if (match_varname(buf, "DRIPENS", 7)) {
- int i, val;
- char *t;
- for (i = 0, t = strtok(bufp, ",/"); t != (char *)0;
- i < 20 && (t = strtok((char*)0, ",/")), ++i) {
- sscanf(t, "%d", &val );
- sysflags.amii_dripens[i] = val;
- }
-#endif
- } else if (match_varname(buf, "SCREENMODE", 10 )) {
- extern long amii_scrnmode;
- if (!stricmp(bufp,"req"))
- amii_scrnmode = 0xffffffff; /* Requester */
- else if( sscanf(bufp, "%x", &amii_scrnmode) != 1 )
- amii_scrnmode = 0;
- } else if (match_varname(buf, "MSGPENS", 7)) {
- extern int amii_msgAPen, amii_msgBPen;
- char *t = strtok(bufp, ",/");
- if( t )
- {
- sscanf(t, "%d", &amii_msgAPen);
- if( t = strtok((char*)0, ",/") )
- sscanf(t, "%d", &amii_msgBPen);
- }
- } else if (match_varname(buf, "TEXTPENS", 8)) {
- extern int amii_textAPen, amii_textBPen;
- char *t = strtok(bufp, ",/");
- if( t )
- {
- sscanf(t, "%d", &amii_textAPen);
- if( t = strtok((char*)0, ",/") )
- sscanf(t, "%d", &amii_textBPen);
- }
- } else if (match_varname(buf, "MENUPENS", 8)) {
- extern int amii_menuAPen, amii_menuBPen;
- char *t = strtok(bufp, ",/");
- if( t )
- {
- sscanf(t, "%d", &amii_menuAPen);
- if( t = strtok((char*)0, ",/") )
- sscanf(t, "%d", &amii_menuBPen);
- }
- } else if (match_varname(buf, "STATUSPENS", 10)) {
- extern int amii_statAPen, amii_statBPen;
- char *t = strtok(bufp, ",/");
- if( t )
- {
- sscanf(t, "%d", &amii_statAPen);
- if( t = strtok((char*)0, ",/") )
- sscanf(t, "%d", &amii_statBPen);
- }
- } else if (match_varname(buf, "OTHERPENS", 9)) {
- extern int amii_otherAPen, amii_otherBPen;
- char *t = strtok(bufp, ",/");
- if( t )
- {
- sscanf(t, "%d", &amii_otherAPen);
- if( t = strtok((char*)0, ",/") )
- sscanf(t, "%d", &amii_otherBPen);
- }
- } else if (match_varname(buf, "PENS", 4)) {
- extern unsigned short amii_init_map[ AMII_MAXCOLORS ];
- int i;
- char *t;
-
- for (i = 0, t = strtok(bufp, ",/");
- i < AMII_MAXCOLORS && t != (char *)0;
- t = strtok((char *)0, ",/"), ++i)
- {
- sscanf(t, "%hx", &amii_init_map[i]);
- }
- amii_setpens( amii_numcolors = i );
- } else if (match_varname(buf, "FGPENS", 6)) {
- extern int foreg[ AMII_MAXCOLORS ];
- int i;
- char *t;
-
- for (i = 0, t = strtok(bufp, ",/");
- i < AMII_MAXCOLORS && t != (char *)0;
- t = strtok((char *)0, ",/"), ++i)
- {
- sscanf(t, "%d", &foreg[i]);
- }
- } else if (match_varname(buf, "BGPENS", 6)) {
- extern int backg[ AMII_MAXCOLORS ];
- int i;
- char *t;
-
- for (i = 0, t = strtok(bufp, ",/");
- i < AMII_MAXCOLORS && t != (char *)0;
- t = strtok((char *)0, ",/"), ++i)
- {
- sscanf(t, "%d", &backg[i]);
- }
+ } else if (match_varname(buf, "DRIPENS", 7)) {
+ int i, val;
+ char *t;
+ for (i = 0, t = strtok(bufp, ",/"); t != (char *)0;
+ i < 20 && (t = strtok((char*)0, ",/")), ++i) {
+ sscanf(t, "%d", &val );
+ sysflags.amii_dripens[i] = val;
+ }
+#endif
+ } else if (match_varname(buf, "SCREENMODE", 10 )) {
+ extern long amii_scrnmode;
+ if (!stricmp(bufp,"req"))
+ amii_scrnmode = 0xffffffff; /* Requester */
+ else if( sscanf(bufp, "%x", &amii_scrnmode) != 1 )
+ amii_scrnmode = 0;
+ } else if (match_varname(buf, "MSGPENS", 7)) {
+ extern int amii_msgAPen, amii_msgBPen;
+ char *t = strtok(bufp, ",/");
+ if( t )
+ {
+ sscanf(t, "%d", &amii_msgAPen);
+ if( t = strtok((char*)0, ",/") )
+ sscanf(t, "%d", &amii_msgBPen);
+ }
+ } else if (match_varname(buf, "TEXTPENS", 8)) {
+ extern int amii_textAPen, amii_textBPen;
+ char *t = strtok(bufp, ",/");
+ if( t )
+ {
+ sscanf(t, "%d", &amii_textAPen);
+ if( t = strtok((char*)0, ",/") )
+ sscanf(t, "%d", &amii_textBPen);
+ }
+ } else if (match_varname(buf, "MENUPENS", 8)) {
+ extern int amii_menuAPen, amii_menuBPen;
+ char *t = strtok(bufp, ",/");
+ if( t )
+ {
+ sscanf(t, "%d", &amii_menuAPen);
+ if( t = strtok((char*)0, ",/") )
+ sscanf(t, "%d", &amii_menuBPen);
+ }
+ } else if (match_varname(buf, "STATUSPENS", 10)) {
+ extern int amii_statAPen, amii_statBPen;
+ char *t = strtok(bufp, ",/");
+ if( t )
+ {
+ sscanf(t, "%d", &amii_statAPen);
+ if( t = strtok((char*)0, ",/") )
+ sscanf(t, "%d", &amii_statBPen);
+ }
+ } else if (match_varname(buf, "OTHERPENS", 9)) {
+ extern int amii_otherAPen, amii_otherBPen;
+ char *t = strtok(bufp, ",/");
+ if( t )
+ {
+ sscanf(t, "%d", &amii_otherAPen);
+ if( t = strtok((char*)0, ",/") )
+ sscanf(t, "%d", &amii_otherBPen);
+ }
+ } else if (match_varname(buf, "PENS", 4)) {
+ extern unsigned short amii_init_map[ AMII_MAXCOLORS ];
+ int i;
+ char *t;
+
+ for (i = 0, t = strtok(bufp, ",/");
+ i < AMII_MAXCOLORS && t != (char *)0;
+ t = strtok((char *)0, ",/"), ++i)
+ {
+ sscanf(t, "%hx", &amii_init_map[i]);
+ }
+ amii_setpens( amii_numcolors = i );
+ } else if (match_varname(buf, "FGPENS", 6)) {
+ extern int foreg[ AMII_MAXCOLORS ];
+ int i;
+ char *t;
+
+ for (i = 0, t = strtok(bufp, ",/");
+ i < AMII_MAXCOLORS && t != (char *)0;
+ t = strtok((char *)0, ",/"), ++i)
+ {
+ sscanf(t, "%d", &foreg[i]);
+ }
+ } else if (match_varname(buf, "BGPENS", 6)) {
+ extern int backg[ AMII_MAXCOLORS ];
+ int i;
+ char *t;
+
+ for (i = 0, t = strtok(bufp, ",/");
+ i < AMII_MAXCOLORS && t != (char *)0;
+ t = strtok((char *)0, ",/"), ++i)
+ {
+ sscanf(t, "%d", &backg[i]);
+ }
#endif
#ifdef USER_SOUNDS
- } else if (match_varname(buf, "SOUNDDIR", 8)) {
- sounddir = dupstr(bufp);
- } else if (match_varname(buf, "SOUND", 5)) {
- add_sound_mapping(bufp);
+ } else if (match_varname(buf, "SOUNDDIR", 8)) {
+ sounddir = dupstr(bufp);
+ } else if (match_varname(buf, "SOUND", 5)) {
+ add_sound_mapping(bufp);
#endif
#ifdef QT_GRAPHICS
- /* These should move to wc_ options */
- } else if (match_varname(buf, "QT_TILEWIDTH", 12)) {
- extern char *qt_tilewidth;
- if (qt_tilewidth == NULL)
- qt_tilewidth = dupstr(bufp);
- } else if (match_varname(buf, "QT_TILEHEIGHT", 13)) {
- extern char *qt_tileheight;
- if (qt_tileheight == NULL)
- qt_tileheight = dupstr(bufp);
- } else if (match_varname(buf, "QT_FONTSIZE", 11)) {
- extern char *qt_fontsize;
- if (qt_fontsize == NULL)
- qt_fontsize = dupstr(bufp);
- } else if (match_varname(buf, "QT_COMPACT", 10)) {
- extern int qt_compact_mode;
- qt_compact_mode = atoi(bufp);
-#endif
- } else
- return 0;
- return 1;
+ /* These should move to wc_ options */
+ } else if (match_varname(buf, "QT_TILEWIDTH", 12)) {
+ extern char *qt_tilewidth;
+ if (qt_tilewidth == NULL)
+ qt_tilewidth = dupstr(bufp);
+ } else if (match_varname(buf, "QT_TILEHEIGHT", 13)) {
+ extern char *qt_tileheight;
+ if (qt_tileheight == NULL)
+ qt_tileheight = dupstr(bufp);
+ } else if (match_varname(buf, "QT_FONTSIZE", 11)) {
+ extern char *qt_fontsize;
+ if (qt_fontsize == NULL)
+ qt_fontsize = dupstr(bufp);
+ } else if (match_varname(buf, "QT_COMPACT", 10)) {
+ extern int qt_compact_mode;
+ qt_compact_mode = atoi(bufp);
+#endif
+ } else
+ return 0;
+ return 1;
}
#ifdef USER_SOUNDS
can_read_file(filename)
const char *filename;
{
- return (access(filename, 4) == 0);
+ return (access(filename, 4) == 0);
}
#endif /* USER_SOUNDS */
const char *filename;
int src;
{
- char buf[4*BUFSZ];
- FILE *fp;
- boolean rv = TRUE; /* assume successful parse */
+ char buf[4*BUFSZ];
+ FILE *fp;
+ boolean rv = TRUE; /* assume successful parse */
- if (!(fp = fopen_config_file(filename, src))) return FALSE;
+ if (!(fp = fopen_config_file(filename, src))) return FALSE;
- /* begin detection of duplicate configfile options */
- set_duplicate_opt_detection(1);
+ /* begin detection of duplicate configfile options */
+ set_duplicate_opt_detection(1);
- while (fgets(buf, sizeof buf, fp)) {
+ while (fgets(buf, sizeof buf, fp)) {
#ifdef notyet
/*
XXX Don't call read() in parse_config_line, read as callback or reassemble line
OR: Forbid multiline stuff for alternate config sources.
*/
#endif
- if (!parse_config_line(fp, buf, src)) {
- raw_printf("Bad option line: \"%.50s\"", buf);
- wait_synch();
- rv = FALSE;
- }
- }
- (void) fclose(fp);
-
- /* turn off detection of duplicate configfile options */
- set_duplicate_opt_detection(0);
- return rv;
+ if (!parse_config_line(fp, buf, src)) {
+ raw_printf("Bad option line: \"%.50s\"", buf);
+ wait_synch();
+ rv = FALSE;
+ }
+ }
+ (void) fclose(fp);
+
+ /* turn off detection of duplicate configfile options */
+ set_duplicate_opt_detection(0);
+ return rv;
}
STATIC_OVL FILE *
fopen_wizkit_file()
{
- FILE *fp;
+ FILE *fp;
#if defined(VMS) || defined(UNIX)
- char tmp_wizkit[BUFSZ];
+ char tmp_wizkit[BUFSZ];
#endif
- char *envp;
+ char *envp;
- envp = nh_getenv("WIZKIT");
- if (envp && *envp) (void) strncpy(wizkit, envp, WIZKIT_MAX - 1);
- if (!wizkit[0]) return (FILE *)0;
+ envp = nh_getenv("WIZKIT");
+ if (envp && *envp) (void) strncpy(wizkit, envp, WIZKIT_MAX - 1);
+ if (!wizkit[0]) return (FILE *)0;
#ifdef UNIX
- if (access(wizkit, 4) == -1) {
- /* 4 is R_OK on newer systems */
- /* nasty sneaky attempt to read file through
- * NetHack's setuid permissions -- this is a
- * place a file name may be wholly under the player's
- * control
- */
- raw_printf("Access to %s denied (%d).",
- wizkit, errno);
- wait_synch();
- /* fall through to standard names */
- } else
-#endif
- if ((fp = fopenp(wizkit, "r")) != (FILE *)0) {
- return(fp);
+ if (access(wizkit, 4) == -1) {
+ /* 4 is R_OK on newer systems */
+ /* nasty sneaky attempt to read file through
+ * NetHack's setuid permissions -- this is a
+ * place a file name may be wholly under the player's
+ * control
+ */
+ raw_printf("Access to %s denied (%d).",
+ wizkit, errno);
+ wait_synch();
+ /* fall through to standard names */
+ } else
+#endif
+ if ((fp = fopenp(wizkit, "r")) != (FILE *)0) {
+ return(fp);
#if defined(UNIX) || defined(VMS)
- } else {
- /* access() above probably caught most problems for UNIX */
- raw_printf("Couldn't open requested config file %s (%d).",
- wizkit, errno);
- wait_synch();
+ } else {
+ /* access() above probably caught most problems for UNIX */
+ raw_printf("Couldn't open requested config file %s (%d).",
+ wizkit, errno);
+ wait_synch();
#endif
- }
+ }
#if defined(MICRO) || defined(MAC) || defined(__BEOS__) || defined(WIN32)
- if ((fp = fopenp(fqname(wizkit, CONFIGPREFIX, 0), "r"))
- != (FILE *)0)
- return(fp);
+ if ((fp = fopenp(fqname(wizkit, CONFIGPREFIX, 0), "r"))
+ != (FILE *)0)
+ return(fp);
#else
# ifdef VMS
- envp = nh_getenv("HOME");
- if (envp)
- Sprintf(tmp_wizkit, "%s%s", envp, wizkit);
- else
- Sprintf(tmp_wizkit, "%s%s", "sys$login:", wizkit);
- if ((fp = fopenp(tmp_wizkit, "r")) != (FILE *)0)
- return(fp);
+ envp = nh_getenv("HOME");
+ if (envp)
+ Sprintf(tmp_wizkit, "%s%s", envp, wizkit);
+ else
+ Sprintf(tmp_wizkit, "%s%s", "sys$login:", wizkit);
+ if ((fp = fopenp(tmp_wizkit, "r")) != (FILE *)0)
+ return(fp);
# else /* should be only UNIX left */
- envp = nh_getenv("HOME");
- if (envp)
- Sprintf(tmp_wizkit, "%s/%s", envp, wizkit);
- else Strcpy(tmp_wizkit, wizkit);
- if ((fp = fopenp(tmp_wizkit, "r")) != (FILE *)0)
- return(fp);
- else if (errno != ENOENT) {
- /* e.g., problems when setuid NetHack can't search home
- * directory restricted to user */
- raw_printf("Couldn't open default wizkit file %s (%d).",
- tmp_wizkit, errno);
- wait_synch();
- }
+ envp = nh_getenv("HOME");
+ if (envp)
+ Sprintf(tmp_wizkit, "%s/%s", envp, wizkit);
+ else Strcpy(tmp_wizkit, wizkit);
+ if ((fp = fopenp(tmp_wizkit, "r")) != (FILE *)0)
+ return(fp);
+ else if (errno != ENOENT) {
+ /* e.g., problems when setuid NetHack can't search home
+ * directory restricted to user */
+ raw_printf("Couldn't open default wizkit file %s (%d).",
+ tmp_wizkit, errno);
+ wait_synch();
+ }
# endif
#endif
- return (FILE *)0;
+ return (FILE *)0;
}
/* add to hero's inventory if there's room, otherwise put item on floor */
if (Role_if(PM_PRIEST)) obj->bknown = 1;
/* same criteria as lift_object()'s check for available inventory slot */
if (obj->oclass != COIN_CLASS &&
- inv_cnt(FALSE) >= 52 && !merge_choice(invent, obj)) {
- /* inventory overflow; can't just place & stack object since
- hero isn't in position yet, so schedule for arrival later */
- add_to_migration(obj);
- obj->ox = 0; /* index of main dungeon */
- obj->oy = 1; /* starting level number */
- obj->owornmask = (long)(MIGR_WITH_HERO | MIGR_NOBREAK|MIGR_NOSCATTER);
+ inv_cnt(FALSE) >= 52 && !merge_choice(invent, obj)) {
+ /* inventory overflow; can't just place & stack object since
+ hero isn't in position yet, so schedule for arrival later */
+ add_to_migration(obj);
+ obj->ox = 0; /* index of main dungeon */
+ obj->oy = 1; /* starting level number */
+ obj->owornmask = (long)(MIGR_WITH_HERO | MIGR_NOBREAK|MIGR_NOSCATTER);
} else {
- (void)addinv(obj);
+ (void)addinv(obj);
}
}
void
read_wizkit()
{
- FILE *fp;
- char *ep, buf[BUFSZ];
- struct obj *otmp;
- boolean bad_items = FALSE, skip = FALSE;
-
- if (!wizard || !(fp = fopen_wizkit_file())) return;
-
- program_state.wizkit_wishing = 1;
- while (fgets(buf, (int)(sizeof buf), fp)) {
- ep = index(buf, '\n');
- if (skip) { /* in case previous line was too long */
- if (ep) skip = FALSE; /* found newline; next line is normal */
- } else {
- if (!ep) skip = TRUE; /* newline missing; discard next fgets */
- else *ep = '\0'; /* remove newline */
-
- if (buf[0]) {
- otmp = readobjnam(buf, (struct obj *)0);
- if (otmp) {
- if (otmp != &zeroobj)
- wizkit_addinv(otmp);
- } else {
- /* .60 limits output line width to 79 chars */
- raw_printf("Bad wizkit item: \"%.60s\"", buf);
- bad_items = TRUE;
- }
- }
- }
- }
- program_state.wizkit_wishing = 0;
- if (bad_items)
- wait_synch();
- (void) fclose(fp);
- return;
+ FILE *fp;
+ char *ep, buf[BUFSZ];
+ struct obj *otmp;
+ boolean bad_items = FALSE, skip = FALSE;
+
+ if (!wizard || !(fp = fopen_wizkit_file())) return;
+
+ program_state.wizkit_wishing = 1;
+ while (fgets(buf, (int)(sizeof buf), fp)) {
+ ep = index(buf, '\n');
+ if (skip) { /* in case previous line was too long */
+ if (ep) skip = FALSE; /* found newline; next line is normal */
+ } else {
+ if (!ep) skip = TRUE; /* newline missing; discard next fgets */
+ else *ep = '\0'; /* remove newline */
+
+ if (buf[0]) {
+ otmp = readobjnam(buf, (struct obj *)0);
+ if (otmp) {
+ if (otmp != &zeroobj)
+ wizkit_addinv(otmp);
+ } else {
+ /* .60 limits output line width to 79 chars */
+ raw_printf("Bad wizkit item: \"%.60s\"", buf);
+ bad_items = TRUE;
+ }
+ }
+ }
+ }
+ program_state.wizkit_wishing = 0;
+ if (bad_items)
+ wait_synch();
+ (void) fclose(fp);
+ return;
}
extern struct symsetentry *symset_list; /* options.c */
FILE *
fopen_sym_file()
{
- FILE *fp;
+ FILE *fp;
- fp = fopen_datafile(SYMBOLS, "r", HACKPREFIX);
- return fp;
+ fp = fopen_datafile(SYMBOLS, "r", HACKPREFIX);
+ return fp;
}
/*
read_sym_file(which_set)
int which_set;
{
- char buf[4*BUFSZ];
- FILE *fp;
-
- if (!(fp = fopen_sym_file())) return 0;
-
- symset_count = 0;
- chosen_symset_start = chosen_symset_end = FALSE;
- while (fgets(buf, 4*BUFSZ, fp)) {
- if (!parse_sym_line(buf, which_set)) {
- raw_printf("Bad symbol line: \"%.50s\"", buf);
- wait_synch();
- }
- }
- (void) fclose(fp);
- if (!chosen_symset_end && !chosen_symset_start)
- return (symset[which_set].name == 0) ? 1 : 0;
- if (!chosen_symset_end) {
- raw_printf("Missing finish for symset \"%s\"",
- symset[which_set].name ?
- symset[which_set].name : "unknown");
- wait_synch();
- }
- return 1;
+ char buf[4*BUFSZ];
+ FILE *fp;
+
+ if (!(fp = fopen_sym_file())) return 0;
+
+ symset_count = 0;
+ chosen_symset_start = chosen_symset_end = FALSE;
+ while (fgets(buf, 4*BUFSZ, fp)) {
+ if (!parse_sym_line(buf, which_set)) {
+ raw_printf("Bad symbol line: \"%.50s\"", buf);
+ wait_synch();
+ }
+ }
+ (void) fclose(fp);
+ if (!chosen_symset_end && !chosen_symset_start)
+ return (symset[which_set].name == 0) ? 1 : 0;
+ if (!chosen_symset_end) {
+ raw_printf("Missing finish for symset \"%s\"",
+ symset[which_set].name ?
+ symset[which_set].name : "unknown");
+ wait_synch();
+ }
+ return 1;
}
/* returns 0 on error */
char *buf;
int which_set;
{
- int val, i;
- struct symparse *symp = (struct symparse *)0;
- char *bufp, *commentp, *altp;
-
- if (*buf == '#')
- return 1;
-
- /* remove trailing comment(s) */
- commentp = eos(buf);
- while (--commentp > buf) {
- if (*commentp != '#') continue;
- *commentp = '\0';
- }
-
- /* remove trailing whitespace */
- bufp = eos(buf);
- while (--bufp > buf && isspace(*bufp))
- continue;
-
- if (bufp <= buf)
- return 1; /* skip all-blank lines */
- else
- *(bufp + 1) = '\0'; /* terminate line */
-
- /* skip leading whitespace on option name */
- while (isspace(*buf)) ++buf;
-
- /* find the '=' or ':' */
- bufp = index(buf, '=');
- altp = index(buf, ':');
- if (!bufp || (altp && altp < bufp)) bufp = altp;
- if (!bufp) {
- if (strncmpi(buf, "finish", 6) == 0) {
- /* end current graphics set */
- if (chosen_symset_start)
- chosen_symset_end = TRUE;
- chosen_symset_start = FALSE;
- return 1;
- }
- return 0;
- }
-
- /* skip whitespace between '=' and value */
- do { ++bufp; } while (isspace(*bufp));
-
- symp = match_sym(buf);
- if (!symp)
- return 0;
-
- if (!symset[which_set].name) {
- /* A null symset name indicates that we're just
- building a pick-list of possible symset
- values from the file, so only do that */
- if (symp->range == SYM_CONTROL) {
- struct symsetentry *tmpsp;
+ int val, i;
+ struct symparse *symp = (struct symparse *)0;
+ char *bufp, *commentp, *altp;
+
+ if (*buf == '#')
+ return 1;
+
+ /* remove trailing comment(s) */
+ commentp = eos(buf);
+ while (--commentp > buf) {
+ if (*commentp != '#') continue;
+ *commentp = '\0';
+ }
+
+ /* remove trailing whitespace */
+ bufp = eos(buf);
+ while (--bufp > buf && isspace(*bufp))
+ continue;
+
+ if (bufp <= buf)
+ return 1; /* skip all-blank lines */
+ else
+ *(bufp + 1) = '\0'; /* terminate line */
+
+ /* skip leading whitespace on option name */
+ while (isspace(*buf)) ++buf;
+
+ /* find the '=' or ':' */
+ bufp = index(buf, '=');
+ altp = index(buf, ':');
+ if (!bufp || (altp && altp < bufp)) bufp = altp;
+ if (!bufp) {
+ if (strncmpi(buf, "finish", 6) == 0) {
+ /* end current graphics set */
+ if (chosen_symset_start)
+ chosen_symset_end = TRUE;
+ chosen_symset_start = FALSE;
+ return 1;
+ }
+ return 0;
+ }
+
+ /* skip whitespace between '=' and value */
+ do { ++bufp; } while (isspace(*bufp));
+
+ symp = match_sym(buf);
+ if (!symp)
+ return 0;
+
+ if (!symset[which_set].name) {
+ /* A null symset name indicates that we're just
+ building a pick-list of possible symset
+ values from the file, so only do that */
+ if (symp->range == SYM_CONTROL) {
+ struct symsetentry *tmpsp;
switch (symp->idx) {
case 0:
- tmpsp = (struct symsetentry *)alloc(sizeof(struct symsetentry));
- tmpsp->next = (struct symsetentry *)0;
- if (!symset_list) {
- symset_list = tmpsp;
- symset_count = 0;
- } else {
- symset_count++;
- tmpsp->next = symset_list;
- symset_list = tmpsp;
- }
- tmpsp->idx = symset_count;
- tmpsp->name = dupstr(bufp);
- tmpsp->desc = (char *)0;
- tmpsp->nocolor = 0;
- /* initialize restriction bits */
- tmpsp->primary = 0;
- tmpsp->rogue = 0;
- break;
- case 2:
- /* handler type identified */
- tmpsp = symset_list; /* most recent symset */
- tmpsp->handling = H_UNK;
- i = 0;
- while (known_handling[i]) {
- if (!strcmpi(known_handling[i], bufp)) {
- tmpsp->handling = i;
- break; /* while loop */
- }
- i++;
- }
- break;
- case 3: /* description:something */
- tmpsp = symset_list; /* most recent symset */
- if (tmpsp && !tmpsp->desc)
- tmpsp->desc = dupstr(bufp);
- break;
- case 5:
- /* restrictions: xxxx*/
- tmpsp = symset_list; /* most recent symset */
+ tmpsp = (struct symsetentry *)alloc(sizeof(struct symsetentry));
+ tmpsp->next = (struct symsetentry *)0;
+ if (!symset_list) {
+ symset_list = tmpsp;
+ symset_count = 0;
+ } else {
+ symset_count++;
+ tmpsp->next = symset_list;
+ symset_list = tmpsp;
+ }
+ tmpsp->idx = symset_count;
+ tmpsp->name = dupstr(bufp);
+ tmpsp->desc = (char *)0;
+ tmpsp->nocolor = 0;
+ /* initialize restriction bits */
+ tmpsp->primary = 0;
+ tmpsp->rogue = 0;
+ break;
+ case 2:
+ /* handler type identified */
+ tmpsp = symset_list; /* most recent symset */
+ tmpsp->handling = H_UNK;
+ i = 0;
+ while (known_handling[i]) {
+ if (!strcmpi(known_handling[i], bufp)) {
+ tmpsp->handling = i;
+ break; /* while loop */
+ }
+ i++;
+ }
+ break;
+ case 3: /* description:something */
+ tmpsp = symset_list; /* most recent symset */
+ if (tmpsp && !tmpsp->desc)
+ tmpsp->desc = dupstr(bufp);
+ break;
+ case 5:
+ /* restrictions: xxxx*/
+ tmpsp = symset_list; /* most recent symset */
for (i = 0; known_restrictions[i]; ++i) {
- if (!strcmpi(known_restrictions[i], bufp)) {
- switch(i) {
- case 0: tmpsp->primary = 1; break;
- case 1: tmpsp->rogue = 1; break;
- }
- break; /* while loop */
- }
- }
- break;
- }
- }
- return 1;
- }
- if (symp->range) {
- if (symp->range == SYM_CONTROL) {
- switch(symp->idx) {
- case 0:
- /* start of symset */
- if (!strcmpi(bufp, symset[which_set].name)) {
- /* matches desired one */
- chosen_symset_start = TRUE;
- /* these init_*() functions clear symset fields too */
- if (which_set == ROGUESET) init_r_symbols();
+ if (!strcmpi(known_restrictions[i], bufp)) {
+ switch(i) {
+ case 0: tmpsp->primary = 1; break;
+ case 1: tmpsp->rogue = 1; break;
+ }
+ break; /* while loop */
+ }
+ }
+ break;
+ }
+ }
+ return 1;
+ }
+ if (symp->range) {
+ if (symp->range == SYM_CONTROL) {
+ switch(symp->idx) {
+ case 0:
+ /* start of symset */
+ if (!strcmpi(bufp, symset[which_set].name)) {
+ /* matches desired one */
+ chosen_symset_start = TRUE;
+ /* these init_*() functions clear symset fields too */
+ if (which_set == ROGUESET) init_r_symbols();
else if (which_set == PRIMARY) init_l_symbols();
- }
- break;
- case 1:
- /* finish symset */
- if (chosen_symset_start)
- chosen_symset_end = TRUE;
- chosen_symset_start = FALSE;
- break;
- case 2:
- /* handler type identified */
- if (chosen_symset_start)
- set_symhandling(bufp, which_set);
- break;
- /* case 3: (description) is ignored here */
- case 4: /* color:off */
- if (chosen_symset_start) {
- if (bufp) {
- if (!strcmpi(bufp, "true") ||
- !strcmpi(bufp, "yes") ||
- !strcmpi(bufp, "on"))
- symset[which_set].nocolor = 0;
- else if (!strcmpi(bufp, "false") ||
- !strcmpi(bufp, "no") ||
- !strcmpi(bufp, "off"))
- symset[which_set].nocolor = 1;
- }
- }
- break;
- case 5: /* restrictions: xxxx*/
- if (chosen_symset_start) {
- int n = 0;
- while (known_restrictions[n]) {
- if (!strcmpi(known_restrictions[n], bufp)) {
- switch(n) {
- case 0: symset[which_set].primary = 1;
- break;
- case 1: symset[which_set].rogue = 1;
- break;
- }
- break; /* while loop */
- }
- n++;
- }
- }
- break;
- }
- } else { /* !SYM_CONTROL */
- val = sym_val(bufp);
- if (chosen_symset_start) {
- if (which_set == PRIMARY) {
- update_l_symset(symp, val);
- } else if (which_set == ROGUESET) {
- update_r_symset(symp, val);
- }
- }
- }
- }
- return 1;
+ }
+ break;
+ case 1:
+ /* finish symset */
+ if (chosen_symset_start)
+ chosen_symset_end = TRUE;
+ chosen_symset_start = FALSE;
+ break;
+ case 2:
+ /* handler type identified */
+ if (chosen_symset_start)
+ set_symhandling(bufp, which_set);
+ break;
+ /* case 3: (description) is ignored here */
+ case 4: /* color:off */
+ if (chosen_symset_start) {
+ if (bufp) {
+ if (!strcmpi(bufp, "true") ||
+ !strcmpi(bufp, "yes") ||
+ !strcmpi(bufp, "on"))
+ symset[which_set].nocolor = 0;
+ else if (!strcmpi(bufp, "false") ||
+ !strcmpi(bufp, "no") ||
+ !strcmpi(bufp, "off"))
+ symset[which_set].nocolor = 1;
+ }
+ }
+ break;
+ case 5: /* restrictions: xxxx*/
+ if (chosen_symset_start) {
+ int n = 0;
+ while (known_restrictions[n]) {
+ if (!strcmpi(known_restrictions[n], bufp)) {
+ switch(n) {
+ case 0: symset[which_set].primary = 1;
+ break;
+ case 1: symset[which_set].rogue = 1;
+ break;
+ }
+ break; /* while loop */
+ }
+ n++;
+ }
+ }
+ break;
+ }
+ } else { /* !SYM_CONTROL */
+ val = sym_val(bufp);
+ if (chosen_symset_start) {
+ if (which_set == PRIMARY) {
+ update_l_symset(symp, val);
+ } else if (which_set == ROGUESET) {
+ update_r_symset(symp, val);
+ }
+ }
+ }
+ }
+ return 1;
}
STATIC_OVL void
char *handling;
int which_set;
{
- int i = 0;
-
- symset[which_set].handling = H_UNK;
- while (known_handling[i]) {
- if (!strcmpi(known_handling[i], handling)) {
- symset[which_set].handling = i;
- return;
- }
- i++;
- }
+ int i = 0;
+
+ symset[which_set].handling = H_UNK;
+ while (known_handling[i]) {
+ if (!strcmpi(known_handling[i], handling)) {
+ symset[which_set].handling = i;
+ return;
+ }
+ i++;
+ }
}
/* ---------- END CONFIG FILE HANDLING ----------- */
#if defined(PRAGMA_UNUSED) && !defined(OS2_CODEVIEW)
# pragma unused(dir)
#endif
- const char *fq_record;
- int fd;
+ const char *fq_record;
+ int fd;
#if defined(UNIX) || defined(VMS)
- fq_record = fqname(RECORD, SCOREPREFIX, 0);
- fd = open(fq_record, O_RDWR, 0);
- if (fd >= 0) {
+ fq_record = fqname(RECORD, SCOREPREFIX, 0);
+ fd = open(fq_record, O_RDWR, 0);
+ if (fd >= 0) {
# ifdef VMS /* must be stream-lf to use UPDATE_RECORD_IN_PLACE */
- if (!file_is_stmlf(fd)) {
- raw_printf(
- "Warning: scoreboard file %s is not in stream_lf format",
- fq_record);
- wait_synch();
- }
+ if (!file_is_stmlf(fd)) {
+ raw_printf(
+ "Warning: scoreboard file %s is not in stream_lf format",
+ fq_record);
+ wait_synch();
+ }
# endif
- (void) close(fd); /* RECORD is accessible */
- } else if ((fd = open(fq_record, O_CREAT|O_RDWR, FCMASK)) >= 0) {
- (void) close(fd); /* RECORD newly created */
+ (void) close(fd); /* RECORD is accessible */
+ } else if ((fd = open(fq_record, O_CREAT|O_RDWR, FCMASK)) >= 0) {
+ (void) close(fd); /* RECORD newly created */
# if defined(VMS) && !defined(SECURE)
- /* Re-protect RECORD with world:read+write+execute+delete access. */
- (void) chmod(fq_record, FCMASK | 007);
+ /* Re-protect RECORD with world:read+write+execute+delete access. */
+ (void) chmod(fq_record, FCMASK | 007);
# endif /* VMS && !SECURE */
- } else {
- raw_printf("Warning: cannot write scoreboard file %s", fq_record);
- wait_synch();
- }
+ } else {
+ raw_printf("Warning: cannot write scoreboard file %s", fq_record);
+ wait_synch();
+ }
#endif /* !UNIX && !VMS */
#if defined(MICRO) || defined(WIN32)
- char tmp[PATHLEN];
+ char tmp[PATHLEN];
# ifdef OS2_CODEVIEW /* explicit path on opening for OS/2 */
- /* how does this work when there isn't an explicit path or fopenp
- * for later access to the file via fopen_datafile? ? */
- (void) strncpy(tmp, dir, PATHLEN - 1);
- tmp[PATHLEN-1] = '\0';
- if ((strlen(tmp) + 1 + strlen(RECORD)) < (PATHLEN - 1)) {
- append_slash(tmp);
- Strcat(tmp, RECORD);
- }
- fq_record = tmp;
+ /* how does this work when there isn't an explicit path or fopenp
+ * for later access to the file via fopen_datafile? ? */
+ (void) strncpy(tmp, dir, PATHLEN - 1);
+ tmp[PATHLEN-1] = '\0';
+ if ((strlen(tmp) + 1 + strlen(RECORD)) < (PATHLEN - 1)) {
+ append_slash(tmp);
+ Strcat(tmp, RECORD);
+ }
+ fq_record = tmp;
# else
- Strcpy(tmp, RECORD);
- fq_record = fqname(RECORD, SCOREPREFIX, 0);
+ Strcpy(tmp, RECORD);
+ fq_record = fqname(RECORD, SCOREPREFIX, 0);
# endif
- if ((fd = open(fq_record, O_RDWR)) < 0) {
- /* try to create empty record */
+ if ((fd = open(fq_record, O_RDWR)) < 0) {
+ /* try to create empty record */
# if defined(AZTEC_C) || defined(_DCC) || (defined(__GNUC__) && defined(__AMIGA__))
- /* Aztec doesn't use the third argument */
- /* DICE doesn't like it */
- if ((fd = open(fq_record, O_CREAT|O_RDWR)) < 0) {
+ /* Aztec doesn't use the third argument */
+ /* DICE doesn't like it */
+ if ((fd = open(fq_record, O_CREAT|O_RDWR)) < 0) {
# else
- if ((fd = open(fq_record, O_CREAT|O_RDWR, S_IREAD|S_IWRITE)) < 0) {
+ if ((fd = open(fq_record, O_CREAT|O_RDWR, S_IREAD|S_IWRITE)) < 0) {
# endif
- raw_printf("Warning: cannot write record %s", tmp);
- wait_synch();
- } else
- (void) close(fd);
- } else /* open succeeded */
- (void) close(fd);
+ raw_printf("Warning: cannot write record %s", tmp);
+ wait_synch();
+ } else
+ (void) close(fd);
+ } else /* open succeeded */
+ (void) close(fd);
#else /* MICRO || WIN32*/
# ifdef MAC
- /* Create the "record" file, if necessary */
- fq_record = fqname(RECORD, SCOREPREFIX, 0);
- fd = macopen (fq_record, O_RDWR | O_CREAT, TEXT_TYPE);
- if (fd != -1) macclose (fd);
+ /* Create the "record" file, if necessary */
+ fq_record = fqname(RECORD, SCOREPREFIX, 0);
+ fd = macopen (fq_record, O_RDWR | O_CREAT, TEXT_TYPE);
+ if (fd != -1) macclose (fd);
# endif /* MAC */
#endif /* MICRO || WIN32*/
const char *reason; /* explanation */
{
#ifdef PANICLOG
- FILE *lfile;
- char buf[BUFSZ];
-
- if (!program_state.in_paniclog) {
- program_state.in_paniclog = 1;
- lfile = fopen_datafile(PANICLOG, "a", TROUBLEPREFIX);
- if (lfile) {
- time_t now = getnow();
- int uid = getuid();
- char playmode = wizard ? 'D' : discover ? 'X' : '-';
-
- (void) fprintf(lfile, "%s %08ld %06ld %d %c: %s %s\n",
- version_string(buf),
- yyyymmdd(now), hhmmss(now),
- uid, playmode,
- type, reason);
- (void) fclose(lfile);
- }
- program_state.in_paniclog = 0;
- }
+ FILE *lfile;
+ char buf[BUFSZ];
+
+ if (!program_state.in_paniclog) {
+ program_state.in_paniclog = 1;
+ lfile = fopen_datafile(PANICLOG, "a", TROUBLEPREFIX);
+ if (lfile) {
+ time_t now = getnow();
+ int uid = getuid();
+ char playmode = wizard ? 'D' : discover ? 'X' : '-';
+
+ (void) fprintf(lfile, "%s %08ld %06ld %d %c: %s %s\n",
+ version_string(buf),
+ yyyymmdd(now), hhmmss(now),
+ uid, playmode,
+ type, reason);
+ (void) fclose(lfile);
+ }
+ program_state.in_paniclog = 0;
+ }
#endif /* PANICLOG */
- return;
+ return;
}
/* ---------- END PANIC/IMPOSSIBLE LOG ----------- */
boolean
recover_savefile()
{
- int gfd, lfd, sfd;
- int lev, savelev, hpid, pltmpsiz;
- xchar levc;
- struct version_info version_data;
- int processed[256];
- char savename[SAVESIZE], errbuf[BUFSZ];
- struct savefile_info sfi;
- char tmpplbuf[PL_NSIZ];
-
- for (lev = 0; lev < 256; lev++)
- processed[lev] = 0;
-
- /* level 0 file contains:
- * pid of creating process (ignored here)
- * level number for current level of save file
- * name of save file nethack would have created
- * savefile info
- * player name
- * and game state
- */
- gfd = open_levelfile(0, errbuf);
- if (gfd < 0) {
- raw_printf("%s\n", errbuf);
- return FALSE;
- }
- if (read(gfd, (genericptr_t) &hpid, sizeof hpid) != sizeof hpid) {
- raw_printf(
+ int gfd, lfd, sfd;
+ int lev, savelev, hpid, pltmpsiz;
+ xchar levc;
+ struct version_info version_data;
+ int processed[256];
+ char savename[SAVESIZE], errbuf[BUFSZ];
+ struct savefile_info sfi;
+ char tmpplbuf[PL_NSIZ];
+
+ for (lev = 0; lev < 256; lev++)
+ processed[lev] = 0;
+
+ /* level 0 file contains:
+ * pid of creating process (ignored here)
+ * level number for current level of save file
+ * name of save file nethack would have created
+ * savefile info
+ * player name
+ * and game state
+ */
+ gfd = open_levelfile(0, errbuf);
+ if (gfd < 0) {
+ raw_printf("%s\n", errbuf);
+ return FALSE;
+ }
+ if (read(gfd, (genericptr_t) &hpid, sizeof hpid) != sizeof hpid) {
+ raw_printf(
"\nCheckpoint data incompletely written or subsequently clobbered. Recovery impossible.");
- (void)close(gfd);
- return FALSE;
- }
- if (read(gfd, (genericptr_t) &savelev, sizeof(savelev))
- != sizeof(savelev)) {
- raw_printf("\nCheckpointing was not in effect for %s -- recovery impossible.\n",
- lock);
- (void)close(gfd);
- return FALSE;
- }
- if ((read(gfd, (genericptr_t) savename, sizeof savename)
- != sizeof savename) ||
- (read(gfd, (genericptr_t) &version_data, sizeof version_data)
- != sizeof version_data) ||
- (read(gfd, (genericptr_t) &sfi, sizeof sfi)
- != sizeof sfi) ||
- (read(gfd, (genericptr_t) &pltmpsiz, sizeof pltmpsiz)
- != sizeof pltmpsiz) || (pltmpsiz > PL_NSIZ) ||
- (read(gfd, (genericptr_t) &tmpplbuf, pltmpsiz)
- != pltmpsiz)) {
- raw_printf("\nError reading %s -- can't recover.\n", lock);
- (void)close(gfd);
- return FALSE;
- }
-
- /* save file should contain:
- * version info
- * savefile info
- * player name
- * current level (including pets)
- * (non-level-based) game state
- * other levels
- */
- set_savefile_name(TRUE);
- sfd = create_savefile();
- if (sfd < 0) {
- raw_printf("\nCannot recover savefile %s.\n", SAVEF);
- (void)close(gfd);
- return FALSE;
- }
-
- lfd = open_levelfile(savelev, errbuf);
- if (lfd < 0) {
- raw_printf("\n%s\n", errbuf);
- (void)close(gfd);
- (void)close(sfd);
- delete_savefile();
- return FALSE;
- }
-
- if (write(sfd, (genericptr_t) &version_data, sizeof version_data)
- != sizeof version_data) {
- raw_printf("\nError writing %s; recovery failed.", SAVEF);
- (void)close(gfd);
- (void)close(sfd);
- delete_savefile();
- return FALSE;
- }
-
- if (write(sfd, (genericptr_t) &sfi, sizeof sfi)
- != sizeof sfi) {
- raw_printf(
- "\nError writing %s; recovery failed (savefile_info).\n",
- SAVEF);
- (void)close(gfd);
- (void)close(sfd);
- delete_savefile();
- return FALSE;
- }
-
- if (write(sfd, (genericptr_t) &pltmpsiz, sizeof pltmpsiz)
- != sizeof pltmpsiz) {
- raw_printf(
- "Error writing %s; recovery failed (player name size).\n",
- SAVEF);
- (void)close(gfd);
- (void)close(sfd);
- delete_savefile();
- return FALSE;
- }
-
- if (write(sfd, (genericptr_t) &tmpplbuf, pltmpsiz)
- != pltmpsiz) {
- raw_printf(
- "Error writing %s; recovery failed (player name).\n",
- SAVEF);
- (void)close(gfd);
- (void)close(sfd);
- delete_savefile();
- return FALSE;
- }
-
- if (!copy_bytes(lfd, sfd)) {
- (void) close(lfd);
- (void) close(sfd);
- delete_savefile();
- return FALSE;
- }
- (void)close(lfd);
- processed[savelev] = 1;
-
- if (!copy_bytes(gfd, sfd)) {
- (void) close(lfd);
- (void) close(sfd);
- delete_savefile();
- return FALSE;
- }
- (void)close(gfd);
- processed[0] = 1;
-
- for (lev = 1; lev < 256; lev++) {
- /* level numbers are kept in xchars in save.c, so the
- * maximum level number (for the endlevel) must be < 256
- */
- if (lev != savelev) {
- lfd = open_levelfile(lev, (char *)0);
- if (lfd >= 0) {
- /* any or all of these may not exist */
- levc = (xchar) lev;
- write(sfd, (genericptr_t) &levc, sizeof(levc));
- if (!copy_bytes(lfd, sfd)) {
- (void) close(lfd);
- (void) close(sfd);
- delete_savefile();
- return FALSE;
- }
- (void)close(lfd);
- processed[lev] = 1;
- }
- }
- }
- (void)close(sfd);
+ (void)close(gfd);
+ return FALSE;
+ }
+ if (read(gfd, (genericptr_t) &savelev, sizeof(savelev))
+ != sizeof(savelev)) {
+ raw_printf("\nCheckpointing was not in effect for %s -- recovery impossible.\n",
+ lock);
+ (void)close(gfd);
+ return FALSE;
+ }
+ if ((read(gfd, (genericptr_t) savename, sizeof savename)
+ != sizeof savename) ||
+ (read(gfd, (genericptr_t) &version_data, sizeof version_data)
+ != sizeof version_data) ||
+ (read(gfd, (genericptr_t) &sfi, sizeof sfi)
+ != sizeof sfi) ||
+ (read(gfd, (genericptr_t) &pltmpsiz, sizeof pltmpsiz)
+ != sizeof pltmpsiz) || (pltmpsiz > PL_NSIZ) ||
+ (read(gfd, (genericptr_t) &tmpplbuf, pltmpsiz)
+ != pltmpsiz)) {
+ raw_printf("\nError reading %s -- can't recover.\n", lock);
+ (void)close(gfd);
+ return FALSE;
+ }
+
+ /* save file should contain:
+ * version info
+ * savefile info
+ * player name
+ * current level (including pets)
+ * (non-level-based) game state
+ * other levels
+ */
+ set_savefile_name(TRUE);
+ sfd = create_savefile();
+ if (sfd < 0) {
+ raw_printf("\nCannot recover savefile %s.\n", SAVEF);
+ (void)close(gfd);
+ return FALSE;
+ }
+
+ lfd = open_levelfile(savelev, errbuf);
+ if (lfd < 0) {
+ raw_printf("\n%s\n", errbuf);
+ (void)close(gfd);
+ (void)close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+
+ if (write(sfd, (genericptr_t) &version_data, sizeof version_data)
+ != sizeof version_data) {
+ raw_printf("\nError writing %s; recovery failed.", SAVEF);
+ (void)close(gfd);
+ (void)close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+
+ if (write(sfd, (genericptr_t) &sfi, sizeof sfi)
+ != sizeof sfi) {
+ raw_printf(
+ "\nError writing %s; recovery failed (savefile_info).\n",
+ SAVEF);
+ (void)close(gfd);
+ (void)close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+
+ if (write(sfd, (genericptr_t) &pltmpsiz, sizeof pltmpsiz)
+ != sizeof pltmpsiz) {
+ raw_printf(
+ "Error writing %s; recovery failed (player name size).\n",
+ SAVEF);
+ (void)close(gfd);
+ (void)close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+
+ if (write(sfd, (genericptr_t) &tmpplbuf, pltmpsiz)
+ != pltmpsiz) {
+ raw_printf(
+ "Error writing %s; recovery failed (player name).\n",
+ SAVEF);
+ (void)close(gfd);
+ (void)close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+
+ if (!copy_bytes(lfd, sfd)) {
+ (void) close(lfd);
+ (void) close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+ (void)close(lfd);
+ processed[savelev] = 1;
+
+ if (!copy_bytes(gfd, sfd)) {
+ (void) close(lfd);
+ (void) close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+ (void)close(gfd);
+ processed[0] = 1;
+
+ for (lev = 1; lev < 256; lev++) {
+ /* level numbers are kept in xchars in save.c, so the
+ * maximum level number (for the endlevel) must be < 256
+ */
+ if (lev != savelev) {
+ lfd = open_levelfile(lev, (char *)0);
+ if (lfd >= 0) {
+ /* any or all of these may not exist */
+ levc = (xchar) lev;
+ write(sfd, (genericptr_t) &levc, sizeof(levc));
+ if (!copy_bytes(lfd, sfd)) {
+ (void) close(lfd);
+ (void) close(sfd);
+ delete_savefile();
+ return FALSE;
+ }
+ (void)close(lfd);
+ processed[lev] = 1;
+ }
+ }
+ }
+ (void)close(sfd);
#ifdef HOLD_LOCKFILE_OPEN
- really_close();
-#endif
- /*
- * We have a successful savefile!
- * Only now do we erase the level files.
- */
- for (lev = 0; lev < 256; lev++) {
- if (processed[lev]) {
- const char *fq_lock;
- set_levelfile_name(lock, lev);
- fq_lock = fqname(lock, LEVELPREFIX, 3);
- (void) unlink(fq_lock);
- }
- }
- return TRUE;
+ really_close();
+#endif
+ /*
+ * We have a successful savefile!
+ * Only now do we erase the level files.
+ */
+ for (lev = 0; lev < 256; lev++) {
+ if (processed[lev]) {
+ const char *fq_lock;
+ set_levelfile_name(lock, lev);
+ fq_lock = fqname(lock, LEVELPREFIX, 3);
+ (void) unlink(fq_lock);
+ }
+ }
+ return TRUE;
}
boolean
copy_bytes(ifd, ofd)
int ifd, ofd;
{
- char buf[BUFSIZ];
- int nfrom, nto;
-
- do {
- nfrom = read(ifd, buf, BUFSIZ);
- nto = write(ofd, buf, nfrom);
- if (nto != nfrom) return FALSE;
- } while (nfrom == BUFSIZ);
- return TRUE;
+ char buf[BUFSIZ];
+ int nfrom, nto;
+
+ do {
+ nfrom = read(ifd, buf, BUFSIZ);
+ nto = write(ofd, buf, nfrom);
+ if (nto != nfrom) return FALSE;
+ } while (nfrom == BUFSIZ);
+ return TRUE;
}
/* ---------- END INTERNAL RECOVER ----------- */
# ifdef SYSCF_FILE
void
assure_syscf_file() {
- /* All we really care about is the end result - can we read the file?
- * So just check that directly. */
- int fd;
- fd = open(SYSCF_FILE, O_RDONLY);
- if(fd >= 0){
- /* readable */
- close(fd);
- return;
- }
- raw_printf("Unable to open SYSCF_FILE.\n");
- exit(EXIT_FAILURE);
+ /* All we really care about is the end result - can we read the file?
+ * So just check that directly. */
+ int fd;
+ fd = open(SYSCF_FILE, O_RDONLY);
+ if(fd >= 0){
+ /* readable */
+ close(fd);
+ return;
+ }
+ raw_printf("Unable to open SYSCF_FILE.\n");
+ exit(EXIT_FAILURE);
}
# endif /* SYSCF_FILE */
if (!filename || !*filename) return FALSE; /* sanity precaution */
if (sysopt.env_dbgfl == 0) {
- /* check once for DEBUGFILES in the environment;
- if found, it supersedes the sysconf value
- [note: getenv() rather than nh_getenv() since a long value
- is valid and doesn't pose any sort of overflow risk here] */
- if ((p = getenv("DEBUGFILES")) != 0) {
- if (sysopt.debugfiles) free(sysopt.debugfiles);
- sysopt.debugfiles = dupstr(p);
- sysopt.env_dbgfl = 1;
- } else
- sysopt.env_dbgfl = -1;
+ /* check once for DEBUGFILES in the environment;
+ if found, it supersedes the sysconf value
+ [note: getenv() rather than nh_getenv() since a long value
+ is valid and doesn't pose any sort of overflow risk here] */
+ if ((p = getenv("DEBUGFILES")) != 0) {
+ if (sysopt.debugfiles) free(sysopt.debugfiles);
+ sysopt.debugfiles = dupstr(p);
+ sysopt.env_dbgfl = 1;
+ } else
+ sysopt.env_dbgfl = -1;
}
debugfiles = sysopt.debugfiles;
* overkill for the intended usage.]
*/
if (pmatch(debugfiles, filename))
- return TRUE;
+ return TRUE;
/* check whether filename is an element of the list */
if ((p = strstr(debugfiles, filename)) != 0) {
- int l = (int)strlen(filename);
+ int l = (int)strlen(filename);
- if ((p == debugfiles || p[-1] == ' ' || p[-1] == '/')
- && (p[l] == ' ' || p[l] == '\0'))
- return TRUE;
+ if ((p == debugfiles || p[-1] == ' ' || p[-1] == '/')
+ && (p[l] == ' ' || p[l] == '\0'))
+ return TRUE;
}
return FALSE;
}
projects / nethack / commitdiff