?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
typo fixes
[mplayer/greg.git] / m_option.c
blobbdf0a4da1130bad89338ab846af6b8a673e61fed
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 "libmpdemux/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,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, 0);
147 if (*endptr) {
148 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be an integer: %s\n",name, param);
149 return M_OPT_INVALID;
150 }
151
152 if ((opt->flags & M_OPT_MIN) && (tmp_int < opt->min)) {
153 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be >= %d: %s\n", name, (int) opt->min, param);
154 return M_OPT_OUT_OF_RANGE;
155 }
156
157 if ((opt->flags & M_OPT_MAX) && (tmp_int > opt->max)) {
158 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be <= %d: %s\n",name, (int) opt->max, param);
159 return M_OPT_OUT_OF_RANGE;
160 }
161
162 if(dst) VAL(dst) = tmp_int;
163
164 return 1;
165 }
166
167 static char* print_int(m_option_t* opt, void* val) {
168 opt = NULL;
169 return dup_printf("%d",VAL(val));
170 }
171
172 m_option_type_t m_option_type_int = {
173 "Integer",
174 "",
175 sizeof(int),
176 0,
177 parse_int,
178 print_int,
179 copy_opt,
180 copy_opt,
181 NULL,
182 NULL
183 };
184
185 // Float
186
187 #undef VAL
188 #define VAL(x) (*(double*)(x))
189
190 static int parse_double(m_option_t* opt,char *name, char *param, void* dst, int src) {
191 double tmp_float;
192 char* endptr;
193 src = 0;
194
195 if (param == NULL)
196 return M_OPT_MISSING_PARAM;
197
198 tmp_float = strtod(param, &endptr);
199
200 switch(*endptr) {
201 case ':':
202 case '/':
203 tmp_float /= strtod(endptr+1, &endptr);
204 break;
205 case '.':
206 case ',':
207 /* we also handle floats specified with
208 * non-locale decimal point ::atmos
209 */
210 if(tmp_float<0)
211 tmp_float -= 1.0/pow(10,strlen(endptr+1)) * strtod(endptr+1, &endptr);
212 else
213 tmp_float += 1.0/pow(10,strlen(endptr+1)) * strtod(endptr+1, &endptr);
214 break;
215 }
216
217 if (*endptr) {
218 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be a floating point "
219 "number or a ratio (numerator[:/]denominator): %s\n",name, param);
220 return M_OPT_INVALID;
221 }
222
223 if (opt->flags & M_OPT_MIN)
224 if (tmp_float < opt->min) {
225 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be >= %f: %s\n", name, opt->min, param);
226 return M_OPT_OUT_OF_RANGE;
227 }
228
229 if (opt->flags & M_OPT_MAX)
230 if (tmp_float > opt->max) {
231 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be <= %f: %s\n", name, opt->max, param);
232 return M_OPT_OUT_OF_RANGE;
233 }
234
235 if(dst) VAL(dst) = tmp_float;
236 return 1;
237 }
238
239 static char* print_double(m_option_t* opt, void* val) {
240 opt = NULL;
241 return dup_printf("%f",VAL(val));
242 }
243
244 m_option_type_t m_option_type_double = {
245 "Double",
246 "double precission floating point number or ratio (numerator[:/]denominator)",
247 sizeof(double),
248 0,
249 parse_double,
250 print_double,
251 copy_opt,
252 copy_opt,
253 NULL,
254 NULL
255 };
256
257 #undef VAL
258 #define VAL(x) (*(float*)(x))
259
260 static int parse_float(m_option_t* opt,char *name, char *param, void* dst, int src) {
261 double tmp;
262 int r= parse_double(opt, name, param, &tmp, src);
263 if(r==1 && dst) VAL(dst) = tmp;
264 return r;
265 }
266
267 static char* print_float(m_option_t* opt, void* val) {
268 opt = NULL;
269 return dup_printf("%f",VAL(val));
270 }
271
272 m_option_type_t m_option_type_float = {
273 "Float",
274 "floating point number or ratio (numerator[:/]denominator)",
275 sizeof(float),
276 0,
277 parse_float,
278 print_float,
279 copy_opt,
280 copy_opt,
281 NULL,
282 NULL
283 };
284
285 ///////////// Position
286 #undef VAL
287 #define VAL(x) (*(off_t*)(x))
288
289 static int parse_position(m_option_t* opt,char *name, char *param, void* dst, int src) {
290 off_t tmp_off;
291 char dummy;
292
293 if (param == NULL)
294 return M_OPT_MISSING_PARAM;
295 if (sscanf(param, sizeof(off_t) == sizeof(int) ?
296 "%d%c" : "%"PRId64"%c", &tmp_off, &dummy) != 1) {
297 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "The %s option must be an integer: %s\n",opt->name,param);
298 return M_OPT_INVALID;
299 }
300
301 if (opt->flags & M_OPT_MIN)
302 if (tmp_off < opt->min) {
303 mp_msg(MSGT_CFGPARSER, MSGL_ERR,
304 "The %s option must be >= %"PRId64": %s\n",
305 name, (int64_t) opt->min, param);
306 return M_OPT_OUT_OF_RANGE;
307 }
308
309 if (opt->flags & M_OPT_MAX)
310 if (tmp_off > opt->max) {
311 mp_msg(MSGT_CFGPARSER, MSGL_ERR,
312 "The %s option must be <= %"PRId64": %s\n",
313 name, (int64_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("%"PRId64,(int64_t)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*)calloc(1,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 == CONF_TYPE_PRINT_INDIRECT)
830 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s", *(char **) opt->p);
831 else if(opt->type == CONF_TYPE_PRINT_FUNC)
832 return ((m_opt_func_full_t) opt->p)(opt,name,param);
833 else
834 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "%s", (char *) opt->p);
835
836 if(opt->priv == NULL)
837 return M_OPT_EXIT;
838 return 1;
839 }
840
841 m_option_type_t m_option_type_print = {
842 "Print",
843 "",
844 0,
845 0,
846 parse_print,
847 NULL,
848 NULL,
849 NULL,
850 NULL,
851 NULL
852 };
853
854 m_option_type_t m_option_type_print_indirect = {
855 "Print",
856 "",
857 0,
858 0,
859 parse_print,
860 NULL,
861 NULL,
862 NULL,
863 NULL,
864 NULL
865 };
866
867 m_option_type_t m_option_type_print_func = {
868 "Print",
869 "",
870 0,
871 M_OPT_TYPE_ALLOW_WILDCARD,
872 parse_print,
873 NULL,
874 NULL,
875 NULL,
876 NULL,
877 NULL
878 };
879
880
881 /////////////////////// Subconfig
882 #undef VAL
883 #define VAL(x) (*(char***)(x))
884
885 static int parse_subconf(m_option_t* opt,char *name, char *param, void* dst, int src) {
886 char *subparam;
887 char *subopt;
888 int nr = 0,i,r;
889 m_option_t *subopts;
890 char *p;
891 char** lst = NULL;
892
893 if (param == NULL || strlen(param) == 0)
894 return M_OPT_MISSING_PARAM;
895
896 subparam = malloc(strlen(param)+1);
897 subopt = malloc(strlen(param)+1);
898 p = param;
899
900 subopts = opt->p;
901
902 while(p[0])
903 {
904 int sscanf_ret = 1;
905 int optlen = strcspn(p, ":=");
906 /* clear out */
907 subopt[0] = subparam[0] = 0;
908 strlcpy(subopt, p, optlen + 1);
909 p = &p[optlen];
910 if (p[0] == '=') {
911 sscanf_ret = 2;
912 p = &p[1];
913 if (p[0] == '"') {
914 p = &p[1];
915 optlen = strcspn(p, "\"");
916 strlcpy(subparam, p, optlen + 1);
917 p = &p[optlen];
918 if (p[0] != '"') {
919 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Terminating '\"' missing for '%s'\n", subopt);
920 return M_OPT_INVALID;
921 }
922 p = &p[1];
923 } else if (p[0] == '%') {
924 p = &p[1];
925 optlen = (int)strtol(p, &p, 0);
926 if (!p || p[0] != '%' || (optlen > strlen(p) - 1)) {
927 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Invalid length %i for '%s'\n", optlen, subopt);
928 return M_OPT_INVALID;
929 }
930 p = &p[1];
931 strlcpy(subparam, p, optlen + 1);
932 p = &p[optlen];
933 } else {
934 optlen = strcspn(p, ":");
935 strlcpy(subparam, p, optlen + 1);
936 p = &p[optlen];
937 }
938 }
939 if (p[0] == ':')
940 p = &p[1];
941 else if (p[0]) {
942 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Incorrect termination for '%s'\n", subopt);
943 return M_OPT_INVALID;
944 }
945
946 switch(sscanf_ret)
947 {
948 case 1:
949 subparam[0] = 0;
950 case 2:
951 for(i = 0 ; subopts[i].name ; i++) {
952 if(!strcmp(subopts[i].name,subopt)) break;
953 }
954 if(!subopts[i].name) {
955 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Unknown suboption %s\n",name,subopt);
956 return M_OPT_UNKNOWN;
957 }
958 r = m_option_parse(&subopts[i],subopt,
959 subparam[0] == 0 ? NULL : subparam,NULL,src);
960 if(r < 0) return r;
961 if(dst) {
962 lst = (char**)realloc(lst,2 * (nr+2) * sizeof(char*));
963 lst[2*nr] = strdup(subopt);
964 lst[2*nr+1] = subparam[0] == 0 ? NULL : strdup(subparam);
965 memset(&lst[2*(nr+1)],0,2*sizeof(char*));
966 nr++;
967 }
968 break;
969 }
970 }
971
972 free(subparam);
973 free(subopt);
974 if(dst)
975 VAL(dst) = lst;
976
977 return 1;
978 }
979
980 m_option_type_t m_option_type_subconfig = {
981 "Subconfig",
982 "The syntax is -option opt1=foo:flag:opt2=blah",
983 sizeof(int),
984 M_OPT_TYPE_HAS_CHILD,
985 parse_subconf,
986 NULL,
987 NULL,
988 NULL,
989 NULL,
990 NULL
991 };
992
993 #include "libmpcodecs/img_format.h"
994
995 /* FIXME: snyc with img_format.h */
996 static struct {
997 char* name;
998 unsigned int fmt;
999 } mp_imgfmt_list[] = {
1000 {"444p", IMGFMT_444P},
1001 {"422p", IMGFMT_422P},
1002 {"411p", IMGFMT_411P},
1003 {"yuy2", IMGFMT_YUY2},
1004 {"uyvy", IMGFMT_UYVY},
1005 {"yvu9", IMGFMT_YVU9},
1006 {"if09", IMGFMT_IF09},
1007 {"yv12", IMGFMT_YV12},
1008 {"i420", IMGFMT_I420},
1009 {"iyuv", IMGFMT_IYUV},
1010 {"clpl", IMGFMT_CLPL},
1011 {"hm12", IMGFMT_HM12},
1012 {"y800", IMGFMT_Y800},
1013 {"y8", IMGFMT_Y8},
1014 {"nv12", IMGFMT_NV12},
1015 {"nv21", IMGFMT_NV21},
1016 {"bgr24", IMGFMT_BGR24},
1017 {"bgr32", IMGFMT_BGR32},
1018 {"bgr16", IMGFMT_BGR16},
1019 {"bgr15", IMGFMT_BGR15},
1020 {"bgr8", IMGFMT_BGR8},
1021 {"bgr4", IMGFMT_BGR4},
1022 {"bg4b", IMGFMT_BG4B},
1023 {"bgr1", IMGFMT_BGR1},
1024 {"rgb24", IMGFMT_RGB24},
1025 {"rgb32", IMGFMT_RGB32},
1026 {"rgb16", IMGFMT_RGB16},
1027 {"rgb15", IMGFMT_RGB15},
1028 {"rgb8", IMGFMT_RGB8},
1029 {"rgb4", IMGFMT_RGB4},
1030 {"rg4b", IMGFMT_RG4B},
1031 {"rgb1", IMGFMT_RGB1},
1032 {"rgba", IMGFMT_RGBA},
1033 {"argb", IMGFMT_ARGB},
1034 {"bgra", IMGFMT_BGRA},
1035 {"abgr", IMGFMT_ABGR},
1036 { NULL, 0 }
1037 };
1038
1039 static int parse_imgfmt(m_option_t* opt,char *name, char *param, void* dst, int src) {
1040 uint32_t fmt = 0;
1041 int i;
1042
1043 if (param == NULL || strlen(param) == 0)
1044 return M_OPT_MISSING_PARAM;
1045
1046 if(!strcmp(param,"help")) {
1047 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available formats:");
1048 for(i = 0 ; mp_imgfmt_list[i].name ; i++)
1049 mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %s",mp_imgfmt_list[i].name);
1050 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
1051 return M_OPT_EXIT - 1;
1052 }
1053
1054 if (sscanf(param, "0x%x", &fmt) != 1)
1055 {
1056 for(i = 0 ; mp_imgfmt_list[i].name ; i++) {
1057 if(!strcasecmp(param,mp_imgfmt_list[i].name)) {
1058 fmt=mp_imgfmt_list[i].fmt;
1059 break;
1060 }
1061 }
1062 if(!mp_imgfmt_list[i].name) {
1063 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: unknown format name: '%s'\n",name,param);
1064 return M_OPT_INVALID;
1065 }
1066 }
1067
1068 if(dst)
1069 *((uint32_t*)dst) = fmt;
1070
1071 return 1;
1072 }
1073
1074 m_option_type_t m_option_type_imgfmt = {
1075 "Image format",
1076 "Please report any missing colorspaces.",
1077 sizeof(uint32_t),
1078 0,
1079 parse_imgfmt,
1080 NULL,
1081 copy_opt,
1082 copy_opt,
1083 NULL,
1084 NULL
1085 };
1086
1087 #include "libaf/af_format.h"
1088
1089 /* FIXME: snyc with af_format.h */
1090 static struct {
1091 char* name;
1092 unsigned int fmt;
1093 } mp_afmt_list[] = {
1094 // SPECIAL
1095 {"mulaw", AF_FORMAT_MU_LAW},
1096 {"alaw", AF_FORMAT_A_LAW},
1097 {"mpeg2", AF_FORMAT_MPEG2},
1098 {"ac3", AF_FORMAT_AC3},
1099 {"imaadpcm", AF_FORMAT_IMA_ADPCM},
1100 // ORIDNARY
1101 {"u8", AF_FORMAT_U8},
1102 {"s8", AF_FORMAT_S8},
1103 {"u16le", AF_FORMAT_U16_LE},
1104 {"u16be", AF_FORMAT_U16_BE},
1105 {"u16ne", AF_FORMAT_U16_NE},
1106 {"s16le", AF_FORMAT_S16_LE},
1107 {"s16be", AF_FORMAT_S16_BE},
1108 {"s16ne", AF_FORMAT_S16_NE},
1109 {"u24le", AF_FORMAT_U24_LE},
1110 {"u24be", AF_FORMAT_U24_BE},
1111 {"u24ne", AF_FORMAT_U24_NE},
1112 {"s24le", AF_FORMAT_S24_LE},
1113 {"s24be", AF_FORMAT_S24_BE},
1114 {"s24ne", AF_FORMAT_S24_NE},
1115 {"u32le", AF_FORMAT_U32_LE},
1116 {"u32be", AF_FORMAT_U32_BE},
1117 {"u32ne", AF_FORMAT_U32_NE},
1118 {"s32le", AF_FORMAT_S32_LE},
1119 {"s32be", AF_FORMAT_S32_BE},
1120 {"s32ne", AF_FORMAT_S32_NE},
1121 {"floatle", AF_FORMAT_FLOAT_LE},
1122 {"floatbe", AF_FORMAT_FLOAT_BE},
1123 {"floatne", AF_FORMAT_FLOAT_NE},
1124 { NULL, 0 }
1125 };
1126
1127 static int parse_afmt(m_option_t* opt,char *name, char *param, void* dst, int src) {
1128 uint32_t fmt = 0;
1129 int i;
1130
1131 if (param == NULL || strlen(param) == 0)
1132 return M_OPT_MISSING_PARAM;
1133
1134 if(!strcmp(param,"help")) {
1135 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available formats:");
1136 for(i = 0 ; mp_afmt_list[i].name ; i++)
1137 mp_msg(MSGT_CFGPARSER, MSGL_INFO, " %s",mp_afmt_list[i].name);
1138 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "\n");
1139 return M_OPT_EXIT - 1;
1140 }
1141
1142 if (sscanf(param, "0x%x", &fmt) != 1)
1143 {
1144 for(i = 0 ; mp_afmt_list[i].name ; i++) {
1145 if(!strcasecmp(param,mp_afmt_list[i].name)) {
1146 fmt=mp_afmt_list[i].fmt;
1147 break;
1148 }
1149 }
1150 if(!mp_afmt_list[i].name) {
1151 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: unknown format name: '%s'\n",name,param);
1152 return M_OPT_INVALID;
1153 }
1154 }
1155
1156 if(dst)
1157 *((uint32_t*)dst) = fmt;
1158
1159 return 1;
1160 }
1161
1162 m_option_type_t m_option_type_afmt = {
1163 "Audio format",
1164 "Please report any missing formats.",
1165 sizeof(uint32_t),
1166 0,
1167 parse_afmt,
1168 NULL,
1169 copy_opt,
1170 copy_opt,
1171 NULL,
1172 NULL
1173 };
1174
1175
1176 //// Objects (i.e. filters, etc) settings
1177
1178 #include "m_struct.h"
1179
1180 #undef VAL
1181 #define VAL(x) (*(m_obj_settings_t**)(x))
1182
1183 static int find_obj_desc(char* name,m_obj_list_t* l,m_struct_t** ret) {
1184 int i;
1185 char* n;
1186
1187 for(i = 0 ; l->list[i] ; i++) {
1188 n = M_ST_MB(char*,l->list[i],l->name_off);
1189 if(!strcmp(n,name)) {
1190 *ret = M_ST_MB(m_struct_t*,l->list[i],l->desc_off);
1191 return 1;
1192 }
1193 }
1194 return 0;
1195 }
1196
1197 static int get_obj_param(char* opt_name,char* obj_name, m_struct_t* desc,
1198 char* str,int* nold,int oldmax,char** dst) {
1199 char* eq,param;
1200 m_option_t* opt;
1201 int r;
1202
1203 eq = strchr(str,'=');
1204 if(eq && eq == str)
1205 eq = NULL;
1206
1207 if(eq) {
1208 char* p = eq + 1;
1209 if(p[0] == '\0') p = NULL;
1210 eq[0] = '\0';
1211 opt = m_option_list_find(desc->fields,str);
1212 if(!opt) {
1213 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't have a %s parameter.\n",opt_name,obj_name,str);
1214 return M_OPT_UNKNOWN;
1215 }
1216 r = m_option_parse(opt,str,p,NULL,M_CONFIG_FILE);
1217 if(r < 0) {
1218 if(r > M_OPT_EXIT)
1219 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,str,p);
1220 eq[0] = '=';
1221 return r;
1222 }
1223 if(dst) {
1224 dst[0] = strdup(str);
1225 dst[1] = p ? strdup(p) : NULL;
1226 }
1227 eq[0] = '=';
1228 } else {
1229 if((*nold) >= oldmax) {
1230 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s has only %d params, so you can't give more than %d unnamed params.\n",
1231 opt_name,obj_name,oldmax,oldmax);
1232 return M_OPT_OUT_OF_RANGE;
1233 }
1234 opt = &desc->fields[(*nold)];
1235 r = m_option_parse(opt,opt->name,str,NULL,M_CONFIG_FILE);
1236 if(r < 0) {
1237 if(r > M_OPT_EXIT)
1238 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,opt->name,str);
1239 return r;
1240 }
1241 if(dst) {
1242 dst[0] = strdup(opt->name);
1243 dst[1] = strdup(str);
1244 }
1245 (*nold)++;
1246 }
1247 return 1;
1248 }
1249
1250 static int get_obj_params(char* opt_name, char* name,char* params,
1251 m_struct_t* desc,char separator, char*** _ret) {
1252 int n = 0,nold = 0, nopts,r;
1253 char* ptr,*last_ptr = params,*eq;
1254 char** ret;
1255
1256 if(!strcmp(params,"help")) { // Help
1257 char min[50],max[50];
1258 if(!desc->fields) {
1259 printf("%s doesn't have any options.\n\n",name);
1260 return M_OPT_EXIT - 1;
1261 }
1262 printf("\n Name Type Min Max\n\n");
1263 for(n = 0 ; desc->fields[n].name ; n++) {
1264 m_option_t* opt = &desc->fields[n];
1265 if(opt->type->flags & M_OPT_TYPE_HAS_CHILD) continue;
1266 if(opt->flags & M_OPT_MIN)
1267 sprintf(min,"%-8.0f",opt->min);
1268 else
1269 strcpy(min,"No");
1270 if(opt->flags & M_OPT_MAX)
1271 sprintf(max,"%-8.0f",opt->max);
1272 else
1273 strcpy(max,"No");
1274 printf(" %-20.20s %-15.15s %-10.10s %-10.10s\n",
1275 opt->name,
1276 opt->type->name,
1277 min,
1278 max);
1279 }
1280 printf("\n");
1281 return M_OPT_EXIT - 1;
1282 }
1283
1284 for(nopts = 0 ; desc->fields[nopts].name ; nopts++)
1285 /* NOP */;
1286
1287 // TODO : Check that each opt can be parsed
1288 r = 1;
1289 while(last_ptr && last_ptr[0] != '\0') {
1290 ptr = strchr(last_ptr,separator);
1291 if(!ptr) {
1292 r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1293 n++;
1294 break;
1295 }
1296 if(ptr == last_ptr) { // Empty field, count it and go on
1297 nold++;
1298 last_ptr = ptr+1;
1299 continue;
1300 }
1301 ptr[0] = '\0';
1302 r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1303 ptr[0] = separator;
1304 if(r < 0) break;
1305 n++;
1306 last_ptr = ptr+1;
1307 }
1308 if(r < 0) return r;
1309 if (!last_ptr[0]) // count an empty field at the end, too
1310 nold++;
1311 if (nold > nopts) {
1312 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Too many options for %s\n", name);
1313 return M_OPT_OUT_OF_RANGE;
1314 }
1315 if(!_ret) // Just test
1316 return 1;
1317 if (n == 0) // No options or only empty options
1318 return 1;
1319
1320 ret = malloc((n+2)*2*sizeof(char*));
1321 n = nold = 0;
1322 last_ptr = params;
1323
1324 while(last_ptr && last_ptr[0] != '\0') {
1325 ptr = strchr(last_ptr,separator);
1326 if(!ptr) {
1327 get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1328 n++;
1329 break;
1330 }
1331 if(ptr == last_ptr) { // Empty field, count it and go on
1332 last_ptr = ptr+1;
1333 nold++;
1334 continue;
1335 }
1336 ptr[0] = '\0';
1337 get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1338 n++;
1339 last_ptr = ptr+1;
1340 }
1341 ret[n*2] = ret[n*2+1] = NULL;
1342 *_ret = ret;
1343
1344 return 1;
1345 }
1346
1347 static int parse_obj_params(m_option_t* opt,char *name,
1348 char *param, void* dst, int src) {
1349 char** opts;
1350 int r;
1351 m_obj_params_t* p = opt->priv;
1352 m_struct_t* desc = p->desc;
1353 char* cpy = strdup(param);
1354
1355 // We need the object desc
1356 if(!p)
1357 return M_OPT_INVALID;
1358
1359 r = get_obj_params(name,desc->name,cpy,desc,p->separator,&opts);
1360 free(cpy);
1361 if(r < 0)
1362 return r;
1363 if(!dst)
1364 return 1;
1365 if (!opts) // no arguments given
1366 return 1;
1367
1368 for(r = 0 ; opts[r] ; r += 2)
1369 m_struct_set(desc,dst,opts[r],opts[r+1]);
1370
1371 return 1;
1372 }
1373
1374
1375 m_option_type_t m_option_type_obj_params = {
1376 "Object params",
1377 "",
1378 0,
1379 0,
1380 parse_obj_params,
1381 NULL,
1382 NULL,
1383 NULL,
1384 NULL,
1385 NULL
1386 };
1387
1388 /// Some predefined types as a definition would be quite lengthy
1389
1390 /// Span arguments
1391 static m_span_t m_span_params_dflts = { -1, -1 };
1392 static m_option_t m_span_params_fields[] = {
1393 {"start", M_ST_OFF(m_span_t,start), CONF_TYPE_INT, M_OPT_MIN, 1 ,0, NULL},
1394 {"end", M_ST_OFF(m_span_t,end), CONF_TYPE_INT, M_OPT_MIN , 1 ,0, NULL},
1395 { NULL, NULL, 0, 0, 0, 0, NULL }
1396 };
1397 static struct m_struct_st m_span_opts = {
1398 "m_span",
1399 sizeof(m_span_t),
1400 &m_span_params_dflts,
1401 m_span_params_fields
1402 };
1403 m_obj_params_t m_span_params_def = {
1404 &m_span_opts,
1405 '-'
1406 };
1407
1408 static int parse_obj_settings(char* opt,char* str,m_obj_list_t* list,
1409 m_obj_settings_t **_ret, int ret_n) {
1410 int r;
1411 char *param,**plist = NULL;
1412 m_struct_t* desc;
1413 m_obj_settings_t *ret = _ret ? *_ret : NULL;
1414
1415
1416 // Now check that the object exists
1417 param = strchr(str,'=');
1418 if(param) {
1419 param[0] = '\0';
1420 param++;
1421 if(strlen(param) <= 0)
1422 param = NULL;
1423 }
1424
1425
1426 if(!find_obj_desc(str,list,&desc)) {
1427 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't exist.\n",opt,str);
1428 return M_OPT_INVALID;
1429 }
1430
1431 if(param) {
1432 if(!desc && _ret) {
1433 if(!strcmp(param,"help")) {
1434 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Option %s: %s have no option description.\n",opt,str);
1435 return M_OPT_EXIT - 1;
1436 }
1437 plist = calloc(4,sizeof(char*));
1438 plist[0] = strdup("_oldargs_");
1439 plist[1] = strdup(param);
1440 } else if(desc) {
1441 r = get_obj_params(opt,str,param,desc,':',_ret ? &plist : NULL);
1442 if(r < 0)
1443 return r;
1444 }
1445 }
1446 if(!_ret)
1447 return 1;
1448
1449 ret = realloc(ret,(ret_n+2)*sizeof(m_obj_settings_t));
1450 memset(&ret[ret_n],0,2*sizeof(m_obj_settings_t));
1451 ret[ret_n].name = strdup(str);
1452 ret[ret_n].attribs = plist;
1453
1454 *_ret = ret;
1455 return 1;
1456 }
1457
1458 static void free_obj_settings_list(void* dst);
1459
1460 static int obj_settings_list_del(char *opt_name,char *param,void* dst, int src) {
1461 char** str_list = NULL;
1462 int r,i,idx_max = 0;
1463 char* rem_id = "_removed_marker_";
1464 m_option_t list_opt = {opt_name , NULL, CONF_TYPE_STRING_LIST,
1465 0, 0, 0, NULL };
1466 m_obj_settings_t* obj_list = dst ? VAL(dst) : NULL;
1467
1468 if(dst && !obj_list) {
1469 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: the list is empty.\n",opt_name);
1470 return 1;
1471 } else if(obj_list) {
1472 for(idx_max = 0 ; obj_list[idx_max].name != NULL ; idx_max++)
1473 /* NOP */;
1474 }
1475
1476 r = m_option_parse(&list_opt,opt_name,param,&str_list,src);
1477 if(r < 0 || !str_list)
1478 return r;
1479
1480 for(r = 0 ; str_list[r] ; r++) {
1481 int id;
1482 char* endptr;
1483 id = strtol(str_list[r],&endptr,0);
1484 if(endptr == str_list[r]) {
1485 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);
1486 m_option_free(&list_opt,&str_list);
1487 return M_OPT_INVALID;
1488 }
1489 if(!obj_list) continue;
1490 if(id >= idx_max || id < -idx_max) {
1491 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: Index %d is out of range.\n",opt_name,id);
1492 continue;
1493 }
1494 if(id < 0)
1495 id = idx_max + id;
1496 free(obj_list[id].name);
1497 free_str_list(&(obj_list[id].attribs));
1498 obj_list[id].name = rem_id;
1499 }
1500
1501 if(!dst) {
1502 m_option_free(&list_opt,&str_list);
1503 return 1;
1504 }
1505
1506 for(i = 0 ; obj_list[i].name ; i++) {
1507 while(obj_list[i].name == rem_id) {
1508 memmove(&obj_list[i],&obj_list[i+1],sizeof(m_obj_settings_t)*(idx_max - i));
1509 idx_max--;
1510 }
1511 }
1512 obj_list = realloc(obj_list,sizeof(m_obj_settings_t)*(idx_max+1));
1513 VAL(dst) = obj_list;
1514
1515 return 1;
1516 }
1517
1518 static int parse_obj_settings_list(m_option_t* opt,char *name,
1519 char *param, void* dst, int src) {
1520 int n = 0,r,len = strlen(opt->name);
1521 char *str;
1522 char *ptr, *last_ptr;
1523 m_obj_settings_t *res = NULL,*queue = NULL,*head = NULL;
1524 int op = OP_NONE;
1525
1526 // We need the objects list
1527 if(!opt->priv)
1528 return M_OPT_INVALID;
1529
1530 if(opt->name[len-1] == '*' && ((int)strlen(name) > len - 1)) {
1531 char* n = &name[len-1];
1532 if(strcasecmp(n,"-add") == 0)
1533 op = OP_ADD;
1534 else if(strcasecmp(n,"-pre") == 0)
1535 op = OP_PRE;
1536 else if(strcasecmp(n,"-del") == 0)
1537 op = OP_DEL;
1538 else if(strcasecmp(n,"-clr") == 0)
1539 op = OP_CLR;
1540 else {
1541 char prefix[len];
1542 strncpy(prefix,opt->name,len-1);
1543 prefix[len-1] = '\0';
1544 mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: unknown postfix %s\n"
1545 "Supported postfixes are:\n"
1546 " %s-add\n"
1547 " Append the given list to the current list\n\n"
1548 " %s-pre\n"
1549 " Prepend the given list to the current list\n\n"
1550 " %s-del x,y,...\n"
1551 " Remove the given elements. Take the list element index (starting from 0).\n"
1552 " Negative index can be used (i.e. -1 is the last element)\n\n"
1553 " %s-clr\n"
1554 " Clear the current list.\n",name,n,prefix,prefix,prefix,prefix);
1555
1556 return M_OPT_UNKNOWN;
1557 }
1558 }
1559
1560 // Clear the list ??
1561 if(op == OP_CLR) {
1562 if(dst)
1563 free_obj_settings_list(dst);
1564 return 0;
1565 }
1566
1567 if (param == NULL || strlen(param) == 0)
1568 return M_OPT_MISSING_PARAM;
1569
1570 switch(op) {
1571 case OP_ADD:
1572 if(dst) head = VAL(dst);
1573 break;
1574 case OP_PRE:
1575 if(dst) queue = VAL(dst);
1576 break;
1577 case OP_DEL:
1578 return obj_settings_list_del(name,param,dst,src);
1579 case OP_NONE:
1580 if(dst && VAL(dst))
1581 free_obj_settings_list(dst);
1582 break;
1583 default:
1584 mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: FIXME\n",name);
1585 return M_OPT_UNKNOWN;
1586 }
1587
1588 if(!strcmp(param,"help")) {
1589 m_obj_list_t* ol = opt->priv;
1590 mp_msg(MSGT_VFILTER,MSGL_INFO,"Available video filters:\n");
1591 mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_VIDEO_FILTERS\n");
1592 for(n = 0 ; ol->list[n] ; n++)
1593 mp_msg(MSGT_VFILTER,MSGL_INFO," %-15s: %s\n",
1594 M_ST_MB(char*,ol->list[n],ol->name_off),
1595 M_ST_MB(char*,ol->list[n],ol->info_off));
1596 mp_msg(MSGT_VFILTER,MSGL_INFO,"\n");
1597 return M_OPT_EXIT - 1;
1598 }
1599 ptr = str = strdup(param);
1600
1601 while(ptr[0] != '\0') {
1602 last_ptr = ptr;
1603 ptr = strchr(ptr,LIST_SEPARATOR);
1604 if(!ptr) {
1605 r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1606 if(r < 0) {
1607 free(str);
1608 return r;
1609 }
1610 n++;
1611 break;
1612 }
1613 ptr[0] = '\0';
1614 r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1615 if(r < 0) {
1616 free(str);
1617 return r;
1618 }
1619 ptr++;
1620 n++;
1621 }
1622 free(str);
1623 if(n == 0)
1624 return M_OPT_INVALID;
1625
1626 if( ((opt->flags & M_OPT_MIN) && (n < opt->min)) ||
1627 ((opt->flags & M_OPT_MAX) && (n > opt->max)) )
1628 return M_OPT_OUT_OF_RANGE;
1629
1630 if(dst) {
1631 if(queue) {
1632 int qsize;
1633 for(qsize = 0 ; queue[qsize].name ; qsize++)
1634 /* NOP */;
1635 res = realloc(res,(qsize+n+1)*sizeof(m_obj_settings_t));
1636 memcpy(&res[n],queue,(qsize+1)*sizeof(m_obj_settings_t));
1637 n += qsize;
1638 free(queue);
1639 }
1640 if(head) {
1641 int hsize;
1642 for(hsize = 0 ; head[hsize].name ; hsize++)
1643 /* NOP */;
1644 head = realloc(head,(hsize+n+1)*sizeof(m_obj_settings_t));
1645 memcpy(&head[hsize],res,(n+1)*sizeof(m_obj_settings_t));
1646 free(res);
1647 res = head;
1648 }
1649 VAL(dst) = res;
1650 }
1651 return 1;
1652 }
1653
1654 static void free_obj_settings_list(void* dst) {
1655 int n;
1656 m_obj_settings_t *d;
1657
1658 if(!dst || !VAL(dst)) return;
1659
1660 d = VAL(dst);
1661 #ifndef NO_FREE
1662 for(n = 0 ; d[n].name ; n++) {
1663 free(d[n].name);
1664 free_str_list(&(d[n].attribs));
1665 }
1666 free(d);
1667 #endif
1668 VAL(dst) = NULL;
1669 }
1670
1671 static void copy_obj_settings_list(m_option_t* opt,void* dst, void* src) {
1672 m_obj_settings_t *d,*s;
1673 int n;
1674
1675 if(!(dst && src))
1676 return;
1677
1678 s = VAL(src);
1679
1680 if(VAL(dst))
1681 free_obj_settings_list(dst);
1682 if(!s) return;
1683
1684
1685
1686 for(n = 0 ; s[n].name ; n++)
1687 /* NOP */;
1688 d = malloc((n+1)*sizeof(m_obj_settings_t));
1689 for(n = 0 ; s[n].name ; n++) {
1690 d[n].name = strdup(s[n].name);
1691 d[n].attribs = NULL;
1692 copy_str_list(NULL,&(d[n].attribs),&(s[n].attribs));
1693 }
1694 d[n].name = NULL;
1695 d[n].attribs = NULL;
1696 VAL(dst) = d;
1697 }
1698
1699 m_option_type_t m_option_type_obj_settings_list = {
1700 "Object settings list",
1701 "",
1702 sizeof(m_obj_settings_t*),
1703 M_OPT_TYPE_DYNAMIC|M_OPT_TYPE_ALLOW_WILDCARD,
1704 parse_obj_settings_list,
1705 NULL,
1706 copy_obj_settings_list,
1707 copy_obj_settings_list,
1708 copy_obj_settings_list,
1709 free_obj_settings_list,
1710 };
1711
1712
1713
1714 static int parse_obj_presets(m_option_t* opt,char *name,
1715 char *param, void* dst, int src) {
1716 m_obj_presets_t* obj_p = (m_obj_presets_t*)opt->priv;
1717 m_struct_t *in_desc,*out_desc;
1718 int s,i;
1719 unsigned char* pre = obj_p->presets;
1720 char* pre_name = NULL;
1721
1722 if(!obj_p) {
1723 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Presets need a pointer to a m_obj_presets_t in the priv field.\n",name);
1724 return M_OPT_PARSER_ERR;
1725 }
1726
1727 if(!param)
1728 return M_OPT_MISSING_PARAM;
1729
1730 in_desc = obj_p->in_desc;
1731 out_desc = obj_p->out_desc ? obj_p->out_desc : obj_p->in_desc;
1732 s = in_desc->size;
1733
1734 if(!strcmp(param,"help")) {
1735 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available presets for %s->%s:",out_desc->name,name);
1736 for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1737 pre += s)
1738 mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1739 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1740 return M_OPT_EXIT - 1;
1741 }
1742
1743 for(pre_name = M_ST_MB(char*,pre,obj_p->name_off) ; pre_name ;
1744 pre += s, pre_name = M_ST_MB(char*,pre,obj_p->name_off)) {
1745 if(!strcmp(pre_name,param)) break;
1746 }
1747 if(!pre_name) {
1748 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: There is no preset named %s\n"
1749 "Available presets are:",name,param);
1750 for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1751 pre += s)
1752 mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1753 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1754 return M_OPT_INVALID;
1755 }
1756
1757 if(!dst) return 1;
1758
1759 for(i = 0 ; in_desc->fields[i].name ; i++) {
1760 m_option_t* out_opt = m_option_list_find(out_desc->fields,
1761 in_desc->fields[i].name);
1762 if(!out_opt) {
1763 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);
1764 return M_OPT_PARSER_ERR;
1765 }
1766 m_option_copy(out_opt,M_ST_MB_P(dst,out_opt->p),M_ST_MB_P(pre,in_desc->fields[i].p));
1767 }
1768 return 1;
1769 }
1770
1771
1772 m_option_type_t m_option_type_obj_presets = {
1773 "Object presets",
1774 "",
1775 0,
1776 0,
1777 parse_obj_presets,
1778 NULL,
1779 NULL,
1780 NULL,
1781 NULL,
1782 NULL
1783 };
1784
1785 static int parse_custom_url(m_option_t* opt,char *name,
1786 char *url, void* dst, int src) {
1787 int pos1, pos2, r, v6addr = 0;
1788 char *ptr1=NULL, *ptr2=NULL, *ptr3=NULL, *ptr4=NULL;
1789 m_struct_t* desc = opt->priv;
1790
1791 if(!desc) {
1792 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Custom URL needs a pointer to a m_struct_t in the priv field.\n",name);
1793 return M_OPT_PARSER_ERR;
1794 }
1795
1796 // extract the protocol
1797 ptr1 = strstr(url, "://");
1798 if( ptr1==NULL ) {
1799 // Filename only
1800 if(m_option_list_find(desc->fields,"filename")) {
1801 m_struct_set(desc,dst,"filename",url);
1802 return 1;
1803 }
1804 mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Option %s: URL doesn't have a valid protocol!\n",name);
1805 return M_OPT_INVALID;
1806 }
1807 if(m_option_list_find(desc->fields,"string")) {
1808 if(strlen(ptr1)>3) {
1809 m_struct_set(desc,dst,"string",ptr1+3);
1810 return 1;
1811 }
1812 }
1813 pos1 = ptr1-url;
1814 if(dst && m_option_list_find(desc->fields,"protocol")) {
1815 ptr1[0] = '\0';
1816 r = m_struct_set(desc,dst,"protocol",url);
1817 ptr1[0] = ':';
1818 if(r < 0) {
1819 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting protocol.\n",name);
1820 return r;
1821 }
1822 }
1823
1824 // jump the "://"
1825 ptr1 += 3;
1826 pos1 += 3;
1827
1828 // check if a username:password is given
1829 ptr2 = strstr(ptr1, "@");
1830 ptr3 = strstr(ptr1, "/");
1831 if( ptr3!=NULL && ptr3<ptr2 ) {
1832 // it isn't really a username but rather a part of the path
1833 ptr2 = NULL;
1834 }
1835 if( ptr2!=NULL ) {
1836
1837 // We got something, at least a username...
1838 int len = ptr2-ptr1;
1839 if(!m_option_list_find(desc->fields,"username")) {
1840 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a username part.\n",name);
1841 // skip
1842 } else {
1843 ptr3 = strstr(ptr1, ":");
1844 if( ptr3!=NULL && ptr3<ptr2 ) {
1845 // We also have a password
1846 int len2 = ptr2-ptr3-1;
1847 if(!m_option_list_find(desc->fields,"password")) {
1848 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a password part.\n",name);
1849 // skip
1850 } else { // Username and password
1851 if(dst) {
1852 ptr3[0] = '\0';
1853 r = m_struct_set(desc,dst,"username",ptr1);
1854 ptr3[0] = ':';
1855 if(r < 0) {
1856 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
1857 return r;
1858 }
1859 ptr2[0] = '\0';
1860 r = m_struct_set(desc,dst,"password",ptr3+1);
1861 ptr2[0] = '@';
1862 if(r < 0) {
1863 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting password.\n",name);
1864 return r;
1865 }
1866 }
1867 }
1868 } else { // User name only
1869 ptr2[0] = '\0';
1870 r = m_struct_set(desc,dst,"username",ptr1);
1871 ptr2[0] = '@';
1872 if(r < 0) {
1873 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
1874 return r;
1875 }
1876 }
1877 }
1878 ptr1 = ptr2+1;
1879 pos1 = ptr1-url;
1880 }
1881
1882 // before looking for a port number check if we have an IPv6 type numeric address
1883 // in an IPv6 URL the numeric address should be inside square braces.
1884 ptr2 = strstr(ptr1, "[");
1885 ptr3 = strstr(ptr1, "]");
1886 // If the [] is after the first it isn't the hostname
1887 ptr4 = strstr(ptr1, "/");
1888 if( ptr2!=NULL && ptr3!=NULL && (ptr2 < ptr3) && (!ptr4 || ptr4 > ptr3)) {
1889 // we have an IPv6 numeric address
1890 ptr1++;
1891 pos1++;
1892 ptr2 = ptr3;
1893 v6addr = 1;
1894 } else {
1895 ptr2 = ptr1;
1896 }
1897
1898 // look if the port is given
1899 ptr2 = strstr(ptr2, ":");
1900 // If the : is after the first / it isn't the port
1901 ptr3 = strstr(ptr1, "/");
1902 if(ptr3 && ptr3 - ptr2 < 0) ptr2 = NULL;
1903 if( ptr2==NULL ) {
1904 // No port is given
1905 // Look if a path is given
1906 if( ptr3==NULL ) {
1907 // No path/filename
1908 // So we have an URL like http://www.hostname.com
1909 pos2 = strlen(url);
1910 } else {
1911 // We have an URL like http://www.hostname.com/file.txt
1912 pos2 = ptr3-url;
1913 }
1914 } else {
1915 // We have an URL beginning like http://www.hostname.com:1212
1916 // Get the port number
1917 if(!m_option_list_find(desc->fields,"port")) {
1918 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a port part.\n",name);
1919 // skip
1920 } else {
1921 if(dst) {
1922 int p = atoi(ptr2+1);
1923 char tmp[100];
1924 snprintf(tmp,99,"%d",p);
1925 r = m_struct_set(desc,dst,"port",tmp);
1926 if(r < 0) {
1927 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting port.\n",name);
1928 return r;
1929 }
1930 }
1931 }
1932 pos2 = ptr2-url;
1933 }
1934 if( v6addr ) pos2--;
1935 // Get the hostname
1936 if(pos2-pos1 > 0) {
1937 if(!m_option_list_find(desc->fields,"hostname")) {
1938 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
1939 // skip
1940 } else {
1941 char tmp[pos2-pos1+1];
1942 strncpy(tmp,ptr1, pos2-pos1);
1943 tmp[pos2-pos1] = '\0';
1944 r = m_struct_set(desc,dst,"hostname",tmp);
1945 if(r < 0) {
1946 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting hostname.\n",name);
1947 return r;
1948 }
1949 }
1950 }
1951 // Look if a path is given
1952 ptr2 = strstr(ptr1, "/");
1953 if( ptr2!=NULL ) {
1954 // A path/filename is given
1955 // check if it's not a trailing '/'
1956 if( strlen(ptr2)>1 ) {
1957 // copy the path/filename in the URL container
1958 if(!m_option_list_find(desc->fields,"filename")) {
1959 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
1960 // skip
1961 } else {
1962 if(dst) {
1963 int l = strlen(ptr2+1) + 1;
1964 char* fname = ptr2+1;
1965 if(l > 1) {
1966 fname = malloc(l);
1967 url_unescape_string(fname,ptr2+1);
1968 }
1969 r = m_struct_set(desc,dst,"filename",fname);
1970 if(fname != ptr2+1)
1971 free(fname);
1972 if(r < 0) {
1973 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting filename.\n",name);
1974 return r;
1975 }
1976 }
1977 }
1978 }
1979 }
1980 return 1;
1981 }
1982
1983 /// TODO : Write the other needed funcs for 'normal' options
1984 m_option_type_t m_option_type_custom_url = {
1985 "Custom URL",
1986 "",
1987 0,
1988 0,
1989 parse_custom_url,
1990 NULL,
1991 NULL,
1992 NULL,
1993 NULL,
1994 NULL
1995 };