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