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