DataMuseum.dk

top - metrics - download

    Length: 5649 (0x1611)
    Types: TextFile
    Names: »save.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Sokoban/save.c« 

TextFile

#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <signal.h>
#include "sokoban.h"

extern char  *malloc();
extern FILE  *fopen();

extern char  *username;
extern char  map[MAXROW+1][MAXCOL+1];
extern short level, moves, pushes, packets, savepack, rows, cols;
extern short scoring;
extern POS   ppos;

static long        savedbn;
static char        *sfname;
static FILE        *savefile;
static struct stat sfstat;

short savegame() {

   short ret = 0;

   signal( SIGINT, SIG_IGN);
   sfname = malloc( strlen( SAVEPATH) + strlen( username) + 6);
   sprintf( sfname, "%s/%s.sav", SAVEPATH, username);
#ifdef __MSDOS__
   if( (savefile = fopen( sfname, "wb")) == NULL)
      ret = E_FOPENSAVE;
   else {
      if( fwrite( map, 1, MAXROW*MAXCOL, savefile) != MAXROW*MAXCOL)
	 ret = E_WRITESAVE;
      else if( fwrite( &ppos, 1, sizeof( POS), savefile) != sizeof( POS))     
	 ret = E_WRITESAVE;
      else if( fwrite( &level, 1, 2, savefile) != 2)    ret = E_WRITESAVE;
      else if( fwrite( &moves, 1, 2, savefile) != 2)    ret = E_WRITESAVE;
      else if( fwrite( &pushes, 1, 2, savefile) != 2)   ret = E_WRITESAVE;
      else if( fwrite( &packets, 1, 2, savefile) != 2)  ret = E_WRITESAVE;
      else if( fwrite( &savepack, 1, 2, savefile) != 2) ret = E_WRITESAVE;
      else if( fwrite( &rows, 1, 2, savefile) != 2)     ret = E_WRITESAVE;
      else if( fwrite( &cols, 1, 2, savefile) != 2)     ret = E_WRITESAVE;
      else {
	 fclose( savefile);
	 if( stat( sfname, &sfstat) != 0) ret = E_STATSAVE;
	 else if( (savefile = fopen( sfname, "ab")) == NULL)
            ret = E_FOPENSAVE;
         else {
	    if( fwrite( &sfstat, 1, sizeof( sfstat), savefile) != sizeof( sfstat))
	       ret = E_WRITESAVE;
#else
   if( (savefile = fopen( sfname, "w")) == NULL)
      ret = E_FOPENSAVE;
   else {
      savedbn = fileno( savefile);
      if( write( savedbn, &(map[0][0]), MAXROW*MAXCOL) != MAXROW*MAXCOL)
	 ret = E_WRITESAVE;
      else if( write( savedbn, &ppos, sizeof( POS)) != sizeof( POS))     
	 ret = E_WRITESAVE;
      else if( write( savedbn, &level, 2) != 2)    ret = E_WRITESAVE;
      else if( write( savedbn, &moves, 2) != 2)    ret = E_WRITESAVE;
      else if( write( savedbn, &pushes, 2) != 2)   ret = E_WRITESAVE;
      else if( write( savedbn, &packets, 2) != 2)  ret = E_WRITESAVE;
      else if( write( savedbn, &savepack, 2) != 2) ret = E_WRITESAVE;
      else if( write( savedbn, &rows, 2) != 2)     ret = E_WRITESAVE;
      else if( write( savedbn, &cols, 2) != 2)     ret = E_WRITESAVE;
      else {
	 fclose( savefile);
	 if( stat( sfname, &sfstat) != 0) ret = E_STATSAVE;
	 else if( (savefile = fopen( sfname, "a")) == NULL)
            ret = E_FOPENSAVE;
         else {
	    if( write( savedbn, &sfstat, sizeof( sfstat)) != sizeof( sfstat))
	       ret = E_WRITESAVE;
#endif
	    fclose( savefile);
	 }
      }
   }
   if( (ret == E_WRITESAVE) || (ret == E_STATSAVE)) unlink( sfname);
   signal( SIGINT, SIG_DFL);

   return( ret);
}

short restoregame() {

   short ret = 0;
   struct stat oldsfstat;

   signal( SIGINT, SIG_IGN);
   sfname = malloc( strlen( SAVEPATH) + strlen( username) + 6);
   sprintf( sfname, "%s/%s.sav", SAVEPATH, username);
#ifdef __MSDOS__
   if( stat( sfname, &oldsfstat) < -1) 
      ret = E_NOSAVEFILE;
   else {
      if( (savefile = fopen( sfname, "rb")) == NULL)
	 ret = E_FOPENSAVE;
      else {
         if( fread( map, 1, MAXROW*MAXCOL, savefile) != MAXROW*MAXCOL)
	    ret = E_READSAVE;
         else if( fread( &ppos, 1, sizeof( POS), savefile) != sizeof( POS))     
	    ret = E_READSAVE;
         else if( fread( &level, 1, 2, savefile) != 2)    ret = E_READSAVE;
         else if( fread( &moves, 1, 2, savefile) != 2)    ret = E_READSAVE;
         else if( fread( &pushes, 1, 2, savefile) != 2)   ret = E_READSAVE;
         else if( fread( &packets, 1, 2, savefile) != 2)  ret = E_READSAVE;
         else if( fread( &savepack, 1, 2, savefile) != 2) ret = E_READSAVE;
         else if( fread( &rows, 1, 2, savefile) != 2)     ret = E_READSAVE;
         else if( fread( &cols, 1, 2, savefile) != 2)     ret = E_READSAVE;
	 else if( fread( &sfstat, 1, sizeof( sfstat), savefile) != sizeof( sfstat))
#else
   if( stat( sfname, &oldsfstat) < -1) 
      ret = E_NOSAVEFILE;
   else {
      if( (savefile = fopen( sfname, "r")) == NULL)
	 ret = E_FOPENSAVE;
      else {
         savedbn = fileno( savefile);
         if( read( savedbn, &(map[0][0]), MAXROW*MAXCOL) != MAXROW*MAXCOL)
	    ret = E_READSAVE;
         else if( read( savedbn, &ppos, sizeof( POS)) != sizeof( POS))     
	    ret = E_READSAVE;
         else if( read( savedbn, &level, 2) != 2)    ret = E_READSAVE;
         else if( read( savedbn, &moves, 2) != 2)    ret = E_READSAVE;
         else if( read( savedbn, &pushes, 2) != 2)   ret = E_READSAVE;
         else if( read( savedbn, &packets, 2) != 2)  ret = E_READSAVE;
         else if( read( savedbn, &savepack, 2) != 2) ret = E_READSAVE;
         else if( read( savedbn, &rows, 2) != 2)     ret = E_READSAVE;
         else if( read( savedbn, &cols, 2) != 2)     ret = E_READSAVE;
	 else if( read( savedbn, &sfstat, sizeof( sfstat)) != sizeof( sfstat))
#endif
	    ret = E_READSAVE;
	 else if( (sfstat.st_dev != oldsfstat.st_dev) ||
                  (sfstat.st_ino != oldsfstat.st_ino) ||
                  (sfstat.st_nlink != oldsfstat.st_nlink) ||
                  (sfstat.st_uid != oldsfstat.st_uid) ||
                  (sfstat.st_gid != oldsfstat.st_gid) ||
                  (sfstat.st_mtime != oldsfstat.st_mtime))
            ret = E_ALTERSAVE;
      }
      unlink( sfname);
   }
   signal( SIGINT, SIG_DFL);
   return( ret);
}