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