save.c revision 1.3 1 1.3 cgd /* $NetBSD: save.c,v 1.3 1995/03/21 15:07:57 cgd Exp $ */
2 1.3 cgd
3 1.1 cgd /*
4 1.3 cgd * Copyright (c) 1983, 1993
5 1.3 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.1 cgd * 3. All advertising materials mentioning features or use of this software
16 1.1 cgd * must display the following acknowledgement:
17 1.1 cgd * This product includes software developed by the University of
18 1.1 cgd * California, Berkeley and its contributors.
19 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
20 1.1 cgd * may be used to endorse or promote products derived from this software
21 1.1 cgd * without specific prior written permission.
22 1.1 cgd *
23 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 cgd * SUCH DAMAGE.
34 1.1 cgd */
35 1.1 cgd
36 1.1 cgd #ifndef lint
37 1.3 cgd #if 0
38 1.3 cgd static char sccsid[] = "@(#)save.c 8.1 (Berkeley) 5/31/93";
39 1.3 cgd #else
40 1.3 cgd static char rcsid[] = "$NetBSD: save.c,v 1.3 1995/03/21 15:07:57 cgd Exp $";
41 1.3 cgd #endif
42 1.1 cgd #endif /* not lint */
43 1.1 cgd
44 1.1 cgd #include "externs.h"
45 1.1 cgd
46 1.1 cgd restore()
47 1.1 cgd {
48 1.1 cgd char *getenv();
49 1.1 cgd char *home;
50 1.1 cgd char home1[100];
51 1.1 cgd register int n;
52 1.1 cgd int tmp;
53 1.1 cgd register FILE *fp;
54 1.1 cgd
55 1.1 cgd home = getenv("HOME");
56 1.1 cgd strcpy(home1, home);
57 1.1 cgd strcat(home1, "/Bstar");
58 1.1 cgd if ((fp = fopen(home1, "r")) == 0) {
59 1.1 cgd perror(home1);
60 1.1 cgd return;
61 1.1 cgd }
62 1.1 cgd fread(&WEIGHT, sizeof WEIGHT, 1, fp);
63 1.1 cgd fread(&CUMBER, sizeof CUMBER, 1, fp);
64 1.1 cgd fread(&clock, sizeof clock, 1, fp);
65 1.1 cgd fread(&tmp, sizeof tmp, 1, fp);
66 1.1 cgd location = tmp ? dayfile : nightfile;
67 1.1 cgd for (n = 1; n <= NUMOFROOMS; n++) {
68 1.1 cgd fread(location[n].link, sizeof location[n].link, 1, fp);
69 1.1 cgd fread(location[n].objects, sizeof location[n].objects, 1, fp);
70 1.1 cgd }
71 1.1 cgd fread(inven, sizeof inven, 1, fp);
72 1.1 cgd fread(wear, sizeof wear, 1, fp);
73 1.1 cgd fread(injuries, sizeof injuries, 1, fp);
74 1.1 cgd fread(notes, sizeof notes, 1, fp);
75 1.1 cgd fread(&direction, sizeof direction, 1, fp);
76 1.1 cgd fread(&position, sizeof position, 1, fp);
77 1.1 cgd fread(&time, sizeof time, 1, fp);
78 1.1 cgd fread(&fuel, sizeof fuel, 1, fp);
79 1.1 cgd fread(&torps, sizeof torps, 1, fp);
80 1.1 cgd fread(&carrying, sizeof carrying, 1, fp);
81 1.1 cgd fread(&encumber, sizeof encumber, 1, fp);
82 1.1 cgd fread(&rythmn, sizeof rythmn, 1, fp);
83 1.1 cgd fread(&followfight, sizeof followfight, 1, fp);
84 1.1 cgd fread(&ate, sizeof ate, 1, fp);
85 1.1 cgd fread(&snooze, sizeof snooze, 1, fp);
86 1.1 cgd fread(&meetgirl, sizeof meetgirl, 1, fp);
87 1.1 cgd fread(&followgod, sizeof followgod, 1, fp);
88 1.1 cgd fread(&godready, sizeof godready, 1, fp);
89 1.1 cgd fread(&win, sizeof win, 1, fp);
90 1.1 cgd fread(&wintime, sizeof wintime, 1, fp);
91 1.1 cgd fread(&matchlight, sizeof matchlight, 1, fp);
92 1.1 cgd fread(&matchcount, sizeof matchcount, 1, fp);
93 1.1 cgd fread(&loved, sizeof loved, 1, fp);
94 1.1 cgd fread(&pleasure, sizeof pleasure, 1, fp);
95 1.1 cgd fread(&power, sizeof power, 1, fp);
96 1.1 cgd fread(&ego, sizeof ego, 1, fp);
97 1.1 cgd }
98 1.1 cgd
99 1.1 cgd save()
100 1.1 cgd {
101 1.1 cgd char *getenv();
102 1.1 cgd char *home;
103 1.1 cgd char home1[100];
104 1.1 cgd register int n;
105 1.1 cgd int tmp;
106 1.1 cgd FILE *fp;
107 1.1 cgd
108 1.1 cgd home = getenv("HOME");
109 1.1 cgd strcpy(home1, home);
110 1.1 cgd strcat(home1, "/Bstar");
111 1.1 cgd if ((fp = fopen(home1, "w")) == 0) {
112 1.1 cgd perror(home1);
113 1.1 cgd return;
114 1.1 cgd }
115 1.1 cgd printf("Saved in %s.\n", home1);
116 1.1 cgd fwrite(&WEIGHT, sizeof WEIGHT, 1, fp);
117 1.1 cgd fwrite(&CUMBER, sizeof CUMBER, 1, fp);
118 1.1 cgd fwrite(&clock, sizeof clock, 1, fp);
119 1.1 cgd tmp = location == dayfile;
120 1.1 cgd fwrite(&tmp, sizeof tmp, 1, fp);
121 1.1 cgd for (n = 1; n <= NUMOFROOMS; n++) {
122 1.1 cgd fwrite(location[n].link, sizeof location[n].link, 1, fp);
123 1.1 cgd fwrite(location[n].objects, sizeof location[n].objects, 1, fp);
124 1.1 cgd }
125 1.1 cgd fwrite(inven, sizeof inven, 1, fp);
126 1.1 cgd fwrite(wear, sizeof wear, 1, fp);
127 1.1 cgd fwrite(injuries, sizeof injuries, 1, fp);
128 1.1 cgd fwrite(notes, sizeof notes, 1, fp);
129 1.1 cgd fwrite(&direction, sizeof direction, 1, fp);
130 1.1 cgd fwrite(&position, sizeof position, 1, fp);
131 1.1 cgd fwrite(&time, sizeof time, 1, fp);
132 1.1 cgd fwrite(&fuel, sizeof fuel, 1, fp);
133 1.1 cgd fwrite(&torps, sizeof torps, 1, fp);
134 1.1 cgd fwrite(&carrying, sizeof carrying, 1, fp);
135 1.1 cgd fwrite(&encumber, sizeof encumber, 1, fp);
136 1.1 cgd fwrite(&rythmn, sizeof rythmn, 1, fp);
137 1.1 cgd fwrite(&followfight, sizeof followfight, 1, fp);
138 1.1 cgd fwrite(&ate, sizeof ate, 1, fp);
139 1.1 cgd fwrite(&snooze, sizeof snooze, 1, fp);
140 1.1 cgd fwrite(&meetgirl, sizeof meetgirl, 1, fp);
141 1.1 cgd fwrite(&followgod, sizeof followgod, 1, fp);
142 1.1 cgd fwrite(&godready, sizeof godready, 1, fp);
143 1.1 cgd fwrite(&win, sizeof win, 1, fp);
144 1.1 cgd fwrite(&wintime, sizeof wintime, 1, fp);
145 1.1 cgd fwrite(&matchlight, sizeof matchlight, 1, fp);
146 1.1 cgd fwrite(&matchcount, sizeof matchcount, 1, fp);
147 1.1 cgd fwrite(&loved, sizeof loved, 1, fp);
148 1.1 cgd fwrite(&pleasure, sizeof pleasure, 1, fp);
149 1.1 cgd fwrite(&power, sizeof power, 1, fp);
150 1.1 cgd fwrite(&ego, sizeof ego, 1, fp);
151 1.1 cgd }
152