m_config.c

   1 #include "config.h"
   2
   3 #include <stdlib.h>
   4 #include <stdio.h>
   5 #include <errno.h>
   6 #include <string.h>
   7 #ifdef MP_DEBUG
   8 #include <assert.h>
   9 #endif
  10
  11 #include "m_config.h"
  12 #include "m_option.h"
  13 #include "mp_msg.h"
  14
  15 m_config_t*
  16 m_config_new(void) {
  17   m_config_t* config;
  18
  19   config = (m_config_t*)calloc(1,sizeof(m_config_t));
  20   config->lvl = 1; // 0 Is the defaults
  21   return config;
  22 }
  23
  24 void
  25 m_config_free(m_config_t* config) {
  26   m_config_option_t *i = config->opts, *ct;
  27   m_config_save_slot_t *sl,*st;
  28
  29 #ifdef MP_DEBUG
  30   assert(config != NULL);
  31 #endif
  32
  33   while(i) {
  34     sl = i->slots;
  35     while(sl) {
  36       m_option_free(i->opt,sl->data);
  37       st = sl->prev;
  38       free(sl);
  39       sl = st;
  40     }
  41     if(i->name != i->opt->name)
  42       free(i->name);
  43     ct = i->next;
  44     free(i);
  45     ct = i;
  46   }
  47   free(config);
  48 }
  49
  50 void
  51 m_config_push(m_config_t* config) {
  52   m_config_option_t *co;
  53   m_config_save_slot_t *slot;
  54
  55 #ifdef MP_DEBUG
  56   assert(config != NULL);
  57   assert(config->lvl > 0);
  58 #endif
  59
  60   config->lvl++;
  61
  62   for(co = config->opts ; co ; co = co->next ) {
  63     if(co->opt->type->flags & M_OPT_TYPE_HAS_CHILD)
  64       continue;
  65     if(co->opt->flags & (M_OPT_GLOBAL|M_OPT_NOSAVE))
  66       continue;
  67     if((co->opt->flags & M_OPT_OLD) && !(co->flags && M_CFG_OPT_SET))
  68       continue;
  69     if(co->flags & M_CFG_OPT_ALIAS)
  70       continue;
  71
  72     // Update the current status
  73     m_option_save(co->opt,co->slots->data,co->opt->p);
  74
  75     // Allocate a new slot
  76     slot = (m_config_save_slot_t*)calloc(1,sizeof(m_config_save_slot_t) + co->opt->type->size);
  77     slot->lvl = config->lvl;
  78     slot->prev = co->slots;
  79     co->slots = slot;
  80     m_option_copy(co->opt,co->slots->data,co->slots->prev->data);
  81     // Reset our set flag
  82     co->flags &= ~M_CFG_OPT_SET;
  83   }
  84
  85   mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Config pushed level is now %d\n",config->lvl);
  86 }
  87
  88 void
  89 m_config_pop(m_config_t* config) {
  90   m_config_option_t *co;
  91   m_config_save_slot_t *slot;
  92
  93 #ifdef MP_DEBUG
  94   assert(config != NULL);
  95   assert(config->lvl > 1);
  96 #endif
  97
  98   for(co = config->opts ; co ; co = co->next ) {
  99     int pop = 0;
 100     if(co->opt->type->flags & M_OPT_TYPE_HAS_CHILD)
 101       continue;
 102     if(co->opt->flags & (M_OPT_GLOBAL|M_OPT_NOSAVE))
 103       continue;
 104     if(co->flags & M_CFG_OPT_ALIAS)
 105       continue;
 106     if(co->slots->lvl > config->lvl)
 107       mp_msg(MSGT_CFGPARSER, MSGL_WARN,"Too old save slot found from lvl %d : %d !!!\n",config->lvl,co->slots->lvl);
 108
 109     while(co->slots->lvl >= config->lvl) {
 110       m_option_free(co->opt,co->slots->data);
 111       slot = co->slots;
 112       co->slots = slot->prev;
 113       free(slot);
 114       pop++;
 115     }
 116     if(pop) // We removed some ctx -> set the previous value
 117       m_option_set(co->opt,co->opt->p,co->slots->data);
 118   }
 119
 120   config->lvl--;
 121   mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Config poped level=%d\n",config->lvl);
 122 }
 123
 124 static void
 125 m_config_add_option(m_config_t *config, m_option_t *arg, char* prefix) {
 126   m_config_option_t *co;
 127   m_config_save_slot_t* sl;
 128
 129 #ifdef MP_DEBUG
 130   assert(config != NULL);
 131   assert(config->lvl > 0);
 132   assert(arg != NULL);
 133 #endif
 134
 135   // Allocate a new entry for this option
 136   co = (m_config_option_t*)calloc(1,sizeof(m_config_option_t) + arg->type->size);
 137   co->opt = arg;
 138
 139   // Fill in the full name
 140   if(prefix && strlen(prefix) > 0) {
 141     int l = strlen(prefix) + 1 + strlen(arg->name) + 1;
 142     co->name = (char*) malloc(l);
 143     sprintf(co->name,"%s:%s",prefix,arg->name);
 144   } else
 145     co->name = arg->name;
 146
 147   // Option with childs -> add them
 148   if(arg->type->flags & M_OPT_TYPE_HAS_CHILD) {
 149     m_option_t *ol = arg->p;
 150     int i;
 151     for(i = 0 ; ol[i].name != NULL ; i++)
 152       m_config_add_option(config,&ol[i], co->name);
 153   } else {
 154     m_config_option_t *i;
 155     // Check if there is alredy an option pointing to this address
 156     if(arg->p) {
 157       for(i = config->opts ; i ; i = i->next ) {
 158         if(i->opt->p == arg->p) { // So we don't save the same vars more than 1 time
 159           co->slots = i->slots;
 160           co->flags |= M_CFG_OPT_ALIAS;
 161           break;
 162         }
 163       }
 164     }
 165     if(!(co->flags & M_CFG_OPT_ALIAS)) {
 166     // Allocate a slot for the defaults
 167     sl = (m_config_save_slot_t*)calloc(1,sizeof(m_config_save_slot_t) + arg->type->size);
 168     m_option_save(arg,sl->data,(void**)arg->p);
 169     // Hack to avoid too much trouble with dynamicly allocated data :
 170     // We always use a dynamic version
 171     if((arg->type->flags & M_OPT_TYPE_DYNAMIC) && arg->p && (*(void**)arg->p)) {
 172       *(void**)arg->p = NULL;
 173       m_option_set(arg,arg->p,sl->data);
 174     }
 175     sl->lvl = 0;
 176     co->slots = (m_config_save_slot_t*)calloc(1,sizeof(m_config_save_slot_t) + arg->type->size);
 177     co->slots->prev = sl;
 178     co->slots->lvl = config->lvl;
 179     m_option_copy(co->opt,co->slots->data,sl->data);
 180     } // !M_OPT_ALIAS
 181   }
 182   co->next = config->opts;
 183   config->opts = co;
 184 }
 185
 186 int
 187 m_config_register_options(m_config_t *config, m_option_t *args) {
 188   int i;
 189
 190 #ifdef MP_DEBUG
 191   assert(config != NULL);
 192   assert(config->lvl > 0);
 193   assert(args != NULL);
 194 #endif
 195
 196   for(i = 0 ; args[i].name != NULL ; i++)
 197     m_config_add_option(config,&args[i],NULL);
 198
 199   return 1;
 200 }
 201
 202 static m_config_option_t*
 203 m_config_get_co(m_config_t *config, char* arg) {
 204   m_config_option_t *co;
 205
 206   for(co = config->opts ; co ; co = co->next ) {
 207     int l = strlen(co->name) - 1;
 208     if((co->opt->type->flags & M_OPT_TYPE_ALLOW_WILDCARD) &&
 209        (co->name[l] == '*')) {
 210       if(strncasecmp(co->name,arg,l) == 0)
 211         return co;
 212     } else if(strcasecmp(co->name,arg) == 0)
 213       return co;
 214   }
 215   return NULL;
 216 }
 217
 218 static int
 219 m_config_parse_option(m_config_t *config, char* arg, char* param,int set) {
 220   m_config_option_t *co;
 221   int r = 0;
 222
 223 #ifdef MP_DEBUG
 224   assert(config != NULL);
 225   assert(config->lvl > 0);
 226   assert(arg != NULL);
 227 #endif
 228
 229   co = m_config_get_co(config,arg);
 230   if(!co){
 231 //    mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Unknown option: %s\n",arg);
 232     return M_OPT_UNKNOWN;
 233   }
 234
 235 #ifdef MP_DEBUG
 236   // This is the only mandatory function
 237   assert(co->opt->type->parse);
 238 #endif
 239
 240   // Check if this option isn't forbiden in the current mode
 241   if((config->mode == M_CONFIG_FILE) && (co->opt->flags & M_OPT_NOCFG)) {
 242     mp_msg(MSGT_CFGPARSER, MSGL_ERR,"The %s option can't be used in a config file\n",arg);
 243     return M_OPT_INVALID;
 244   }
 245   if((config->mode == M_COMMAND_LINE) && (co->opt->flags & M_OPT_NOCMD)) {
 246     mp_msg(MSGT_CFGPARSER, MSGL_ERR,"The %s option can't be used on the command line\n",arg);
 247     return M_OPT_INVALID;
 248   }
 249
 250   // Option with childs are a bit different to parse
 251   if(co->opt->type->flags & M_OPT_TYPE_HAS_CHILD) {
 252     char** lst = NULL;
 253     int i,sr;
 254     // Parse the child options
 255     r = m_option_parse(co->opt,arg,param,&lst,M_COMMAND_LINE);
 256     // Set them now
 257     if(r >= 0)
 258     for(i = 0 ; lst && lst[2*i] ; i++) {
 259       int l = strlen(co->name) + 1 + strlen(lst[2*i]) + 1;
 260       if(r >= 0) {
 261         // Build the full name
 262         char n[l];
 263         sprintf(n,"%s:%s",co->name,lst[2*i]);
 264         sr = m_config_parse_option(config,n,lst[2*i+1],set);
 265         if(sr < 0){
 266           if(sr == M_OPT_UNKNOWN){
 267             mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Error: option '%s' has no suboption '%s'\n",co->name,lst[2*i]);
 268             r = M_OPT_INVALID;
 269           } else
 270           if(sr == M_OPT_MISSING_PARAM){
 271             mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Error: suboption '%s' of '%s' must have a parameter!\n",lst[2*i],co->name);
 272             r = M_OPT_INVALID;
 273           } else
 274             r = sr;
 275         }
 276       }
 277       free(lst[2*i]);
 278       free(lst[2*i+1]);
 279     }
 280     if(lst) free(lst);
 281   } else
 282     r = m_option_parse(co->opt,arg,param,set ? co->slots->data : NULL,config->mode);
 283
 284   // Parsing failed ?
 285   if(r < 0)
 286     return r;
 287   // Set the option
 288   if(set) {
 289     m_option_set(co->opt,co->opt->p,co->slots->data);
 290     co->flags |= M_CFG_OPT_SET;
 291   }
 292
 293   return r;
 294 }
 295
 296 int
 297 m_config_set_option(m_config_t *config, char* arg, char* param) {
 298   mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Setting %s=%s\n",arg,param);
 299   return m_config_parse_option(config,arg,param,1);
 300 }
 301
 302 int
 303 m_config_check_option(m_config_t *config, char* arg, char* param) {
 304   int r;
 305   mp_msg(MSGT_CFGPARSER, MSGL_DBG2,"Checking %s=%s\n",arg,param);
 306   r=m_config_parse_option(config,arg,param,0);
 307   if(r==M_OPT_MISSING_PARAM){
 308     mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Error: option '%s' must have a parameter!\n",arg);
 309     return M_OPT_INVALID;
 310   }
 311   return r;
 312 }
 313
 314
 315 m_option_t*
 316 m_config_get_option(m_config_t *config, char* arg) {
 317   m_config_option_t *co;
 318
 319 #ifdef MP_DEBUG
 320   assert(config != NULL);
 321   assert(config->lvl > 0);
 322   assert(arg != NULL);
 323 #endif
 324
 325   co = m_config_get_co(config,arg);
 326   if(co)
 327     return co->opt;
 328   else
 329     return NULL;
 330 }
 331
 332 void*
 333 m_config_get_option_ptr(m_config_t *config, char* arg) {
 334   m_option_t* conf;
 335
 336 #ifdef MP_DEBUG
 337   assert(config != NULL);
 338   assert(arg != NULL);
 339 #endif
 340
 341   conf = m_config_get_option(config,arg);
 342   if(!conf) return NULL;
 343   return conf->p;
 344 }
 345
 346 void
 347 m_config_print_option_list(m_config_t *config) {
 348   char min[50],max[50];
 349   m_config_option_t* co;
 350   int count = 0;
 351
 352   if(!config->opts) return;
 353
 354   printf("\n Name                 Type            Min        Max      Global  CL    Cfg\n\n");
 355   for(co = config->opts ; co ; co = co->next) {
 356     m_option_t* opt = co->opt;
 357     if(opt->type->flags & M_OPT_TYPE_HAS_CHILD) continue;
 358     if(opt->flags & M_OPT_MIN)
 359       sprintf(min,"%-8.0f",opt->min);
 360     else
 361       strcpy(min,"No");
 362     if(opt->flags & M_OPT_MAX)
 363       sprintf(max,"%-8.0f",opt->max);
 364     else
 365       strcpy(max,"No");
 366     printf(" %-20.20s %-15.15s %-10.10s %-10.10s %-3.3s   %-3.3s   %-3.3s\n",
 367            co->name,
 368            co->opt->type->name,
 369            min,
 370            max,
 371            opt->flags & CONF_GLOBAL ? "Yes" : "No",
 372            opt->flags & CONF_NOCMD ? "No" : "Yes",
 373            opt->flags & CONF_NOCFG ? "No" : "Yes");
 374     count++;
 375   }
 376   printf("\nTotal: %d options\n",count);
 377 }