3d6fabf730
Changes to be committed: modified: include/extern.h modified: src/bones.c modified: src/do.c modified: src/files.c modified: src/music.c modified: src/restore.c modified: src/save.c modified: sys/share/pcmain.c modified: sys/share/pcsys.c modified: sys/share/pcunix.c In order to get level file locking correctly again post 3.4.3 with the newer compilers for windows, I had to funnel close() calls to an intercepting routine. I had two choices: 1. Surround every close() in at least 9 source files with messy: #ifdef WIN32 nhclose(fd); #else close(fd); #endif OR 2. Replace every close() with nhclose() and deal with the special code in the nhclose() version for windows, while just calling close() for other platforms (in files.c). It is also possible, although not done in this commit, to #define nhclose(fd) close(fd) in a header file for non-windows, rather than funnel though a real nhclose() function in files.c.
545 lines
11 KiB
C
545 lines
11 KiB
C
/* NetHack 3.5 pcsys.c $NHDT-Date$ $NHDT-Branch$:$NHDT-Revision$ */
|
|
/* NetHack 3.5 pcsys.c $Date: 2012/01/22 06:33:47 $ $Revision: 1.18 $ */
|
|
/* SCCS Id: @(#)pcsys.c 3.5 2002/01/22 */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
|
|
/*
|
|
* System related functions for MSDOS, OS/2, TOS, and Windows NT
|
|
*/
|
|
|
|
#define NEED_VARARGS
|
|
#include "hack.h"
|
|
#include "wintty.h"
|
|
|
|
#include <ctype.h>
|
|
#include <fcntl.h>
|
|
#if !defined(MSDOS) && !defined(WIN_CE) /* already done */
|
|
#include <process.h>
|
|
#endif
|
|
#ifdef __GO32__
|
|
#define P_WAIT 0
|
|
#define P_NOWAIT 1
|
|
#endif
|
|
#ifdef TOS
|
|
#include <osbind.h>
|
|
#endif
|
|
#if defined(MSDOS) && !defined(__GO32__)
|
|
#define findfirst findfirst_file
|
|
#define findnext findnext_file
|
|
#define filesize filesize_nh
|
|
#endif
|
|
|
|
|
|
#if defined(MICRO) || defined(WIN32) || defined(OS2)
|
|
void FDECL(nethack_exit,(int));
|
|
#else
|
|
#define nethack_exit exit
|
|
#endif
|
|
STATIC_DCL void NDECL(msexit);
|
|
|
|
|
|
#ifdef MOVERLAY
|
|
extern void __far __cdecl _movepause( void );
|
|
extern void __far __cdecl _moveresume( void );
|
|
extern unsigned short __far __cdecl _movefpause;
|
|
extern unsigned short __far __cdecl _movefpaused;
|
|
#define __MOVE_PAUSE_DISK 2 /* Represents the executable file */
|
|
#define __MOVE_PAUSE_CACHE 4 /* Represents the cache memory */
|
|
#endif /* MOVERLAY */
|
|
|
|
#ifdef MFLOPPY
|
|
STATIC_DCL boolean NDECL(record_exists);
|
|
# ifndef TOS
|
|
STATIC_DCL boolean NDECL(comspec_exists);
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef WIN32CON
|
|
extern int GUILaunched; /* from nttty.c */
|
|
#endif
|
|
|
|
#if defined(MICRO) || defined(WIN32)
|
|
|
|
void
|
|
flushout()
|
|
{
|
|
(void) fflush(stdout);
|
|
return;
|
|
}
|
|
|
|
static const char *COMSPEC =
|
|
# ifdef TOS
|
|
"SHELL";
|
|
# else
|
|
"COMSPEC";
|
|
# endif
|
|
|
|
#define getcomspec() nh_getenv(COMSPEC)
|
|
|
|
# ifdef SHELL
|
|
int
|
|
dosh()
|
|
{
|
|
extern char orgdir[];
|
|
char *comspec;
|
|
# ifndef __GO32__
|
|
int spawnstat;
|
|
# endif
|
|
#if defined(MSDOS) && defined(NO_TERMS)
|
|
int grmode = iflags.grmode;
|
|
#endif
|
|
if ((comspec = getcomspec())) {
|
|
# ifndef TOS /* TOS has a variety of shells */
|
|
suspend_nhwindows("To return to NetHack, enter \"exit\" at the system prompt.\n");
|
|
# else
|
|
# if defined(MSDOS) && defined(NO_TERMS)
|
|
grmode = iflags.grmode;
|
|
# endif
|
|
suspend_nhwindows((char *)0);
|
|
# endif /* TOS */
|
|
# ifndef NOCWD_ASSUMPTIONS
|
|
chdirx(orgdir, 0);
|
|
# endif
|
|
# ifdef __GO32__
|
|
if (system(comspec) < 0) { /* wsu@eecs.umich.edu */
|
|
# else
|
|
# ifdef MOVERLAY
|
|
/* Free the cache memory used by overlays, close .exe */
|
|
_movefpause |= __MOVE_PAUSE_DISK;
|
|
_movefpause |= __MOVE_PAUSE_CACHE;
|
|
_movepause();
|
|
# endif
|
|
spawnstat = spawnl(P_WAIT, comspec, comspec, (char *)0);
|
|
# ifdef MOVERLAY
|
|
_moveresume();
|
|
# endif
|
|
|
|
if ( spawnstat < 0) {
|
|
# endif
|
|
raw_printf("Can't spawn \"%s\"!", comspec);
|
|
getreturn("to continue");
|
|
}
|
|
# ifdef TOS
|
|
/* Some shells (e.g. Gulam) turn the cursor off when they exit */
|
|
if (iflags.BIOS)
|
|
(void)Cursconf(1, -1);
|
|
# endif
|
|
# ifndef NOCWD_ASSUMPTIONS
|
|
chdirx(hackdir, 0);
|
|
# endif
|
|
get_scr_size(); /* maybe the screen mode changed (TH) */
|
|
# if defined(MSDOS) && defined(NO_TERMS)
|
|
if (grmode) gr_init();
|
|
# endif
|
|
resume_nhwindows();
|
|
} else
|
|
pline("Can't find %s.",COMSPEC);
|
|
return 0;
|
|
}
|
|
# endif /* SHELL */
|
|
|
|
# ifdef MFLOPPY
|
|
|
|
void
|
|
eraseall(path, files)
|
|
const char *path, *files;
|
|
{
|
|
char buf[PATHLEN];
|
|
char *foundfile;
|
|
|
|
foundfile = foundfile_buffer();
|
|
Sprintf(buf, "%s%s", path, files);
|
|
if (findfirst(buf))
|
|
do {
|
|
Sprintf(buf, "%s%s", path, foundfile);
|
|
(void) unlink(buf);
|
|
} while (findnext());
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Rewritten for version 3.3 to be faster
|
|
*/
|
|
void
|
|
copybones(mode)
|
|
int mode;
|
|
{
|
|
char from[PATHLEN], to[PATHLEN], last[13];
|
|
char *frompath, *topath;
|
|
char *foundfile;
|
|
# ifndef TOS
|
|
int status;
|
|
char copy[8], *comspec;
|
|
# endif
|
|
|
|
if (!ramdisk)
|
|
return;
|
|
|
|
/* Find the name of the last file to be transferred
|
|
*/
|
|
frompath = (mode != TOPERM) ? permbones : levels;
|
|
foundfile = foundfile_buffer();
|
|
last[0] = '\0';
|
|
Sprintf(from, "%s%s", frompath, allbones);
|
|
topath = (mode == TOPERM) ? permbones : levels;
|
|
# ifdef TOS
|
|
eraseall(topath, allbones);
|
|
# endif
|
|
if (findfirst(from))
|
|
do {
|
|
# ifdef TOS
|
|
Sprintf(from, "%s%s", frompath, foundfile);
|
|
Sprintf(to, "%s%s", topath, foundfile);
|
|
if (_copyfile(from, to))
|
|
goto error_copying;
|
|
# endif
|
|
Strcpy(last, foundfile);
|
|
} while (findnext());
|
|
# ifdef TOS
|
|
else
|
|
return;
|
|
# else
|
|
if (last[0]) {
|
|
Sprintf(copy, "%cC copy",switchar());
|
|
|
|
/* Remove any bones files in `to' directory.
|
|
*/
|
|
eraseall(topath, allbones);
|
|
|
|
/* Copy `from' to `to' */
|
|
Sprintf(to, "%s%s", topath, allbones);
|
|
comspec = getcomspec();
|
|
status =spawnl(P_WAIT, comspec, comspec, copy, from,
|
|
to, "> nul", (char *)0);
|
|
} else
|
|
return;
|
|
# endif /* TOS */
|
|
|
|
/* See if the last file got there. If so, remove the ramdisk bones
|
|
* files.
|
|
*/
|
|
Sprintf(to, "%s%s", topath, last);
|
|
if (findfirst(to)) {
|
|
if (mode == TOPERM)
|
|
eraseall(frompath, allbones);
|
|
return;
|
|
}
|
|
|
|
# ifdef TOS
|
|
error_copying:
|
|
# endif
|
|
/* Last file didn't get there.
|
|
*/
|
|
Sprintf(to, "%s%s", topath, allbones);
|
|
msmsg("Can't copy \"%s\" to \"%s\" -- ", from, to);
|
|
# ifndef TOS
|
|
if (status < 0)
|
|
msmsg("can't spawn \"%s\"!", comspec);
|
|
else
|
|
# endif
|
|
msmsg((freediskspace(topath) < filesize(from)) ?
|
|
"insufficient disk space." : "bad path(s)?");
|
|
if (mode == TOPERM) {
|
|
msmsg("Bones will be left in \"%s\"\n",
|
|
*levels ? levels : hackdir);
|
|
} else {
|
|
/* Remove all bones files on the RAMdisk */
|
|
eraseall(levels, allbones);
|
|
playwoRAMdisk();
|
|
}
|
|
return;
|
|
}
|
|
|
|
void
|
|
playwoRAMdisk()
|
|
{
|
|
int c;
|
|
|
|
msmsg("Do you wish to play without a RAMdisk? [yn] (n)");
|
|
|
|
/* Set ramdisk false *before* exit-ing (because msexit calls
|
|
* copybones)
|
|
*/
|
|
ramdisk = FALSE;
|
|
c = tgetch(); if (c == 'Y') c = 'y';
|
|
if (c != 'y') {
|
|
settty("Be seeing you...\n");
|
|
nethack_exit(EXIT_SUCCESS);
|
|
}
|
|
set_lock_and_bones();
|
|
return;
|
|
}
|
|
|
|
int
|
|
saveDiskPrompt(start)
|
|
int start;
|
|
{
|
|
char buf[BUFSIZ], *bp;
|
|
char qbuf[QBUFSZ];
|
|
|
|
int fd;
|
|
|
|
if (sysflags.asksavedisk) {
|
|
/* Don't prompt if you can find the save file */
|
|
if ((fd = open_savefile()) >= 0) {
|
|
(void) nhclose(fd);
|
|
return 1;
|
|
}
|
|
clear_nhwindow(WIN_MESSAGE);
|
|
pline("If save file is on a save disk, insert that disk now.");
|
|
mark_synch();
|
|
Sprintf(qbuf,"File name (default \"%s\"%s) ?", SAVEF,
|
|
start ? "" : ", <Esc> cancels save");
|
|
getlin(qbuf, buf);
|
|
clear_nhwindow(WIN_MESSAGE);
|
|
if (!start && *buf == '\033')
|
|
return 0;
|
|
|
|
/* Strip any whitespace. Also, if nothing was entered except
|
|
* whitespace, do not change the value of SAVEF.
|
|
*/
|
|
for (bp = buf; *bp; bp++)
|
|
if (!isspace(*bp)) {
|
|
strncpy(SAVEF, bp, PATHLEN);
|
|
break;
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
/* Return 1 if the record file was found */
|
|
STATIC_OVL boolean
|
|
record_exists()
|
|
{
|
|
FILE *fp;
|
|
|
|
fp = fopen_datafile(RECORD, "r", TRUE);
|
|
if (fp) {
|
|
fclose(fp);
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
#endif /* MFLOPPY */
|
|
|
|
# ifdef TOS
|
|
#define comspec_exists() 1
|
|
# else
|
|
# ifdef MFLOPPY
|
|
/* Return 1 if the comspec was found */
|
|
STATIC_OVL boolean
|
|
comspec_exists()
|
|
{
|
|
int fd;
|
|
char *comspec;
|
|
|
|
if ((comspec = getcomspec()))
|
|
if ((fd = open(comspec, O_RDONLY)) >= 0) {
|
|
(void) nhclose(fd);
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
# endif /* MFLOPPY */
|
|
# endif
|
|
|
|
|
|
# ifdef MFLOPPY
|
|
/* Prompt for game disk, then check for record file.
|
|
*/
|
|
void
|
|
gameDiskPrompt()
|
|
{
|
|
if (sysflags.asksavedisk) {
|
|
if (record_exists() && comspec_exists())
|
|
return;
|
|
(void) putchar('\n');
|
|
getreturn("when the game disk has been inserted");
|
|
}
|
|
if (comspec_exists() && record_exists())
|
|
return;
|
|
|
|
if (!comspec_exists())
|
|
msmsg("\n\nWARNING: can't find command processor \"%s\"!\n", getcomspec());
|
|
if (!record_exists())
|
|
msmsg("\n\nWARNING: can't find record file \"%s\"!\n", RECORD);
|
|
msmsg("If the game disk is not in, insert it now.\n");
|
|
getreturn("to continue");
|
|
return;
|
|
}
|
|
# endif /* MFLOPPY */
|
|
#endif /* MICRO */
|
|
|
|
/*
|
|
* Add a backslash to any name not ending in /, \ or : There must
|
|
* be room for the \
|
|
*/
|
|
void
|
|
append_slash(name)
|
|
char *name;
|
|
{
|
|
char *ptr;
|
|
|
|
if (!*name)
|
|
return;
|
|
ptr = name + (strlen(name) - 1);
|
|
if (*ptr != '\\' && *ptr != '/' && *ptr != ':') {
|
|
*++ptr = '\\';
|
|
*++ptr = '\0';
|
|
}
|
|
return;
|
|
}
|
|
|
|
#ifdef WIN32
|
|
boolean getreturn_enabled;
|
|
int redirect_stdout;
|
|
#endif
|
|
|
|
void
|
|
getreturn(str)
|
|
const char *str;
|
|
{
|
|
#ifdef WIN32
|
|
if (!getreturn_enabled) return;
|
|
#endif
|
|
#ifdef TOS
|
|
msmsg("Hit <Return> %s.", str);
|
|
#else
|
|
msmsg("Hit <Enter> %s.", str);
|
|
#endif
|
|
while (pgetchar() != '\n') ;
|
|
return;
|
|
}
|
|
|
|
#ifndef WIN32CON
|
|
void
|
|
msmsg VA_DECL(const char *, fmt)
|
|
VA_START(fmt);
|
|
VA_INIT(fmt, const char *);
|
|
# if defined(MSDOS) && defined(NO_TERMS)
|
|
if (iflags.grmode)
|
|
gr_finish();
|
|
# endif
|
|
Vprintf(fmt, VA_ARGS);
|
|
flushout();
|
|
VA_END();
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* Follow the PATH, trying to fopen the file.
|
|
*/
|
|
#ifdef TOS
|
|
# ifdef __MINT__
|
|
#define PATHSEP ':'
|
|
# else
|
|
#define PATHSEP ','
|
|
# endif
|
|
#else
|
|
#define PATHSEP ';'
|
|
#endif
|
|
|
|
FILE *
|
|
fopenp(name, mode)
|
|
const char *name, *mode;
|
|
{
|
|
char buf[BUFSIZ], *bp, *pp, lastch = 0;
|
|
FILE *fp;
|
|
|
|
/* Try the default directory first. Then look along PATH.
|
|
*/
|
|
(void) strncpy(buf, name, BUFSIZ - 1);
|
|
buf[BUFSIZ-1] = '\0';
|
|
if ((fp = fopen(buf, mode)))
|
|
return fp;
|
|
else {
|
|
int ccnt = 0;
|
|
pp = getenv("PATH");
|
|
while (pp && *pp) {
|
|
bp = buf;
|
|
while (*pp && *pp != PATHSEP) {
|
|
lastch = *bp++ = *pp++;
|
|
ccnt++;
|
|
}
|
|
if (lastch != '\\' && lastch != '/') {
|
|
*bp++ = '\\';
|
|
ccnt++;
|
|
}
|
|
(void) strncpy(bp, name, (BUFSIZ - ccnt) - 2);
|
|
bp[BUFSIZ - ccnt - 1] = '\0';
|
|
if ((fp = fopen(buf, mode)))
|
|
return fp;
|
|
if (*pp)
|
|
pp++;
|
|
}
|
|
}
|
|
#ifdef OS2_CODEVIEW /* one more try for hackdir */
|
|
(void) strncpy(buf, hackdir, BUFSZ);
|
|
buf[BUFSZ-1] = '\0';
|
|
if ((strlen(name) + 1 + strlen(buf)) < BUFSZ - 1) {
|
|
append_slash(buf);
|
|
Strcat(buf,name);
|
|
} else
|
|
impossible("fopenp() buffer too small for complete filename!");
|
|
if(fp = fopen(buf,mode))
|
|
return fp;
|
|
#endif
|
|
return (FILE *)0;
|
|
}
|
|
|
|
#if defined(MICRO) || defined(WIN32) || defined(OS2)
|
|
void nethack_exit(code)
|
|
int code;
|
|
{
|
|
msexit();
|
|
exit(code);
|
|
}
|
|
|
|
/* Chdir back to original directory
|
|
*/
|
|
#ifdef TOS
|
|
extern boolean run_from_desktop; /* set in pcmain.c */
|
|
#endif
|
|
|
|
STATIC_OVL void msexit()
|
|
{
|
|
#ifdef CHDIR
|
|
extern char orgdir[];
|
|
#endif
|
|
|
|
flushout();
|
|
#ifndef TOS
|
|
# ifndef WIN32
|
|
enable_ctrlP(); /* in case this wasn't done */
|
|
# endif
|
|
#endif
|
|
#ifdef MFLOPPY
|
|
if (ramdisk) copybones(TOPERM);
|
|
#endif
|
|
#if defined(CHDIR) && !defined(NOCWD_ASSUMPTIONS)
|
|
chdir(orgdir); /* chdir, not chdirx */
|
|
chdrive(orgdir);
|
|
#endif
|
|
#ifdef TOS
|
|
if (run_from_desktop)
|
|
getreturn("to continue"); /* so the user can read the score list */
|
|
# ifdef TEXTCOLOR
|
|
if (colors_changed)
|
|
restore_colors();
|
|
# endif
|
|
#endif
|
|
#ifdef WIN32CON
|
|
/* Only if we started from the GUI, not the command prompt,
|
|
* we need to get one last return, so the score board does
|
|
* not vanish instantly after being created.
|
|
* GUILaunched is defined and set in nttty.c.
|
|
*/
|
|
synch_cursor();
|
|
if (GUILaunched) getreturn("to end");
|
|
synch_cursor();
|
|
#endif
|
|
return;
|
|
}
|
|
#endif /* MICRO || WIN32 || OS2 */
|