/*
* save and restore routines
*
* @(#)save.c 3.9 (Berkeley) 6/16/81
*
* Rogue: Exploring the Dungeons of Doom
* Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
* All rights reserved.
*
* See the file LICENSE.TXT for full copyright and licensing information.
*/
#include "curses.h"
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <signal.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include "machdep.h"
#include "rogue.h"
typedef struct stat STAT;
extern char version[], encstr[];
STAT sbuf;
int
save_game()
{
FILE *savef;
int c;
char buf[80];
/*
* get file name
*/
mpos = 0;
if (file_name[0] != '\0')
{
if (use_savedir)
msg("Save game? ");
else
msg("Save file (%s)? ", file_name);
do
{
c = readchar(cw);
} while (c != 'n' && c != 'N' && c != 'y' && c != 'Y');
mpos = 0;
if (c == 'y' || c == 'Y')
{
msg("File name: %s", file_name);
goto gotfile;
}
if (use_savedir)
return FALSE;
/* because you're not allowed to change the savefile if
you're using the system savedir! */
}
do
{
msg("File name: ");
mpos = 0;
buf[0] = '\0';
if (get_str(buf, cw) == QUIT)
{
msg("");
return FALSE;
}
strcpy(file_name, buf);
gotfile:
if ((savef = fopen(file_name, "w")) == NULL)
{
msg(strerror(errno)); /* fake perror() */
if (use_savedir)
return FALSE;
}
} while (savef == NULL);
/*
* write out encrypted file (after a stat)
* The fwrite is to force allocation of the buffer before the write
*/
if (save_file(savef) != 0)
{
msg("Save game failed!");
return FALSE;
}
return TRUE;
}
/*
* automatically save a file. This is used if a HUP signal is
* recieved
*/
void
auto_save(int p)
{
FILE *savef;
int i;
for (i = 0; i < NSIG; i++)
signal(i, SIG_IGN);
if (file_name[0] != '\0' && (savef = fopen(file_name, "w")) != NULL)
save_file(savef);
endwin();
exit(1);
}
/*
* write the saved game on the file
*/
int
save_file(FILE *savef)
{
char buf[80];
int ret;
wmove(cw, LINES-1, 0);
draw(cw);
(void) fseek(savef, 0L, 0);
memset(buf,0,80);
strcpy(buf,version);
encwrite(buf,80,savef);
memset(buf,0,80);
strcpy(buf,"R36 2\n");
encwrite(buf,80,savef);
memset(buf,0,80);
sprintf(buf,"%d x %d\n", LINES, COLS);
encwrite(buf,80,savef);
ret = rs_save_file(savef);
fclose(savef);
return(ret);
}
int
restore(char *file, char **envp)
{
FILE *inf;
extern char **environ;
char buf[80];
int slines, scols;
int rogue_version = 0, savefile_version = 0;
if (strcmp(file, "-r") == 0)
file = file_name;
if ((inf = fopen(file, "r")) == NULL)
{
if (use_savedir && errno == ENOENT)
{
/* We're using the system savefile and it doesn't exist.
* This isn't a fatal error, we'll just start a new game. */
return TRUE;
}
else
{
perror(file);
return FALSE;
}
}
fflush(stdout);
encread(buf, 80, inf);
if (strcmp(buf, version) != 0)
{
printf("Sorry, saved game is out of date.\n");
return FALSE;
}
encread(buf, 80, inf);
(void) sscanf(buf, "R%d %d\n", &rogue_version, &savefile_version);
if ((rogue_version != 36) && (savefile_version != 2))
{
printf("Sorry, saved game format is out of date.\n");
return FALSE;
}
encread(buf,80,inf);
(void) sscanf(buf,"%d x %d\n",&slines, &scols);
/*
* we do not close the file so that we will have a hold of the
* inode for as long as possible
*/
initscr();
if (slines > LINES)
{
endwin();
printf("Sorry, original game was played on a screen with %d lines.\n",slines);
printf("Current screen only has %d lines. Unable to restore game\n",LINES);
return(FALSE);
}
if (scols > COLS)
{
endwin();
printf("Sorry, original game was played on a screen with %d columns.\n",scols);
printf("Current screen only has %d columns. Unable to restore game\n",COLS);
return(FALSE);
}
cw = newwin(LINES, COLS, 0, 0);
mw = newwin(LINES, COLS, 0, 0);
hw = newwin(LINES, COLS, 0, 0);
nonl();
nocrmode();
keypad(cw,1);
mpos = 0;
mvwprintw(cw, 0, 0, "%s", file);
if (rs_restore_file(inf) != 0)
{
endwin();
printf("Cannot restore file\n");
return(FALSE);
}
if (!wizard && (md_unlink_open_file(file, inf) < 0))
{
endwin();
printf("Cannot unlink file\n");
return FALSE;
}
if (pstats.s_hpt <= 0) {
endwin();
printf("This character is already dead.\n");
return FALSE;
}
environ = envp;
strcpy(file_name, file);
setup();
clearok(curscr, TRUE);
touchwin(cw);
srand(md_random_seed());
status();
playit();
/*NOTREACHED*/
return(0);
}
static int encerrno = 0;
int
encerror()
{
return encerrno;
}
void
encseterr(int err)
{
encerrno = err;
}
int
encclearerr()
{
int n = encerrno;
encerrno = 0;
return(n);
}
/*
* perform an encrypted write
*/
size_t
encwrite(const void *buf, size_t size, FILE *outf)
{
char *ep;
const char *start = buf;
size_t o_size = size;
ep = encstr;
while (size)
{
if (putc(*start++ ^ *ep++, outf) == EOF)
return(o_size - size);
if (*ep == '\0')
ep = encstr;
size--;
}
return(o_size - size);
}
/*
* perform an encrypted read
*/
size_t
encread(void *buf, size_t size, FILE *inf)
{
char *ep;
size_t read_size;
char *start = buf;
if ((read_size = fread(start,1,size,inf)) == 0)
return 0;
ep = encstr;
while (size--)
{
*start++ ^= *ep++;
if (*ep == '\0')
ep = encstr;
}
return read_size;
}