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