Get rid of many ugly casts.
[mplayer/glamo.git] / m_config.c
blob6214a5635c2f062a2c60acc73cb58492a1705aef
1 /*
2 * This file is part of MPlayer.
4 * MPlayer is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * MPlayer is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License along
15 * with MPlayer; if not, write to the Free Software Foundation, Inc.,
16 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19 /// \file
20 /// \ingroup Config
22 #include "config.h"
24 #include <stdlib.h>
25 #include <stdio.h>
26 #include <errno.h>
27 #include <string.h>
28 #ifdef MP_DEBUG
29 #include <assert.h>
30 #endif
32 #include "m_config.h"
33 #include "m_option.h"
34 #include "mp_msg.h"
35 #include "help_mp.h"
37 #define MAX_PROFILE_DEPTH 20
39 static int
40 parse_profile(const m_option_t *opt, const char *name, const char *param, void *dst, int src);
42 static void
43 set_profile(const m_option_t *opt, void* dst, const void* src);
45 static int
46 show_profile(m_option_t *opt, char* name, char *param);
48 static void
49 m_config_add_option(m_config_t *config, const m_option_t *arg, const char* prefix);
51 static int
52 list_options(m_option_t *opt, char* name, char *param);
54 m_config_t*
55 m_config_new(void) {
56 m_config_t* config;
57 static int initialized = 0;
58 static m_option_type_t profile_opt_type;
59 static m_option_t ref_opts[] = {
60 { "profile", NULL, &profile_opt_type, CONF_NOSAVE, 0, 0, NULL },
61 { "show-profile", show_profile, CONF_TYPE_PRINT_FUNC, CONF_NOCFG, 0, 0, NULL },
62 { "list-options", list_options, CONF_TYPE_PRINT_FUNC, CONF_NOCFG, 0, 0, NULL },
63 { NULL, NULL, NULL, 0, 0, 0, NULL }
65 int i;
67 config = calloc(1,sizeof(m_config_t));
68 config->lvl = 1; // 0 Is the defaults
69 if(!initialized) {
70 initialized = 1;
71 profile_opt_type = m_option_type_string_list;
72 profile_opt_type.parse = parse_profile;
73 profile_opt_type.set = set_profile;
75 config->self_opts = malloc(sizeof(ref_opts));
76 memcpy(config->self_opts,ref_opts,sizeof(ref_opts));
77 for(i = 0 ; config->self_opts[i].name ; i++)
78 config->self_opts[i].priv = config;
79 m_config_register_options(config,config->self_opts);
81 return config;
84 void
85 m_config_free(m_config_t* config) {
86 m_config_option_t *i = config->opts, *ct;
87 m_config_save_slot_t *sl,*st;
88 m_profile_t *p,*pn;
89 int j;
91 #ifdef MP_DEBUG
92 assert(config != NULL);
93 #endif
95 while(i) {
96 if (i->flags & M_CFG_OPT_ALIAS)
97 sl = NULL;
98 else
99 sl = i->slots;
100 while(sl) {
101 m_option_free(i->opt,sl->data);
102 st = sl->prev;
103 free(sl);
104 sl = st;
106 if(i->name != i->opt->name)
107 free(i->name);
108 ct = i->next;
109 free(i);
110 i = ct;
112 for(p = config->profiles ; p ; p = pn) {
113 pn = p->next;
114 free(p->name);
115 if(p->desc) free(p->desc);
116 for(j = 0 ; j < p->num_opts ; j++) {
117 free(p->opts[2*j]);
118 if(p->opts[2*j+1]) free(p->opts[2*j+1]);
120 free(p->opts);
121 free(p);
123 free(config->self_opts);
124 free(config);
127 void
128 m_config_push(m_config_t* config) {
129 m_config_option_t *co;
130 m_config_save_slot_t *slot;
132 #ifdef MP_DEBUG
133 assert(config != NULL);
134 assert(config->lvl > 0);
135 #endif
137 config->lvl++;
139 for(co = config->opts ; co ; co = co->next ) {
140 if(co->opt->type->flags & M_OPT_TYPE_HAS_CHILD)
141 continue;
142 if(co->opt->flags & (M_OPT_GLOBAL|M_OPT_NOSAVE))
143 continue;
144 if((co->opt->flags & M_OPT_OLD) && !(co->flags & M_CFG_OPT_SET))
145 continue;
146 if(co->flags & M_CFG_OPT_ALIAS)
147 continue;
149 // Update the current status
150 m_option_save(co->opt,co->slots->data,co->opt->p);
152 // Allocate a new slot
153 slot = calloc(1,sizeof(m_config_save_slot_t) + co->opt->type->size);
154 slot->lvl = config->lvl;
155 slot->prev = co->slots;
156 co->slots = slot;
157 m_option_copy(co->opt,co->slots->data,co->slots->prev->data);
158 // Reset our set flag
159 co->flags &= ~M_CFG_OPT_SET;
162 mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Config pushed level is now %d\n",config->lvl);
165 void
166 m_config_pop(m_config_t* config) {
167 m_config_option_t *co;
168 m_config_save_slot_t *slot;
170 #ifdef MP_DEBUG
171 assert(config != NULL);
172 assert(config->lvl > 1);
173 #endif
175 for(co = config->opts ; co ; co = co->next ) {
176 int pop = 0;
177 if(co->opt->type->flags & M_OPT_TYPE_HAS_CHILD)
178 continue;
179 if(co->opt->flags & (M_OPT_GLOBAL|M_OPT_NOSAVE))
180 continue;
181 if(co->flags & M_CFG_OPT_ALIAS)
182 continue;
183 if(co->slots->lvl > config->lvl)
184 mp_msg(MSGT_CFGPARSER, MSGL_WARN,MSGTR_SaveSlotTooOld,config->lvl,co->slots->lvl);
186 while(co->slots->lvl >= config->lvl) {
187 m_option_free(co->opt,co->slots->data);
188 slot = co->slots;
189 co->slots = slot->prev;
190 free(slot);
191 pop++;
193 if(pop) // We removed some ctx -> set the previous value
194 m_option_set(co->opt,co->opt->p,co->slots->data);
197 config->lvl--;
198 mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Config poped level=%d\n",config->lvl);
201 static void
202 m_config_add_option(m_config_t *config, const m_option_t *arg, const char* prefix) {
203 m_config_option_t *co;
204 m_config_save_slot_t* sl;
206 #ifdef MP_DEBUG
207 assert(config != NULL);
208 assert(config->lvl > 0);
209 assert(arg != NULL);
210 #endif
212 // Allocate a new entry for this option
213 co = calloc(1,sizeof(m_config_option_t) + arg->type->size);
214 co->opt = arg;
216 // Fill in the full name
217 if(prefix && strlen(prefix) > 0) {
218 int l = strlen(prefix) + 1 + strlen(arg->name) + 1;
219 co->name = malloc(l);
220 sprintf(co->name,"%s:%s",prefix,arg->name);
221 } else
222 co->name = arg->name;
224 // Option with children -> add them
225 if(arg->type->flags & M_OPT_TYPE_HAS_CHILD) {
226 const m_option_t *ol = arg->p;
227 int i;
228 co->slots = NULL;
229 for(i = 0 ; ol[i].name != NULL ; i++)
230 m_config_add_option(config,&ol[i], co->name);
231 } else {
232 m_config_option_t *i;
233 // Check if there is already an option pointing to this address
234 if(arg->p) {
235 for(i = config->opts ; i ; i = i->next ) {
236 if(i->opt->p == arg->p) { // So we don't save the same vars more than 1 time
237 co->slots = i->slots;
238 co->flags |= M_CFG_OPT_ALIAS;
239 break;
243 if(!(co->flags & M_CFG_OPT_ALIAS)) {
244 // Allocate a slot for the defaults
245 sl = calloc(1,sizeof(m_config_save_slot_t) + arg->type->size);
246 m_option_save(arg,sl->data,(void**)arg->p);
247 // Hack to avoid too much trouble with dynamically allocated data :
248 // We always use a dynamic version
249 if((arg->type->flags & M_OPT_TYPE_DYNAMIC) && arg->p && (*(void**)arg->p)) {
250 *(void**)arg->p = NULL;
251 m_option_set(arg,arg->p,sl->data);
253 sl->lvl = 0;
254 sl->prev = NULL;
255 co->slots = calloc(1,sizeof(m_config_save_slot_t) + arg->type->size);
256 co->slots->prev = sl;
257 co->slots->lvl = config->lvl;
258 m_option_copy(co->opt,co->slots->data,sl->data);
259 } // !M_OPT_ALIAS
261 co->next = config->opts;
262 config->opts = co;
266 m_config_register_options(m_config_t *config, const m_option_t *args) {
267 int i;
269 #ifdef MP_DEBUG
270 assert(config != NULL);
271 assert(config->lvl > 0);
272 assert(args != NULL);
273 #endif
275 for(i = 0 ; args[i].name != NULL ; i++)
276 m_config_add_option(config,&args[i],NULL);
278 return 1;
281 static m_config_option_t*
282 m_config_get_co(m_config_t *config, char* arg) {
283 m_config_option_t *co;
285 for(co = config->opts ; co ; co = co->next ) {
286 int l = strlen(co->name) - 1;
287 if((co->opt->type->flags & M_OPT_TYPE_ALLOW_WILDCARD) &&
288 (co->name[l] == '*')) {
289 if(strncasecmp(co->name,arg,l) == 0)
290 return co;
291 } else if(strcasecmp(co->name,arg) == 0)
292 return co;
294 return NULL;
297 static int
298 m_config_parse_option(m_config_t *config, char* arg, char* param,int set) {
299 m_config_option_t *co;
300 int r = 0;
302 #ifdef MP_DEBUG
303 assert(config != NULL);
304 assert(config->lvl > 0);
305 assert(arg != NULL);
306 #endif
308 co = m_config_get_co(config,arg);
309 if(!co){
310 // mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Unknown option: %s\n",arg);
311 return M_OPT_UNKNOWN;
314 #ifdef MP_DEBUG
315 // This is the only mandatory function
316 assert(co->opt->type->parse);
317 #endif
319 // Check if this option isn't forbidden in the current mode
320 if((config->mode == M_CONFIG_FILE) && (co->opt->flags & M_OPT_NOCFG)) {
321 mp_msg(MSGT_CFGPARSER, MSGL_ERR,MSGTR_InvalidCfgfileOption,arg);
322 return M_OPT_INVALID;
324 if((config->mode == M_COMMAND_LINE) && (co->opt->flags & M_OPT_NOCMD)) {
325 mp_msg(MSGT_CFGPARSER, MSGL_ERR,MSGTR_InvalidCmdlineOption,arg);
326 return M_OPT_INVALID;
328 // During command line preparse set only pre-parse options
329 // Otherwise only set pre-parse option if they were not already set.
330 if(((config->mode == M_COMMAND_LINE_PRE_PARSE) &&
331 !(co->opt->flags & M_OPT_PRE_PARSE)) ||
332 ((config->mode != M_COMMAND_LINE_PRE_PARSE) &&
333 (co->opt->flags & M_OPT_PRE_PARSE) && (co->flags & M_CFG_OPT_SET)))
334 set = 0;
336 // Option with children are a bit different to parse
337 if(co->opt->type->flags & M_OPT_TYPE_HAS_CHILD) {
338 char** lst = NULL;
339 int i,sr;
340 // Parse the child options
341 r = m_option_parse(co->opt,arg,param,&lst,M_COMMAND_LINE);
342 // Set them now
343 if(r >= 0)
344 for(i = 0 ; lst && lst[2*i] ; i++) {
345 int l = strlen(co->name) + 1 + strlen(lst[2*i]) + 1;
346 if(r >= 0) {
347 // Build the full name
348 char n[l];
349 sprintf(n,"%s:%s",co->name,lst[2*i]);
350 sr = m_config_parse_option(config,n,lst[2*i+1],set);
351 if(sr < 0){
352 if(sr == M_OPT_UNKNOWN){
353 mp_msg(MSGT_CFGPARSER, MSGL_ERR,MSGTR_InvalidSuboption,co->name,lst[2*i]);
354 r = M_OPT_INVALID;
355 } else
356 if(sr == M_OPT_MISSING_PARAM){
357 mp_msg(MSGT_CFGPARSER, MSGL_ERR,MSGTR_MissingSuboptionParameter,lst[2*i],co->name);
358 r = M_OPT_INVALID;
359 } else
360 r = sr;
363 free(lst[2*i]);
364 free(lst[2*i+1]);
366 if(lst) free(lst);
367 } else
368 r = m_option_parse(co->opt,arg,param,set ? co->slots->data : NULL,config->mode);
370 // Parsing failed ?
371 if(r < 0)
372 return r;
373 // Set the option
374 if(set) {
375 m_option_set(co->opt,co->opt->p,co->slots->data);
376 co->flags |= M_CFG_OPT_SET;
379 return r;
383 m_config_set_option(m_config_t *config, char* arg, char* param) {
384 mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Setting %s=%s\n",arg,param);
385 return m_config_parse_option(config,arg,param,1);
389 m_config_check_option(m_config_t *config, char* arg, char* param) {
390 int r;
391 mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Checking %s=%s\n",arg,param);
392 r=m_config_parse_option(config,arg,param,0);
393 if(r==M_OPT_MISSING_PARAM){
394 mp_msg(MSGT_CFGPARSER, MSGL_ERR,MSGTR_MissingOptionParameter,arg);
395 return M_OPT_INVALID;
397 return r;
401 const m_option_t*
402 m_config_get_option(m_config_t *config, char* arg) {
403 m_config_option_t *co;
405 #ifdef MP_DEBUG
406 assert(config != NULL);
407 assert(config->lvl > 0);
408 assert(arg != NULL);
409 #endif
411 co = m_config_get_co(config,arg);
412 if(co)
413 return co->opt;
414 else
415 return NULL;
419 void
420 m_config_print_option_list(m_config_t *config) {
421 char min[50],max[50];
422 m_config_option_t* co;
423 int count = 0;
425 if(!config->opts) return;
427 mp_msg(MSGT_CFGPARSER, MSGL_INFO, MSGTR_OptionListHeader);
428 for(co = config->opts ; co ; co = co->next) {
429 const m_option_t* opt = co->opt;
430 if(opt->type->flags & M_OPT_TYPE_HAS_CHILD) continue;
431 if(opt->flags & M_OPT_MIN)
432 sprintf(min,"%-8.0f",opt->min);
433 else
434 strcpy(min,"No");
435 if(opt->flags & M_OPT_MAX)
436 sprintf(max,"%-8.0f",opt->max);
437 else
438 strcpy(max,"No");
439 mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %-20.20s %-15.15s %-10.10s %-10.10s %-3.3s %-3.3s %-3.3s\n",
440 co->name,
441 co->opt->type->name,
442 min,
443 max,
444 opt->flags & CONF_GLOBAL ? "Yes" : "No",
445 opt->flags & CONF_NOCMD ? "No" : "Yes",
446 opt->flags & CONF_NOCFG ? "No" : "Yes");
447 count++;
449 mp_msg(MSGT_CFGPARSER, MSGL_INFO, MSGTR_TotalOptions,count);
452 m_profile_t*
453 m_config_get_profile(m_config_t* config, char* name) {
454 m_profile_t* p;
455 for(p = config->profiles ; p ; p = p->next)
456 if(!strcmp(p->name,name)) return p;
457 return NULL;
460 m_profile_t*
461 m_config_add_profile(m_config_t* config, char* name) {
462 m_profile_t* p = m_config_get_profile(config,name);
463 if(p) return p;
464 p = calloc(1,sizeof(m_profile_t));
465 p->name = strdup(name);
466 p->next = config->profiles;
467 config->profiles = p;
468 return p;
471 void
472 m_profile_set_desc(m_profile_t* p, char* desc) {
473 if(p->desc) free(p->desc);
474 p->desc = desc ? strdup(desc) : NULL;
478 m_config_set_profile_option(m_config_t* config, m_profile_t* p,
479 char* name, char* val) {
480 int i = m_config_check_option(config,name,val);
481 if(i < 0) return i;
482 if(p->opts) p->opts = realloc(p->opts,2*(p->num_opts+2)*sizeof(char*));
483 else p->opts = malloc(2*(p->num_opts+2)*sizeof(char*));
484 p->opts[p->num_opts*2] = strdup(name);
485 p->opts[p->num_opts*2+1] = val ? strdup(val) : NULL;
486 p->num_opts++;
487 p->opts[p->num_opts*2] = p->opts[p->num_opts*2+1] = NULL;
488 return 1;
491 void
492 m_config_set_profile(m_config_t* config, m_profile_t* p) {
493 int i;
494 if(config->profile_depth > MAX_PROFILE_DEPTH) {
495 mp_msg(MSGT_CFGPARSER, MSGL_WARN, MSGTR_ProfileInclusionTooDeep);
496 return;
498 config->profile_depth++;
499 for(i = 0 ; i < p->num_opts ; i++)
500 m_config_set_option(config,p->opts[2*i],p->opts[2*i+1]);
501 config->profile_depth--;
504 static int
505 parse_profile(const m_option_t *opt, const char *name, const char *param, void *dst, int src)
507 m_config_t* config = opt->priv;
508 char** list = NULL;
509 int i,r;
510 if(param && !strcmp(param,"help")) {
511 m_profile_t* p;
512 if(!config->profiles) {
513 mp_msg(MSGT_CFGPARSER, MSGL_INFO, MSGTR_NoProfileDefined);
514 return M_OPT_EXIT-1;
516 mp_msg(MSGT_CFGPARSER, MSGL_INFO, MSGTR_AvailableProfiles);
517 for(p = config->profiles ; p ; p = p->next)
518 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\t%s\t%s\n",p->name,
519 p->desc ? p->desc : "");
520 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
521 return M_OPT_EXIT-1;
524 r = m_option_type_string_list.parse(opt,name,param,&list,src);
525 if(r < 0) return r;
526 if(!list || !list[0]) return M_OPT_INVALID;
527 for(i = 0 ; list[i] ; i++)
528 if(!m_config_get_profile(config,list[i])) {
529 mp_msg(MSGT_CFGPARSER, MSGL_WARN, MSGTR_UnknownProfile,
530 list[i]);
531 r = M_OPT_INVALID;
533 if(dst)
534 m_option_copy(opt,dst,&list);
535 else
536 m_option_free(opt,&list);
537 return r;
540 static void
541 set_profile(const m_option_t *opt, void *dst, const void *src) {
542 m_config_t* config = opt->priv;
543 m_profile_t* p;
544 char** list = NULL;
545 int i;
546 if(!src || !*(char***)src) return;
547 m_option_copy(opt,&list,src);
548 for(i = 0 ; list[i] ; i++) {
549 p = m_config_get_profile(config,list[i]);
550 if(!p) continue;
551 m_config_set_profile(config,p);
553 m_option_free(opt,&list);
556 static int
557 show_profile(m_option_t *opt, char* name, char *param) {
558 m_config_t* config = opt->priv;
559 m_profile_t* p;
560 int i,j;
561 if(!param) return M_OPT_MISSING_PARAM;
562 if(!(p = m_config_get_profile(config,param))) {
563 mp_msg(MSGT_CFGPARSER, MSGL_ERR, MSGTR_UnknownProfile, param);
564 return M_OPT_EXIT-1;
566 if(!config->profile_depth)
567 mp_msg(MSGT_CFGPARSER, MSGL_INFO, MSGTR_Profile, param,
568 p->desc ? p->desc : "");
569 config->profile_depth++;
570 for(i = 0 ; i < p->num_opts ; i++) {
571 char spc[config->profile_depth+1];
572 for(j = 0 ; j < config->profile_depth ; j++)
573 spc[j] = ' ';
574 spc[config->profile_depth] = '\0';
576 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s%s=%s\n", spc,
577 p->opts[2*i], p->opts[2*i+1]);
580 if(config->profile_depth < MAX_PROFILE_DEPTH &&
581 !strcmp(p->opts[2*i],"profile")) {
582 char* e,*list = p->opts[2*i+1];
583 while((e = strchr(list,','))) {
584 int l = e-list;
585 char tmp[l+1];
586 if(!l) continue;
587 memcpy(tmp,list,l);
588 tmp[l] = '\0';
589 show_profile(opt,name,tmp);
590 list = e+1;
592 if(list[0] != '\0')
593 show_profile(opt,name,list);
596 config->profile_depth--;
597 if(!config->profile_depth) mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
598 return M_OPT_EXIT-1;
601 static int
602 list_options(m_option_t *opt, char* name, char *param) {
603 m_config_t* config = opt->priv;
604 m_config_print_option_list(config);
605 return M_OPT_EXIT;