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