?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
support for Geforce FX5500 based on patch by Pascal Yu <yu_pascal at hotmail.com>
[mplayer/greg.git] / m_option.c
blob850d117594bd528a712c6bc019113d1f444d8847
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*)malloc(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 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,str,p);
1215 eq[0] = '=';
1216 return r;
1217 }
1218 if(dst) {
1219 dst[0] = strdup(str);
1220 dst[1] = p ? strdup(p) : NULL;
1221 }
1222 eq[0] = '=';
1223 } else {
1224 if((*nold) >= oldmax) {
1225 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s has only %d params, so you can't give more than %d unnamed params.\n",
1226 opt_name,obj_name,oldmax,oldmax);
1227 return M_OPT_OUT_OF_RANGE;
1228 }
1229 opt = &desc->fields[(*nold)];
1230 r = m_option_parse(opt,opt->name,str,NULL,M_CONFIG_FILE);
1231 if(r < 0) {
1232 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while parsing %s parameter %s (%s)\n",opt_name,obj_name,opt->name,str);
1233 return r;
1234 }
1235 if(dst) {
1236 dst[0] = strdup(opt->name);
1237 dst[1] = strdup(str);
1238 }
1239 (*nold)++;
1240 }
1241 return 1;
1242 }
1243
1244 static int get_obj_params(char* opt_name, char* name,char* params,
1245 m_struct_t* desc,char separator, char*** _ret) {
1246 int n = 0,nold = 0, nopts,r;
1247 char* ptr,*last_ptr = params,*eq;
1248 char** ret;
1249
1250 if(!strcmp(params,"help")) { // Help
1251 char min[50],max[50];
1252 if(!desc->fields) {
1253 printf("%s doesn't have any options.\n\n",name);
1254 return M_OPT_EXIT - 1;
1255 }
1256 printf("\n Name Type Min Max\n\n");
1257 for(n = 0 ; desc->fields[n].name ; n++) {
1258 m_option_t* opt = &desc->fields[n];
1259 if(opt->type->flags & M_OPT_TYPE_HAS_CHILD) continue;
1260 if(opt->flags & M_OPT_MIN)
1261 sprintf(min,"%-8.0f",opt->min);
1262 else
1263 strcpy(min,"No");
1264 if(opt->flags & M_OPT_MAX)
1265 sprintf(max,"%-8.0f",opt->max);
1266 else
1267 strcpy(max,"No");
1268 printf(" %-20.20s %-15.15s %-10.10s %-10.10s\n",
1269 opt->name,
1270 opt->type->name,
1271 min,
1272 max);
1273 }
1274 printf("\n");
1275 return M_OPT_EXIT - 1;
1276 }
1277
1278 for(nopts = 0 ; desc->fields[nopts].name ; nopts++)
1279 /* NOP */;
1280
1281 // TODO : Check that each opt can be parsed
1282 r = 1;
1283 while(last_ptr && last_ptr[0] != '\0') {
1284 ptr = strchr(last_ptr,separator);
1285 if(!ptr) {
1286 r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1287 n++;
1288 break;
1289 }
1290 if(ptr == last_ptr) { // Empty field, count it and go on
1291 nold++;
1292 last_ptr = ptr+1;
1293 continue;
1294 }
1295 ptr[0] = '\0';
1296 r = get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,NULL);
1297 ptr[0] = separator;
1298 if(r < 0) break;
1299 n++;
1300 last_ptr = ptr+1;
1301 }
1302 if(r < 0) return r;
1303 if (!last_ptr[0]) // count an empty field at the end, too
1304 nold++;
1305 if (nold > nopts) {
1306 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Too many options for %s\n", name);
1307 return M_OPT_OUT_OF_RANGE;
1308 }
1309 if(!_ret) // Just test
1310 return 1;
1311 if (n == 0) // No options or only empty options
1312 return 1;
1313
1314 ret = malloc((n+2)*2*sizeof(char*));
1315 n = nold = 0;
1316 last_ptr = params;
1317
1318 while(last_ptr && last_ptr[0] != '\0') {
1319 ptr = strchr(last_ptr,separator);
1320 if(!ptr) {
1321 get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1322 n++;
1323 break;
1324 }
1325 if(ptr == last_ptr) { // Empty field, count it and go on
1326 last_ptr = ptr+1;
1327 nold++;
1328 continue;
1329 }
1330 ptr[0] = '\0';
1331 get_obj_param(opt_name,name,desc,last_ptr,&nold,nopts,&ret[n*2]);
1332 n++;
1333 last_ptr = ptr+1;
1334 }
1335 ret[n*2] = ret[n*2+1] = NULL;
1336 *_ret = ret;
1337
1338 return 1;
1339 }
1340
1341 static int parse_obj_params(m_option_t* opt,char *name,
1342 char *param, void* dst, int src) {
1343 char** opts;
1344 int r;
1345 m_obj_params_t* p = opt->priv;
1346 m_struct_t* desc = p->desc;
1347 char* cpy = strdup(param);
1348
1349 // We need the object desc
1350 if(!p)
1351 return M_OPT_INVALID;
1352
1353 r = get_obj_params(name,desc->name,cpy,desc,p->separator,&opts);
1354 free(cpy);
1355 if(r < 0)
1356 return r;
1357 if(!dst)
1358 return 1;
1359 if (!opts) // no arguments given
1360 return 1;
1361
1362 for(r = 0 ; opts[r] ; r += 2)
1363 m_struct_set(desc,dst,opts[r],opts[r+1]);
1364
1365 return 1;
1366 }
1367
1368
1369 m_option_type_t m_option_type_obj_params = {
1370 "Object params",
1371 "",
1372 0,
1373 0,
1374 parse_obj_params,
1375 NULL,
1376 NULL,
1377 NULL,
1378 NULL,
1379 NULL
1380 };
1381
1382 /// Some predefined types as a definition would be quite lengthy
1383
1384 /// Span arguments
1385 static m_span_t m_span_params_dflts = { -1, -1 };
1386 static m_option_t m_span_params_fields[] = {
1387 {"start", M_ST_OFF(m_span_t,start), CONF_TYPE_INT, M_OPT_MIN, 1 ,0, NULL},
1388 {"end", M_ST_OFF(m_span_t,end), CONF_TYPE_INT, M_OPT_MIN , 1 ,0, NULL},
1389 { NULL, NULL, 0, 0, 0, 0, NULL }
1390 };
1391 static struct m_struct_st m_span_opts = {
1392 "m_span",
1393 sizeof(m_span_t),
1394 &m_span_params_dflts,
1395 m_span_params_fields
1396 };
1397 m_obj_params_t m_span_params_def = {
1398 &m_span_opts,
1399 '-'
1400 };
1401
1402 static int parse_obj_settings(char* opt,char* str,m_obj_list_t* list,
1403 m_obj_settings_t **_ret, int ret_n) {
1404 int r;
1405 char *param,**plist = NULL;
1406 m_struct_t* desc;
1407 m_obj_settings_t *ret = _ret ? *_ret : NULL;
1408
1409
1410 // Now check that the object exists
1411 param = strchr(str,'=');
1412 if(param) {
1413 param[0] = '\0';
1414 param++;
1415 if(strlen(param) <= 0)
1416 param = NULL;
1417 }
1418
1419
1420 if(!find_obj_desc(str,list,&desc)) {
1421 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: %s doesn't exist.\n",opt,str);
1422 return M_OPT_INVALID;
1423 }
1424
1425 if(param) {
1426 if(!desc && _ret) {
1427 plist = calloc(4,sizeof(char*));
1428 plist[0] = strdup("_oldargs_");
1429 plist[1] = strdup(param);
1430 } else if(desc) {
1431 r = get_obj_params(opt,str,param,desc,':',_ret ? &plist : NULL);
1432 if(r < 0)
1433 return r;
1434 }
1435 }
1436 if(!_ret)
1437 return 1;
1438
1439 ret = realloc(ret,(ret_n+2)*sizeof(m_obj_settings_t));
1440 memset(&ret[ret_n],0,2*sizeof(m_obj_settings_t));
1441 ret[ret_n].name = strdup(str);
1442 ret[ret_n].attribs = plist;
1443
1444 *_ret = ret;
1445 return 1;
1446 }
1447
1448 static void free_obj_settings_list(void* dst);
1449
1450 static int obj_settings_list_del(char *opt_name,char *param,void* dst, int src) {
1451 char** str_list = NULL;
1452 int r,i,idx_max = 0;
1453 char* rem_id = "_removed_marker_";
1454 m_option_t list_opt = {opt_name , NULL, CONF_TYPE_STRING_LIST,
1455 0, 0, 0, NULL };
1456 m_obj_settings_t* obj_list = dst ? VAL(dst) : NULL;
1457
1458 if(dst && !obj_list) {
1459 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: the list is empty.\n",opt_name);
1460 return 1;
1461 } else if(obj_list) {
1462 for(idx_max = 0 ; obj_list[idx_max].name != NULL ; idx_max++)
1463 /* NOP */;
1464 }
1465
1466 r = m_option_parse(&list_opt,opt_name,param,&str_list,src);
1467 if(r < 0 || !str_list)
1468 return r;
1469
1470 for(r = 0 ; str_list[r] ; r++) {
1471 int id;
1472 char* endptr;
1473 id = strtol(str_list[r],&endptr,0);
1474 if(endptr == str_list[r]) {
1475 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);
1476 m_option_free(&list_opt,&str_list);
1477 return M_OPT_INVALID;
1478 }
1479 if(!obj_list) continue;
1480 if(id >= idx_max || id < -idx_max) {
1481 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: Index %d is out of range.\n",opt_name,id);
1482 continue;
1483 }
1484 if(id < 0)
1485 id = idx_max + id;
1486 free(obj_list[id].name);
1487 free_str_list(&(obj_list[id].attribs));
1488 obj_list[id].name = rem_id;
1489 }
1490
1491 if(!dst) {
1492 m_option_free(&list_opt,&str_list);
1493 return 1;
1494 }
1495
1496 for(i = 0 ; obj_list[i].name ; i++) {
1497 while(obj_list[i].name == rem_id) {
1498 memmove(&obj_list[i],&obj_list[i+1],sizeof(m_obj_settings_t)*(idx_max - i));
1499 idx_max--;
1500 }
1501 }
1502 obj_list = realloc(obj_list,sizeof(m_obj_settings_t)*(idx_max+1));
1503 VAL(dst) = obj_list;
1504
1505 return 1;
1506 }
1507
1508 static int parse_obj_settings_list(m_option_t* opt,char *name,
1509 char *param, void* dst, int src) {
1510 int n = 0,r,len = strlen(opt->name);
1511 char *str;
1512 char *ptr, *last_ptr;
1513 m_obj_settings_t *res = NULL,*queue = NULL,*head = NULL;
1514 int op = OP_NONE;
1515
1516 // We need the objects list
1517 if(!opt->priv)
1518 return M_OPT_INVALID;
1519
1520 if(opt->name[len-1] == '*' && ((int)strlen(name) > len - 1)) {
1521 char* n = &name[len-1];
1522 if(strcasecmp(n,"-add") == 0)
1523 op = OP_ADD;
1524 else if(strcasecmp(n,"-pre") == 0)
1525 op = OP_PRE;
1526 else if(strcasecmp(n,"-del") == 0)
1527 op = OP_DEL;
1528 else if(strcasecmp(n,"-clr") == 0)
1529 op = OP_CLR;
1530 else {
1531 char prefix[len];
1532 strncpy(prefix,opt->name,len-1);
1533 prefix[len-1] = '\0';
1534 mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: unknown postfix %s\n"
1535 "Supported postfixes are:\n"
1536 " %s-add\n"
1537 " Append the given list to the current list\n\n"
1538 " %s-pre\n"
1539 " Prepend the given list to the current list\n\n"
1540 " %s-del x,y,...\n"
1541 " Remove the given elements. Take the list element index (starting from 0).\n"
1542 " Negative index can be used (i.e. -1 is the last element)\n\n"
1543 " %s-clr\n"
1544 " Clear the current list.\n",name,n,prefix,prefix,prefix,prefix);
1545
1546 return M_OPT_UNKNOWN;
1547 }
1548 }
1549
1550 // Clear the list ??
1551 if(op == OP_CLR) {
1552 if(dst)
1553 free_obj_settings_list(dst);
1554 return 0;
1555 }
1556
1557 if (param == NULL || strlen(param) == 0)
1558 return M_OPT_MISSING_PARAM;
1559
1560 switch(op) {
1561 case OP_ADD:
1562 if(dst) head = VAL(dst);
1563 break;
1564 case OP_PRE:
1565 if(dst) queue = VAL(dst);
1566 break;
1567 case OP_DEL:
1568 return obj_settings_list_del(name,param,dst,src);
1569 case OP_NONE:
1570 if(dst && VAL(dst))
1571 free_obj_settings_list(dst);
1572 break;
1573 default:
1574 mp_msg(MSGT_VFILTER,MSGL_ERR, "Option %s: FIXME\n",name);
1575 return M_OPT_UNKNOWN;
1576 }
1577
1578 if(!strcmp(param,"help")) {
1579 m_obj_list_t* ol = opt->priv;
1580 mp_msg(MSGT_VFILTER,MSGL_INFO,"Available video filters:\n");
1581 if (identify)
1582 mp_msg(MSGT_GLOBAL, MSGL_INFO, "ID_VIDEO_FILTERS\n");
1583 for(n = 0 ; ol->list[n] ; n++)
1584 mp_msg(MSGT_VFILTER,MSGL_INFO," %-15s: %s\n",
1585 M_ST_MB(char*,ol->list[n],ol->name_off),
1586 M_ST_MB(char*,ol->list[n],ol->info_off));
1587 return M_OPT_EXIT - 1;
1588 }
1589 ptr = str = strdup(param);
1590
1591 while(ptr[0] != '\0') {
1592 last_ptr = ptr;
1593 ptr = strchr(ptr,LIST_SEPARATOR);
1594 if(!ptr) {
1595 r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1596 if(r < 0) {
1597 free(str);
1598 return r;
1599 }
1600 n++;
1601 break;
1602 }
1603 ptr[0] = '\0';
1604 r = parse_obj_settings(name,last_ptr,opt->priv,dst ? &res : NULL,n);
1605 if(r < 0) {
1606 free(str);
1607 return r;
1608 }
1609 ptr++;
1610 n++;
1611 }
1612 free(str);
1613 if(n == 0)
1614 return M_OPT_INVALID;
1615
1616 if( ((opt->flags & M_OPT_MIN) && (n < opt->min)) ||
1617 ((opt->flags & M_OPT_MAX) && (n > opt->max)) )
1618 return M_OPT_OUT_OF_RANGE;
1619
1620 if(dst) {
1621 if(queue) {
1622 int qsize;
1623 for(qsize = 0 ; queue[qsize].name ; qsize++)
1624 /* NOP */;
1625 res = realloc(res,(qsize+n+1)*sizeof(m_obj_settings_t));
1626 memcpy(&res[n],queue,(qsize+1)*sizeof(m_obj_settings_t));
1627 n += qsize;
1628 free(queue);
1629 }
1630 if(head) {
1631 int hsize;
1632 for(hsize = 0 ; head[hsize].name ; hsize++)
1633 /* NOP */;
1634 head = realloc(head,(hsize+n+1)*sizeof(m_obj_settings_t));
1635 memcpy(&head[hsize],res,(n+1)*sizeof(m_obj_settings_t));
1636 free(res);
1637 res = head;
1638 }
1639 VAL(dst) = res;
1640 }
1641 return 1;
1642 }
1643
1644 static void free_obj_settings_list(void* dst) {
1645 int n;
1646 m_obj_settings_t *d;
1647
1648 if(!dst || !VAL(dst)) return;
1649
1650 d = VAL(dst);
1651 #ifndef NO_FREE
1652 for(n = 0 ; d[n].name ; n++) {
1653 free(d[n].name);
1654 free_str_list(&(d[n].attribs));
1655 }
1656 free(d);
1657 #endif
1658 VAL(dst) = NULL;
1659 }
1660
1661 static void copy_obj_settings_list(m_option_t* opt,void* dst, void* src) {
1662 m_obj_settings_t *d,*s;
1663 int n;
1664
1665 if(!(dst && src))
1666 return;
1667
1668 s = VAL(src);
1669
1670 if(VAL(dst))
1671 free_obj_settings_list(dst);
1672 if(!s) return;
1673
1674
1675
1676 for(n = 0 ; s[n].name ; n++)
1677 /* NOP */;
1678 d = malloc((n+1)*sizeof(m_obj_settings_t));
1679 for(n = 0 ; s[n].name ; n++) {
1680 d[n].name = strdup(s[n].name);
1681 d[n].attribs = NULL;
1682 copy_str_list(NULL,&(d[n].attribs),&(s[n].attribs));
1683 }
1684 d[n].name = NULL;
1685 d[n].attribs = NULL;
1686 VAL(dst) = d;
1687 }
1688
1689 m_option_type_t m_option_type_obj_settings_list = {
1690 "Object settings list",
1691 "",
1692 sizeof(m_obj_settings_t*),
1693 M_OPT_TYPE_DYNAMIC|M_OPT_TYPE_ALLOW_WILDCARD,
1694 parse_obj_settings_list,
1695 NULL,
1696 copy_obj_settings_list,
1697 copy_obj_settings_list,
1698 copy_obj_settings_list,
1699 free_obj_settings_list,
1700 };
1701
1702
1703
1704 static int parse_obj_presets(m_option_t* opt,char *name,
1705 char *param, void* dst, int src) {
1706 m_obj_presets_t* obj_p = (m_obj_presets_t*)opt->priv;
1707 m_struct_t *in_desc,*out_desc;
1708 int s,i;
1709 unsigned char* pre = obj_p->presets;
1710 char* pre_name = NULL;
1711
1712 if(!obj_p) {
1713 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Presets need a pointer to a m_obj_presets_t in the priv field.\n",name);
1714 return M_OPT_PARSER_ERR;
1715 }
1716
1717 if(!param)
1718 return M_OPT_MISSING_PARAM;
1719
1720 in_desc = obj_p->in_desc;
1721 out_desc = obj_p->out_desc ? obj_p->out_desc : obj_p->in_desc;
1722 s = in_desc->size;
1723
1724 if(!strcmp(param,"help")) {
1725 mp_msg(MSGT_CFGPARSER, MSGL_INFO, "Available presets for %s->%s:",out_desc->name,name);
1726 for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1727 pre += s)
1728 mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1729 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1730 return M_OPT_EXIT - 1;
1731 }
1732
1733 for(pre_name = M_ST_MB(char*,pre,obj_p->name_off) ; pre_name ;
1734 pre += s, pre_name = M_ST_MB(char*,pre,obj_p->name_off)) {
1735 if(!strcmp(pre_name,param)) break;
1736 }
1737 if(!pre_name) {
1738 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: There is no preset named %s\n"
1739 "Available presets are:",name,param);
1740 for(pre = obj_p->presets;(pre_name = M_ST_MB(char*,pre,obj_p->name_off)) ;
1741 pre += s)
1742 mp_msg(MSGT_CFGPARSER, MSGL_ERR, " %s",pre_name);
1743 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "\n");
1744 return M_OPT_INVALID;
1745 }
1746
1747 if(!dst) return 1;
1748
1749 for(i = 0 ; in_desc->fields[i].name ; i++) {
1750 m_option_t* out_opt = m_option_list_find(out_desc->fields,
1751 in_desc->fields[i].name);
1752 if(!out_opt) {
1753 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);
1754 return M_OPT_PARSER_ERR;
1755 }
1756 m_option_copy(out_opt,M_ST_MB_P(dst,out_opt->p),M_ST_MB_P(pre,in_desc->fields[i].p));
1757 }
1758 return 1;
1759 }
1760
1761
1762 m_option_type_t m_option_type_obj_presets = {
1763 "Object presets",
1764 "",
1765 0,
1766 0,
1767 parse_obj_presets,
1768 NULL,
1769 NULL,
1770 NULL,
1771 NULL,
1772 NULL
1773 };
1774
1775 static int parse_custom_url(m_option_t* opt,char *name,
1776 char *url, void* dst, int src) {
1777 int pos1, pos2, r, v6addr = 0;
1778 char *ptr1=NULL, *ptr2=NULL, *ptr3=NULL, *ptr4=NULL;
1779 m_struct_t* desc = opt->priv;
1780
1781 if(!desc) {
1782 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Custom URL needs a pointer to a m_struct_t in the priv field.\n",name);
1783 return M_OPT_PARSER_ERR;
1784 }
1785
1786 // extract the protocol
1787 ptr1 = strstr(url, "://");
1788 if( ptr1==NULL ) {
1789 // Filename only
1790 if(m_option_list_find(desc->fields,"filename")) {
1791 m_struct_set(desc,dst,"filename",url);
1792 return 1;
1793 }
1794 mp_msg(MSGT_CFGPARSER, MSGL_ERR,"Option %s: URL doesn't have a valid protocol!\n",name);
1795 return M_OPT_INVALID;
1796 }
1797 if(m_option_list_find(desc->fields,"string")) {
1798 if(strlen(ptr1)>3) {
1799 m_struct_set(desc,dst,"string",ptr1+3);
1800 return 1;
1801 }
1802 }
1803 pos1 = ptr1-url;
1804 if(dst && m_option_list_find(desc->fields,"protocol")) {
1805 ptr1[0] = '\0';
1806 r = m_struct_set(desc,dst,"protocol",url);
1807 ptr1[0] = ':';
1808 if(r < 0) {
1809 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting protocol.\n",name);
1810 return r;
1811 }
1812 }
1813
1814 // jump the "://"
1815 ptr1 += 3;
1816 pos1 += 3;
1817
1818 // check if a username:password is given
1819 ptr2 = strstr(ptr1, "@");
1820 ptr3 = strstr(ptr1, "/");
1821 if( ptr3!=NULL && ptr3<ptr2 ) {
1822 // it isn't really a username but rather a part of the path
1823 ptr2 = NULL;
1824 }
1825 if( ptr2!=NULL ) {
1826
1827 // We got something, at least a username...
1828 int len = ptr2-ptr1;
1829 if(!m_option_list_find(desc->fields,"username")) {
1830 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a username part.\n",name);
1831 // skip
1832 } else {
1833 ptr3 = strstr(ptr1, ":");
1834 if( ptr3!=NULL && ptr3<ptr2 ) {
1835 // We also have a password
1836 int len2 = ptr2-ptr3-1;
1837 if(!m_option_list_find(desc->fields,"password")) {
1838 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a password part.\n",name);
1839 // skip
1840 } else { // Username and password
1841 if(dst) {
1842 ptr3[0] = '\0';
1843 r = m_struct_set(desc,dst,"username",ptr1);
1844 ptr3[0] = ':';
1845 if(r < 0) {
1846 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
1847 return r;
1848 }
1849 ptr2[0] = '\0';
1850 r = m_struct_set(desc,dst,"password",ptr3+1);
1851 ptr2[0] = '@';
1852 if(r < 0) {
1853 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting password.\n",name);
1854 return r;
1855 }
1856 }
1857 }
1858 } else { // User name only
1859 ptr2[0] = '\0';
1860 r = m_struct_set(desc,dst,"username",ptr1);
1861 ptr2[0] = '@';
1862 if(r < 0) {
1863 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting username.\n",name);
1864 return r;
1865 }
1866 }
1867 }
1868 ptr1 = ptr2+1;
1869 pos1 = ptr1-url;
1870 }
1871
1872 // before looking for a port number check if we have an IPv6 type numeric address
1873 // in an IPv6 URL the numeric address should be inside square braces.
1874 ptr2 = strstr(ptr1, "[");
1875 ptr3 = strstr(ptr1, "]");
1876 // If the [] is after the first it isn't the hostname
1877 ptr4 = strstr(ptr1, "/");
1878 if( ptr2!=NULL && ptr3!=NULL && (ptr2 < ptr3) && (!ptr4 || ptr4 > ptr3)) {
1879 // we have an IPv6 numeric address
1880 ptr1++;
1881 pos1++;
1882 ptr2 = ptr3;
1883 v6addr = 1;
1884 } else {
1885 ptr2 = ptr1;
1886 }
1887
1888 // look if the port is given
1889 ptr2 = strstr(ptr2, ":");
1890 // If the : is after the first / it isn't the port
1891 ptr3 = strstr(ptr1, "/");
1892 if(ptr3 && ptr3 - ptr2 < 0) ptr2 = NULL;
1893 if( ptr2==NULL ) {
1894 // No port is given
1895 // Look if a path is given
1896 if( ptr3==NULL ) {
1897 // No path/filename
1898 // So we have an URL like http://www.hostname.com
1899 pos2 = strlen(url);
1900 } else {
1901 // We have an URL like http://www.hostname.com/file.txt
1902 pos2 = ptr3-url;
1903 }
1904 } else {
1905 // We have an URL beginning like http://www.hostname.com:1212
1906 // Get the port number
1907 if(!m_option_list_find(desc->fields,"port")) {
1908 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a port part.\n",name);
1909 // skip
1910 } else {
1911 if(dst) {
1912 int p = atoi(ptr2+1);
1913 char tmp[100];
1914 snprintf(tmp,99,"%d",p);
1915 r = m_struct_set(desc,dst,"port",tmp);
1916 if(r < 0) {
1917 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting port.\n",name);
1918 return r;
1919 }
1920 }
1921 }
1922 pos2 = ptr2-url;
1923 }
1924 if( v6addr ) pos2--;
1925 // Get the hostname
1926 if(pos2-pos1 > 0) {
1927 if(!m_option_list_find(desc->fields,"hostname")) {
1928 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
1929 // skip
1930 } else {
1931 char tmp[pos2-pos1+1];
1932 strncpy(tmp,ptr1, pos2-pos1);
1933 tmp[pos2-pos1] = '\0';
1934 r = m_struct_set(desc,dst,"hostname",tmp);
1935 if(r < 0) {
1936 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting hostname.\n",name);
1937 return r;
1938 }
1939 }
1940 }
1941 // Look if a path is given
1942 ptr2 = strstr(ptr1, "/");
1943 if( ptr2!=NULL ) {
1944 // A path/filename is given
1945 // check if it's not a trailing '/'
1946 if( strlen(ptr2)>1 ) {
1947 // copy the path/filename in the URL container
1948 if(!m_option_list_find(desc->fields,"filename")) {
1949 mp_msg(MSGT_CFGPARSER, MSGL_WARN, "Option %s: This URL doesn't have a hostname part.\n",name);
1950 // skip
1951 } else {
1952 if(dst) {
1953 int l = strlen(ptr2+1) + 1;
1954 char* fname = ptr2+1;
1955 if(l > 1) {
1956 fname = malloc(l);
1957 url_unescape_string(fname,ptr2+1);
1958 }
1959 r = m_struct_set(desc,dst,"filename",fname);
1960 if(fname != ptr2+1)
1961 free(fname);
1962 if(r < 0) {
1963 mp_msg(MSGT_CFGPARSER, MSGL_ERR, "Option %s: Error while setting filename.\n",name);
1964 return r;
1965 }
1966 }
1967 }
1968 }
1969 }
1970 return 1;
1971 }
1972
1973 /// TODO : Write the other needed funcs for 'normal' options
1974 m_option_type_t m_option_type_custom_url = {
1975 "Custom URL",
1976 "",
1977 0,
1978 0,
1979 parse_custom_url,
1980 NULL,
1981 NULL,
1982 NULL,
1983 NULL,
1984 NULL
1985 };