source: trunk/minix/commands/advent/advent.c@ 11

/**     Adventure translated from Fortran to "C"
  and ported to Minix by:
  Robert R. Hall
  San Diego,  Calif  92115
  hall@crash.cts.com
 */

/**     program ADVENT.C                                        *
 *              "advent.c" allocates GLOBAL storage space by    *
 *              #defining EXTERN before #including "advdec.h".  */


#include        <string.h>
#include        <ctype.h>
#include        <stdlib.h>
#include        <time.h>
#include        <stdio.h>
#include        <errno.h>
#include        "advent.h"              /* #define preprocessor equates  */
#include        "advdec.h"

#ifndef TEXTDIR
#define TEXTDIR ""
#endif

char textdir[] = TEXTDIR;               /* directory where text files
                                           live. */

_PROTOTYPE(int main, (int, char **));
_PROTOTYPE(static void opentxt, (void));
_PROTOTYPE(static void file_error, (char *));

int main(argc, argv)
int argc;
char **argv;
{
    opentxt();
    initialize();
    rspeak(325);
    if (argc == 2)
        restore(argv[1]);
    else {
        g.hinted[3] = yes(65, 1, 0);
        g.limit = (g.hinted[3] ? 800 : 550);
    }
    gaveup = FALSE;
    srand((unsigned) time(NULL));       /* seed random   */
    while (!gaveup)
        turn();
    fclose(fd1);
    fclose(fd2);
    fclose(fd3);
    fclose(fd4);
    return (EXIT_SUCCESS);              /* exit = ok     */
}                                       /* main          */

/*
  Open advent?.txt files
*/
static void opentxt()
{
    static char filename[sizeof(textdir) + 16];
    static FILE **fp[] = {0, &fd1, &fd2, &fd3, &fd4};
    int i;
    for (i = 1; i <= 4; i++) {
        sprintf(filename, "%sadvent%d.dat", textdir, i);
        *fp[i] = fopen(filename, "r");
        if (!*fp[i])
            file_error(filename);
    }
}

/*
  save adventure game
*/
void saveadv(username)
char *username;
{
    int cnt;
    FILE *savefd;

    savefd = fopen(username, "wb");
    if (savefd == NULL) {
        perror(username);
        return;
    }
    cnt = fwrite((void *) &g, 1, sizeof(struct playinfo), savefd);
    if (cnt != sizeof(struct playinfo)) {
        fprintf(stderr, "wrote %d of %u bytes\n",
                cnt, (unsigned) sizeof(struct playinfo));
        if (ferror(savefd)) {
            fprintf(stderr, "errno is: 0x%.4x\n", errno);
            perror(username);
        }
    }
    if (fclose(savefd) == -1) {
        perror(username);
    }
    printf("Saved in %s.\n", username);
    return;
}

/*
  restore saved game handler
*/
void restore(username)
char *username;
{
    int cnt;
    FILE *restfd;

    restfd = fopen(username, "rb");
    if (restfd == NULL)
        file_error(username);
    cnt = fread((void *) &g, 1, sizeof(struct playinfo), restfd);
    if (cnt != sizeof(struct playinfo)) {
        fprintf(stderr, "read %d bytes, expected %u\n",
                cnt, (unsigned) sizeof(struct playinfo));
        if (ferror(restfd)) {
            fprintf(stderr, "errno is: 0x%.4x\n", errno);
            perror(username);
        }
    }
    if (fclose(restfd) == -1) {
        perror(username);
    }
    printf("Restored from %s.\n", username);
    return;
}

static void file_error(filename)
char *filename;
{
    perror(filename);
    exit(EXIT_FAILURE);
}