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   char separator = opt->priv ? *(char *)opt->priv : OPTION_LIST_SEPARATOR;
 686   while(ptr[0] != '\0') {
 687     ptr = get_nextsep(ptr, separator, 0);
 688     if(!ptr) {
 689       n++;
 690       break;
 691     }
 692     ptr++;
 693     n++;
 694   }
 695   if(n == 0)
 696     return M_OPT_INVALID;
 697   if( ((opt->flags & M_OPT_MIN) && (n < opt->min)) ||
 698       ((opt->flags & M_OPT_MAX) && (n > opt->max)) )
 699     return M_OPT_OUT_OF_RANGE;
 700
 701   if(!dst) return 1;
 702
 703   res = malloc((n+2)*sizeof(char*));
 704   ptr = str = strdup(param);
 705   n = 0;
 706
 707   while(1) {
 708     last_ptr = ptr;
 709     ptr = get_nextsep(ptr, separator, 1);
 710     if(!ptr) {
 711       res[n] = strdup(last_ptr);
 712       n++;
 713       break;
 714     }
 715     len = ptr - last_ptr;
 716     res[n] = malloc(len + 1);
 717     if(len) strncpy(res[n],last_ptr,len);
 718     res[n][len] = '\0';
 719     ptr++;
 720     n++;
 721   }
 722   res[n] = NULL;
 723   free(str);
 724
 725   switch(op) {
 726   case OP_ADD:
 727     return str_list_add(res,n,dst,0);
 728   case OP_PRE:
 729     return str_list_add(res,n,dst,1);
 730   case OP_DEL:
 731     return str_list_del(res,n,dst);
 732   }
 733
 734   if(VAL(dst))
 735     free_str_list(dst);
 736   VAL(dst) = res;
 737
 738   return 1;
 739 }
 740
 741 static void copy_str_list(const m_option_t* opt,void* dst, const void* src) {
 742   int n;
 743   char **d,**s;
 744
 745   if(!(dst && src)) return;
 746   s = VAL(src);
 747
 748   if(VAL(dst))
 749     free_str_list(dst);
 750
 751   if(!s) {
 752     VAL(dst) = NULL;
 753     return;
 754   }
 755
 756   for(n = 0 ; s[n] != NULL ; n++)
 757     /* NOTHING */;
 758   d = malloc((n+1)*sizeof(char*));
 759   for( ; n >= 0 ; n--)
 760     d[n] = s[n] ? strdup(s[n]) : NULL;
 761
 762   VAL(dst) = d;
 763 }
 764
 765 static char* print_str_list(const m_option_t* opt, const void* src) {
 766   char **lst = NULL;
 767   char *ret = NULL,*last = NULL;
 768   int i;
 769
 770   if(!(src && VAL(src))) return NULL;
 771   lst = VAL(src);
 772
 773   for(i = 0 ; lst[i] ; i++) {
 774     if(last) {
 775       ret = dup_printf("%s,%s",last,lst[i]);
 776       free(last);
 777     } else
 778       ret = strdup(lst[i]);
 779     last = ret;
 780   }
 781   if(last && last != ret) free(last);
 782   return ret;
 783 }
 784
 785 const m_option_type_t m_option_type_string_list = {
 786   "String list",
 787   "A list of strings separated by ','\n"
 788   "Option with a name ending in an * permits using the following suffix: \n"
 789   "\t-add: Add the given parameters at the end of the list.\n"
 790   "\t-pre: Add the given parameters at the beginning of the list.\n"
 791   "\t-del: Remove the entry at the given indices.\n"
 792   "\t-clr: Clear the list.\n"
 793   "e.g: -vf-add flip,mirror -vf-del 2,5\n",
 794   sizeof(char**),
 795   M_OPT_TYPE_DYNAMIC | M_OPT_TYPE_ALLOW_WILDCARD,
 796   parse_str_list,
 797   print_str_list,
 798   copy_str_list,
 799   copy_str_list,
 800   copy_str_list,
 801   free_str_list
 802 };
 803
 804
 805 ///////////////////  Func based options
 806
 807 // A chained list to save the various calls for func_param
 808 typedef struct m_func_save m_func_save_t;
 809 struct m_func_save {
 810   m_func_save_t* next;
 811   char* name;
 812   char* param;
 813 };
 814
 815 #undef VAL
 816 #define VAL(x) (*(m_func_save_t**)(x))
 817
 818 static void free_func_pf(void* src) {
 819   m_func_save_t *s,*n;
 820
 821   if(!src) return;
 822
 823   s = VAL(src);
 824
 825   while(s) {
 826     n = s->next;
 827     free(s->name);
 828     free(s->param);
 829     free(s);
 830     s = n;
 831   }
 832   VAL(src) = NULL;
 833 }
 834
 835 // Parser for func_param
 836 static int parse_func_pf(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 837   m_func_save_t *s,*p;
 838
 839   if(!dst)
 840     return 1;
 841
 842   s = calloc(1,sizeof(m_func_save_t));
 843   s->name = strdup(name);
 844   s->param = param ? strdup(param) : NULL;
 845
 846   p = VAL(dst);
 847   if(p) {
 848     for( ; p->next != NULL ; p = p->next)
 849       /**/;
 850     p->next = s;
 851   } else
 852     VAL(dst) = s;
 853
 854   return 1;
 855 }
 856
 857 static void copy_func_pf(const m_option_t* opt,void* dst, const void* src) {
 858   m_func_save_t *d = NULL, *s,* last = NULL;
 859
 860   if(!(dst && src)) return;
 861   s = VAL(src);
 862
 863   if(VAL(dst))
 864     free_func_pf(dst);
 865
 866   while(s) {
 867     d = calloc(1,sizeof(m_func_save_t));
 868     d->name = strdup(s->name);
 869     d->param = s->param ? strdup(s->param) : NULL;
 870     if(last)
 871       last->next = d;
 872     else
 873       VAL(dst) = d;
 874     last = d;
 875     s = s->next;
 876   }
 877
 878
 879 }
 880
 881 /////////////////// Func_param
 882
 883 static void set_func_param(const m_option_t* opt, void* dst, const void* src) {
 884   m_func_save_t* s;
 885
 886   if(!src) return;
 887   s = VAL(src);
 888
 889   if(!s) return;
 890
 891   for( ; s != NULL ; s = s->next)
 892     ((m_opt_func_param_t) opt->p)(opt,s->param);
 893 }
 894
 895 const m_option_type_t m_option_type_func_param = {
 896   "Func param",
 897   "",
 898   sizeof(m_func_save_t*),
 899   M_OPT_TYPE_INDIRECT,
 900   parse_func_pf,
 901   NULL,
 902   NULL, // Nothing to do on save
 903   set_func_param,
 904   copy_func_pf,
 905   free_func_pf
 906 };
 907
 908 /////////////// Func
 909
 910 #undef VAL
 911
 912 static int parse_func(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 913   return 0;
 914 }
 915
 916 static void set_func(const m_option_t* opt,void* dst, const void* src) {
 917     ((m_opt_func_t) opt->p)(opt);
 918 }
 919
 920 const m_option_type_t m_option_type_func = {
 921   "Func",
 922   "",
 923   sizeof(int),
 924   M_OPT_TYPE_INDIRECT,
 925   parse_func,
 926   NULL,
 927   NULL, // Nothing to do on save
 928   set_func,
 929   NULL,
 930   NULL
 931 };
 932
 933 /////////////////// Print
 934
 935 static int parse_print(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 936   if(opt->type == CONF_TYPE_PRINT_INDIRECT)
 937     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s", *(char **) opt->p);
 938   else if(opt->type == CONF_TYPE_PRINT_FUNC)
 939     return ((m_opt_func_full_t) opt->p)(opt,name,param);
 940   else
 941       mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s", mp_gtext(opt->p));
 942
 943   if(opt->priv == NULL)
 944     return M_OPT_EXIT;
 945   return 0;
 946 }
 947
 948 const m_option_type_t m_option_type_print = {
 949   "Print",
 950   "",
 951   0,
 952   0,
 953   parse_print,
 954   NULL,
 955   NULL,
 956   NULL,
 957   NULL,
 958   NULL
 959 };
 960
 961 const m_option_type_t m_option_type_print_indirect = {
 962   "Print",
 963   "",
 964   0,
 965   0,
 966   parse_print,
 967   NULL,
 968   NULL,
 969   NULL,
 970   NULL,
 971   NULL
 972 };
 973
 974 const m_option_type_t m_option_type_print_func = {
 975   "Print",
 976   "",
 977   0,
 978   M_OPT_TYPE_ALLOW_WILDCARD,
 979   parse_print,
 980   NULL,
 981   NULL,
 982   NULL,
 983   NULL,
 984   NULL
 985 };
 986
 987
 988 /////////////////////// Subconfig
 989 #undef VAL
 990 #define VAL(x) (*(char***)(x))
 991
 992 static int parse_subconf(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
 993   char *subparam;
 994   char *subopt;
 995   int nr = 0,i,r;
 996   const m_option_t *subopts;
 997   const char *p;
 998   char** lst = NULL;
 999
1000   if (param == NULL || strlen(param) == 0)
1001     return M_OPT_MISSING_PARAM;
1002
1003   subparam = malloc(strlen(param)+1);
1004   subopt = malloc(strlen(param)+1);
1005   p = param;
1006
1007   subopts = opt->p;
1008
1009   while(p[0])
1010     {
1011       int sscanf_ret = 1;
1012       int optlen = strcspn(p, ":=");
1013       /* clear out */
1014       subopt[0] = subparam[0] = 0;
1015       av_strlcpy(subopt, p, optlen + 1);
1016       p = &p[optlen];
1017       if (p[0] == '=') {
1018         sscanf_ret = 2;
1019         p = &p[1];
1020         if (p[0] == '"') {
1021           p = &p[1];
1022           optlen = strcspn(p, "\"");
1023           av_strlcpy(subparam, p, optlen + 1);
1024           p = &p[optlen];
1025           if (p[0] != '"') {
1026             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Terminating '\"' missing for '%s'\n", subopt);
1027             return M_OPT_INVALID;
1028           }
1029           p = &p[1];
1030         } else if (p[0] == '%') {
1031           p = &p[1];
1032           optlen = (int)strtol(p, (char**)&p, 0);
1033           if (!p || p[0] != '%' || (optlen > strlen(p) - 1)) {
1034             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid length %i for '%s'\n", optlen, subopt);
1035             return M_OPT_INVALID;
1036           }
1037           p = &p[1];
1038           av_strlcpy(subparam, p, optlen + 1);
1039           p = &p[optlen];
1040         } else {
1041           optlen = strcspn(p, ":");
1042           av_strlcpy(subparam, p, optlen + 1);
1043           p = &p[optlen];
1044         }
1045       }
1046       if (p[0] == ':')
1047         p = &p[1];
1048       else if (p[0]) {
1049         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Incorrect termination for '%s'\n", subopt);
1050         return M_OPT_INVALID;
1051       }
1052
1053       switch(sscanf_ret)
1054         {
1055         case 1:
1056           subparam[0] = 0;
1057         case 2:
1058           for(i = 0 ; subopts[i].name ; i++) {
1059             if(!strcmp(subopts[i].name,subopt)) break;
1060           }
1061           if(!subopts[i].name) {
1062             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Unknown suboption %s\n",name,subopt);
1063             return M_OPT_UNKNOWN;
1064           }
1065           r = m_option_parse(&subopts[i],subopt,
1066                              subparam[0] == 0 ? NULL : subparam,NULL,src);
1067           if(r < 0) return r;
1068           if(dst) {
1069             lst = realloc(lst,2 * (nr+2) * sizeof(char*));
1070             lst[2*nr] = strdup(subopt);
1071             lst[2*nr+1] = subparam[0] == 0 ? NULL : strdup(subparam);
1072             memset(&lst[2*(nr+1)],0,2*sizeof(char*));
1073             nr++;
1074           }
1075           break;
1076         }
1077     }
1078
1079   free(subparam);
1080   free(subopt);
1081   if(dst)
1082     VAL(dst) = lst;
1083
1084   return 1;
1085 }
1086
1087 const m_option_type_t m_option_type_subconfig = {
1088   "Subconfig",
1089   "The syntax is -option opt1=foo:flag:opt2=blah",
1090   sizeof(int),
1091   M_OPT_TYPE_HAS_CHILD,
1092   parse_subconf,
1093   NULL,
1094   NULL,
1095   NULL,
1096   NULL,
1097   NULL
1098 };
1099
1100 #include "libmpcodecs/img_format.h"
1101
1102 /* FIXME: snyc with img_format.h */
1103 static struct {
1104   const char* name;
1105   unsigned int fmt;
1106 } mp_imgfmt_list[] = {
1107   {"444p16le", IMGFMT_444P16_LE},
1108   {"444p16be", IMGFMT_444P16_BE},
1109   {"422p16le", IMGFMT_422P16_LE},
1110   {"422p16be", IMGFMT_422P16_BE},
1111   {"420p16le", IMGFMT_420P16_LE},
1112   {"420p16be", IMGFMT_420P16_BE},
1113   {"444p16", IMGFMT_444P16},
1114   {"422p16", IMGFMT_422P16},
1115   {"420p16", IMGFMT_420P16},
1116   {"420a", IMGFMT_420A},
1117   {"444p", IMGFMT_444P},
1118   {"422p", IMGFMT_422P},
1119   {"411p", IMGFMT_411P},
1120   {"440p", IMGFMT_440P},
1121   {"yuy2", IMGFMT_YUY2},
1122   {"uyvy", IMGFMT_UYVY},
1123   {"yvu9", IMGFMT_YVU9},
1124   {"if09", IMGFMT_IF09},
1125   {"yv12", IMGFMT_YV12},
1126   {"i420", IMGFMT_I420},
1127   {"iyuv", IMGFMT_IYUV},
1128   {"clpl", IMGFMT_CLPL},
1129   {"hm12", IMGFMT_HM12},
1130   {"y800", IMGFMT_Y800},
1131   {"y8", IMGFMT_Y8},
1132   {"nv12", IMGFMT_NV12},
1133   {"nv21", IMGFMT_NV21},
1134   {"bgr24", IMGFMT_BGR24},
1135   {"bgr32", IMGFMT_BGR32},
1136   {"bgr16", IMGFMT_BGR16},
1137   {"bgr15", IMGFMT_BGR15},
1138   {"bgr12", IMGFMT_BGR12},
1139   {"bgr8", IMGFMT_BGR8},
1140   {"bgr4", IMGFMT_BGR4},
1141   {"bg4b", IMGFMT_BG4B},
1142   {"bgr1", IMGFMT_BGR1},
1143   {"rgb48be", IMGFMT_RGB48BE},
1144   {"rgb48le", IMGFMT_RGB48LE},
1145   {"rgb48ne", IMGFMT_RGB48NE},
1146   {"rgb24", IMGFMT_RGB24},
1147   {"rgb32", IMGFMT_RGB32},
1148   {"rgb16", IMGFMT_RGB16},
1149   {"rgb15", IMGFMT_RGB15},
1150   {"rgb12", IMGFMT_RGB12},
1151   {"rgb8", IMGFMT_RGB8},
1152   {"rgb4", IMGFMT_RGB4},
1153   {"rg4b", IMGFMT_RG4B},
1154   {"rgb1", IMGFMT_RGB1},
1155   {"rgba", IMGFMT_RGBA},
1156   {"argb", IMGFMT_ARGB},
1157   {"bgra", IMGFMT_BGRA},
1158   {"abgr", IMGFMT_ABGR},
1159   {"mjpeg", IMGFMT_MJPEG},
1160   {"mjpg", IMGFMT_MJPEG},
1161   { NULL, 0 }
1162 };
1163
1164 static int parse_imgfmt(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
1165   uint32_t fmt = 0;
1166   int i;
1167
1168   if (param == NULL || strlen(param) == 0)
1169     return M_OPT_MISSING_PARAM;
1170
1171   if(!strcmp(param,"help")) {
1172     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available formats:");
1173     for(i = 0 ; mp_imgfmt_list[i].name ; i++)
1174       mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %s",mp_imgfmt_list[i].name);
1175     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
1176     return M_OPT_EXIT - 1;
1177   }
1178
1179   if (sscanf(param, "0x%x", &fmt) != 1)
1180   {
1181   for(i = 0 ; mp_imgfmt_list[i].name ; i++) {
1182     if(!strcasecmp(param,mp_imgfmt_list[i].name)) {
1183       fmt=mp_imgfmt_list[i].fmt;
1184       break;
1185     }
1186   }
1187   if(!mp_imgfmt_list[i].name) {
1188     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: unknown format name: '%s'\n",name,param);
1189     return M_OPT_INVALID;
1190   }
1191   }
1192
1193   if(dst)
1194     *((uint32_t*)dst) = fmt;
1195
1196   return 1;
1197 }
1198
1199 const m_option_type_t m_option_type_imgfmt = {
1200   "Image format",
1201   "Please report any missing colorspaces.",
1202   sizeof(uint32_t),
1203   0,
1204   parse_imgfmt,
1205   NULL,
1206   copy_opt,
1207   copy_opt,
1208   NULL,
1209   NULL
1210 };
1211
1212 #include "libaf/af_format.h"
1213
1214 /* FIXME: snyc with af_format.h */
1215 static struct {
1216   const char* name;
1217   unsigned int fmt;
1218 } mp_afmt_list[] = {
1219   // SPECIAL
1220   {"mulaw", AF_FORMAT_MU_LAW},
1221   {"alaw", AF_FORMAT_A_LAW},
1222   {"mpeg2", AF_FORMAT_MPEG2},
1223   {"ac3le", AF_FORMAT_AC3_LE},
1224   {"ac3be", AF_FORMAT_AC3_BE},
1225   {"ac3ne", AF_FORMAT_AC3_NE},
1226   {"imaadpcm", AF_FORMAT_IMA_ADPCM},
1227   // ORDINARY
1228   {"u8", AF_FORMAT_U8},
1229   {"s8", AF_FORMAT_S8},
1230   {"u16le", AF_FORMAT_U16_LE},
1231   {"u16be", AF_FORMAT_U16_BE},
1232   {"u16ne", AF_FORMAT_U16_NE},
1233   {"s16le", AF_FORMAT_S16_LE},
1234   {"s16be", AF_FORMAT_S16_BE},
1235   {"s16ne", AF_FORMAT_S16_NE},
1236   {"u24le", AF_FORMAT_U24_LE},
1237   {"u24be", AF_FORMAT_U24_BE},
1238   {"u24ne", AF_FORMAT_U24_NE},
1239   {"s24le", AF_FORMAT_S24_LE},
1240   {"s24be", AF_FORMAT_S24_BE},
1241   {"s24ne", AF_FORMAT_S24_NE},
1242   {"u32le", AF_FORMAT_U32_LE},
1243   {"u32be", AF_FORMAT_U32_BE},
1244   {"u32ne", AF_FORMAT_U32_NE},
1245   {"s32le", AF_FORMAT_S32_LE},
1246   {"s32be", AF_FORMAT_S32_BE},
1247   {"s32ne", AF_FORMAT_S32_NE},
1248   {"floatle", AF_FORMAT_FLOAT_LE},
1249   {"floatbe", AF_FORMAT_FLOAT_BE},
1250   {"floatne", AF_FORMAT_FLOAT_NE},
1251   { NULL, 0 }
1252 };
1253
1254 static int parse_afmt(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
1255   uint32_t fmt = 0;
1256   int i;
1257
1258   if (param == NULL || strlen(param) == 0)
1259     return M_OPT_MISSING_PARAM;
1260
1261   if(!strcmp(param,"help")) {
1262     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available formats:");
1263     for(i = 0 ; mp_afmt_list[i].name ; i++)
1264       mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %s",mp_afmt_list[i].name);
1265     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
1266     return M_OPT_EXIT - 1;
1267   }
1268
1269   if (sscanf(param, "0x%x", &fmt) != 1)
1270   {
1271   for(i = 0 ; mp_afmt_list[i].name ; i++) {
1272     if(!strcasecmp(param,mp_afmt_list[i].name)) {
1273       fmt=mp_afmt_list[i].fmt;
1274       break;
1275     }
1276   }
1277   if(!mp_afmt_list[i].name) {
1278     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: unknown format name: '%s'\n",name,param);
1279     return M_OPT_INVALID;
1280   }
1281   }
1282
1283   if(dst)
1284     *((uint32_t*)dst) = fmt;
1285
1286   return 1;
1287 }
1288
1289 const m_option_type_t m_option_type_afmt = {
1290   "Audio format",
1291   "Please report any missing formats.",
1292   sizeof(uint32_t),
1293   0,
1294   parse_afmt,
1295   NULL,
1296   copy_opt,
1297   copy_opt,
1298   NULL,
1299   NULL
1300 };
1301
1302
1303 int parse_timestring(const char *str, double *time, char endchar)
1304 {
1305   int a, b, len;
1306   double d;
1307   *time = 0; /* ensure initialization for error cases */
1308   if (sscanf(str, "%d:%d:%lf%n", &a, &b, &d, &len) >= 3)
1309     *time = 3600*a + 60*b + d;
1310   else if (sscanf(str, "%d:%lf%n", &a, &d, &len) >= 2)
1311     *time = 60*a + d;
1312   else if (sscanf(str, "%lf%n", &d, &len) >= 1)
1313     *time = d;
1314   else
1315     return 0; /* unsupported time format */
1316   if (str[len] && str[len] != endchar)
1317     return 0; /* invalid extra characters at the end */
1318   return len;
1319 }
1320
1321
1322 static int parse_time(const m_option_t* opt,const char *name, const char *param, void* dst, int src)
1323 {
1324   double time;
1325
1326   if (param == NULL || strlen(param) == 0)
1327     return M_OPT_MISSING_PARAM;
1328
1329   if (!parse_timestring(param, &time, 0)) {
1330     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: invalid time: '%s'\n",
1331            name,param);
1332     return M_OPT_INVALID;
1333   }
1334
1335   if (dst)
1336     *(double *)dst = time;
1337   return 1;
1338 }
1339
1340 const m_option_type_t m_option_type_time = {
1341   "Time",
1342   "",
1343   sizeof(double),
1344   0,
1345   parse_time,
1346   print_double,
1347   copy_opt,
1348   copy_opt,
1349   NULL,
1350   NULL
1351 };
1352
1353
1354 // Time or size (-endpos)
1355
1356 static int parse_time_size(const m_option_t* opt,const char *name, const char *param, void* dst, int src) {
1357   m_time_size_t ts;
1358   char unit[4];
1359   double end_at;
1360
1361   if (param == NULL || strlen(param) == 0)
1362     return M_OPT_MISSING_PARAM;
1363
1364   ts.pos=0;
1365   /* End at size parsing */
1366   if(sscanf(param, "%lf%3s", &end_at, unit) == 2) {
1367     ts.type = END_AT_SIZE;
1368     if(!strcasecmp(unit, "b"))
1369       ;
1370     else if(!strcasecmp(unit, "kb"))
1371       end_at *= 1024;
1372     else if(!strcasecmp(unit, "mb"))
1373       end_at *= 1024*1024;
1374     else if(!strcasecmp(unit, "gb"))
1375       end_at *= 1024*1024*1024;
1376     else
1377       ts.type = END_AT_NONE;
1378
1379     if (ts.type == END_AT_SIZE) {
1380       ts.pos  = end_at;
1381       goto out;
1382     }
1383   }
1384
1385   /* End at time parsing. This has to be last because the parsing accepts
1386    * even a number followed by garbage */
1387   if (!parse_timestring(param, &end_at, 0)) {
1388     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: invalid time or size: '%s'\n",
1389            name,param);
1390     return M_OPT_INVALID;
1391   }
1392
1393   ts.type = END_AT_TIME;
1394   ts.pos  = end_at;
1395 out:
1396   if(dst)
1397     *(m_time_size_t *)dst = ts;
1398   return 1;
1399 }
1400
1401 const m_option_type_t m_option_type_time_size = {
1402   "Time or size",
1403   "",
1404   sizeof(m_time_size_t),
1405   0,
1406   parse_time_size,
1407   NULL,
1408   copy_opt,
1409   copy_opt,
1410   NULL,
1411   NULL
1412 };
1413
1414
1415 //// Objects (i.e. filters, etc) settings
1416
1417 #include "m_struct.h"
1418
1419 #undef VAL
1420 #define VAL(x) (*(m_obj_settings_t**)(x))
1421
1422 static int find_obj_desc(const char* name,const m_obj_list_t* l,const m_struct_t** ret) {
1423   int i;
1424   char* n;
1425
1426   for(i = 0 ; l->list[i] ; i++) {
1427     n = M_ST_MB(char*,l->list[i],l->name_off);
1428     if(!strcmp(n,name)) {
1429       *ret = M_ST_MB(m_struct_t*,l->list[i],l->desc_off);
1430       return 1;
1431     }
1432   }
1433   return 0;
1434 }
1435
1436 static int get_obj_param(const char* opt_name,const char* obj_name, const m_struct_t* desc,
1437                          char* str,int* nold,int oldmax,char** dst) {
1438   char* eq;
1439   const m_option_t* opt;
1440   int r;
1441
1442   eq = strchr(str,'=');
1443   if(eq && eq == str)
1444     eq = NULL;
1445
1446   if(eq) {
1447     char* p = eq + 1;
1448     if(p[0] == '\0') p = NULL;
1449     eq[0] = '\0';
1450     opt = m_option_list_find(desc->fields,str);
1451     if(!opt) {
1452       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't have a %s parameter.\n",opt_name,obj_name,str);
1453       return M_OPT_UNKNOWN;
1454     }
1455     r = m_option_parse(opt,str,p,NULL,M_CONFIG_FILE);
1456     if(r < 0) {
1457       if(r > M_OPT_EXIT)
1458         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,str,p);
1459       eq[0] = '=';
1460       return r;
1461     }
1462     if(dst) {
1463       dst[0] = strdup(str);
1464       dst[1] = p ? strdup(p) : NULL;
1465     }
1466     eq[0] = '=';
1467   } else {
1468     if((*nold) >= oldmax) {
1469       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s has only %d params, so you can't give more than %d unnamed params.\n",
1470              opt_name,obj_name,oldmax,oldmax);
1471       return M_OPT_OUT_OF_RANGE;
1472     }
1473     opt = &desc->fields[(*nold)];
1474     r = m_option_parse(opt,opt->name,str,NULL,M_CONFIG_FILE);
1475     if(r < 0) {
1476       if(r > M_OPT_EXIT)
1477         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,opt->name,str);
1478       return r;
1479     }
1480     if(dst) {
1481       dst[0] = strdup(opt->name);
1482       dst[1] = strdup(str);
1483     }
1484     (*nold)++;
1485   }
1486   return 1;
1487 }
1488
1489 static int get_obj_params(const char* opt_name, const char* name,char* params,
1490                           const m_struct_t* desc,char separator, char*** _ret) {
1491   int n = 0,nold = 0, nopts,r;
1492   char* ptr,*last_ptr = params;
1493   char** ret;
1494
1495   if(!strcmp(params,"help")) { // Help
1496     char min[50],max[50];
1497     if(!desc->fields) {
1498       printf("%s doesn't have any options.\n\n",name);
1499       return M_OPT_EXIT - 1;
1500     }
1501     printf("\n Name                 Type            Min        Max\n\n");
1502     for(n = 0 ; desc->fields[n].name ; n++) {
1503       const m_option_t* opt = &desc->fields[n];
1504       if(opt->type->flags & M_OPT_TYPE_HAS_CHILD) continue;
1505       if(opt->flags & M_OPT_MIN)
1506         sprintf(min,"%-8.0f",opt->min);
1507       else
1508         strcpy(min,"No");
1509       if(opt->flags & M_OPT_MAX)
1510         sprintf(max,"%-8.0f",opt->max);
1511       else
1512         strcpy(max,"No");
1513       printf(" %-20.20s %-15.15s %-10.10s %-10.10s\n",
1514              opt->name,
1515              opt->type->name,
1516              min,
1517              max);
1518     }
1519     printf("\n");
1520     return M_OPT_EXIT - 1;
1521   }
1522
1523   for(nopts = 0 ; desc->fields[nopts].name ; nopts++)
1524     /* NOP */;
1525
1526   // TODO : Check that each opt can be parsed
1527   r = 1;
1528   while(last_ptr && last_ptr[0] != '\0') {
1529     ptr = strchr(last_ptr,separator);
1530     if(!ptr) {
1531       r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1532       n++;
1533       break;
1534     }
1535     if(ptr == last_ptr) { // Empty field, count it and go on
1536       nold++;
1537       last_ptr = ptr+1;
1538       continue;
1539     }
1540     ptr[0] = '\0';
1541     r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1542     ptr[0] = separator;
1543     if(r < 0) break;
1544     n++;
1545     last_ptr = ptr+1;
1546   }
1547   if(r < 0) return r;
1548   if (!last_ptr[0]) // count an empty field at the end, too
1549     nold++;
1550   if (nold > nopts) {
1551     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Too many options for %s\n", name);
1552     return M_OPT_OUT_OF_RANGE;
1553   }
1554   if(!_ret) // Just test
1555     return 1;
1556   if (n == 0) // No options or only empty options
1557     return 1;
1558
1559   ret = malloc((n+2)*2*sizeof(char*));
1560   n = nold = 0;
1561   last_ptr = params;
1562
1563   while(last_ptr && last_ptr[0] != '\0') {
1564     ptr = strchr(last_ptr,separator);
1565     if(!ptr) {
1566       get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1567       n++;
1568       break;
1569     }
1570     if(ptr == last_ptr) { // Empty field, count it and go on
1571       last_ptr = ptr+1;
1572       nold++;
1573       continue;
1574     }
1575     ptr[0] = '\0';
1576     get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1577     n++;
1578     last_ptr = ptr+1;
1579   }
1580   ret[n*2] = ret[n*2+1] = NULL;
1581   *_ret = ret;
1582
1583   return 1;
1584 }
1585
1586 static int parse_obj_params(const m_option_t* opt,const char *name,
1587                             const char *param, void* dst, int src) {
1588   char** opts;
1589   int r;
1590   m_obj_params_t* p = opt->priv;
1591   const m_struct_t* desc;
1592   char* cpy;
1593
1594   // We need the object desc
1595   if(!p)
1596     return M_OPT_INVALID;
1597
1598   desc = p->desc;
1599   cpy = strdup(param);
1600   r = get_obj_params(name,desc->name,cpy,desc,p->separator,dst ? &opts : NULL);
1601   free(cpy);
1602   if(r < 0)
1603     return r;
1604   if(!dst)
1605     return 1;
1606   if (!opts) // no arguments given
1607     return 1;
1608
1609   for(r = 0 ; opts[r] ; r += 2)
1610     m_struct_set(desc,dst,opts[r],opts[r+1]);
1611
1612   return 1;
1613 }
1614
1615
1616 const m_option_type_t m_option_type_obj_params = {
1617   "Object params",
1618   "",
1619   0,
1620   0,
1621   parse_obj_params,
1622   NULL,
1623   NULL,
1624   NULL,
1625   NULL,
1626   NULL
1627 };
1628
1629 /// Some predefined types as a definition would be quite lengthy
1630
1631 /// Span arguments
1632 static const m_span_t m_span_params_dflts = { -1, -1 };
1633 static const m_option_t m_span_params_fields[] = {
1634   {"start", M_ST_OFF(m_span_t,start), CONF_TYPE_INT, M_OPT_MIN, 1 ,0, NULL},
1635   {"end", M_ST_OFF(m_span_t,end), CONF_TYPE_INT, M_OPT_MIN , 1 ,0, NULL},
1636   { NULL, NULL, 0, 0, 0, 0,  NULL }
1637 };
1638 static const struct m_struct_st m_span_opts = {
1639   "m_span",
1640   sizeof(m_span_t),
1641   &m_span_params_dflts,
1642   m_span_params_fields
1643 };
1644 const m_obj_params_t m_span_params_def = {
1645   &m_span_opts,
1646   '-'
1647 };
1648
1649 static int parse_obj_settings(const char* opt,char* str,const m_obj_list_t* list,
1650                               m_obj_settings_t **_ret, int ret_n) {
1651   int r;
1652   char *param,**plist = NULL;
1653   const m_struct_t* desc;
1654   m_obj_settings_t *ret = _ret ? *_ret : NULL;
1655
1656
1657   // Now check that the object exists
1658   param = strchr(str,'=');
1659   if(param) {
1660     param[0] = '\0';
1661     param++;
1662     if(strlen(param) <= 0)
1663       param = NULL;
1664   }
1665
1666
1667   if(!find_obj_desc(str,list,&desc)) {
1668     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't exist.\n",opt,str);
1669     return M_OPT_INVALID;
1670   }
1671
1672   if(param) {
1673     if(!desc && _ret) {
1674       if(!strcmp(param,"help")) {
1675         mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Option %s: %s have no option description.\n",opt,str);
1676         return M_OPT_EXIT - 1;
1677       }
1678       plist = calloc(4,sizeof(char*));
1679       plist[0] = strdup("_oldargs_");
1680       plist[1] = strdup(param);
1681     } else if(desc) {
1682       r = get_obj_params(opt,str,param,desc,':',_ret ? &plist : NULL);
1683       if(r < 0)
1684         return r;
1685     }
1686   }
1687   if(!_ret)
1688     return 1;
1689
1690   ret = realloc(ret,(ret_n+2)*sizeof(m_obj_settings_t));
1691   memset(&ret[ret_n],0,2*sizeof(m_obj_settings_t));
1692   ret[ret_n].name = strdup(str);
1693   ret[ret_n].attribs = plist;
1694
1695   *_ret = ret;
1696   return 1;
1697 }
1698
1699 static int obj_settings_list_del(const char *opt_name,const char *param,void* dst, int src) {
1700   char** str_list = NULL;
1701   int r,i,idx_max = 0;
1702   char* rem_id = "_removed_marker_";
1703   const m_option_t list_opt = {opt_name , NULL, CONF_TYPE_STRING_LIST,
1704                            0, 0, 0, NULL };
1705   m_obj_settings_t* obj_list = dst ? VAL(dst) : NULL;
1706
1707   if(dst && !obj_list) {
1708     mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: the list is empty.\n",opt_name);
1709     return 1;
1710   } else if(obj_list) {
1711     for(idx_max = 0 ; obj_list[idx_max].name != NULL ; idx_max++)
1712       /* NOP */;
1713   }
1714
1715   r = m_option_parse(&list_opt,opt_name,param,&str_list,src);
1716   if(r < 0 || !str_list)
1717     return r;
1718
1719   for(r = 0 ; str_list[r] ; r++) {
1720     int id;
1721     char* endptr;
1722     id = strtol(str_list[r],&endptr,0);
1723     if(endptr == str_list[r]) {
1724       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);
1725       m_option_free(&list_opt,&str_list);
1726       return M_OPT_INVALID;
1727     }
1728     if(!obj_list) continue;
1729     if(id >= idx_max || id < -idx_max) {
1730       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: Index %d is out of range.\n",opt_name,id);
1731       continue;
1732     }
1733     if(id < 0)
1734       id = idx_max + id;
1735     free(obj_list[id].name);
1736     free_str_list(&(obj_list[id].attribs));
1737     obj_list[id].name = rem_id;
1738   }
1739
1740   if(!dst) {
1741     m_option_free(&list_opt,&str_list);
1742     return 1;
1743   }
1744
1745   for(i = 0 ; obj_list[i].name ; i++) {
1746     while(obj_list[i].name == rem_id) {
1747       memmove(&obj_list[i],&obj_list[i+1],sizeof(m_obj_settings_t)*(idx_max - i));
1748       idx_max--;
1749     }
1750   }
1751   obj_list = realloc(obj_list,sizeof(m_obj_settings_t)*(idx_max+1));
1752   VAL(dst) = obj_list;
1753
1754   return 1;
1755 }
1756
1757 static void free_obj_settings_list(void* dst) {
1758   int n;
1759   m_obj_settings_t *d;
1760
1761   if (!dst || !VAL(dst)) return;
1762
1763   d = VAL(dst);
1764 #ifndef NO_FREE
1765   for (n = 0 ; d[n].name ; n++) {
1766     free(d[n].name);
1767     free_str_list(&(d[n].attribs));
1768   }
1769   free(d);
1770 #endif
1771   VAL(dst) = NULL;
1772 }
1773
1774 static int parse_obj_settings_list(const m_option_t* opt,const char *name,
1775                                    const char *param, void* dst, int src) {
1776   int n = 0,r,len = strlen(opt->name);
1777   char *str;
1778   char *ptr, *last_ptr;
1779   m_obj_settings_t *res = NULL,*queue = NULL,*head = NULL;
1780   int op = OP_NONE;
1781
1782   // We need the objects list
1783   if(!opt->priv)
1784     return M_OPT_INVALID;
1785
1786   if(opt->name[len-1] == '*' && ((int)strlen(name) > len - 1)) {
1787     const char* n = &name[len-1];
1788     if(strcasecmp(n,"-add") == 0)
1789       op = OP_ADD;
1790     else if(strcasecmp(n,"-pre") == 0)
1791       op = OP_PRE;
1792     else if(strcasecmp(n,"-del") == 0)
1793       op = OP_DEL;
1794     else if(strcasecmp(n,"-clr") == 0)
1795       op = OP_CLR;
1796     else {
1797       char prefix[len];
1798       strncpy(prefix,opt->name,len-1);
1799       prefix[len-1] = '\0';
1800       mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: unknown postfix %s\n"
1801              "Supported postfixes are:\n"
1802              "  %s-add\n"
1803              " Append the given list to the current list\n\n"
1804              "  %s-pre\n"
1805              " Prepend the given list to the current list\n\n"
1806              "  %s-del x,y,...\n"
1807              " Remove the given elements. Take the list element index (starting from 0).\n"
1808              " Negative index can be used (i.e. -1 is the last element)\n\n"
1809              "  %s-clr\n"
1810              " Clear the current list.\n",name,n,prefix,prefix,prefix,prefix);
1811
1812       return M_OPT_UNKNOWN;
1813     }
1814   }
1815
1816   // Clear the list ??
1817   if(op == OP_CLR) {
1818     if(dst)
1819       free_obj_settings_list(dst);
1820     return 0;
1821   }
1822
1823   if (param == NULL || strlen(param) == 0)
1824     return M_OPT_MISSING_PARAM;
1825
1826   switch(op) {
1827   case OP_ADD:
1828     if(dst) head = VAL(dst);
1829     break;
1830   case OP_PRE:
1831     if(dst) queue = VAL(dst);
1832      break;
1833   case OP_DEL:
1834     return obj_settings_list_del(name,param,dst,src);
1835   case OP_NONE:
1836     if(dst && VAL(dst))
1837       free_obj_settings_list(dst);
1838     break;
1839   default:
1840     mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: FIXME\n",name);
1841     return M_OPT_UNKNOWN;
1842   }
1843
1844   if(!strcmp(param,"help")) {
1845     m_obj_list_t* ol = opt->priv;
1846     mp_msg(MSGT_VFILTER,MSGL_INFO,"Available video filters:\n");
1847     mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_VIDEO_FILTERS\n");
1848     for(n = 0 ; ol->list[n] ; n++)
1849       mp_msg(MSGT_VFILTER,MSGL_INFO,"  %-15s: %s\n",
1850              M_ST_MB(char*,ol->list[n],ol->name_off),
1851              M_ST_MB(char*,ol->list[n],ol->info_off));
1852     mp_msg(MSGT_VFILTER,MSGL_INFO,"\n");
1853     return M_OPT_EXIT - 1;
1854   }
1855   ptr = str = strdup(param);
1856
1857   while(ptr[0] != '\0') {
1858     last_ptr = ptr;
1859     ptr = get_nextsep(ptr, OPTION_LIST_SEPARATOR, 1);
1860
1861     if(!ptr) {
1862       r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1863       if(r < 0) {
1864         free(str);
1865         return r;
1866       }
1867       n++;
1868       break;
1869     }
1870     ptr[0] = '\0';
1871     r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1872     if(r < 0) {
1873       free(str);
1874       return r;
1875     }
1876     ptr++;
1877     n++;
1878   }
1879   free(str);
1880   if(n == 0)
1881     return M_OPT_INVALID;
1882
1883   if( ((opt->flags & M_OPT_MIN) && (n < opt->min)) ||
1884       ((opt->flags & M_OPT_MAX) && (n > opt->max)) )
1885     return M_OPT_OUT_OF_RANGE;
1886
1887   if(dst) {
1888     if(queue) {
1889       int qsize;
1890       for(qsize = 0 ; queue[qsize].name ; qsize++)
1891         /* NOP */;
1892       res = realloc(res,(qsize+n+1)*sizeof(m_obj_settings_t));
1893       memcpy(&res[n],queue,(qsize+1)*sizeof(m_obj_settings_t));
1894       n += qsize;
1895       free(queue);
1896     }
1897     if(head) {
1898       int hsize;
1899       for(hsize = 0 ; head[hsize].name ; hsize++)
1900         /* NOP */;
1901       head = realloc(head,(hsize+n+1)*sizeof(m_obj_settings_t));
1902       memcpy(&head[hsize],res,(n+1)*sizeof(m_obj_settings_t));
1903       free(res);
1904       res = head;
1905     }
1906     VAL(dst) = res;
1907   }
1908   return 1;
1909 }
1910
1911 static void copy_obj_settings_list(const m_option_t* opt,void* dst, const void* src) {
1912   m_obj_settings_t *d,*s;
1913   int n;
1914
1915   if(!(dst && src))
1916     return;
1917
1918   s = VAL(src);
1919
1920   if(VAL(dst))
1921     free_obj_settings_list(dst);
1922   if(!s) return;
1923
1924
1925
1926   for(n = 0 ; s[n].name ; n++)
1927     /* NOP */;
1928   d = malloc((n+1)*sizeof(m_obj_settings_t));
1929   for(n = 0 ; s[n].name ; n++) {
1930     d[n].name = strdup(s[n].name);
1931     d[n].attribs = NULL;
1932     copy_str_list(NULL,&(d[n].attribs),&(s[n].attribs));
1933   }
1934   d[n].name = NULL;
1935   d[n].attribs = NULL;
1936   VAL(dst) = d;
1937 }
1938
1939 const m_option_type_t m_option_type_obj_settings_list = {
1940   "Object settings list",
1941   "",
1942   sizeof(m_obj_settings_t*),
1943   M_OPT_TYPE_DYNAMIC|M_OPT_TYPE_ALLOW_WILDCARD,
1944   parse_obj_settings_list,
1945   NULL,
1946   copy_obj_settings_list,
1947   copy_obj_settings_list,
1948   copy_obj_settings_list,
1949   free_obj_settings_list,
1950 };
1951
1952
1953
1954 static int parse_obj_presets(const m_option_t* opt,const char *name,
1955                             const char *param, void* dst, int src) {
1956   m_obj_presets_t* obj_p = (m_obj_presets_t*)opt->priv;
1957   m_struct_t *in_desc,*out_desc;
1958   int s,i;
1959   unsigned char* pre;
1960   char* pre_name = NULL;
1961
1962   if(!obj_p) {
1963     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Presets need a pointer to a m_obj_presets_t in the priv field.\n",name);
1964     return M_OPT_PARSER_ERR;
1965   }
1966
1967   if(!param)
1968     return M_OPT_MISSING_PARAM;
1969
1970   pre = obj_p->presets;
1971   in_desc = obj_p->in_desc;
1972   out_desc = obj_p->out_desc ? obj_p->out_desc : obj_p->in_desc;
1973   s = in_desc->size;
1974
1975   if(!strcmp(param,"help")) {
1976     mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available presets for %s->%s:",out_desc->name,name);
1977     for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1978         pre +=  s)
1979       mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1980     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1981     return M_OPT_EXIT - 1;
1982   }
1983
1984   for(pre_name = M_ST_MB(char*,pre,obj_p->name_off) ; pre_name ;
1985       pre +=  s, pre_name = M_ST_MB(char*,pre,obj_p->name_off)) {
1986     if(!strcmp(pre_name,param)) break;
1987   }
1988   if(!pre_name) {
1989     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: There is no preset named %s\n"
1990            "Available presets are:",name,param);
1991     for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1992         pre +=  s)
1993       mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1994     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1995     return M_OPT_INVALID;
1996   }
1997
1998   if(!dst) return 1;
1999
2000   for(i = 0 ; in_desc->fields[i].name ; i++) {
2001     const m_option_t* out_opt = m_option_list_find(out_desc->fields,
2002                                              in_desc->fields[i].name);
2003     if(!out_opt) {
2004       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);
2005       return M_OPT_PARSER_ERR;
2006     }
2007     m_option_copy(out_opt,M_ST_MB_P(dst,out_opt->p),M_ST_MB_P(pre,in_desc->fields[i].p));
2008   }
2009   return 1;
2010 }
2011
2012
2013 const m_option_type_t m_option_type_obj_presets = {
2014   "Object presets",
2015   "",
2016   0,
2017   0,
2018   parse_obj_presets,
2019   NULL,
2020   NULL,
2021   NULL,
2022   NULL,
2023   NULL
2024 };
2025
2026 static int parse_custom_url(const m_option_t* opt,const char *name,
2027                             const char *url, void* dst, int src) {
2028   int pos1, pos2, r, v6addr = 0;
2029   char *ptr1=NULL, *ptr2=NULL, *ptr3=NULL, *ptr4=NULL;
2030   m_struct_t* desc = opt->priv;
2031
2032   if(!desc) {
2033     mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Custom URL needs a pointer to a m_struct_t in the priv field.\n",name);
2034     return M_OPT_PARSER_ERR;
2035   }
2036
2037   // extract the protocol
2038   ptr1 = strstr(url, "://");
2039   if( ptr1==NULL ) {
2040     // Filename only
2041     if(m_option_list_find(desc->fields,"filename")) {
2042       m_struct_set(desc,dst,"filename",url);
2043       return 1;
2044     }
2045     mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Option %s: URL doesn't have a valid protocol!\n",name);
2046     return M_OPT_INVALID;
2047   }
2048   if(m_option_list_find(desc->fields,"string")) {
2049     if(strlen(ptr1)>3) {
2050       m_struct_set(desc,dst,"string",ptr1+3);
2051       return 1;
2052     }
2053   }
2054   pos1 = ptr1-url;
2055   if(dst && m_option_list_find(desc->fields,"protocol")) {
2056     ptr1[0] = '\0';
2057     r = m_struct_set(desc,dst,"protocol",url);
2058     ptr1[0] = ':';
2059     if(r < 0) {
2060       mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting protocol.\n",name);
2061       return r;
2062     }
2063   }
2064
2065   // jump the "://"
2066   ptr1 += 3;
2067   pos1 += 3;
2068
2069   // check if a username:password is given
2070   ptr2 = strstr(ptr1, "@");
2071   ptr3 = strstr(ptr1, "/");
2072   if( ptr3!=NULL && ptr3<ptr2 ) {
2073     // it isn't really a username but rather a part of the path
2074     ptr2 = NULL;
2075   }
2076   if( ptr2!=NULL ) {
2077
2078     // We got something, at least a username...
2079     if(!m_option_list_find(desc->fields,"username")) {
2080       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a username part.\n",name);
2081       // skip
2082     } else {
2083       ptr3 = strstr(ptr1, ":");
2084       if( ptr3!=NULL && ptr3<ptr2 ) {
2085         // We also have a password
2086         if(!m_option_list_find(desc->fields,"password")) {
2087           mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a password part.\n",name);
2088           // skip
2089         } else { // Username and password
2090           if(dst) {
2091             ptr3[0] = '\0';
2092             r = m_struct_set(desc,dst,"username",ptr1);
2093             ptr3[0] = ':';
2094             if(r < 0) {
2095               mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
2096               return r;
2097             }
2098             ptr2[0] = '\0';
2099             r = m_struct_set(desc,dst,"password",ptr3+1);
2100             ptr2[0] = '@';
2101             if(r < 0) {
2102               mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting password.\n",name);
2103               return r;
2104             }
2105           }
2106         }
2107       } else { // User name only
2108         ptr2[0] = '\0';
2109         r = m_struct_set(desc,dst,"username",ptr1);
2110         ptr2[0] = '@';
2111         if(r < 0) {
2112           mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
2113           return r;
2114         }
2115       }
2116     }
2117     ptr1 = ptr2+1;
2118     pos1 = ptr1-url;
2119   }
2120
2121   // before looking for a port number check if we have an IPv6 type numeric address
2122   // in an IPv6 URL the numeric address should be inside square braces.
2123   ptr2 = strstr(ptr1, "[");
2124   ptr3 = strstr(ptr1, "]");
2125   // If the [] is after the first it isn't the hostname
2126   ptr4 = strstr(ptr1, "/");
2127   if( ptr2!=NULL && ptr3!=NULL && (ptr2 < ptr3) && (!ptr4 || ptr4 > ptr3)) {
2128     // we have an IPv6 numeric address
2129     ptr1++;
2130     pos1++;
2131     ptr2 = ptr3;
2132     v6addr = 1;
2133   } else {
2134     ptr2 = ptr1;
2135   }
2136
2137   // look if the port is given
2138   ptr2 = strstr(ptr2, ":");
2139   // If the : is after the first / it isn't the port
2140   ptr3 = strstr(ptr1, "/");
2141   if(ptr3 && ptr3 - ptr2 < 0) ptr2 = NULL;
2142   if( ptr2==NULL ) {
2143     // No port is given
2144     // Look if a path is given
2145     if( ptr3==NULL ) {
2146       // No path/filename
2147       // So we have an URL like http://www.hostname.com
2148       pos2 = strlen(url);
2149     } else {
2150       // We have an URL like http://www.hostname.com/file.txt
2151       pos2 = ptr3-url;
2152     }
2153   } else {
2154     // We have an URL beginning like http://www.hostname.com:1212
2155     // Get the port number
2156     if(!m_option_list_find(desc->fields,"port")) {
2157       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a port part.\n",name);
2158       // skip
2159     } else {
2160       if(dst) {
2161         int p = atoi(ptr2+1);
2162         char tmp[100];
2163         snprintf(tmp,99,"%d",p);
2164         r = m_struct_set(desc,dst,"port",tmp);
2165         if(r < 0) {
2166           mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting port.\n",name);
2167           return r;
2168         }
2169       }
2170     }
2171     pos2 = ptr2-url;
2172   }
2173   if( v6addr ) pos2--;
2174   // Get the hostname
2175   if(pos2-pos1 > 0) {
2176     if(!m_option_list_find(desc->fields,"hostname")) {
2177       mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
2178       // skip
2179     } else {
2180       char tmp[pos2-pos1+1];
2181       strncpy(tmp,ptr1, pos2-pos1);
2182       tmp[pos2-pos1] = '\0';
2183       r = m_struct_set(desc,dst,"hostname",tmp);
2184       if(r < 0) {
2185         mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting hostname.\n",name);
2186         return r;
2187       }
2188     }
2189   }
2190   // Look if a path is given
2191   ptr2 = strstr(ptr1, "/");
2192   if( ptr2!=NULL ) {
2193     // A path/filename is given
2194     // check if it's not a trailing '/'
2195     if( strlen(ptr2)>1 ) {
2196       // copy the path/filename in the URL container
2197       if(!m_option_list_find(desc->fields,"filename")) {
2198         mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
2199         // skip
2200       } else {
2201         if(dst) {
2202           int l = strlen(ptr2+1) + 1;
2203           char* fname = ptr2+1;
2204           if(l > 1) {
2205             fname = malloc(l);
2206             url_unescape_string(fname,ptr2+1);
2207           }
2208           r = m_struct_set(desc,dst,"filename",fname);
2209           if(fname != ptr2+1)
2210             free(fname);
2211           if(r < 0) {
2212             mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting filename.\n",name);
2213             return r;
2214           }
2215         }
2216       }
2217     }
2218   }
2219   return 1;
2220 }
2221
2222 /// TODO : Write the other needed funcs for 'normal' options
2223 const m_option_type_t m_option_type_custom_url = {
2224   "Custom URL",
2225   "",
2226   0,
2227   0,
2228   parse_custom_url,
2229   NULL,
2230   NULL,
2231   NULL,
2232   NULL,
2233   NULL
2234 };