Merge from vendor branch OPENSSL:
[games.git] / games / hack / hack.options.c
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.options.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.options.c,v 1.5 1999/11/16 02:57:08 billf Exp $ */
4 /* $DragonFly: src/games/hack/hack.options.c,v 1.3 2006/08/21 19:45:32 pavalos Exp $ */
5
6 #include "hack.h"
7
8 static void     parseoptions(char *, bool);
9
10 void
11 initoptions(void)
12 {
13         char *opts;
14
15         flags.time = flags.nonews = flags.notombstone = flags.end_own =
16         flags.standout = flags.nonull = FALSE;
17         flags.no_rest_on_space = TRUE;
18         flags.invlet_constant = TRUE;
19         flags.end_top = 5;
20         flags.end_around = 4;
21         flags.female = FALSE;                   /* players are usually male */
22
23         if((opts = getenv("HACKOPTIONS")))
24                 parseoptions(opts,TRUE);
25 }
26
27 static void
28 parseoptions(char *opts, bool from_env)
29 {
30         char *op,*op2;
31         unsigned num;
32         boolean negated;
33
34         if((op = index(opts, ','))) {
35                 *op++ = 0;
36                 parseoptions(op, from_env);
37         }
38         if((op = index(opts, ' '))) {
39                 op2 = op;
40                 while(*op++)
41                         if(*op != ' ') *op2++ = *op;
42         }
43         if(!*opts) return;
44         negated = FALSE;
45         while((*opts == '!') || !strncmp(opts, "no", 2)) {
46                 if(*opts == '!') opts++; else opts += 2;
47                 negated = !negated;
48         }
49
50         if(!strncmp(opts,"standout",8)) {
51                 flags.standout = !negated;
52                 return;
53         }
54
55         if(!strncmp(opts,"null",3)) {
56                 flags.nonull = negated;
57                 return;
58         }
59
60         if(!strncmp(opts,"tombstone",4)) {
61                 flags.notombstone = negated;
62                 return;
63         }
64
65         if(!strncmp(opts,"news",4)) {
66                 flags.nonews = negated;
67                 return;
68         }
69
70         if(!strncmp(opts,"time",4)) {
71                 flags.time = !negated;
72                 flags.botl = 1;
73                 return;
74         }
75
76         if(!strncmp(opts,"restonspace",4)) {
77                 flags.no_rest_on_space = negated;
78                 return;
79         }
80
81         if(!strncmp(opts,"fixinv",4)) {
82                 if(from_env)
83                         flags.invlet_constant = !negated;
84                 else
85                         pline("The fixinvlet option must be in HACKOPTIONS.");
86                 return;
87         }
88
89         if(!strncmp(opts,"male",4)) {
90                 flags.female = negated;
91                 return;
92         }
93         if(!strncmp(opts,"female",6)) {
94                 flags.female = !negated;
95                 return;
96         }
97
98         /* name:string */
99         if(!strncmp(opts,"name",4)) {
100                 if(!from_env) {
101                   pline("The playername can be set only from HACKOPTIONS.");
102                   return;
103                 }
104                 op = index(opts,':');
105                 if(!op) goto bad;
106                 strncpy(plname, op+1, sizeof(plname)-1);
107                 return;
108         }
109
110         /* endgame:5t[op] 5a[round] o[wn] */
111         if(!strncmp(opts,"endgame",3)) {
112                 op = index(opts,':');
113                 if(!op) goto bad;
114                 op++;
115                 while(*op) {
116                         num = 1;
117                         if(digit(*op)) {
118                                 num = atoi(op);
119                                 while(digit(*op)) op++;
120                         } else
121                         if(*op == '!') {
122                                 negated = !negated;
123                                 op++;
124                         }
125                         switch(*op) {
126                         case 't':
127                                 flags.end_top = num;
128                                 break;
129                         case 'a':
130                                 flags.end_around = num;
131                                 break;
132                         case 'o':
133                                 flags.end_own = !negated;
134                                 break;
135                         default:
136                                 goto bad;
137                         }
138                         while(letter(*++op)) ;
139                         if(*op == '/') op++;
140                 }
141                 return;
142         }
143 bad:
144         if(!from_env) {
145                 if(!strncmp(opts, "help", 4)) {
146                         pline("%s%s%s",
147 "To set options use `HACKOPTIONS=\"<options>\"' in your environment, or ",
148 "give the command 'o' followed by the line `<options>' while playing. ",
149 "Here <options> is a list of <option>s separated by commas." );
150                         pline("%s%s%s",
151 "Simple (boolean) options are rest_on_space, news, time, ",
152 "null, tombstone, (fe)male. ",
153 "These can be negated by prefixing them with '!' or \"no\"." );
154                         pline("%s",
155 "A string option is name, as in HACKOPTIONS=\"name:Merlin-W\"." );
156                         pline("%s%s%s",
157 "A compound option is endgame; it is followed by a description of what ",
158 "parts of the scorelist you want to see. You might for example say: ",
159 "`endgame:own scores/5 top scores/4 around my score'." );
160                         return;
161                 }
162                 pline("Bad option: %s.", opts);
163                 pline("Type `o help<cr>' for help.");
164                 return;
165         }
166         puts("Bad syntax in HACKOPTIONS.");
167         puts("Use for example:");
168         puts(
169 "HACKOPTIONS=\"!restonspace,notombstone,endgame:own/5 topscorers/4 around me\""
170         );
171         getret();
172 }
173
174 int
175 doset(void)
176 {
177         char buf[BUFSZ];
178
179         pline("What options do you want to set? ");
180         getlin(buf);
181         if(!buf[0] || buf[0] == '\033') {
182             strcpy(buf,"HACKOPTIONS=");
183             strcat(buf, flags.female ? "female," : "male,");
184             if(flags.standout) strcat(buf,"standout,");
185             if(flags.nonull) strcat(buf,"nonull,");
186             if(flags.nonews) strcat(buf,"nonews,");
187             if(flags.time) strcat(buf,"time,");
188             if(flags.notombstone) strcat(buf,"notombstone,");
189             if(flags.no_rest_on_space)
190                 strcat(buf,"!rest_on_space,");
191             if(flags.end_top != 5 || flags.end_around != 4 || flags.end_own){
192                 sprintf(eos(buf), "endgame: %u topscores/%u around me",
193                         flags.end_top, flags.end_around);
194                 if(flags.end_own) strcat(buf, "/own scores");
195             } else {
196                 char *eop = eos(buf);
197                 if(*--eop == ',') *eop = 0;
198             }
199             pline(buf);
200         } else
201             parseoptions(buf, FALSE);
202
203         return(0);
204 }