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