m_config.c

   1 /*
   2  * This file is part of MPlayer.
   3  *
   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.
   8  *
   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.
  13  *
  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.
  17  */
  18
  19 /// \file
  20 /// \ingroup Config
  21
  22 #include "config.h"
  23
  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
  31
  32 #include "m_config.h"
  33 #include "m_option.h"
  34 #include "mp_msg.h"
  35 #include "help_mp.h"
  36
  37 #define MAX_PROFILE_DEPTH 20
  38
  39 static int
  40 parse_profile(const m_option_t *opt, const char *name, const char *param, void *dst, int src);
  41
  42 static void
  43 set_profile(const m_option_t *opt, void* dst, const void* src);
  44
  45 static int
  46 show_profile(m_option_t *opt, char* name, char *param);
  47
  48 static void
  49 m_config_add_option(m_config_t *config, const m_option_t *arg, const char* prefix);
  50
  51 static int
  52 list_options(m_option_t *opt, char* name, char *param);
  53
  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 }
  64   };
  65   int i;
  66
  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;
  74   }
  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);
  80
  81   return config;
  82 }
  83
  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;
  90
  91 #ifdef MP_DEBUG
  92   assert(config != NULL);
  93 #endif
  94
  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;
 105     }
 106     if(i->name != i->opt->name)
 107       free(i->name);
 108     ct = i->next;
 109     free(i);
 110     i = ct;
 111   }
 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]);
 119     }
 120     free(p->opts);
 121     free(p);
 122   }
 123   free(config->self_opts);
 124   free(config);
 125 }
 126
 127 void
 128 m_config_push(m_config_t* config) {
 129   m_config_option_t *co;
 130   m_config_save_slot_t *slot;
 131
 132 #ifdef MP_DEBUG
 133   assert(config != NULL);
 134   assert(config->lvl > 0);
 135 #endif
 136
 137   config->lvl++;
 138
 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;
 148
 149     // Update the current status
 150     m_option_save(co->opt,co->slots->data,co->opt->p);
 151
 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;
 160   }
 161
 162   mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Config pushed level is now %d\n",config->lvl);
 163 }
 164
 165 void
 166 m_config_pop(m_config_t* config) {
 167   m_config_option_t *co;
 168   m_config_save_slot_t *slot;
 169
 170 #ifdef MP_DEBUG
 171   assert(config != NULL);
 172   assert(config->lvl > 1);
 173 #endif
 174
 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);
 185
 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++;
 192     }
 193     if(pop) // We removed some ctx -> set the previous value
 194       m_option_set(co->opt,co->opt->p,co->slots->data);
 195   }
 196
 197   config->lvl--;
 198   mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Config poped level=%d\n",config->lvl);
 199 }
 200
 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;
 205
 206 #ifdef MP_DEBUG
 207   assert(config != NULL);
 208   assert(config->lvl > 0);
 209   assert(arg != NULL);
 210 #endif
 211
 212   // Allocate a new entry for this option
 213   co = calloc(1,sizeof(m_config_option_t) + arg->type->size);
 214   co->opt = arg;
 215
 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;
 223
 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;
 240         }
 241       }
 242     }
 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);
 252     }
 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
 260   }
 261   co->next = config->opts;
 262   config->opts = co;
 263 }
 264
 265 int
 266 m_config_register_options(m_config_t *config, const m_option_t *args) {
 267   int i;
 268
 269 #ifdef MP_DEBUG
 270   assert(config != NULL);
 271   assert(config->lvl > 0);
 272   assert(args != NULL);
 273 #endif
 274
 275   for(i = 0 ; args[i].name != NULL ; i++)
 276     m_config_add_option(config,&args[i],NULL);
 277
 278   return 1;
 279 }
 280
 281 static m_config_option_t*
 282 m_config_get_co(m_config_t *config, char* arg) {
 283   m_config_option_t *co;
 284
 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;
 293   }
 294   return NULL;
 295 }
 296
 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;
 301
 302 #ifdef MP_DEBUG
 303   assert(config != NULL);
 304   assert(config->lvl > 0);
 305   assert(arg != NULL);
 306 #endif
 307
 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;
 312   }
 313
 314 #ifdef MP_DEBUG
 315   // This is the only mandatory function
 316   assert(co->opt->type->parse);
 317 #endif
 318
 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;
 323   }
 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;
 327   }
 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;
 335
 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;
 361         }
 362       }
 363       free(lst[2*i]);
 364       free(lst[2*i+1]);
 365     }
 366     if(lst) free(lst);
 367   } else
 368     r = m_option_parse(co->opt,arg,param,set ? co->slots->data : NULL,config->mode);
 369
 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;
 377   }
 378
 379   return r;
 380 }
 381
 382 int
 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);
 386 }
 387
 388 int
 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;
 396   }
 397   return r;
 398 }
 399
 400
 401 const m_option_t*
 402 m_config_get_option(m_config_t *config, char* arg) {
 403   m_config_option_t *co;
 404
 405 #ifdef MP_DEBUG
 406   assert(config != NULL);
 407   assert(config->lvl > 0);
 408   assert(arg != NULL);
 409 #endif
 410
 411   co = m_config_get_co(config,arg);
 412   if(co)
 413     return co->opt;
 414   else
 415     return NULL;
 416 }
 417
 418
 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;
 424
 425   if(!config->opts) return;
 426
 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++;
 448   }
 449   mp_msg(MSGT_CFGPARSER, MSGL_INFO, MSGTR_TotalOptions,count);
 450 }
 451
 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;
 458 }
 459
 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;
 469 }
 470
 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;
 475 }
 476
 477 int
 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;
 489 }
 490
 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;
 497   }
 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--;
 502 }
 503
 504 static int
 505 parse_profile(const m_option_t *opt, const char *name, const char *param, void *dst, int src)
 506 {
 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;
 515     }
 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;
 522   }
 523
 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;
 532     }
 533   if(dst)
 534     m_option_copy(opt,dst,&list);
 535   else
 536     m_option_free(opt,&list);
 537   return r;
 538 }
 539
 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);
 552   }
 553   m_option_free(opt,&list);
 554 }
 555
 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;
 565   }
 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';
 575
 576     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s%s=%s\n", spc,
 577            p->opts[2*i], p->opts[2*i+1]);
 578
 579
 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;
 591       }
 592       if(list[0] != '\0')
 593         show_profile(opt,name,list);
 594     }
 595   }
 596   config->profile_depth--;
 597   if(!config->profile_depth) mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
 598   return M_OPT_EXIT-1;
 599 }
 600
 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;
 606 }