m_option.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 Options
  21
  22 #include "config.h"
  23
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <math.h>
  27 #include <stdio.h>
  28 #include <stdarg.h>
  29 #include <inttypes.h>
  30 #include <unistd.h>
  31
  32 #include "m_option.h"
  33 //#include "m_config.h"
  34 #include "mp_msg.h"
  35 #include "stream/url.h"
  36 #include "libavutil/avstring.h"
  37
  38 // Don't free for 'production' atm
  39 #ifndef MP_DEBUG
  40 //#define NO_FREE
  41 #endif
  42
  43 const m_option_t* m_option_list_find(const m_option_t* list,const char* name) {
  44   int i;
  45
  46   for(i = 0 ; list[i].name ; i++) {
  47     int l = strlen(list[i].name) - 1;
  48     if((list[i].type->flags & M_OPT_TYPE_ALLOW_WILDCARD) &&
  49        (l > 0) && (list[i].name[l] == '*')) {
  50       if(strncasecmp(list[i].name,name,l) == 0)
  51         return &list[i];
  52     } else if(strcasecmp(list[i].name,name) == 0)
  53       return &list[i];
  54   }
  55   return NULL;
  56 }
  57
  58 // Default function that just does a memcpy
  59
  60 static void copy_opt(const m_option_t* opt,void* dst,const void* src) {
  61   if(dst && src)
  62     memcpy(dst,src,opt->type->size);
  63 }
  64
  65 // Helper for the print funcs (from man printf)
  66 static char* dup_printf(const char *fmt, ...) {
  67   /* Guess we need no more than 50 bytes. */
  68   int n, size = 50;
  69   char *p;
  70   va_list ap;
  71   if ((p = malloc (size)) == NULL)
  72     return NULL;
  73   while (1) {
  74     /* Try to print in the allocated space. */
  75     va_start(ap, fmt);
  76     n = vsnprintf (p, size, fmt, ap);
  77     va_end(ap);
  78     /* If that worked, return the string. */
  79     if (n > -1 && n < size)
  80       return p;
  81     /* Else try again with more space. */
  82     if (n > -1)    /* glibc 2.1 */
  83       size = n+1; /* precisely what is needed */
  84     else           /* glibc 2.0 */
  85       size *= 2;  /* twice the old size */
  86     if ((p = realloc (p, size)) == NULL)
  87       return NULL;
  88   }
  89 }
  90
  91
  92 // Flag
  93
  94 #define VAL(x) (*(int*)(x))
  95
  96 static int parse_flag(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
  97   if (src == M_CONFIG_FILE) {
  98     if(!param) return M_OPT_MISSING_PARAM;
  99     if (!strcasecmp(param, "yes") ||    /* any other language? */
 100         !strcasecmp(param, "on") ||
 101         !strcasecmp(param, "ja") ||
 102         !strcasecmp(param, "si") ||
 103         !strcasecmp(param, "igen") ||
 104         !strcasecmp(param, "y") ||
 105         !strcasecmp(param, "j") ||
 106         !strcasecmp(param, "i") ||
 107         !strcasecmp(param, "tak") ||
 108         !strcasecmp(param, "ja") ||
 109         !strcasecmp(param, "true") ||
 110         !strcmp(param, "1")) {
 111       if(dst) VAL(dst) = opt->max;
 112     } else if (!strcasecmp(param, "no") ||
 113                !strcasecmp(param, "off") ||
 114                !strcasecmp(param, "nein") ||
 115                !strcasecmp(param, "nicht") ||
 116                !strcasecmp(param, "nem") ||
 117                !strcasecmp(param, "n") ||
 118                !strcasecmp(param, "nie") ||
 119                !strcasecmp(param, "nej") ||
 120                !strcasecmp(param, "false") ||
 121                !strcmp(param, "0")) {
 122       if(dst) VAL(dst) = opt->min;
 123     } else {
 124       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid parameter for %s flag: %s\n",name, param);
 125       return M_OPT_INVALID;
 126     }
 127     return 1;
 128   } else {
 129     if(dst) VAL(dst) = opt->max;
 130     return 0;
 131   }
 132 }
 133
 134 static char* print_flag(const m_option_t* opt,  const void* val) {
 135   if(VAL(val) == opt->min)
 136     return strdup("no");
 137   else
 138     return strdup("yes");
 139 }
 140
 141 const m_option_type_t m_option_type_flag = {
 142   "Flag",
 143   "need yes or no in config files",
 144   sizeof(int),
 145   0,
 146   parse_flag,
 147   print_flag,
 148   copy_opt,
 149   copy_opt,
 150   NULL,
 151   NULL
 152 };
 153
 154 // Integer
 155
 156 static int parse_int(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 157   long long tmp_int;
 158   char *endptr;
 159   src = 0;
 160
 161   if (param == NULL)
 162     return M_OPT_MISSING_PARAM;
 163
 164   tmp_int = strtoll(param, &endptr, 10);
 165   if (*endptr)
 166     tmp_int = strtoll(param, &endptr, 0);
 167   if (*endptr) {
 168     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be an integer: %s\n",name, param);
 169     return M_OPT_INVALID;
 170   }
 171
 172   if ((opt->flags & M_OPT_MIN) && (tmp_int < opt->min)) {
 173     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be >= %d: %s\n", name, (int) opt->min, param);
 174     return M_OPT_OUT_OF_RANGE;
 175   }
 176
 177   if ((opt->flags & M_OPT_MAX) && (tmp_int > opt->max)) {
 178     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be <= %d: %s\n",name, (int) opt->max, param);
 179     return M_OPT_OUT_OF_RANGE;
 180   }
 181
 182   if(dst) {
 183     if (opt->type->size == sizeof(int64_t))
 184       *(int64_t *)dst = tmp_int;
 185     else
 186       VAL(dst) = tmp_int;
 187   }
 188
 189   return 1;
 190 }
 191
 192 static char* print_int(const m_option_t* opt,  const void* val) {
 193   if (opt->type->size == sizeof(int64_t))
 194     return dup_printf("%"PRId64, *(const int64_t *)val);
 195   return dup_printf("%d",VAL(val));
 196 }
 197
 198 const m_option_type_t m_option_type_int = {
 199   "Integer",
 200   "",
 201   sizeof(int),
 202   0,
 203   parse_int,
 204   print_int,
 205   copy_opt,
 206   copy_opt,
 207   NULL,
 208   NULL
 209 };
 210
 211 const m_option_type_t m_option_type_int64 = {
 212   "Integer64",
 213   "",
 214   sizeof(int64_t),
 215   0,
 216   parse_int,
 217   print_int,
 218   copy_opt,
 219   copy_opt,
 220   NULL,
 221   NULL
 222 };
 223
 224 static int parse_intpair(const struct m_option *opt, const char *name,
 225                          const char *param, void *dst, int src)
 226 {
 227     if (param == NULL)
 228         return M_OPT_MISSING_PARAM;
 229
 230     char *s = (char *)param;
 231     int start = -1;
 232     int end = -1;
 233     if (*s) {
 234         start = strtol(s, &s, 10);
 235         if (s == param)
 236             goto bad;
 237     }
 238     if (*s) {
 239         if (*s != '-')
 240             goto bad;
 241         s++;
 242     }
 243     if (*s)
 244         end = strtol(s, &s, 10);
 245     if (*s)
 246         goto bad;
 247
 248     if (dst) {
 249         int *p = dst;
 250         p[0] = start;
 251         p[1] = end;
 252     }
 253
 254     return 1;
 255
 256  bad:
 257     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid integer range "
 258            "specification for option %s: %s\n", name, param);
 259     return M_OPT_INVALID;
 260 }
 261
 262 const struct m_option_type m_option_type_intpair = {
 263     .name = "Int[-Int]",
 264     .size = sizeof(int[2]),
 265     .parse = parse_intpair,
 266     .save = copy_opt,
 267     .set = copy_opt,
 268 };
 269
 270 static int parse_choice(const struct m_option *opt, const char *name,
 271                         const char *param, void *dst, int src)
 272 {
 273     if (param == NULL)
 274         return M_OPT_MISSING_PARAM;
 275
 276     struct m_opt_choice_alternatives *alt;
 277     for (alt = opt->priv; alt->name; alt++)
 278         if (!strcmp(param, alt->name))
 279             break;
 280     if (!alt->name) {
 281         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid value for option %s: %s\n",
 282                name, param);
 283         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Valid values are:");
 284         for (alt = opt->priv; alt->name; alt++)
 285             mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s", alt->name);
 286         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
 287         return M_OPT_INVALID;
 288     }
 289     if (dst)
 290         *(int *)dst = alt->value;
 291
 292     return 1;
 293 }
 294
 295 static char *print_choice(const m_option_t *opt,  const void *val)
 296 {
 297     int v = *(int *)val;
 298     struct m_opt_choice_alternatives *alt;
 299     for (alt = opt->priv; alt->name; alt++)
 300         if (alt->value == v)
 301             return strdup(alt->name);
 302     abort();
 303 }
 304
 305 const struct m_option_type m_option_type_choice = {
 306     .name = "String",  // same as arbitrary strings in option list for now
 307     .size = sizeof(int),
 308     .parse = parse_choice,
 309     .print = print_choice,
 310     .save = copy_opt,
 311     .set = copy_opt,
 312 };
 313
 314 // Float
 315
 316 #undef VAL
 317 #define VAL(x) (*(double*)(x))
 318
 319 static int parse_double(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 320   double tmp_float;
 321   char* endptr;
 322   src = 0;
 323
 324   if (param == NULL)
 325     return M_OPT_MISSING_PARAM;
 326
 327   tmp_float = strtod(param, &endptr);
 328
 329   switch(*endptr) {
 330   case ':':
 331   case '/':
 332     tmp_float /= strtod(endptr+1, &endptr);
 333     break;
 334   case '.':
 335   case ',':
 336     /* we also handle floats specified with
 337      * non-locale decimal point ::atmos
 338      */
 339     if(tmp_float<0)
 340       tmp_float -= 1.0/pow(10,strlen(endptr+1)) * strtod(endptr+1, &endptr);
 341     else
 342       tmp_float += 1.0/pow(10,strlen(endptr+1)) * strtod(endptr+1, &endptr);
 343     break;
 344   }
 345
 346   if (*endptr) {
 347     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be a floating point "
 348            "number or a ratio (numerator[:/]denominator): %s\n",name, param);
 349     return M_OPT_INVALID;
 350   }
 351
 352   if (opt->flags & M_OPT_MIN)
 353     if (tmp_float < opt->min) {
 354       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be >= %f: %s\n", name, opt->min, param);
 355       return M_OPT_OUT_OF_RANGE;
 356     }
 357
 358   if (opt->flags & M_OPT_MAX)
 359     if (tmp_float > opt->max) {
 360       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be <= %f: %s\n", name, opt->max, param);
 361       return M_OPT_OUT_OF_RANGE;
 362     }
 363
 364   if(dst) VAL(dst) = tmp_float;
 365   return 1;
 366 }
 367
 368 static char* print_double(const m_option_t* opt,  const void* val) {
 369   opt = NULL;
 370   return dup_printf("%f",VAL(val));
 371 }
 372
 373 const m_option_type_t m_option_type_double = {
 374   "Double",
 375   "double precision floating point number or ratio (numerator[:/]denominator)",
 376   sizeof(double),
 377   0,
 378   parse_double,
 379   print_double,
 380   copy_opt,
 381   copy_opt,
 382   NULL,
 383   NULL
 384 };
 385
 386 #undef VAL
 387 #define VAL(x) (*(float*)(x))
 388
 389 static int parse_float(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 390     double tmp;
 391     int r= parse_double(opt, name, param, &tmp, src);
 392     if(r==1 && dst) VAL(dst) = tmp;
 393     return r;
 394 }
 395
 396 static char* print_float(const m_option_t* opt,  const void* val) {
 397   opt = NULL;
 398   return dup_printf("%f",VAL(val));
 399 }
 400
 401 const m_option_type_t m_option_type_float = {
 402   "Float",
 403   "floating point number or ratio (numerator[:/]denominator)",
 404   sizeof(float),
 405   0,
 406   parse_float,
 407   print_float,
 408   copy_opt,
 409   copy_opt,
 410   NULL,
 411   NULL
 412 };
 413
 414 ///////////// Position
 415 #undef VAL
 416 #define VAL(x) (*(off_t*)(x))
 417
 418 static int parse_position(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 419   off_t tmp_off;
 420   char dummy;
 421
 422   if (param == NULL)
 423     return M_OPT_MISSING_PARAM;
 424   if (sscanf(param, sizeof(off_t) == sizeof(int) ?
 425              "%d%c" : "%"PRId64"%c", &tmp_off, &dummy) != 1) {
 426     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be an integer: %s\n",opt->name,param);
 427     return M_OPT_INVALID;
 428   }
 429
 430   if (opt->flags & M_OPT_MIN)
 431     if (tmp_off < opt->min) {
 432       mp_msg(MSGT_CFGPARSER, MSGL_ERR,
 433               "The %s option must be >= %"PRId64": %s\n",
 434              name, (int64_t) opt->min, param);
 435       return M_OPT_OUT_OF_RANGE;
 436     }
 437
 438   if (opt->flags & M_OPT_MAX)
 439     if (tmp_off > opt->max) {
 440       mp_msg(MSGT_CFGPARSER, MSGL_ERR,
 441               "The %s option must be <= %"PRId64": %s\n",
 442              name, (int64_t) opt->max, param);
 443       return M_OPT_OUT_OF_RANGE;
 444     }
 445
 446   if(dst)
 447     VAL(dst) = tmp_off;
 448   return 1;
 449 }
 450
 451 static char* print_position(const m_option_t* opt,  const void* val) {
 452   return dup_printf("%"PRId64,(int64_t)VAL(val));
 453 }
 454
 455 const m_option_type_t m_option_type_position = {
 456   "Position",
 457   "Integer (off_t)",
 458   sizeof(off_t),
 459   0,
 460   parse_position,
 461   print_position,
 462   copy_opt,
 463   copy_opt,
 464   NULL,
 465   NULL
 466 };
 467
 468
 469 ///////////// String
 470
 471 #undef VAL
 472 #define VAL(x) (*(char**)(x))
 473
 474 static int parse_str(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 475
 476
 477   if (param == NULL)
 478       return M_OPT_MISSING_PARAM;
 479
 480   if ((opt->flags & M_OPT_MIN) && (strlen(param) < opt->min)) {
 481     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Parameter must be >= %d chars: %s\n",
 482            (int) opt->min, param);
 483     return M_OPT_OUT_OF_RANGE;
 484   }
 485
 486   if ((opt->flags & M_OPT_MAX) && (strlen(param) > opt->max)) {
 487     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Parameter must be <= %d chars: %s\n",
 488            (int) opt->max, param);
 489     return M_OPT_OUT_OF_RANGE;
 490   }
 491
 492   if(dst) {
 493     free(VAL(dst));
 494     VAL(dst) = strdup(param);
 495   }
 496
 497   return 1;
 498
 499 }
 500
 501 static char* print_str(const m_option_t* opt,  const void* val) {
 502   return (val && VAL(val) && strlen(VAL(val)) > 0) ? strdup(VAL(val)) : NULL;
 503 }
 504
 505 static void copy_str(const m_option_t* opt,void* dst, const void* src) {
 506   if(dst && src) {
 507 #ifndef NO_FREE
 508     free(VAL(dst)); //FIXME!!!
 509 #endif
 510     VAL(dst) = VAL(src) ? strdup(VAL(src)) : NULL;
 511   }
 512 }
 513
 514 static void free_str(void* src) {
 515   if(src && VAL(src)){
 516 #ifndef NO_FREE
 517     free(VAL(src)); //FIXME!!!
 518 #endif
 519     VAL(src) = NULL;
 520   }
 521 }
 522
 523 const m_option_type_t m_option_type_string = {
 524   "String",
 525   "",
 526   sizeof(char*),
 527   M_OPT_TYPE_DYNAMIC,
 528   parse_str,
 529   print_str,
 530   copy_str,
 531   copy_str,
 532   copy_str,
 533   free_str
 534 };
 535
 536 //////////// String list
 537
 538 #undef VAL
 539 #define VAL(x) (*(char***)(x))
 540
 541 #define OP_NONE 0
 542 #define OP_ADD 1
 543 #define OP_PRE 2
 544 #define OP_DEL 3
 545 #define OP_CLR 4
 546
 547 static void free_str_list(void* dst) {
 548   char** d;
 549   int i;
 550
 551   if(!dst || !VAL(dst)) return;
 552   d = VAL(dst);
 553
 554 // FIXME!!!
 555 #ifndef NO_FREE
 556   for(i = 0 ; d[i] != NULL ; i++)
 557     free(d[i]);
 558   free(d);
 559 #endif
 560   VAL(dst) = NULL;
 561 }
 562
 563 static int str_list_add(char** add, int n,void* dst,int pre) {
 564   char** lst = VAL(dst);
 565   int ln;
 566
 567   if(!dst) return M_OPT_PARSER_ERR;
 568   lst = VAL(dst);
 569
 570   for(ln = 0 ; lst && lst[ln] ; ln++)
 571     /**/;
 572
 573   lst = realloc(lst,(n+ln+1)*sizeof(char*));
 574
 575   if(pre) {
 576     memmove(&lst[n],lst,ln*sizeof(char*));
 577     memcpy(lst,add,n*sizeof(char*));
 578   } else
 579     memcpy(&lst[ln],add,n*sizeof(char*));
 580   // (re-)add NULL-termination
 581   lst[ln+n] = NULL;
 582
 583   free(add);
 584
 585   VAL(dst) = lst;
 586
 587   return 1;
 588 }
 589
 590 static int str_list_del(char** del, int n,void* dst) {
 591   char **lst,*ep,**d;
 592   int i,ln,s;
 593   long idx;
 594
 595   if(!dst) return M_OPT_PARSER_ERR;
 596   lst = VAL(dst);
 597
 598   for(ln = 0 ; lst && lst[ln] ; ln++)
 599     /**/;
 600   s = ln;
 601
 602   for(i = 0 ; del[i] != NULL ; i++) {
 603     idx = strtol(del[i], &ep, 0);
 604     if(*ep) {
 605       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid index: %s\n",del[i]);
 606       free(del[i]);
 607       continue;
 608     }
 609     free(del[i]);
 610     if(idx < 0 || idx >= ln) {
 611       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Index %ld is out of range.\n",idx);
 612       continue;
 613     } else if(!lst[idx])
 614       continue;
 615     free(lst[idx]);
 616     lst[idx] = NULL;
 617     s--;
 618   }
 619   free(del);
 620
 621   if(s == 0) {
 622     free(lst);
 623     VAL(dst) = NULL;
 624     return 1;
 625   }
 626
 627   d = calloc(s+1,sizeof(char*));
 628   for(i = 0, n = 0 ; i < ln ; i++) {
 629     if(!lst[i]) continue;
 630     d[n] = lst[i];
 631     n++;
 632   }
 633   d[s] = NULL;
 634
 635   free(lst);
 636   VAL(dst) = d;
 637
 638   return 1;
 639 }
 640
 641 static char *get_nextsep(char *ptr, char sep, int modify) {
 642     char *last_ptr = ptr;
 643     for(;;){
 644         ptr = strchr(ptr, sep);
 645         if(ptr && ptr>last_ptr && ptr[-1]=='\\'){
 646             if (modify) memmove(ptr-1, ptr, strlen(ptr)+1);
 647             else ptr++;
 648         }else
 649             break;
 650     }
 651     return ptr;
 652 }
 653
 654 static int parse_str_list(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 655   int n = 0,len = strlen(opt->name);
 656   char *str;
 657   char *ptr = (char *)param, *last_ptr, **res;
 658   int op = OP_NONE;
 659
 660   if(opt->name[len-1] == '*' && ((int)strlen(name) > len - 1)) {
 661     const char* n = &name[len-1];
 662     if(strcasecmp(n,"-add") == 0)
 663       op = OP_ADD;
 664     else if(strcasecmp(n,"-pre") == 0)
 665       op = OP_PRE;
 666     else if(strcasecmp(n,"-del") == 0)
 667       op = OP_DEL;
 668     else if(strcasecmp(n,"-clr") == 0)
 669       op = OP_CLR;
 670     else
 671       return M_OPT_UNKNOWN;
 672   }
 673
 674   // Clear the list ??
 675   if(op == OP_CLR) {
 676     if(dst)
 677       free_str_list(dst);
 678     return 0;
 679   }
 680
 681   // All other ops need a param
 682   if (param == NULL || strlen(param) == 0)
 683       return M_OPT_MISSING_PARAM;
 684
 685   // custom type for "profile" calls this but uses ->priv for something else
 686   char separator = opt->type == &m_option_type_string_list && opt->priv ?
 687       *(char *)opt->priv : OPTION_LIST_SEPARATOR;
 688   while(ptr[0] != '\0') {
 689     ptr = get_nextsep(ptr, separator, 0);
 690     if(!ptr) {
 691       n++;
 692       break;
 693     }
 694     ptr++;
 695     n++;
 696   }
 697   if(n == 0)
 698     return M_OPT_INVALID;
 699   if( ((opt->flags & M_OPT_MIN) && (n < opt->min)) ||
 700       ((opt->flags & M_OPT_MAX) && (n > opt->max)) )
 701     return M_OPT_OUT_OF_RANGE;
 702
 703   if(!dst) return 1;
 704
 705   res = malloc((n+2)*sizeof(char*));
 706   ptr = str = strdup(param);
 707   n = 0;
 708
 709   while(1) {
 710     last_ptr = ptr;
 711     ptr = get_nextsep(ptr, separator, 1);
 712     if(!ptr) {
 713       res[n] = strdup(last_ptr);
 714       n++;
 715       break;
 716     }
 717     len = ptr - last_ptr;
 718     res[n] = malloc(len + 1);
 719     if(len) strncpy(res[n],last_ptr,len);
 720     res[n][len] = '\0';
 721     ptr++;
 722     n++;
 723   }
 724   res[n] = NULL;
 725   free(str);
 726
 727   switch(op) {
 728   case OP_ADD:
 729     return str_list_add(res,n,dst,0);
 730   case OP_PRE:
 731     return str_list_add(res,n,dst,1);
 732   case OP_DEL:
 733     return str_list_del(res,n,dst);
 734   }
 735
 736   if(VAL(dst))
 737     free_str_list(dst);
 738   VAL(dst) = res;
 739
 740   return 1;
 741 }
 742
 743 static void copy_str_list(const m_option_t* opt,void* dst, const void* src) {
 744   int n;
 745   char **d,**s;
 746
 747   if(!(dst && src)) return;
 748   s = VAL(src);
 749
 750   if(VAL(dst))
 751     free_str_list(dst);
 752
 753   if(!s) {
 754     VAL(dst) = NULL;
 755     return;
 756   }
 757
 758   for(n = 0 ; s[n] != NULL ; n++)
 759     /* NOTHING */;
 760   d = malloc((n+1)*sizeof(char*));
 761   for( ; n >= 0 ; n--)
 762     d[n] = s[n] ? strdup(s[n]) : NULL;
 763
 764   VAL(dst) = d;
 765 }
 766
 767 static char* print_str_list(const m_option_t* opt, const void* src) {
 768   char **lst = NULL;
 769   char *ret = NULL,*last = NULL;
 770   int i;
 771
 772   if(!(src && VAL(src))) return NULL;
 773   lst = VAL(src);
 774
 775   for(i = 0 ; lst[i] ; i++) {
 776     if(last) {
 777       ret = dup_printf("%s,%s",last,lst[i]);
 778       free(last);
 779     } else
 780       ret = strdup(lst[i]);
 781     last = ret;
 782   }
 783   if(last && last != ret) free(last);
 784   return ret;
 785 }
 786
 787 const m_option_type_t m_option_type_string_list = {
 788   "String list",
 789   "A list of strings separated by ','\n"
 790   "Option with a name ending in an * permits using the following suffix: \n"
 791   "\t-add: Add the given parameters at the end of the list.\n"
 792   "\t-pre: Add the given parameters at the beginning of the list.\n"
 793   "\t-del: Remove the entry at the given indices.\n"
 794   "\t-clr: Clear the list.\n"
 795   "e.g: -vf-add flip,mirror -vf-del 2,5\n",
 796   sizeof(char**),
 797   M_OPT_TYPE_DYNAMIC | M_OPT_TYPE_ALLOW_WILDCARD,
 798   parse_str_list,
 799   print_str_list,
 800   copy_str_list,
 801   copy_str_list,
 802   copy_str_list,
 803   free_str_list
 804 };
 805
 806
 807 ///////////////////  Func based options
 808
 809 // A chained list to save the various calls for func_param
 810 typedef struct m_func_save m_func_save_t;
 811 struct m_func_save {
 812   m_func_save_t* next;
 813   char* name;
 814   char* param;
 815 };
 816
 817 #undef VAL
 818 #define VAL(x) (*(m_func_save_t**)(x))
 819
 820 static void free_func_pf(void* src) {
 821   m_func_save_t *s,*n;
 822
 823   if(!src) return;
 824
 825   s = VAL(src);
 826
 827   while(s) {
 828     n = s->next;
 829     free(s->name);
 830     free(s->param);
 831     free(s);
 832     s = n;
 833   }
 834   VAL(src) = NULL;
 835 }
 836
 837 // Parser for func_param
 838 static int parse_func_pf(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 839   m_func_save_t *s,*p;
 840
 841   if(!dst)
 842     return 1;
 843
 844   s = calloc(1,sizeof(m_func_save_t));
 845   s->name = strdup(name);
 846   s->param = param ? strdup(param) : NULL;
 847
 848   p = VAL(dst);
 849   if(p) {
 850     for( ; p->next != NULL ; p = p->next)
 851       /**/;
 852     p->next = s;
 853   } else
 854     VAL(dst) = s;
 855
 856   return 1;
 857 }
 858
 859 static void copy_func_pf(const m_option_t* opt,void* dst, const void* src) {
 860   m_func_save_t *d = NULL, *s,* last = NULL;
 861
 862   if(!(dst && src)) return;
 863   s = VAL(src);
 864
 865   if(VAL(dst))
 866     free_func_pf(dst);
 867
 868   while(s) {
 869     d = calloc(1,sizeof(m_func_save_t));
 870     d->name = strdup(s->name);
 871     d->param = s->param ? strdup(s->param) : NULL;
 872     if(last)
 873       last->next = d;
 874     else
 875       VAL(dst) = d;
 876     last = d;
 877     s = s->next;
 878   }
 879
 880
 881 }
 882
 883 /////////////////// Func_param
 884
 885 static void set_func_param(const m_option_t* opt, void* dst, const void* src) {
 886   m_func_save_t* s;
 887
 888   if(!src) return;
 889   s = VAL(src);
 890
 891   if(!s) return;
 892
 893   for( ; s != NULL ; s = s->next)
 894     ((m_opt_func_param_t) opt->p)(opt,s->param);
 895 }
 896
 897 const m_option_type_t m_option_type_func_param = {
 898   "Func param",
 899   "",
 900   sizeof(m_func_save_t*),
 901   M_OPT_TYPE_INDIRECT,
 902   parse_func_pf,
 903   NULL,
 904   NULL, // Nothing to do on save
 905   set_func_param,
 906   copy_func_pf,
 907   free_func_pf
 908 };
 909
 910 /////////////// Func
 911
 912 #undef VAL
 913
 914 static int parse_func(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 915   return 0;
 916 }
 917
 918 static void set_func(const m_option_t* opt,void* dst, const void* src) {
 919     ((m_opt_func_t) opt->p)(opt);
 920 }
 921
 922 const m_option_type_t m_option_type_func = {
 923   "Func",
 924   "",
 925   sizeof(int),
 926   M_OPT_TYPE_INDIRECT,
 927   parse_func,
 928   NULL,
 929   NULL, // Nothing to do on save
 930   set_func,
 931   NULL,
 932   NULL
 933 };
 934
 935 /////////////////// Print
 936
 937 static int parse_print(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 938   if(opt->type == CONF_TYPE_PRINT_INDIRECT)
 939     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s", *(char **) opt->p);
 940   else if(opt->type == CONF_TYPE_PRINT_FUNC)
 941     return ((m_opt_func_full_t) opt->p)(opt,name,param);
 942   else
 943       mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s", mp_gtext(opt->p));
 944
 945   if(opt->priv == NULL)
 946     return M_OPT_EXIT;
 947   return 0;
 948 }
 949
 950 const m_option_type_t m_option_type_print = {
 951   "Print",
 952   "",
 953   0,
 954   0,
 955   parse_print,
 956   NULL,
 957   NULL,
 958   NULL,
 959   NULL,
 960   NULL
 961 };
 962
 963 const m_option_type_t m_option_type_print_indirect = {
 964   "Print",
 965   "",
 966   0,
 967   0,
 968   parse_print,
 969   NULL,
 970   NULL,
 971   NULL,
 972   NULL,
 973   NULL
 974 };
 975
 976 const m_option_type_t m_option_type_print_func = {
 977   "Print",
 978   "",
 979   0,
 980   M_OPT_TYPE_ALLOW_WILDCARD,
 981   parse_print,
 982   NULL,
 983   NULL,
 984   NULL,
 985   NULL,
 986   NULL
 987 };
 988
 989
 990 /////////////////////// Subconfig
 991 #undef VAL
 992 #define VAL(x) (*(char***)(x))
 993
 994 static int parse_subconf(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 995   char *subparam;
 996   char *subopt;
 997   int nr = 0,i,r;
 998   const m_option_t *subopts;
 999   const char *p;
1000   char** lst = NULL;
1001
1002   if (param == NULL || strlen(param) == 0)
1003     return M_OPT_MISSING_PARAM;
1004
1005   subparam = malloc(strlen(param)+1);
1006   subopt = malloc(strlen(param)+1);
1007   p = param;
1008
1009   subopts = opt->p;
1010
1011   while(p[0])
1012     {
1013       int sscanf_ret = 1;
1014       int optlen = strcspn(p, ":=");
1015       /* clear out */
1016       subopt[0] = subparam[0] = 0;
1017       av_strlcpy(subopt, p, optlen + 1);
1018       p = &p[optlen];
1019       if (p[0] == '=') {
1020         sscanf_ret = 2;
1021         p = &p[1];
1022         if (p[0] == '"') {
1023           p = &p[1];
1024           optlen = strcspn(p, "\"");
1025           av_strlcpy(subparam, p, optlen + 1);
1026           p = &p[optlen];
1027           if (p[0] != '"') {
1028             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Terminating '\"' missing for '%s'\n", subopt);
1029             return M_OPT_INVALID;
1030           }
1031           p = &p[1];
1032         } else if (p[0] == '%') {
1033           p = &p[1];
1034           optlen = (int)strtol(p, (char**)&p, 0);
1035           if (!p || p[0] != '%' || (optlen > strlen(p) - 1)) {
1036             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid length %i for '%s'\n", optlen, subopt);
1037             return M_OPT_INVALID;
1038           }
1039           p = &p[1];
1040           av_strlcpy(subparam, p, optlen + 1);
1041           p = &p[optlen];
1042         } else {
1043           optlen = strcspn(p, ":");
1044           av_strlcpy(subparam, p, optlen + 1);
1045           p = &p[optlen];
1046         }
1047       }
1048       if (p[0] == ':')
1049         p = &p[1];
1050       else if (p[0]) {
1051         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Incorrect termination for '%s'\n", subopt);
1052         return M_OPT_INVALID;
1053       }
1054
1055       switch(sscanf_ret)
1056         {
1057         case 1:
1058           subparam[0] = 0;
1059         case 2:
1060           for(i = 0 ; subopts[i].name ; i++) {
1061             if(!strcmp(subopts[i].name,subopt)) break;
1062           }
1063           if(!subopts[i].name) {
1064             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Unknown suboption %s\n",name,subopt);
1065             return M_OPT_UNKNOWN;
1066           }
1067           r = m_option_parse(&subopts[i],subopt,
1068                              subparam[0] == 0 ? NULL : subparam,NULL,src);
1069           if(r < 0) return r;
1070           if(dst) {
1071             lst = realloc(lst,2 * (nr+2) * sizeof(char*));
1072             lst[2*nr] = strdup(subopt);
1073             lst[2*nr+1] = subparam[0] == 0 ? NULL : strdup(subparam);
1074             memset(&lst[2*(nr+1)],0,2*sizeof(char*));
1075             nr++;
1076           }
1077           break;
1078         }
1079     }
1080
1081   free(subparam);
1082   free(subopt);
1083   if(dst)
1084     VAL(dst) = lst;
1085
1086   return 1;
1087 }
1088
1089 const m_option_type_t m_option_type_subconfig = {
1090   "Subconfig",
1091   "The syntax is -option opt1=foo:flag:opt2=blah",
1092   sizeof(int),
1093   M_OPT_TYPE_HAS_CHILD,
1094   parse_subconf,
1095   NULL,
1096   NULL,
1097   NULL,
1098   NULL,
1099   NULL
1100 };
1101
1102 #include "libmpcodecs/img_format.h"
1103
1104 /* FIXME: snyc with img_format.h */
1105 static struct {
1106   const char* name;
1107   unsigned int fmt;
1108 } mp_imgfmt_list[] = {
1109   {"444p16le", IMGFMT_444P16_LE},
1110   {"444p16be", IMGFMT_444P16_BE},
1111   {"422p16le", IMGFMT_422P16_LE},
1112   {"422p16be", IMGFMT_422P16_BE},
1113   {"420p16le", IMGFMT_420P16_LE},
1114   {"420p16be", IMGFMT_420P16_BE},
1115   {"444p16", IMGFMT_444P16},
1116   {"422p16", IMGFMT_422P16},
1117   {"420p16", IMGFMT_420P16},
1118   {"420a", IMGFMT_420A},
1119   {"444p", IMGFMT_444P},
1120   {"422p", IMGFMT_422P},
1121   {"411p", IMGFMT_411P},
1122   {"440p", IMGFMT_440P},
1123   {"yuy2", IMGFMT_YUY2},
1124   {"uyvy", IMGFMT_UYVY},
1125   {"yvu9", IMGFMT_YVU9},
1126   {"if09", IMGFMT_IF09},
1127   {"yv12", IMGFMT_YV12},
1128   {"i420", IMGFMT_I420},
1129   {"iyuv", IMGFMT_IYUV},
1130   {"clpl", IMGFMT_CLPL},
1131   {"hm12", IMGFMT_HM12},
1132   {"y800", IMGFMT_Y800},
1133   {"y8", IMGFMT_Y8},
1134   {"nv12", IMGFMT_NV12},
1135   {"nv21", IMGFMT_NV21},
1136   {"bgr24", IMGFMT_BGR24},
1137   {"bgr32", IMGFMT_BGR32},
1138   {"bgr16", IMGFMT_BGR16},
1139   {"bgr15", IMGFMT_BGR15},
1140   {"bgr12", IMGFMT_BGR12},
1141   {"bgr8", IMGFMT_BGR8},
1142   {"bgr4", IMGFMT_BGR4},
1143   {"bg4b", IMGFMT_BG4B},
1144   {"bgr1", IMGFMT_BGR1},
1145   {"rgb48be", IMGFMT_RGB48BE},
1146   {"rgb48le", IMGFMT_RGB48LE},
1147   {"rgb48ne", IMGFMT_RGB48NE},
1148   {"rgb24", IMGFMT_RGB24},
1149   {"rgb32", IMGFMT_RGB32},
1150   {"rgb16", IMGFMT_RGB16},
1151   {"rgb15", IMGFMT_RGB15},
1152   {"rgb12", IMGFMT_RGB12},
1153   {"rgb8", IMGFMT_RGB8},
1154   {"rgb4", IMGFMT_RGB4},
1155   {"rg4b", IMGFMT_RG4B},
1156   {"rgb1", IMGFMT_RGB1},
1157   {"rgba", IMGFMT_RGBA},
1158   {"argb", IMGFMT_ARGB},
1159   {"bgra", IMGFMT_BGRA},
1160   {"abgr", IMGFMT_ABGR},
1161   {"mjpeg", IMGFMT_MJPEG},
1162   {"mjpg", IMGFMT_MJPEG},
1163   { NULL, 0 }
1164 };
1165
1166 static int parse_imgfmt(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
1167   uint32_t fmt = 0;
1168   int i;
1169
1170   if (param == NULL || strlen(param) == 0)
1171     return M_OPT_MISSING_PARAM;
1172
1173   if(!strcmp(param,"help")) {
1174     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available formats:");
1175     for(i = 0 ; mp_imgfmt_list[i].name ; i++)
1176       mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %s",mp_imgfmt_list[i].name);
1177     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
1178     return M_OPT_EXIT - 1;
1179   }
1180
1181   if (sscanf(param, "0x%x", &fmt) != 1)
1182   {
1183   for(i = 0 ; mp_imgfmt_list[i].name ; i++) {
1184     if(!strcasecmp(param,mp_imgfmt_list[i].name)) {
1185       fmt=mp_imgfmt_list[i].fmt;
1186       break;
1187     }
1188   }
1189   if(!mp_imgfmt_list[i].name) {
1190     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: unknown format name: '%s'\n",name,param);
1191     return M_OPT_INVALID;
1192   }
1193   }
1194
1195   if(dst)
1196     *((uint32_t*)dst) = fmt;
1197
1198   return 1;
1199 }
1200
1201 const m_option_type_t m_option_type_imgfmt = {
1202   "Image format",
1203   "Please report any missing colorspaces.",
1204   sizeof(uint32_t),
1205   0,
1206   parse_imgfmt,
1207   NULL,
1208   copy_opt,
1209   copy_opt,
1210   NULL,
1211   NULL
1212 };
1213
1214 #include "libaf/af_format.h"
1215
1216 /* FIXME: snyc with af_format.h */
1217 static struct {
1218   const char* name;
1219   unsigned int fmt;
1220 } mp_afmt_list[] = {
1221   // SPECIAL
1222   {"mulaw", AF_FORMAT_MU_LAW},
1223   {"alaw", AF_FORMAT_A_LAW},
1224   {"mpeg2", AF_FORMAT_MPEG2},
1225   {"ac3le", AF_FORMAT_AC3_LE},
1226   {"ac3be", AF_FORMAT_AC3_BE},
1227   {"ac3ne", AF_FORMAT_AC3_NE},
1228   {"imaadpcm", AF_FORMAT_IMA_ADPCM},
1229   // ORDINARY
1230   {"u8", AF_FORMAT_U8},
1231   {"s8", AF_FORMAT_S8},
1232   {"u16le", AF_FORMAT_U16_LE},
1233   {"u16be", AF_FORMAT_U16_BE},
1234   {"u16ne", AF_FORMAT_U16_NE},
1235   {"s16le", AF_FORMAT_S16_LE},
1236   {"s16be", AF_FORMAT_S16_BE},
1237   {"s16ne", AF_FORMAT_S16_NE},
1238   {"u24le", AF_FORMAT_U24_LE},
1239   {"u24be", AF_FORMAT_U24_BE},
1240   {"u24ne", AF_FORMAT_U24_NE},
1241   {"s24le", AF_FORMAT_S24_LE},
1242   {"s24be", AF_FORMAT_S24_BE},
1243   {"s24ne", AF_FORMAT_S24_NE},
1244   {"u32le", AF_FORMAT_U32_LE},
1245   {"u32be", AF_FORMAT_U32_BE},
1246   {"u32ne", AF_FORMAT_U32_NE},
1247   {"s32le", AF_FORMAT_S32_LE},
1248   {"s32be", AF_FORMAT_S32_BE},
1249   {"s32ne", AF_FORMAT_S32_NE},
1250   {"floatle", AF_FORMAT_FLOAT_LE},
1251   {"floatbe", AF_FORMAT_FLOAT_BE},
1252   {"floatne", AF_FORMAT_FLOAT_NE},
1253   { NULL, 0 }
1254 };
1255
1256 static int parse_afmt(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
1257   uint32_t fmt = 0;
1258   int i;
1259
1260   if (param == NULL || strlen(param) == 0)
1261     return M_OPT_MISSING_PARAM;
1262
1263   if(!strcmp(param,"help")) {
1264     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available formats:");
1265     for(i = 0 ; mp_afmt_list[i].name ; i++)
1266       mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %s",mp_afmt_list[i].name);
1267     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
1268     return M_OPT_EXIT - 1;
1269   }
1270
1271   if (sscanf(param, "0x%x", &fmt) != 1)
1272   {
1273   for(i = 0 ; mp_afmt_list[i].name ; i++) {
1274     if(!strcasecmp(param,mp_afmt_list[i].name)) {
1275       fmt=mp_afmt_list[i].fmt;
1276       break;
1277     }
1278   }
1279   if(!mp_afmt_list[i].name) {
1280     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: unknown format name: '%s'\n",name,param);
1281     return M_OPT_INVALID;
1282   }
1283   }
1284
1285   if(dst)
1286     *((uint32_t*)dst) = fmt;
1287
1288   return 1;
1289 }
1290
1291 const m_option_type_t m_option_type_afmt = {
1292   "Audio format",
1293   "Please report any missing formats.",
1294   sizeof(uint32_t),
1295   0,
1296   parse_afmt,
1297   NULL,
1298   copy_opt,
1299   copy_opt,
1300   NULL,
1301   NULL
1302 };
1303
1304
1305 int parse_timestring(const char *str, double *time, char endchar)
1306 {
1307   int a, b, len;
1308   double d;
1309   *time = 0; /* ensure initialization for error cases */
1310   if (sscanf(str, "%d:%d:%lf%n", &a, &b, &d, &len) >= 3)
1311     *time = 3600*a + 60*b + d;
1312   else if (sscanf(str, "%d:%lf%n", &a, &d, &len) >= 2)
1313     *time = 60*a + d;
1314   else if (sscanf(str, "%lf%n", &d, &len) >= 1)
1315     *time = d;
1316   else
1317     return 0; /* unsupported time format */
1318   if (str[len] && str[len] != endchar)
1319     return 0; /* invalid extra characters at the end */
1320   return len;
1321 }
1322
1323
1324 static int parse_time(const m_option_t* opt,const char *name, const char *param, void* dst, int src)
1325 {
1326   double time;
1327
1328   if (param == NULL || strlen(param) == 0)
1329     return M_OPT_MISSING_PARAM;
1330
1331   if (!parse_timestring(param, &time, 0)) {
1332     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: invalid time: '%s'\n",
1333            name,param);
1334     return M_OPT_INVALID;
1335   }
1336
1337   if (dst)
1338     *(double *)dst = time;
1339   return 1;
1340 }
1341
1342 const m_option_type_t m_option_type_time = {
1343   "Time",
1344   "",
1345   sizeof(double),
1346   0,
1347   parse_time,
1348   print_double,
1349   copy_opt,
1350   copy_opt,
1351   NULL,
1352   NULL
1353 };
1354
1355
1356 // Time or size (-endpos)
1357
1358 static int parse_time_size(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
1359   m_time_size_t ts;
1360   char unit[4];
1361   double end_at;
1362
1363   if (param == NULL || strlen(param) == 0)
1364     return M_OPT_MISSING_PARAM;
1365
1366   ts.pos=0;
1367   /* End at size parsing */
1368   if(sscanf(param, "%lf%3s", &end_at, unit) == 2) {
1369     ts.type = END_AT_SIZE;
1370     if(!strcasecmp(unit, "b"))
1371       ;
1372     else if(!strcasecmp(unit, "kb"))
1373       end_at *= 1024;
1374     else if(!strcasecmp(unit, "mb"))
1375       end_at *= 1024*1024;
1376     else if(!strcasecmp(unit, "gb"))
1377       end_at *= 1024*1024*1024;
1378     else
1379       ts.type = END_AT_NONE;
1380
1381     if (ts.type == END_AT_SIZE) {
1382       ts.pos  = end_at;
1383       goto out;
1384     }
1385   }
1386
1387   /* End at time parsing. This has to be last because the parsing accepts
1388    * even a number followed by garbage */
1389   if (!parse_timestring(param, &end_at, 0)) {
1390     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: invalid time or size: '%s'\n",
1391            name,param);
1392     return M_OPT_INVALID;
1393   }
1394
1395   ts.type = END_AT_TIME;
1396   ts.pos  = end_at;
1397 out:
1398   if(dst)
1399     *(m_time_size_t *)dst = ts;
1400   return 1;
1401 }
1402
1403 const m_option_type_t m_option_type_time_size = {
1404   "Time or size",
1405   "",
1406   sizeof(m_time_size_t),
1407   0,
1408   parse_time_size,
1409   NULL,
1410   copy_opt,
1411   copy_opt,
1412   NULL,
1413   NULL
1414 };
1415
1416
1417 //// Objects (i.e. filters, etc) settings
1418
1419 #include "m_struct.h"
1420
1421 #undef VAL
1422 #define VAL(x) (*(m_obj_settings_t**)(x))
1423
1424 static int find_obj_desc(const char* name,const m_obj_list_t* l,const m_struct_t** ret) {
1425   int i;
1426   char* n;
1427
1428   for(i = 0 ; l->list[i] ; i++) {
1429     n = M_ST_MB(char*,l->list[i],l->name_off);
1430     if(!strcmp(n,name)) {
1431       *ret = M_ST_MB(m_struct_t*,l->list[i],l->desc_off);
1432       return 1;
1433     }
1434   }
1435   return 0;
1436 }
1437
1438 static int get_obj_param(const char* opt_name,const char* obj_name, const m_struct_t* desc,
1439                          char* str,int* nold,int oldmax,char** dst) {
1440   char* eq;
1441   const m_option_t* opt;
1442   int r;
1443
1444   eq = strchr(str,'=');
1445   if(eq && eq == str)
1446     eq = NULL;
1447
1448   if(eq) {
1449     char* p = eq + 1;
1450     if(p[0] == '\0') p = NULL;
1451     eq[0] = '\0';
1452     opt = m_option_list_find(desc->fields,str);
1453     if(!opt) {
1454       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't have a %s parameter.\n",opt_name,obj_name,str);
1455       return M_OPT_UNKNOWN;
1456     }
1457     r = m_option_parse(opt,str,p,NULL,M_CONFIG_FILE);
1458     if(r < 0) {
1459       if(r > M_OPT_EXIT)
1460         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,str,p);
1461       eq[0] = '=';
1462       return r;
1463     }
1464     if(dst) {
1465       dst[0] = strdup(str);
1466       dst[1] = p ? strdup(p) : NULL;
1467     }
1468     eq[0] = '=';
1469   } else {
1470     if((*nold) >= oldmax) {
1471       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s has only %d params, so you can't give more than %d unnamed params.\n",
1472              opt_name,obj_name,oldmax,oldmax);
1473       return M_OPT_OUT_OF_RANGE;
1474     }
1475     opt = &desc->fields[(*nold)];
1476     r = m_option_parse(opt,opt->name,str,NULL,M_CONFIG_FILE);
1477     if(r < 0) {
1478       if(r > M_OPT_EXIT)
1479         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,opt->name,str);
1480       return r;
1481     }
1482     if(dst) {
1483       dst[0] = strdup(opt->name);
1484       dst[1] = strdup(str);
1485     }
1486     (*nold)++;
1487   }
1488   return 1;
1489 }
1490
1491 static int get_obj_params(const char* opt_name, const char* name,char* params,
1492                           const m_struct_t* desc,char separator, char*** _ret) {
1493   int n = 0,nold = 0, nopts,r;
1494   char* ptr,*last_ptr = params;
1495   char** ret;
1496
1497   if(!strcmp(params,"help")) { // Help
1498     char min[50],max[50];
1499     if(!desc->fields) {
1500       printf("%s doesn't have any options.\n\n",name);
1501       return M_OPT_EXIT - 1;
1502     }
1503     printf("\n Name                 Type            Min        Max\n\n");
1504     for(n = 0 ; desc->fields[n].name ; n++) {
1505       const m_option_t* opt = &desc->fields[n];
1506       if(opt->type->flags & M_OPT_TYPE_HAS_CHILD) continue;
1507       if(opt->flags & M_OPT_MIN)
1508         sprintf(min,"%-8.0f",opt->min);
1509       else
1510         strcpy(min,"No");
1511       if(opt->flags & M_OPT_MAX)
1512         sprintf(max,"%-8.0f",opt->max);
1513       else
1514         strcpy(max,"No");
1515       printf(" %-20.20s %-15.15s %-10.10s %-10.10s\n",
1516              opt->name,
1517              opt->type->name,
1518              min,
1519              max);
1520     }
1521     printf("\n");
1522     return M_OPT_EXIT - 1;
1523   }
1524
1525   for(nopts = 0 ; desc->fields[nopts].name ; nopts++)
1526     /* NOP */;
1527
1528   // TODO : Check that each opt can be parsed
1529   r = 1;
1530   while(last_ptr && last_ptr[0] != '\0') {
1531     ptr = strchr(last_ptr,separator);
1532     if(!ptr) {
1533       r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1534       n++;
1535       break;
1536     }
1537     if(ptr == last_ptr) { // Empty field, count it and go on
1538       nold++;
1539       last_ptr = ptr+1;
1540       continue;
1541     }
1542     ptr[0] = '\0';
1543     r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1544     ptr[0] = separator;
1545     if(r < 0) break;
1546     n++;
1547     last_ptr = ptr+1;
1548   }
1549   if(r < 0) return r;
1550   if (!last_ptr[0]) // count an empty field at the end, too
1551     nold++;
1552   if (nold > nopts) {
1553     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Too many options for %s\n", name);
1554     return M_OPT_OUT_OF_RANGE;
1555   }
1556   if(!_ret) // Just test
1557     return 1;
1558   if (n == 0) // No options or only empty options
1559     return 1;
1560
1561   ret = malloc((n+2)*2*sizeof(char*));
1562   n = nold = 0;
1563   last_ptr = params;
1564
1565   while(last_ptr && last_ptr[0] != '\0') {
1566     ptr = strchr(last_ptr,separator);
1567     if(!ptr) {
1568       get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1569       n++;
1570       break;
1571     }
1572     if(ptr == last_ptr) { // Empty field, count it and go on
1573       last_ptr = ptr+1;
1574       nold++;
1575       continue;
1576     }
1577     ptr[0] = '\0';
1578     get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1579     n++;
1580     last_ptr = ptr+1;
1581   }
1582   ret[n*2] = ret[n*2+1] = NULL;
1583   *_ret = ret;
1584
1585   return 1;
1586 }
1587
1588 static int parse_obj_params(const m_option_t* opt,const char *name,
1589                             const char *param, void* dst, int src) {
1590   char** opts;
1591   int r;
1592   m_obj_params_t* p = opt->priv;
1593   const m_struct_t* desc;
1594   char* cpy;
1595
1596   // We need the object desc
1597   if(!p)
1598     return M_OPT_INVALID;
1599
1600   desc = p->desc;
1601   cpy = strdup(param);
1602   r = get_obj_params(name,desc->name,cpy,desc,p->separator,dst ? &opts : NULL);
1603   free(cpy);
1604   if(r < 0)
1605     return r;
1606   if(!dst)
1607     return 1;
1608   if (!opts) // no arguments given
1609     return 1;
1610
1611   for(r = 0 ; opts[r] ; r += 2)
1612     m_struct_set(desc,dst,opts[r],opts[r+1]);
1613
1614   return 1;
1615 }
1616
1617
1618 const m_option_type_t m_option_type_obj_params = {
1619   "Object params",
1620   "",
1621   0,
1622   0,
1623   parse_obj_params,
1624   NULL,
1625   NULL,
1626   NULL,
1627   NULL,
1628   NULL
1629 };
1630
1631 /// Some predefined types as a definition would be quite lengthy
1632
1633 /// Span arguments
1634 static const m_span_t m_span_params_dflts = { -1, -1 };
1635 static const m_option_t m_span_params_fields[] = {
1636   {"start", M_ST_OFF(m_span_t,start), CONF_TYPE_INT, M_OPT_MIN, 1 ,0, NULL},
1637   {"end", M_ST_OFF(m_span_t,end), CONF_TYPE_INT, M_OPT_MIN , 1 ,0, NULL},
1638   { NULL, NULL, 0, 0, 0, 0,  NULL }
1639 };
1640 static const struct m_struct_st m_span_opts = {
1641   "m_span",
1642   sizeof(m_span_t),
1643   &m_span_params_dflts,
1644   m_span_params_fields
1645 };
1646 const m_obj_params_t m_span_params_def = {
1647   &m_span_opts,
1648   '-'
1649 };
1650
1651 static int parse_obj_settings(const char* opt,char* str,const m_obj_list_t* list,
1652                               m_obj_settings_t **_ret, int ret_n) {
1653   int r;
1654   char *param,**plist = NULL;
1655   const m_struct_t* desc;
1656   m_obj_settings_t *ret = _ret ? *_ret : NULL;
1657
1658
1659   // Now check that the object exists
1660   param = strchr(str,'=');
1661   if(param) {
1662     param[0] = '\0';
1663     param++;
1664     if(strlen(param) <= 0)
1665       param = NULL;
1666   }
1667
1668
1669   if(!find_obj_desc(str,list,&desc)) {
1670     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't exist.\n",opt,str);
1671     return M_OPT_INVALID;
1672   }
1673
1674   if(param) {
1675     if(!desc && _ret) {
1676       if(!strcmp(param,"help")) {
1677         mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Option %s: %s have no option description.\n",opt,str);
1678         return M_OPT_EXIT - 1;
1679       }
1680       plist = calloc(4,sizeof(char*));
1681       plist[0] = strdup("_oldargs_");
1682       plist[1] = strdup(param);
1683     } else if(desc) {
1684       r = get_obj_params(opt,str,param,desc,':',_ret ? &plist : NULL);
1685       if(r < 0)
1686         return r;
1687     }
1688   }
1689   if(!_ret)
1690     return 1;
1691
1692   ret = realloc(ret,(ret_n+2)*sizeof(m_obj_settings_t));
1693   memset(&ret[ret_n],0,2*sizeof(m_obj_settings_t));
1694   ret[ret_n].name = strdup(str);
1695   ret[ret_n].attribs = plist;
1696
1697   *_ret = ret;
1698   return 1;
1699 }
1700
1701 static int obj_settings_list_del(const char *opt_name,const char *param,void* dst, int src) {
1702   char** str_list = NULL;
1703   int r,i,idx_max = 0;
1704   char* rem_id = "_removed_marker_";
1705   const m_option_t list_opt = {opt_name , NULL, CONF_TYPE_STRING_LIST,
1706                            0, 0, 0, NULL };
1707   m_obj_settings_t* obj_list = dst ? VAL(dst) : NULL;
1708
1709   if(dst && !obj_list) {
1710     mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: the list is empty.\n",opt_name);
1711     return 1;
1712   } else if(obj_list) {
1713     for(idx_max = 0 ; obj_list[idx_max].name != NULL ; idx_max++)
1714       /* NOP */;
1715   }
1716
1717   r = m_option_parse(&list_opt,opt_name,param,&str_list,src);
1718   if(r < 0 || !str_list)
1719     return r;
1720
1721   for(r = 0 ; str_list[r] ; r++) {
1722     int id;
1723     char* endptr;
1724     id = strtol(str_list[r],&endptr,0);
1725     if(endptr == str_list[r]) {
1726       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: invalid parameter. We need a list of integers which are the indices of the elements to remove.\n",opt_name);
1727       m_option_free(&list_opt,&str_list);
1728       return M_OPT_INVALID;
1729     }
1730     if(!obj_list) continue;
1731     if(id >= idx_max || id < -idx_max) {
1732       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: Index %d is out of range.\n",opt_name,id);
1733       continue;
1734     }
1735     if(id < 0)
1736       id = idx_max + id;
1737     free(obj_list[id].name);
1738     free_str_list(&(obj_list[id].attribs));
1739     obj_list[id].name = rem_id;
1740   }
1741
1742   if(!dst) {
1743     m_option_free(&list_opt,&str_list);
1744     return 1;
1745   }
1746
1747   for(i = 0 ; obj_list[i].name ; i++) {
1748     while(obj_list[i].name == rem_id) {
1749       memmove(&obj_list[i],&obj_list[i+1],sizeof(m_obj_settings_t)*(idx_max - i));
1750       idx_max--;
1751     }
1752   }
1753   obj_list = realloc(obj_list,sizeof(m_obj_settings_t)*(idx_max+1));
1754   VAL(dst) = obj_list;
1755
1756   return 1;
1757 }
1758
1759 static void free_obj_settings_list(void* dst) {
1760   int n;
1761   m_obj_settings_t *d;
1762
1763   if (!dst || !VAL(dst)) return;
1764
1765   d = VAL(dst);
1766 #ifndef NO_FREE
1767   for (n = 0 ; d[n].name ; n++) {
1768     free(d[n].name);
1769     free_str_list(&(d[n].attribs));
1770   }
1771   free(d);
1772 #endif
1773   VAL(dst) = NULL;
1774 }
1775
1776 static int parse_obj_settings_list(const m_option_t* opt,const char *name,
1777                                    const char *param, void* dst, int src) {
1778   int n = 0,r,len = strlen(opt->name);
1779   char *str;
1780   char *ptr, *last_ptr;
1781   m_obj_settings_t *res = NULL,*queue = NULL,*head = NULL;
1782   int op = OP_NONE;
1783
1784   // We need the objects list
1785   if(!opt->priv)
1786     return M_OPT_INVALID;
1787
1788   if(opt->name[len-1] == '*' && ((int)strlen(name) > len - 1)) {
1789     const char* n = &name[len-1];
1790     if(strcasecmp(n,"-add") == 0)
1791       op = OP_ADD;
1792     else if(strcasecmp(n,"-pre") == 0)
1793       op = OP_PRE;
1794     else if(strcasecmp(n,"-del") == 0)
1795       op = OP_DEL;
1796     else if(strcasecmp(n,"-clr") == 0)
1797       op = OP_CLR;
1798     else {
1799       char prefix[len];
1800       strncpy(prefix,opt->name,len-1);
1801       prefix[len-1] = '\0';
1802       mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: unknown postfix %s\n"
1803              "Supported postfixes are:\n"
1804              "  %s-add\n"
1805              " Append the given list to the current list\n\n"
1806              "  %s-pre\n"
1807              " Prepend the given list to the current list\n\n"
1808              "  %s-del x,y,...\n"
1809              " Remove the given elements. Take the list element index (starting from 0).\n"
1810              " Negative index can be used (i.e. -1 is the last element)\n\n"
1811              "  %s-clr\n"
1812              " Clear the current list.\n",name,n,prefix,prefix,prefix,prefix);
1813
1814       return M_OPT_UNKNOWN;
1815     }
1816   }
1817
1818   // Clear the list ??
1819   if(op == OP_CLR) {
1820     if(dst)
1821       free_obj_settings_list(dst);
1822     return 0;
1823   }
1824
1825   if (param == NULL || strlen(param) == 0)
1826     return M_OPT_MISSING_PARAM;
1827
1828   switch(op) {
1829   case OP_ADD:
1830     if(dst) head = VAL(dst);
1831     break;
1832   case OP_PRE:
1833     if(dst) queue = VAL(dst);
1834      break;
1835   case OP_DEL:
1836     return obj_settings_list_del(name,param,dst,src);
1837   case OP_NONE:
1838     if(dst && VAL(dst))
1839       free_obj_settings_list(dst);
1840     break;
1841   default:
1842     mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: FIXME\n",name);
1843     return M_OPT_UNKNOWN;
1844   }
1845
1846   if(!strcmp(param,"help")) {
1847     m_obj_list_t* ol = opt->priv;
1848     mp_msg(MSGT_VFILTER,MSGL_INFO,"Available video filters:\n");
1849     mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_VIDEO_FILTERS\n");
1850     for(n = 0 ; ol->list[n] ; n++)
1851       mp_msg(MSGT_VFILTER,MSGL_INFO,"  %-15s: %s\n",
1852              M_ST_MB(char*,ol->list[n],ol->name_off),
1853              M_ST_MB(char*,ol->list[n],ol->info_off));
1854     mp_msg(MSGT_VFILTER,MSGL_INFO,"\n");
1855     return M_OPT_EXIT - 1;
1856   }
1857   ptr = str = strdup(param);
1858
1859   while(ptr[0] != '\0') {
1860     last_ptr = ptr;
1861     ptr = get_nextsep(ptr, OPTION_LIST_SEPARATOR, 1);
1862
1863     if(!ptr) {
1864       r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1865       if(r < 0) {
1866         free(str);
1867         return r;
1868       }
1869       n++;
1870       break;
1871     }
1872     ptr[0] = '\0';
1873     r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1874     if(r < 0) {
1875       free(str);
1876       return r;
1877     }
1878     ptr++;
1879     n++;
1880   }
1881   free(str);
1882   if(n == 0)
1883     return M_OPT_INVALID;
1884
1885   if( ((opt->flags & M_OPT_MIN) && (n < opt->min)) ||
1886       ((opt->flags & M_OPT_MAX) && (n > opt->max)) )
1887     return M_OPT_OUT_OF_RANGE;
1888
1889   if(dst) {
1890     if(queue) {
1891       int qsize;
1892       for(qsize = 0 ; queue[qsize].name ; qsize++)
1893         /* NOP */;
1894       res = realloc(res,(qsize+n+1)*sizeof(m_obj_settings_t));
1895       memcpy(&res[n],queue,(qsize+1)*sizeof(m_obj_settings_t));
1896       n += qsize;
1897       free(queue);
1898     }
1899     if(head) {
1900       int hsize;
1901       for(hsize = 0 ; head[hsize].name ; hsize++)
1902         /* NOP */;
1903       head = realloc(head,(hsize+n+1)*sizeof(m_obj_settings_t));
1904       memcpy(&head[hsize],res,(n+1)*sizeof(m_obj_settings_t));
1905       free(res);
1906       res = head;
1907     }
1908     VAL(dst) = res;
1909   }
1910   return 1;
1911 }
1912
1913 static void copy_obj_settings_list(const m_option_t* opt,void* dst, const void* src) {
1914   m_obj_settings_t *d,*s;
1915   int n;
1916
1917   if(!(dst && src))
1918     return;
1919
1920   s = VAL(src);
1921
1922   if(VAL(dst))
1923     free_obj_settings_list(dst);
1924   if(!s) return;
1925
1926
1927
1928   for(n = 0 ; s[n].name ; n++)
1929     /* NOP */;
1930   d = malloc((n+1)*sizeof(m_obj_settings_t));
1931   for(n = 0 ; s[n].name ; n++) {
1932     d[n].name = strdup(s[n].name);
1933     d[n].attribs = NULL;
1934     copy_str_list(NULL,&(d[n].attribs),&(s[n].attribs));
1935   }
1936   d[n].name = NULL;
1937   d[n].attribs = NULL;
1938   VAL(dst) = d;
1939 }
1940
1941 const m_option_type_t m_option_type_obj_settings_list = {
1942   "Object settings list",
1943   "",
1944   sizeof(m_obj_settings_t*),
1945   M_OPT_TYPE_DYNAMIC|M_OPT_TYPE_ALLOW_WILDCARD,
1946   parse_obj_settings_list,
1947   NULL,
1948   copy_obj_settings_list,
1949   copy_obj_settings_list,
1950   copy_obj_settings_list,
1951   free_obj_settings_list,
1952 };
1953
1954
1955
1956 static int parse_obj_presets(const m_option_t* opt,const char *name,
1957                             const char *param, void* dst, int src) {
1958   m_obj_presets_t* obj_p = (m_obj_presets_t*)opt->priv;
1959   const m_struct_t *in_desc;
1960   const m_struct_t *out_desc;
1961   int s,i;
1962   const unsigned char *pre;
1963   char* pre_name = NULL;
1964
1965   if(!obj_p) {
1966     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Presets need a pointer to a m_obj_presets_t in the priv field.\n",name);
1967     return M_OPT_PARSER_ERR;
1968   }
1969
1970   if(!param)
1971     return M_OPT_MISSING_PARAM;
1972
1973   pre = obj_p->presets;
1974   in_desc = obj_p->in_desc;
1975   out_desc = obj_p->out_desc ? obj_p->out_desc : obj_p->in_desc;
1976   s = in_desc->size;
1977
1978   if(!strcmp(param,"help")) {
1979     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available presets for %s->%s:",out_desc->name,name);
1980     for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1981         pre +=  s)
1982       mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1983     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1984     return M_OPT_EXIT - 1;
1985   }
1986
1987   for(pre_name = M_ST_MB(char*,pre,obj_p->name_off) ; pre_name ;
1988       pre +=  s, pre_name = M_ST_MB(char*,pre,obj_p->name_off)) {
1989     if(!strcmp(pre_name,param)) break;
1990   }
1991   if(!pre_name) {
1992     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: There is no preset named %s\n"
1993            "Available presets are:",name,param);
1994     for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1995         pre +=  s)
1996       mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1997     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1998     return M_OPT_INVALID;
1999   }
2000
2001   if(!dst) return 1;
2002
2003   for(i = 0 ; in_desc->fields[i].name ; i++) {
2004     const m_option_t* out_opt = m_option_list_find(out_desc->fields,
2005                                              in_desc->fields[i].name);
2006     if(!out_opt) {
2007       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Unable to find the target option for field %s.\nPlease report this to the developers.\n",name,in_desc->fields[i].name);
2008       return M_OPT_PARSER_ERR;
2009     }
2010     m_option_copy(out_opt,M_ST_MB_P(dst,out_opt->p),M_ST_MB_P(pre,in_desc->fields[i].p));
2011   }
2012   return 1;
2013 }
2014
2015
2016 const m_option_type_t m_option_type_obj_presets = {
2017   "Object presets",
2018   "",
2019   0,
2020   0,
2021   parse_obj_presets,
2022   NULL,
2023   NULL,
2024   NULL,
2025   NULL,
2026   NULL
2027 };
2028
2029 static int parse_custom_url(const m_option_t* opt,const char *name,
2030                             const char *url, void* dst, int src) {
2031   int pos1, pos2, r, v6addr = 0;
2032   char *ptr1=NULL, *ptr2=NULL, *ptr3=NULL, *ptr4=NULL;
2033   m_struct_t* desc = opt->priv;
2034
2035   if(!desc) {
2036     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Custom URL needs a pointer to a m_struct_t in the priv field.\n",name);
2037     return M_OPT_PARSER_ERR;
2038   }
2039
2040   // extract the protocol
2041   ptr1 = strstr(url, "://");
2042   if( ptr1==NULL ) {
2043     // Filename only
2044     if(m_option_list_find(desc->fields,"filename")) {
2045       m_struct_set(desc,dst,"filename",url);
2046       return 1;
2047     }
2048     mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Option %s: URL doesn't have a valid protocol!\n",name);
2049     return M_OPT_INVALID;
2050   }
2051   if(m_option_list_find(desc->fields,"string")) {
2052     if(strlen(ptr1)>3) {
2053       m_struct_set(desc,dst,"string",ptr1+3);
2054       return 1;
2055     }
2056   }
2057   pos1 = ptr1-url;
2058   if(dst && m_option_list_find(desc->fields,"protocol")) {
2059     ptr1[0] = '\0';
2060     r = m_struct_set(desc,dst,"protocol",url);
2061     ptr1[0] = ':';
2062     if(r < 0) {
2063       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting protocol.\n",name);
2064       return r;
2065     }
2066   }
2067
2068   // jump the "://"
2069   ptr1 += 3;
2070   pos1 += 3;
2071
2072   // check if a username:password is given
2073   ptr2 = strstr(ptr1, "@");
2074   ptr3 = strstr(ptr1, "/");
2075   if( ptr3!=NULL && ptr3<ptr2 ) {
2076     // it isn't really a username but rather a part of the path
2077     ptr2 = NULL;
2078   }
2079   if( ptr2!=NULL ) {
2080
2081     // We got something, at least a username...
2082     if(!m_option_list_find(desc->fields,"username")) {
2083       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a username part.\n",name);
2084       // skip
2085     } else {
2086       ptr3 = strstr(ptr1, ":");
2087       if( ptr3!=NULL && ptr3<ptr2 ) {
2088         // We also have a password
2089         if(!m_option_list_find(desc->fields,"password")) {
2090           mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a password part.\n",name);
2091           // skip
2092         } else { // Username and password
2093           if(dst) {
2094             ptr3[0] = '\0';
2095             r = m_struct_set(desc,dst,"username",ptr1);
2096             ptr3[0] = ':';
2097             if(r < 0) {
2098               mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
2099               return r;
2100             }
2101             ptr2[0] = '\0';
2102             r = m_struct_set(desc,dst,"password",ptr3+1);
2103             ptr2[0] = '@';
2104             if(r < 0) {
2105               mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting password.\n",name);
2106               return r;
2107             }
2108           }
2109         }
2110       } else { // User name only
2111         ptr2[0] = '\0';
2112         r = m_struct_set(desc,dst,"username",ptr1);
2113         ptr2[0] = '@';
2114         if(r < 0) {
2115           mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
2116           return r;
2117         }
2118       }
2119     }
2120     ptr1 = ptr2+1;
2121     pos1 = ptr1-url;
2122   }
2123
2124   // before looking for a port number check if we have an IPv6 type numeric address
2125   // in an IPv6 URL the numeric address should be inside square braces.
2126   ptr2 = strstr(ptr1, "[");
2127   ptr3 = strstr(ptr1, "]");
2128   // If the [] is after the first it isn't the hostname
2129   ptr4 = strstr(ptr1, "/");
2130   if( ptr2!=NULL && ptr3!=NULL && (ptr2 < ptr3) && (!ptr4 || ptr4 > ptr3)) {
2131     // we have an IPv6 numeric address
2132     ptr1++;
2133     pos1++;
2134     ptr2 = ptr3;
2135     v6addr = 1;
2136   } else {
2137     ptr2 = ptr1;
2138   }
2139
2140   // look if the port is given
2141   ptr2 = strstr(ptr2, ":");
2142   // If the : is after the first / it isn't the port
2143   ptr3 = strstr(ptr1, "/");
2144   if(ptr3 && ptr3 - ptr2 < 0) ptr2 = NULL;
2145   if( ptr2==NULL ) {
2146     // No port is given
2147     // Look if a path is given
2148     if( ptr3==NULL ) {
2149       // No path/filename
2150       // So we have an URL like http://www.hostname.com
2151       pos2 = strlen(url);
2152     } else {
2153       // We have an URL like http://www.hostname.com/file.txt
2154       pos2 = ptr3-url;
2155     }
2156   } else {
2157     // We have an URL beginning like http://www.hostname.com:1212
2158     // Get the port number
2159     if(!m_option_list_find(desc->fields,"port")) {
2160       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a port part.\n",name);
2161       // skip
2162     } else {
2163       if(dst) {
2164         int p = atoi(ptr2+1);
2165         char tmp[100];
2166         snprintf(tmp,99,"%d",p);
2167         r = m_struct_set(desc,dst,"port",tmp);
2168         if(r < 0) {
2169           mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting port.\n",name);
2170           return r;
2171         }
2172       }
2173     }
2174     pos2 = ptr2-url;
2175   }
2176   if( v6addr ) pos2--;
2177   // Get the hostname
2178   if(pos2-pos1 > 0) {
2179     if(!m_option_list_find(desc->fields,"hostname")) {
2180       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
2181       // skip
2182     } else {
2183       char tmp[pos2-pos1+1];
2184       strncpy(tmp,ptr1, pos2-pos1);
2185       tmp[pos2-pos1] = '\0';
2186       r = m_struct_set(desc,dst,"hostname",tmp);
2187       if(r < 0) {
2188         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting hostname.\n",name);
2189         return r;
2190       }
2191     }
2192   }
2193   // Look if a path is given
2194   ptr2 = strstr(ptr1, "/");
2195   if( ptr2!=NULL ) {
2196     // A path/filename is given
2197     // check if it's not a trailing '/'
2198     if( strlen(ptr2)>1 ) {
2199       // copy the path/filename in the URL container
2200       if(!m_option_list_find(desc->fields,"filename")) {
2201         mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
2202         // skip
2203       } else {
2204         if(dst) {
2205           int l = strlen(ptr2+1) + 1;
2206           char* fname = ptr2+1;
2207           if(l > 1) {
2208             fname = malloc(l);
2209             url_unescape_string(fname,ptr2+1);
2210           }
2211           r = m_struct_set(desc,dst,"filename",fname);
2212           if(fname != ptr2+1)
2213             free(fname);
2214           if(r < 0) {
2215             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting filename.\n",name);
2216             return r;
2217           }
2218         }
2219       }
2220     }
2221   }
2222   return 1;
2223 }
2224
2225 /// TODO : Write the other needed funcs for 'normal' options
2226 const m_option_type_t m_option_type_custom_url = {
2227   "Custom URL",
2228   "",
2229   0,
2230   0,
2231   parse_custom_url,
2232   NULL,
2233   NULL,
2234   NULL,
2235   NULL,
2236   NULL
2237 };