* missing top static declaration was giving a warning
[vlc.git] / src / misc / configuration.c
1 /*****************************************************************************
2  * configuration.c management of the modules configuration
3  *****************************************************************************
4  * Copyright (C) 2001 VideoLAN
5  * $Id: configuration.c,v 1.63 2003/08/23 14:26:34 lool Exp $
6  *
7  * Authors: Gildas Bazin <gbazin@netcourrier.com>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 2 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
22  *****************************************************************************/
23
24 #include <vlc/vlc.h>
25 #include "vlc_keys.h"
26
27 #include <stdio.h>                                              /* sprintf() */
28 #include <stdlib.h>                                      /* free(), strtol() */
29 #include <string.h>                                              /* strdup() */
30 #ifdef HAVE_ERRNO_H
31 #   include <errno.h>                                               /* errno */
32 #endif
33
34 #ifdef HAVE_UNISTD_H
35 #    include <unistd.h>                                          /* getuid() */
36 #endif
37
38 #ifdef HAVE_GETOPT_LONG
39 #   ifdef HAVE_GETOPT_H
40 #       include <getopt.h>                                       /* getopt() */
41 #   endif
42 #else
43 #   include "../extras/getopt.h"
44 #endif
45
46 #if defined(HAVE_GETPWUID)
47 #   include <pwd.h>                                            /* getpwuid() */
48 #endif
49
50 #if defined( HAVE_SYS_STAT_H )
51 #   include <sys/stat.h>
52 #endif
53 #if defined( HAVE_SYS_TYPES_H )
54 #   include <sys/types.h>
55 #endif
56 #if defined( WIN32 ) && !defined( UNDER_CE )
57 #   include <direct.h>
58 #endif
59
60
61 static int ConfigStringToKey( char * );
62 static char *ConfigKeyToString( int );
63
64 /*****************************************************************************
65  * config_GetType: get the type of a variable (bool, int, float, string)
66  *****************************************************************************
67  * This function is used to get the type of a variable from its name.
68  * Beware, this is quite slow.
69  *****************************************************************************/
70 int __config_GetType( vlc_object_t *p_this, const char *psz_name )
71 {
72     module_config_t *p_config;
73     int i_type;
74
75     p_config = config_FindConfig( p_this, psz_name );
76
77     /* sanity checks */
78     if( !p_config )
79     {
80         return 0;
81     }
82
83     switch( p_config->i_type )
84     {
85     case CONFIG_ITEM_BOOL:
86         i_type = VLC_VAR_BOOL;
87         break;
88
89     case CONFIG_ITEM_INTEGER:
90         i_type = VLC_VAR_INTEGER;
91         break;
92
93     case CONFIG_ITEM_FLOAT:
94         i_type = VLC_VAR_FLOAT;
95         break;
96
97     case CONFIG_ITEM_MODULE:
98     case CONFIG_ITEM_STRING:
99         i_type = VLC_VAR_STRING;
100         break;
101
102     case CONFIG_ITEM_FILE:
103         i_type = VLC_VAR_FILE;
104         break;
105
106     case CONFIG_ITEM_DIRECTORY:
107         i_type = VLC_VAR_DIRECTORY;
108         break;
109
110     default:
111         i_type = 0;
112         break;
113     }
114
115     return i_type;
116 }
117
118 /*****************************************************************************
119  * config_GetInt: get the value of an int variable
120  *****************************************************************************
121  * This function is used to get the value of variables which are internally
122  * represented by an integer (CONFIG_ITEM_INTEGER and
123  * CONFIG_ITEM_BOOL).
124  *****************************************************************************/
125 int __config_GetInt( vlc_object_t *p_this, const char *psz_name )
126 {
127     module_config_t *p_config;
128
129     p_config = config_FindConfig( p_this, psz_name );
130
131     /* sanity checks */
132     if( !p_config )
133     {
134         msg_Err( p_this, "option %s does not exist", psz_name );
135         return -1;
136     }
137     if( (p_config->i_type!=CONFIG_ITEM_INTEGER) &&
138         (p_config->i_type!=CONFIG_ITEM_KEY) &&
139         (p_config->i_type!=CONFIG_ITEM_BOOL) )
140     {
141         msg_Err( p_this, "option %s does not refer to an int", psz_name );
142         return -1;
143     }
144
145     return p_config->i_value;
146 }
147
148 /*****************************************************************************
149  * config_GetFloat: get the value of a float variable
150  *****************************************************************************
151  * This function is used to get the value of variables which are internally
152  * represented by a float (CONFIG_ITEM_FLOAT).
153  *****************************************************************************/
154 float __config_GetFloat( vlc_object_t *p_this, const char *psz_name )
155 {
156     module_config_t *p_config;
157
158     p_config = config_FindConfig( p_this, psz_name );
159
160     /* sanity checks */
161     if( !p_config )
162     {
163         msg_Err( p_this, "option %s does not exist", psz_name );
164         return -1;
165     }
166     if( p_config->i_type != CONFIG_ITEM_FLOAT )
167     {
168         msg_Err( p_this, "option %s does not refer to a float", psz_name );
169         return -1;
170     }
171
172     return p_config->f_value;
173 }
174
175 /*****************************************************************************
176  * config_GetPsz: get the string value of a string variable
177  *****************************************************************************
178  * This function is used to get the value of variables which are internally
179  * represented by a string (CONFIG_ITEM_STRING, CONFIG_ITEM_FILE,
180  * CONFIG_ITEM_DIRECTORY, and CONFIG_ITEM_MODULE).
181  *
182  * Important note: remember to free() the returned char* because it's a
183  *   duplicate of the actual value. It isn't safe to return a pointer to the
184  *   actual value as it can be modified at any time.
185  *****************************************************************************/
186 char * __config_GetPsz( vlc_object_t *p_this, const char *psz_name )
187 {
188     module_config_t *p_config;
189     char *psz_value = NULL;
190
191     p_config = config_FindConfig( p_this, psz_name );
192
193     /* sanity checks */
194     if( !p_config )
195     {
196         msg_Err( p_this, "option %s does not exist", psz_name );
197         return NULL;
198     }
199     if( (p_config->i_type!=CONFIG_ITEM_STRING) &&
200         (p_config->i_type!=CONFIG_ITEM_FILE) &&
201         (p_config->i_type!=CONFIG_ITEM_DIRECTORY) &&
202         (p_config->i_type!=CONFIG_ITEM_MODULE) )
203     {
204         msg_Err( p_this, "option %s does not refer to a string", psz_name );
205         return NULL;
206     }
207
208     /* return a copy of the string */
209     vlc_mutex_lock( p_config->p_lock );
210     if( p_config->psz_value ) psz_value = strdup( p_config->psz_value );
211     vlc_mutex_unlock( p_config->p_lock );
212
213     return psz_value;
214 }
215
216 /*****************************************************************************
217  * config_PutPsz: set the string value of a string variable
218  *****************************************************************************
219  * This function is used to set the value of variables which are internally
220  * represented by a string (CONFIG_ITEM_STRING, CONFIG_ITEM_FILE,
221  * CONFIG_ITEM_DIRECTORY, and CONFIG_ITEM_MODULE).
222  *****************************************************************************/
223 void __config_PutPsz( vlc_object_t *p_this,
224                       const char *psz_name, const char *psz_value )
225 {
226     module_config_t *p_config;
227     vlc_value_t oldval, val;
228
229     p_config = config_FindConfig( p_this, psz_name );
230
231     /* sanity checks */
232     if( !p_config )
233     {
234         msg_Warn( p_this, "option %s does not exist", psz_name );
235         return;
236     }
237     if( (p_config->i_type!=CONFIG_ITEM_STRING) &&
238         (p_config->i_type!=CONFIG_ITEM_FILE) &&
239         (p_config->i_type!=CONFIG_ITEM_DIRECTORY) &&
240         (p_config->i_type!=CONFIG_ITEM_MODULE) )
241     {
242         msg_Err( p_this, "option %s does not refer to a string", psz_name );
243         return;
244     }
245
246     vlc_mutex_lock( p_config->p_lock );
247
248     /* backup old value */
249     oldval.psz_string = p_config->psz_value;
250
251     if( psz_value && *psz_value ) p_config->psz_value = strdup( psz_value );
252     else p_config->psz_value = NULL;
253
254     val.psz_string = p_config->psz_value;
255
256     vlc_mutex_unlock( p_config->p_lock );
257
258     if( p_config->pf_callback )
259     {
260         p_config->pf_callback( p_this, psz_name, oldval, val,
261                                p_config->p_callback_data );
262     }
263
264     /* free old string */
265     if( oldval.psz_string ) free( oldval.psz_string );
266 }
267
268 /*****************************************************************************
269  * config_PutInt: set the integer value of an int variable
270  *****************************************************************************
271  * This function is used to set the value of variables which are internally
272  * represented by an integer (CONFIG_ITEM_INTEGER and
273  * CONFIG_ITEM_BOOL).
274  *****************************************************************************/
275 void __config_PutInt( vlc_object_t *p_this, const char *psz_name, int i_value )
276 {
277     module_config_t *p_config;
278     vlc_value_t oldval, val;
279
280     p_config = config_FindConfig( p_this, psz_name );
281
282     /* sanity checks */
283     if( !p_config )
284     {
285         msg_Warn( p_this, "option %s does not exist", psz_name );
286         return;
287     }
288     if( (p_config->i_type!=CONFIG_ITEM_INTEGER) &&
289         (p_config->i_type!=CONFIG_ITEM_KEY) &&
290         (p_config->i_type!=CONFIG_ITEM_BOOL) )
291     {
292         msg_Err( p_this, "option %s does not refer to an int", psz_name );
293         return;
294     }
295
296     /* backup old value */
297     oldval.i_int = p_config->i_value;
298
299     /* if i_min == i_max == 0, then do not use them */
300     if ((p_config->i_min == 0) && (p_config->i_max == 0))
301     {
302         p_config->i_value = i_value;
303     }
304     else if (i_value < p_config->i_min)
305     {
306         p_config->i_value = p_config->i_min;
307     }
308     else if (i_value > p_config->i_max)
309     {
310         p_config->i_value = p_config->i_max;
311     }
312     else
313     {
314         p_config->i_value = i_value;
315     }
316
317     val.i_int = p_config->i_value;
318
319     if( p_config->pf_callback )
320     {
321         p_config->pf_callback( p_this, psz_name, oldval, val,
322                                p_config->p_callback_data );
323     }
324 }
325
326 /*****************************************************************************
327  * config_PutFloat: set the value of a float variable
328  *****************************************************************************
329  * This function is used to set the value of variables which are internally
330  * represented by a float (CONFIG_ITEM_FLOAT).
331  *****************************************************************************/
332 void __config_PutFloat( vlc_object_t *p_this,
333                         const char *psz_name, float f_value )
334 {
335     module_config_t *p_config;
336     vlc_value_t oldval, val;
337
338     p_config = config_FindConfig( p_this, psz_name );
339
340     /* sanity checks */
341     if( !p_config )
342     {
343         msg_Warn( p_this, "option %s does not exist", psz_name );
344         return;
345     }
346     if( p_config->i_type != CONFIG_ITEM_FLOAT )
347     {
348         msg_Err( p_this, "option %s does not refer to a float", psz_name );
349         return;
350     }
351
352     /* backup old value */
353     oldval.f_float = p_config->f_value;
354
355     /* if f_min == f_max == 0, then do not use them */
356     if ((p_config->f_min == 0) && (p_config->f_max == 0))
357     {
358         p_config->f_value = f_value;
359     }
360     else if (f_value < p_config->f_min)
361     {
362         p_config->f_value = p_config->f_min;
363     }
364     else if (f_value > p_config->f_max)
365     {
366         p_config->f_value = p_config->f_max;
367     }
368     else
369     {
370         p_config->f_value = f_value;
371     }
372
373     val.f_float = p_config->f_value;
374
375     if( p_config->pf_callback )
376     {
377         p_config->pf_callback( p_this, psz_name, oldval, val,
378                                p_config->p_callback_data );
379     }
380 }
381
382 /*****************************************************************************
383  * config_FindConfig: find the config structure associated with an option.
384  *****************************************************************************
385  * FIXME: This function really needs to be optimized.
386  * FIXME: And now even more.
387  *****************************************************************************/
388 module_config_t *config_FindConfig( vlc_object_t *p_this, const char *psz_name )
389 {
390     vlc_list_t *p_list;
391     module_t *p_parser;
392     module_config_t *p_item;
393     int i_index;
394
395     if( !psz_name ) return NULL;
396
397     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
398
399     for( i_index = 0; i_index < p_list->i_count; i_index++ )
400     {
401         p_parser = (module_t *)p_list->p_values[i_index].p_object ;
402
403         if( !p_parser->i_config_items )
404             continue;
405
406         for( p_item = p_parser->p_config;
407              p_item->i_type != CONFIG_HINT_END;
408              p_item++ )
409         {
410             if( p_item->i_type & CONFIG_HINT )
411                 /* ignore hints */
412                 continue;
413             if( !strcmp( psz_name, p_item->psz_name ) )
414             {
415                 vlc_list_release( p_list );
416                 return p_item;
417             }
418         }
419     }
420
421     vlc_list_release( p_list );
422
423     return NULL;
424 }
425
426 /*****************************************************************************
427  * config_Duplicate: creates a duplicate of a module's configuration data.
428  *****************************************************************************
429  * Unfortunatly we cannot work directly with the module's config data as
430  * this module might be unloaded from memory at any time (remember HideModule).
431  * This is why we need to create an exact copy of the config data.
432  *****************************************************************************/
433 void config_Duplicate( module_t *p_module, module_config_t *p_orig )
434 {
435     int i, j, i_lines = 1;
436     module_config_t *p_item;
437
438     /* Calculate the structure length */
439     p_module->i_config_items = 0;
440     p_module->i_bool_items = 0;
441
442     for( p_item = p_orig; p_item->i_type != CONFIG_HINT_END; p_item++ )
443     {
444         i_lines++;
445
446         if( p_item->i_type & CONFIG_ITEM )
447         {
448             p_module->i_config_items++;
449         }
450
451         if( p_item->i_type == CONFIG_ITEM_BOOL )
452         {
453             p_module->i_bool_items++;
454         }
455     }
456
457     /* Allocate memory */
458     p_module->p_config = (module_config_t *)malloc( sizeof(module_config_t)
459                                                      * i_lines );
460     if( p_module->p_config == NULL )
461     {
462         msg_Err( p_module, "config error: can't duplicate p_config" );
463         return;
464     }
465
466     /* Do the duplication job */
467     for( i = 0; i < i_lines ; i++ )
468     {
469         p_module->p_config[i].i_type = p_orig[i].i_type;
470         p_module->p_config[i].i_short = p_orig[i].i_short;
471         p_module->p_config[i].i_value = p_orig[i].i_value;
472         p_module->p_config[i].i_value_orig = p_orig[i].i_value;
473         p_module->p_config[i].i_min = p_orig[i].i_min;
474         p_module->p_config[i].i_max = p_orig[i].i_max;
475         p_module->p_config[i].f_value = p_orig[i].f_value;
476         p_module->p_config[i].f_value_orig = p_orig[i].f_value;
477         p_module->p_config[i].f_min = p_orig[i].f_min;
478         p_module->p_config[i].f_max = p_orig[i].f_max;
479         p_module->p_config[i].b_dirty = p_orig[i].b_dirty;
480         p_module->p_config[i].b_advanced = p_orig[i].b_advanced;
481
482         p_module->p_config[i].psz_type = p_orig[i].psz_type ?
483                                    strdup( p_orig[i].psz_type ) : NULL;
484         p_module->p_config[i].psz_name = p_orig[i].psz_name ?
485                                    strdup( p_orig[i].psz_name ) : NULL;
486         p_module->p_config[i].psz_text = p_orig[i].psz_text ?
487                                    strdup( _(p_orig[i].psz_text) ) : NULL;
488         p_module->p_config[i].psz_longtext = p_orig[i].psz_longtext ?
489                                    strdup( _(p_orig[i].psz_longtext) ) : NULL;
490         p_module->p_config[i].psz_value = p_orig[i].psz_value ?
491                                    strdup( p_orig[i].psz_value ) : NULL;
492         p_module->p_config[i].psz_value_orig = p_orig[i].psz_value ?
493                                    strdup( p_orig[i].psz_value ) : NULL;
494
495         p_module->p_config[i].p_lock = &p_module->object_lock;
496
497         /* duplicate the string list */
498         p_module->p_config[i].ppsz_list = NULL;
499         if( p_orig[i].ppsz_list )
500         {
501             for( j = 0; p_orig[i].ppsz_list[j]; j++ );
502             p_module->p_config[i].ppsz_list = malloc( (j+1) *sizeof(char *) );
503             if( p_module->p_config[i].ppsz_list )
504             {
505                 for( j = 0; p_orig[i].ppsz_list[j]; j++ )
506                     p_module->p_config[i].ppsz_list[j] =
507                         strdup( p_orig[i].ppsz_list[j] );
508             }
509             p_module->p_config[i].ppsz_list[j] = NULL;
510         }
511
512         p_module->p_config[i].pf_callback = p_orig[i].pf_callback;
513     }
514 }
515
516 /*****************************************************************************
517  * config_Free: frees a duplicated module's configuration data.
518  *****************************************************************************
519  * This function frees all the data duplicated by config_Duplicate.
520  *****************************************************************************/
521 void config_Free( module_t *p_module )
522 {
523     module_config_t *p_item = p_module->p_config;
524     int i;
525
526     if( p_item == NULL )
527     {
528         return;
529     }
530
531     for( ; p_item->i_type != CONFIG_HINT_END ; p_item++ )
532     {
533         if( p_item->psz_type )
534             free( p_item->psz_type );
535
536         if( p_item->psz_name )
537             free( p_item->psz_name );
538
539         if( p_item->psz_text )
540             free( p_item->psz_text );
541
542         if( p_item->psz_longtext )
543             free( p_item->psz_longtext );
544
545         if( p_item->psz_value )
546             free( p_item->psz_value );
547
548         if( p_item->psz_value_orig )
549             free( p_item->psz_value_orig );
550
551         if( p_item->ppsz_list )
552         {
553             for( i = 0; p_item->ppsz_list[i]; i++ )
554                 free(p_item->ppsz_list[i]);
555             free( p_item->ppsz_list );
556         }
557     }
558
559     free( p_module->p_config );
560     p_module->p_config = NULL;
561 }
562
563 /*****************************************************************************
564  * config_SetCallbacks: sets callback functions in the duplicate p_config.
565  *****************************************************************************
566  * Unfortunatly we cannot work directly with the module's config data as
567  * this module might be unloaded from memory at any time (remember HideModule).
568  * This is why we need to duplicate callbacks each time we reload the module.
569  *****************************************************************************/
570 void config_SetCallbacks( module_config_t *p_new, module_config_t *p_orig )
571 {
572     while( p_new->i_type != CONFIG_HINT_END )
573     {
574         p_new->pf_callback = p_orig->pf_callback;
575         p_new++;
576         p_orig++;
577     }
578 }
579
580 /*****************************************************************************
581  * config_UnsetCallbacks: unsets callback functions in the duplicate p_config.
582  *****************************************************************************
583  * We simply undo what we did in config_SetCallbacks.
584  *****************************************************************************/
585 void config_UnsetCallbacks( module_config_t *p_new )
586 {
587     while( p_new->i_type != CONFIG_HINT_END )
588     {
589         p_new->pf_callback = NULL;
590         p_new++;
591     }
592 }
593
594 /*****************************************************************************
595  * config_ResetAll: reset the configuration data for all the modules.
596  *****************************************************************************/
597 void __config_ResetAll( vlc_object_t *p_this )
598 {
599     int i_index, i;
600     vlc_list_t *p_list;
601     module_t *p_module;
602
603     /* Acquire config file lock */
604     vlc_mutex_lock( &p_this->p_vlc->config_lock );
605
606     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
607
608     for( i_index = 0; i_index < p_list->i_count; i_index++ )
609     {
610         p_module = (module_t *)p_list->p_values[i_index].p_object ;
611         if( p_module->b_submodule ) continue;
612
613         for( i = 0; p_module->p_config[i].i_type != CONFIG_HINT_END; i++ )
614         {
615             p_module->p_config[i].i_value = p_module->p_config[i].i_value_orig;
616             p_module->p_config[i].f_value = p_module->p_config[i].f_value_orig;
617             if( p_module->p_config[i].psz_value )
618                 free( p_module->p_config[i].psz_value );
619             p_module->p_config[i].psz_value =
620                 p_module->p_config[i].psz_value_orig ?
621                 strdup( p_module->p_config[i].psz_value_orig ) : NULL;
622         }
623     }
624
625     vlc_list_release( p_list );
626     vlc_mutex_unlock( &p_this->p_vlc->config_lock );
627 }
628
629 /*****************************************************************************
630  * config_LoadConfigFile: loads the configuration file.
631  *****************************************************************************
632  * This function is called to load the config options stored in the config
633  * file.
634  *****************************************************************************/
635 int __config_LoadConfigFile( vlc_object_t *p_this, const char *psz_module_name )
636 {
637     vlc_list_t *p_list;
638     module_t *p_parser;
639     module_config_t *p_item;
640     FILE *file;
641     char line[1024];
642     char *p_index, *psz_option_name, *psz_option_value;
643     char *psz_filename, *psz_homedir;
644     int i_index;
645
646     psz_homedir = p_this->p_vlc->psz_homedir;
647     if( !psz_homedir )
648     {
649         msg_Err( p_this, "psz_homedir is null" );
650         return -1;
651     }
652     psz_filename = (char *)malloc( strlen("/" CONFIG_DIR "/" CONFIG_FILE) +
653                                    strlen(psz_homedir) + 1 );
654     if( !psz_filename )
655     {
656         msg_Err( p_this, "out of memory" );
657         return -1;
658     }
659     sprintf( psz_filename, "%s/" CONFIG_DIR "/" CONFIG_FILE, psz_homedir );
660
661     msg_Dbg( p_this, "opening config file %s", psz_filename );
662
663     /* Acquire config file lock */
664     vlc_mutex_lock( &p_this->p_vlc->config_lock );
665
666     file = fopen( psz_filename, "rt" );
667     if( !file )
668     {
669         msg_Warn( p_this, "config file %s does not exist yet", psz_filename );
670         free( psz_filename );
671         vlc_mutex_unlock( &p_this->p_vlc->config_lock );
672         return -1;
673     }
674
675     /* Look for the selected module, if NULL then save everything */
676     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
677
678     for( i_index = 0; i_index < p_list->i_count; i_index++ )
679     {
680         p_parser = (module_t *)p_list->p_values[i_index].p_object ;
681
682         if( psz_module_name
683              && strcmp( psz_module_name, p_parser->psz_object_name ) )
684         {
685             continue;
686         }
687
688         /* The config file is organized in sections, one per module. Look for
689          * the interesting section ( a section is of the form [foo] ) */
690         fseek( file, 0L, SEEK_SET );
691         while( fgets( line, 1024, file ) )
692         {
693             if( (line[0] == '[')
694                && (p_index = strchr(line,']'))
695                && (p_index - &line[1]
696                     == (int)strlen(p_parser->psz_object_name))
697                && !memcmp( &line[1], p_parser->psz_object_name,
698                            strlen(p_parser->psz_object_name) ) )
699             {
700 #if 0
701                 msg_Dbg( p_this, "loading config for module \"%s\"",
702                                  p_parser->psz_object_name );
703 #endif
704
705                 break;
706             }
707         }
708         /* either we found the section or we're at the EOF */
709
710         /* Now try to load the options in this section */
711         while( fgets( line, 1024, file ) )
712         {
713             if( line[0] == '[' ) break; /* end of section */
714
715             /* ignore comments or empty lines */
716             if( (line[0] == '#') || (line[0] == '\n') || (line[0] == (char)0) )
717                 continue;
718
719             /* get rid of line feed */
720             if( line[strlen(line)-1] == '\n' )
721                 line[strlen(line)-1] = (char)0;
722
723             /* look for option name */
724             psz_option_name = line;
725             psz_option_value = NULL;
726             p_index = strchr( line, '=' );
727             if( !p_index ) break; /* this ain't an option!!! */
728
729             *p_index = (char)0;
730             psz_option_value = p_index + 1;
731
732             if( !p_parser->i_config_items )
733             {
734                 continue;
735             }
736
737             /* try to match this option with one of the module's options */
738             for( p_item = p_parser->p_config;
739                  p_item->i_type != CONFIG_HINT_END;
740                  p_item++ )
741             {
742                 if( p_item->i_type & CONFIG_HINT )
743                     /* ignore hints */
744                     continue;
745
746                 if( !strcmp( p_item->psz_name, psz_option_name ) )
747                 {
748                     /* We found it */
749                     switch( p_item->i_type )
750                     {
751                     case CONFIG_ITEM_BOOL:
752                     case CONFIG_ITEM_INTEGER:
753                         if( !*psz_option_value )
754                             break;                    /* ignore empty option */
755                         p_item->i_value = atoi( psz_option_value);
756 #if 0
757                         msg_Dbg( p_this, "option \"%s\", value %i",
758                                  p_item->psz_name, p_item->i_value );
759 #endif
760                         break;
761
762                     case CONFIG_ITEM_FLOAT:
763                         if( !*psz_option_value )
764                             break;                    /* ignore empty option */
765                         p_item->f_value = (float)atof( psz_option_value);
766 #if O
767                         msg_Dbg( p_this, "option \"%s\", value %f",
768                                  p_item->psz_name, (double)p_item->f_value );
769 #endif
770                         break;
771                     case CONFIG_ITEM_KEY:
772                         if( !*psz_option_value )
773                             break;                    /* ignore empty option */
774                         p_item->i_value = ConfigStringToKey( psz_option_value );
775                         break;
776
777                     default:
778                         vlc_mutex_lock( p_item->p_lock );
779
780                         /* free old string */
781                         if( p_item->psz_value )
782                             free( p_item->psz_value );
783
784                         p_item->psz_value = *psz_option_value ?
785                             strdup( psz_option_value ) : NULL;
786
787                         vlc_mutex_unlock( p_item->p_lock );
788
789 #if 0
790                         msg_Dbg( p_this, "option \"%s\", value \"%s\"",
791                                  p_item->psz_name,
792                                  p_item->psz_value ? p_item->psz_value : "" );
793 #endif
794                         break;
795                     }
796                 }
797             }
798         }
799
800     }
801
802     vlc_list_release( p_list );
803
804     fclose( file );
805     free( psz_filename );
806
807     vlc_mutex_unlock( &p_this->p_vlc->config_lock );
808
809     return 0;
810 }
811
812 /*****************************************************************************
813  * config_SaveConfigFile: Save a module's config options.
814  *****************************************************************************
815  * This will save the specified module's config options to the config file.
816  * If psz_module_name is NULL then we save all the modules config options.
817  * It's no use to save the config options that kept their default values, so
818  * we'll try to be a bit clever here.
819  *
820  * When we save we mustn't delete the config options of the modules that
821  * haven't been loaded. So we cannot just create a new config file with the
822  * config structures we've got in memory.
823  * I don't really know how to deal with this nicely, so I will use a completly
824  * dumb method ;-)
825  * I will load the config file in memory, but skipping all the sections of the
826  * modules we want to save. Then I will create a brand new file, dump the file
827  * loaded in memory and then append the sections of the modules we want to
828  * save.
829  * Really stupid no ?
830  *****************************************************************************/
831 int __config_SaveConfigFile( vlc_object_t *p_this, const char *psz_module_name )
832 {
833     module_t *p_parser;
834     vlc_list_t *p_list;
835     module_config_t *p_item;
836     FILE *file;
837     char p_line[1024], *p_index2;
838     int i_sizebuf = 0;
839     char *p_bigbuffer, *p_index;
840     vlc_bool_t b_backup;
841     char *psz_filename, *psz_homedir;
842     int i_index;
843
844     /* Acquire config file lock */
845     vlc_mutex_lock( &p_this->p_vlc->config_lock );
846
847     psz_homedir = p_this->p_vlc->psz_homedir;
848     if( !psz_homedir )
849     {
850         msg_Err( p_this, "psz_homedir is null" );
851         vlc_mutex_unlock( &p_this->p_vlc->config_lock );
852         return -1;
853     }
854     psz_filename = (char *)malloc( strlen("/" CONFIG_DIR "/" CONFIG_FILE) +
855                                    strlen(psz_homedir) + 1 );
856     if( !psz_filename )
857     {
858         msg_Err( p_this, "out of memory" );
859         vlc_mutex_unlock( &p_this->p_vlc->config_lock );
860         return -1;
861     }
862     sprintf( psz_filename, "%s/" CONFIG_DIR, psz_homedir );
863
864 #if defined( UNDER_CE )
865     {
866         wchar_t psz_new[ MAX_PATH ];
867         MultiByteToWideChar( CP_ACP, 0, psz_filename, -1, psz_new, MAX_PATH );
868         if( CreateDirectory( psz_new, NULL ) )
869         {
870             msg_Err( p_this, "could not create %s", psz_filename );
871         }
872     }
873
874 #elif defined( HAVE_ERRNO_H )
875 #   if defined( WIN32 )
876     if( mkdir( psz_filename ) && errno != EEXIST )
877 #   else
878     if( mkdir( psz_filename, 0755 ) && errno != EEXIST )
879 #   endif
880     {
881         msg_Err( p_this, "could not create %s (%s)",
882                          psz_filename, strerror(errno) );
883     }
884
885 #else
886     if( mkdir( psz_filename ) )
887     {
888         msg_Err( p_this, "could not create %s", psz_filename );
889     }
890
891 #endif
892
893     strcat( psz_filename, "/" CONFIG_FILE );
894
895
896     msg_Dbg( p_this, "opening config file %s", psz_filename );
897
898     file = fopen( psz_filename, "rt" );
899     if( !file )
900     {
901         msg_Warn( p_this, "config file %s does not exist yet", psz_filename );
902     }
903     else
904     {
905         /* look for file size */
906         fseek( file, 0L, SEEK_END );
907         i_sizebuf = ftell( file );
908         fseek( file, 0L, SEEK_SET );
909     }
910
911     p_bigbuffer = p_index = malloc( i_sizebuf+1 );
912     if( !p_bigbuffer )
913     {
914         msg_Err( p_this, "out of memory" );
915         if( file ) fclose( file );
916         free( psz_filename );
917         vlc_mutex_unlock( &p_this->p_vlc->config_lock );
918         return -1;
919     }
920     p_bigbuffer[0] = 0;
921
922     /* List all available modules */
923     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
924
925     /* backup file into memory, we only need to backup the sections we won't
926      * save later on */
927     b_backup = 0;
928     while( file && fgets( p_line, 1024, file ) )
929     {
930         if( (p_line[0] == '[') && (p_index2 = strchr(p_line,']')))
931         {
932
933             /* we found a section, check if we need to do a backup */
934             for( i_index = 0; i_index < p_list->i_count; i_index++ )
935             {
936                 p_parser = (module_t *)p_list->p_values[i_index].p_object ;
937
938                 if( ((p_index2 - &p_line[1])
939                        == (int)strlen(p_parser->psz_object_name) )
940                     && !memcmp( &p_line[1], p_parser->psz_object_name,
941                                 strlen(p_parser->psz_object_name) ) )
942                 {
943                     if( !psz_module_name )
944                         break;
945                     else if( !strcmp( psz_module_name,
946                                       p_parser->psz_object_name ) )
947                         break;
948                 }
949             }
950
951             if( i_index == p_list->i_count )
952             {
953                 /* we don't have this section in our list so we need to back
954                  * it up */
955                 *p_index2 = 0;
956                 msg_Dbg( p_this, "backing up config for unknown module \"%s\"",
957                                  &p_line[1] );
958                 *p_index2 = ']';
959
960                 b_backup = 1;
961             }
962             else
963             {
964                 b_backup = 0;
965             }
966         }
967
968         /* save line if requested and line is valid (doesn't begin with a
969          * space, tab, or eol) */
970         if( b_backup && (p_line[0] != '\n') && (p_line[0] != ' ')
971             && (p_line[0] != '\t') )
972         {
973             strcpy( p_index, p_line );
974             p_index += strlen( p_line );
975         }
976     }
977     if( file ) fclose( file );
978
979
980     /*
981      * Save module config in file
982      */
983
984     file = fopen( psz_filename, "wt" );
985     if( !file )
986     {
987         msg_Warn( p_this, "could not open config file %s for writing",
988                           psz_filename );
989         free( psz_filename );
990         vlc_list_release( p_list );
991         vlc_mutex_unlock( &p_this->p_vlc->config_lock );
992         return -1;
993     }
994
995     fprintf( file, "###\n###  " COPYRIGHT_MESSAGE "\n###\n\n" );
996
997     /* Look for the selected module, if NULL then save everything */
998     for( i_index = 0; i_index < p_list->i_count; i_index++ )
999     {
1000         p_parser = (module_t *)p_list->p_values[i_index].p_object ;
1001
1002         if( psz_module_name && strcmp( psz_module_name,
1003                                        p_parser->psz_object_name ) )
1004             continue;
1005
1006         if( !p_parser->i_config_items )
1007             continue;
1008
1009         msg_Dbg( p_this, "saving config for module \"%s\"",
1010                          p_parser->psz_object_name );
1011
1012         fprintf( file, "[%s]", p_parser->psz_object_name );
1013         if( p_parser->psz_longname )
1014             fprintf( file, " # %s\n\n", p_parser->psz_longname );
1015         else
1016             fprintf( file, "\n\n" );
1017
1018         for( p_item = p_parser->p_config;
1019              p_item->i_type != CONFIG_HINT_END;
1020              p_item++ )
1021         {
1022             char *psz_key;
1023             if( p_item->i_type & CONFIG_HINT )
1024                 /* ignore hints */
1025                 continue;
1026
1027             switch( p_item->i_type )
1028             {
1029             case CONFIG_ITEM_BOOL:
1030             case CONFIG_ITEM_INTEGER:
1031                 if( p_item->psz_text )
1032                     fprintf( file, "# %s (%s)\n", p_item->psz_text,
1033                              (p_item->i_type == CONFIG_ITEM_BOOL) ?
1034                              _("boolean") : _("integer") );
1035                 if( p_item->i_value == p_item->i_value_orig )
1036                     fprintf( file, "#" );
1037                 fprintf( file, "%s=%i\n", p_item->psz_name, p_item->i_value );
1038                 break;
1039             case CONFIG_ITEM_KEY:
1040                 if( p_item->psz_text )
1041                     fprintf( file, "# %s (%s)\n", p_item->psz_text,
1042                              _("key") );
1043                 psz_key = ConfigKeyToString( p_item->i_value );
1044                 fprintf( file, "%s=%s\n", p_item->psz_name,
1045                          psz_key ? psz_key : "" );
1046                 if ( psz_key ) free( psz_key );
1047                 break;
1048                 
1049             case CONFIG_ITEM_FLOAT:
1050                 if( p_item->psz_text )
1051                     fprintf( file, "# %s (%s)\n", p_item->psz_text,
1052                              _("float") );
1053                 if( p_item->f_value == p_item->f_value_orig )
1054                     fprintf( file, "#" );
1055                 fprintf( file, "%s=%f\n", p_item->psz_name,
1056                          (double)p_item->f_value );
1057                 break;
1058
1059             default:
1060                 if( p_item->psz_text )
1061                     fprintf( file, "# %s (%s)\n", p_item->psz_text,
1062                              _("string") );
1063                 if( (!p_item->psz_value && !p_item->psz_value_orig) ||
1064                     (p_item->psz_value && p_item->psz_value_orig &&
1065                      !strcmp( p_item->psz_value, p_item->psz_value_orig )) )
1066                     fprintf( file, "#" );
1067                 fprintf( file, "%s=%s\n", p_item->psz_name,
1068                          p_item->psz_value ? p_item->psz_value : "" );
1069             }
1070         }
1071
1072         fprintf( file, "\n" );
1073     }
1074
1075     vlc_list_release( p_list );
1076
1077     /*
1078      * Restore old settings from the config in file
1079      */
1080     fputs( p_bigbuffer, file );
1081     free( p_bigbuffer );
1082
1083     fclose( file );
1084     free( psz_filename );
1085     vlc_mutex_unlock( &p_this->p_vlc->config_lock );
1086
1087     return 0;
1088 }
1089
1090 /*****************************************************************************
1091  * config_LoadCmdLine: parse command line
1092  *****************************************************************************
1093  * Parse command line for configuration options.
1094  * Now that the module_bank has been initialized, we can dynamically
1095  * generate the longopts structure used by getops. We have to do it this way
1096  * because we don't know (and don't want to know) in advance the configuration
1097  * options used (ie. exported) by each module.
1098  *****************************************************************************/
1099 int __config_LoadCmdLine( vlc_object_t *p_this, int *pi_argc, char *ppsz_argv[],
1100                           vlc_bool_t b_ignore_errors )
1101 {
1102     int i_cmd, i_index, i_opts, i_shortopts, flag, i_verbose = 0;
1103     module_t *p_parser;
1104     vlc_list_t *p_list;
1105     module_config_t *p_item;
1106     struct option *p_longopts;
1107     int i_modules_index;
1108
1109     /* Short options */
1110     module_config_t *pp_shortopts[256];
1111     char *psz_shortopts;
1112
1113     /* Set default configuration and copy arguments */
1114     p_this->p_vlc->i_argc    = *pi_argc;
1115     p_this->p_vlc->ppsz_argv = ppsz_argv;
1116
1117     p_this->p_vlc->p_channel = NULL;
1118
1119 #ifdef SYS_DARWIN
1120     /* When vlc.app is run by double clicking in Mac OS X, the 2nd arg
1121      * is the PSN - process serial number (a unique PID-ish thingie)
1122      * still ok for real Darwin & when run from command line */
1123     if ( (*pi_argc > 1) && (strncmp( ppsz_argv[ 1 ] , "-psn" , 4 ) == 0) )
1124                                         /* for example -psn_0_9306113 */
1125     {
1126         /* GDMF!... I can't do this or else the MacOSX window server will
1127          * not pick up the PSN and not register the app and we crash...
1128          * hence the following kludge otherwise we'll get confused w/ argv[1]
1129          * being an input file name */
1130 #if 0
1131         ppsz_argv[ 1 ] = NULL;
1132 #endif
1133         *pi_argc = *pi_argc - 1;
1134         pi_argc--;
1135         return 0;
1136     }
1137 #endif
1138
1139     /* List all modules */
1140     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
1141
1142     /*
1143      * Generate the longopts and shortopts structures used by getopt_long
1144      */
1145
1146     i_opts = 0;
1147     for( i_modules_index = 0; i_modules_index < p_list->i_count;
1148          i_modules_index++ )
1149     {
1150         p_parser = (module_t *)p_list->p_values[i_modules_index].p_object ;
1151
1152         /* count the number of exported configuration options (to allocate
1153          * longopts). We also need to allocate space for too options when
1154          * dealing with boolean to allow for --foo and --no-foo */
1155         i_opts += p_parser->i_config_items
1156                      + 2 * p_parser->i_bool_items;
1157     }
1158
1159     p_longopts = malloc( sizeof(struct option) * (i_opts + 1) );
1160     if( p_longopts == NULL )
1161     {
1162         msg_Err( p_this, "out of memory" );
1163         vlc_list_release( p_list );
1164         return -1;
1165     }
1166
1167     psz_shortopts = malloc( sizeof( char ) * (2 * i_opts + 1) );
1168     if( psz_shortopts == NULL )
1169     {
1170         msg_Err( p_this, "out of memory" );
1171         free( p_longopts );
1172         vlc_list_release( p_list );
1173         return -1;
1174     }
1175
1176     /* If we are requested to ignore errors, then we must work on a copy
1177      * of the ppsz_argv array, otherwise getopt_long will reorder it for
1178      * us, ignoring the arity of the options */
1179     if( b_ignore_errors )
1180     {
1181         ppsz_argv = (char**)malloc( *pi_argc * sizeof(char *) );
1182         if( ppsz_argv == NULL )
1183         {
1184             msg_Err( p_this, "out of memory" );
1185             free( psz_shortopts );
1186             free( p_longopts );
1187             vlc_list_release( p_list );
1188             return -1;
1189         }
1190         memcpy( ppsz_argv, p_this->p_vlc->ppsz_argv,
1191                 *pi_argc * sizeof(char *) );
1192     }
1193
1194     i_shortopts = 0;
1195     for( i_index = 0; i_index < 256; i_index++ )
1196     {
1197         pp_shortopts[i_index] = NULL;
1198     }
1199
1200     /* Fill the p_longopts and psz_shortopts structures */
1201     i_index = 0;
1202     for( i_modules_index = 0; i_modules_index < p_list->i_count;
1203          i_modules_index++ )
1204     {
1205         p_parser = (module_t *)p_list->p_values[i_modules_index].p_object ;
1206
1207         if( !p_parser->i_config_items )
1208             continue;
1209
1210         for( p_item = p_parser->p_config;
1211              p_item->i_type != CONFIG_HINT_END;
1212              p_item++ )
1213         {
1214             /* Ignore hints */
1215             if( p_item->i_type & CONFIG_HINT )
1216                 continue;
1217
1218             /* Add item to long options */
1219             p_longopts[i_index].name = strdup( p_item->psz_name );
1220             if( p_longopts[i_index].name == NULL ) continue;
1221             p_longopts[i_index].has_arg =
1222                 (p_item->i_type == CONFIG_ITEM_BOOL)?
1223                                                no_argument : required_argument;
1224             p_longopts[i_index].flag = &flag;
1225             p_longopts[i_index].val = 0;
1226             i_index++;
1227
1228             /* When dealing with bools we also need to add the --no-foo
1229              * option */
1230             if( p_item->i_type == CONFIG_ITEM_BOOL )
1231             {
1232                 char *psz_name = malloc( strlen(p_item->psz_name) + 3 );
1233                 if( psz_name == NULL ) continue;
1234                 strcpy( psz_name, "no" );
1235                 strcat( psz_name, p_item->psz_name );
1236
1237                 p_longopts[i_index].name = psz_name;
1238                 p_longopts[i_index].has_arg = no_argument;
1239                 p_longopts[i_index].flag = &flag;
1240                 p_longopts[i_index].val = 1;
1241                 i_index++;
1242
1243                 psz_name = malloc( strlen(p_item->psz_name) + 4 );
1244                 if( psz_name == NULL ) continue;
1245                 strcpy( psz_name, "no-" );
1246                 strcat( psz_name, p_item->psz_name );
1247
1248                 p_longopts[i_index].name = psz_name;
1249                 p_longopts[i_index].has_arg = no_argument;
1250                 p_longopts[i_index].flag = &flag;
1251                 p_longopts[i_index].val = 1;
1252                 i_index++;
1253             }
1254
1255             /* If item also has a short option, add it */
1256             if( p_item->i_short )
1257             {
1258                 pp_shortopts[(int)p_item->i_short] = p_item;
1259                 psz_shortopts[i_shortopts] = p_item->i_short;
1260                 i_shortopts++;
1261                 if( p_item->i_type != CONFIG_ITEM_BOOL )
1262                 {
1263                     psz_shortopts[i_shortopts] = ':';
1264                     i_shortopts++;
1265
1266                     if( p_item->i_short == 'v' )
1267                     {
1268                         psz_shortopts[i_shortopts] = ':';
1269                         i_shortopts++;
1270                     }
1271                 }
1272             }
1273         }
1274     }
1275
1276     /* We don't need the module list anymore */
1277     vlc_list_release( p_list );
1278
1279     /* Close the longopts and shortopts structures */
1280     memset( &p_longopts[i_index], 0, sizeof(struct option) );
1281     psz_shortopts[i_shortopts] = '\0';
1282
1283     /*
1284      * Parse the command line options
1285      */
1286     opterr = 0;
1287     optind = 1;
1288     while( ( i_cmd = getopt_long( *pi_argc, ppsz_argv, psz_shortopts,
1289                                   p_longopts, &i_index ) ) != EOF )
1290     {
1291         /* A long option has been recognized */
1292         if( i_cmd == 0 )
1293         {
1294             module_config_t *p_conf;
1295             char *psz_name = (char *)p_longopts[i_index].name;
1296
1297             /* Check if we deal with a --nofoo or --no-foo long option */
1298             if( flag ) psz_name += psz_name[2] == '-' ? 3 : 2;
1299
1300             /* Store the configuration option */
1301             p_conf = config_FindConfig( p_this, psz_name );
1302
1303             if( p_conf ) switch( p_conf->i_type )
1304             {
1305             case CONFIG_ITEM_STRING:
1306             case CONFIG_ITEM_FILE:
1307             case CONFIG_ITEM_DIRECTORY:
1308             case CONFIG_ITEM_MODULE:
1309                 config_PutPsz( p_this, psz_name, optarg );
1310                 break;
1311             case CONFIG_ITEM_INTEGER:
1312                 config_PutInt( p_this, psz_name, atoi(optarg));
1313                 break;
1314             case CONFIG_ITEM_FLOAT:
1315                 config_PutFloat( p_this, psz_name, (float)atof(optarg) );
1316                 break;
1317             case CONFIG_ITEM_KEY:
1318                 config_PutInt( p_this, psz_name, ConfigStringToKey( optarg ) );
1319                 break;
1320             case CONFIG_ITEM_BOOL:
1321                 config_PutInt( p_this, psz_name, !flag );
1322                 break;
1323             }
1324
1325             continue;
1326         }
1327
1328         /* A short option has been recognized */
1329         if( pp_shortopts[i_cmd] != NULL )
1330         {
1331             switch( pp_shortopts[i_cmd]->i_type )
1332             {
1333             case CONFIG_ITEM_STRING:
1334             case CONFIG_ITEM_FILE:
1335             case CONFIG_ITEM_DIRECTORY:
1336             case CONFIG_ITEM_MODULE:
1337                 config_PutPsz( p_this, pp_shortopts[i_cmd]->psz_name, optarg );
1338                 break;
1339             case CONFIG_ITEM_INTEGER:
1340                 if( i_cmd == 'v' )
1341                 {
1342                     if( optarg )
1343                     {
1344                         if( *optarg == 'v' ) /* eg. -vvv */
1345                         {
1346                             i_verbose++;
1347                             while( *optarg == 'v' )
1348                             {
1349                                 i_verbose++;
1350                                 optarg++;
1351                             }
1352                         }
1353                         else
1354                         {
1355                             i_verbose += atoi( optarg ); /* eg. -v2 */
1356                         }
1357                     }
1358                     else
1359                     {
1360                         i_verbose++; /* -v */
1361                     }
1362                     config_PutInt( p_this, pp_shortopts[i_cmd]->psz_name,
1363                                            i_verbose );
1364                 }
1365                 else
1366                 {
1367                     config_PutInt( p_this, pp_shortopts[i_cmd]->psz_name,
1368                                            atoi(optarg) );
1369                 }
1370                 break;
1371             case CONFIG_ITEM_BOOL:
1372                 config_PutInt( p_this, pp_shortopts[i_cmd]->psz_name, 1 );
1373                 break;
1374             }
1375
1376             continue;
1377         }
1378
1379         /* Internal error: unknown option */
1380         if( !b_ignore_errors )
1381         {
1382             fprintf( stderr, "%s: unknown option ",
1383                              p_this->p_vlc->psz_object_name );
1384             if( optopt )
1385             {
1386                 fprintf( stderr, "`-%c'\n", optopt );
1387             }
1388             else
1389             {
1390                 fprintf( stderr, "`%s'\n", ppsz_argv[optind-1] );
1391             }
1392             fprintf( stderr, "Try `%s --help' for more information.\n",
1393                              p_this->p_vlc->psz_object_name );
1394
1395             free( p_longopts );
1396             free( psz_shortopts );
1397             return -1;
1398         }
1399     }
1400
1401     /* Free allocated resources */
1402     for( i_index = 0; p_longopts[i_index].name; i_index++ )
1403         free( (char *)p_longopts[i_index].name );
1404     free( p_longopts );
1405     free( psz_shortopts );
1406     if( b_ignore_errors ) free( ppsz_argv );
1407
1408     return 0;
1409 }
1410
1411 /*****************************************************************************
1412  * config_GetHomeDir: find the user's home directory.
1413  *****************************************************************************
1414  * This function will try by different ways to find the user's home path.
1415  * Note that this function is not reentrant, it should be called only once
1416  * at the beginning of main where the result will be stored for later use.
1417  *****************************************************************************/
1418 char *config_GetHomeDir( void )
1419 {
1420     char *p_tmp, *p_homedir = NULL;
1421
1422 #if defined(HAVE_GETPWUID)
1423     struct passwd *p_pw = NULL;
1424 #endif
1425
1426 #if defined(WIN32) || defined(UNDER_CE)
1427     typedef HRESULT (WINAPI *SHGETFOLDERPATH)( HWND, int, HANDLE, DWORD,
1428                                                LPTSTR );
1429 #   define CSIDL_FLAG_CREATE 0x8000
1430 #   define CSIDL_APPDATA 0x1A
1431 #   define SHGFP_TYPE_CURRENT 0
1432
1433     HINSTANCE shfolder_dll;
1434     SHGETFOLDERPATH SHGetFolderPath ;
1435
1436     /* load the shfolder dll to retrieve SHGetFolderPath */
1437     if( ( shfolder_dll = LoadLibrary("shfolder.dll") ) != NULL )
1438     {
1439         SHGetFolderPath = (void *)GetProcAddress( shfolder_dll,
1440                                                   "SHGetFolderPathA" );
1441         if ( SHGetFolderPath != NULL )
1442         {
1443             p_homedir = (char *)malloc( MAX_PATH );
1444             if( !p_homedir )
1445             {
1446                 return NULL;
1447             }
1448
1449             /* get the "Application Data" folder for the current user */
1450             if( S_OK == SHGetFolderPath( NULL,
1451                                          CSIDL_APPDATA | CSIDL_FLAG_CREATE,
1452                                          NULL, SHGFP_TYPE_CURRENT,
1453                                          p_homedir ) )
1454             {
1455                 FreeLibrary( shfolder_dll );
1456                 return p_homedir;
1457             }
1458             free( p_homedir );
1459         }
1460         FreeLibrary( shfolder_dll );
1461     }
1462 #endif
1463
1464 #if defined(HAVE_GETPWUID)
1465     if( ( p_pw = getpwuid( getuid() ) ) == NULL )
1466 #endif
1467     {
1468         if( ( p_tmp = getenv( "HOME" ) ) == NULL )
1469         {
1470             if( ( p_tmp = getenv( "TMP" ) ) == NULL )
1471             {
1472                 p_tmp = "/tmp";
1473             }
1474         }
1475
1476         p_homedir = strdup( p_tmp );
1477     }
1478 #if defined(HAVE_GETPWUID)
1479     else
1480     {
1481         p_homedir = strdup( p_pw->pw_dir );
1482     }
1483 #endif
1484
1485     return p_homedir;
1486 }
1487
1488
1489
1490 static int ConfigStringToKey( char *psz_key )
1491 {
1492     int i_key = 0;
1493     unsigned int i;
1494     char *psz_parser = strchr( psz_key, '-' );
1495     while( psz_parser && psz_parser != psz_key )
1496     {
1497         for ( i = 0; i < sizeof(modifiers) / sizeof(key_descriptor_t); i++ )
1498         {
1499             if ( !strncasecmp( modifiers[i].psz_key_string, psz_key, strlen( modifiers[i].psz_key_string ) ) )
1500             {
1501                 i_key |= modifiers[i].i_key_code;
1502             }
1503         }
1504         psz_key = psz_parser + 1;
1505         psz_parser = strchr( psz_key, '-' );
1506     }
1507     for ( i = 0; i < sizeof(keys) / sizeof( key_descriptor_t ); i++ )
1508     {
1509         if ( !strcasecmp( keys[i].psz_key_string, psz_key ) )
1510         {
1511             i_key |= keys[i].i_key_code;
1512             break;
1513         }
1514     }
1515     return i_key;
1516 }
1517
1518
1519 static char *ConfigKeyToString( int i_key )
1520 {
1521     char *psz_key = malloc( 100 );
1522     char *p;
1523     int i;
1524     if ( !psz_key )
1525     {
1526         return NULL;
1527     }
1528     *psz_key = '\0';
1529     p = psz_key;
1530     for( i = 0; i < sizeof(modifiers) / sizeof(key_descriptor_t); i++ )
1531     {
1532         if ( i_key & modifiers[i].i_key_code )
1533         {
1534             p += sprintf( p, "%s-", modifiers[i].psz_key_string );
1535         }
1536     }
1537     for( i = 0; i < sizeof(keys) / sizeof( key_descriptor_t); i++)
1538     {
1539         if ( ( i_key & ~KEY_MODIFIER ) == keys[i].i_key_code )
1540         {
1541             p += sprintf( p, "%s", keys[i].psz_key_string );
1542             break;
1543         }
1544     }
1545     return psz_key;
1546 }