]> git.sesse.net Git - vlc/blob - src/config/file.c
Add long overdue private libvlc object pointer...
[vlc] / src / config / file.c
1 /*****************************************************************************
2  * file.c: configuration file handling
3  *****************************************************************************
4  * Copyright (C) 2001-2007 the VideoLAN team
5  * $Id$
6  *
7  * Authors: Gildas Bazin <gbazin@videolan.org>
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., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
22  *****************************************************************************/
23
24 #ifdef HAVE_CONFIG_H
25 # include "config.h"
26 #endif
27
28 #include <vlc/vlc.h>
29 #include "../libvlc.h"
30 #include "vlc_charset.h"
31 #include "vlc_keys.h"
32
33 #include <errno.h>                                                  /* errno */
34 #include <assert.h>
35 #include <limits.h>
36
37 #include "configuration.h"
38 #include "modules/modules.h"
39
40 static char *ConfigKeyToString( int );
41
42 static inline char *strdupnull (const char *src)
43 {
44     return src ? strdup (src) : NULL;
45 }
46
47 static FILE *config_OpenConfigFile( vlc_object_t *p_obj, const char *mode )
48 {
49     char *psz_filename = p_obj->p_libvlc->psz_configfile;
50     FILE *p_stream;
51
52     if( !psz_filename )
53     {
54         psz_filename = config_GetConfigFile( p_obj->p_libvlc );
55     }
56
57     msg_Dbg( p_obj, "opening config file (%s)", psz_filename );
58
59     p_stream = utf8_fopen( psz_filename, mode );
60     if( p_stream == NULL && errno != ENOENT )
61     {
62         msg_Err( p_obj, "cannot open config file (%s): %m",
63                  psz_filename );
64
65     }
66 #if !( defined(WIN32) || defined(__APPLE__) || defined(SYS_BEOS) )
67     else if( p_stream == NULL && errno == ENOENT && mode[0] == 'r' )
68     {
69         /* This is the fallback for pre XDG Base Directory
70          * Specification configs */
71         char *psz_old;
72         if( asprintf( &psz_old, "%s" DIR_SEP CONFIG_DIR DIR_SEP CONFIG_FILE,
73                   p_obj->p_libvlc->psz_homedir ) != -1 )
74         {
75             p_stream = utf8_fopen( psz_old, mode );
76             if( p_stream )
77             {
78                 /* Old config file found. We want to write it at the
79                  * new location now. */
80                 msg_Info( p_obj->p_libvlc, "Found old config file at %s. "
81                           "VLC will now use %s.", psz_old, psz_filename );
82                 char *psz_readme;
83                 if( asprintf(&psz_readme,"%s"DIR_SEP CONFIG_DIR DIR_SEP"README",
84                               p_obj->p_libvlc->psz_homedir ) != -1 )
85                 {
86                     FILE *p_readme = utf8_fopen( psz_readme, "wt" );
87                     if( p_readme )
88                     {
89                         fputs( "The VLC media player configuration folder has "
90                                "moved to comply with the XDG Base "
91                                "Directory Specification version 0.6. Your "
92                                "configuration has been copied to the new "
93                                "location (", p_readme );
94                         fputs( p_obj->p_libvlc->psz_configdir, p_readme );
95                         fputs( "). You can delete this directory and "
96                                "all its contents.", p_readme );
97                         fclose( p_readme );
98                     }
99                     free( psz_readme );
100                 }
101             }
102             free( psz_old );
103         }
104     }
105 #endif
106     else if( p_stream != NULL )
107     {
108         p_obj->p_libvlc->psz_configfile = psz_filename;
109     }
110
111     return p_stream;
112 }
113
114
115 static int strtoi (const char *str)
116 {
117     char *end;
118     long l;
119
120     errno = 0;
121     l = strtol (str, &end, 0);
122
123     if (!errno)
124     {
125         if ((l > INT_MAX) || (l < INT_MIN))
126             errno = ERANGE;
127         if (*end)
128             errno = EINVAL;
129     }
130     return (int)l;
131 }
132
133
134 /*****************************************************************************
135  * config_LoadConfigFile: loads the configuration file.
136  *****************************************************************************
137  * This function is called to load the config options stored in the config
138  * file.
139  *****************************************************************************/
140 int __config_LoadConfigFile( vlc_object_t *p_this, const char *psz_module_name )
141 {
142     libvlc_priv_t *priv = libvlc_priv (p_this->p_libvlc);
143     vlc_list_t *p_list;
144     FILE *file;
145
146     file = config_OpenConfigFile (p_this, "rt");
147     if (file == NULL)
148         return VLC_EGENERIC;
149
150     /* Acquire config file lock */
151     vlc_mutex_lock( &priv->config_lock );
152
153     /* Look for the selected module, if NULL then save everything */
154     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
155
156     /* Look for UTF-8 Byte Order Mark */
157     char * (*convert) (const char *) = strdupnull;
158     char bom[3];
159
160     if ((fread (bom, 1, 3, file) != 3)
161      || memcmp (bom, "\xEF\xBB\xBF", 3))
162     {
163         convert = FromLocaleDup;
164         rewind (file); /* no BOM, rewind */
165     }
166
167     module_t *module = NULL;
168     char line[1024], section[1022];
169     section[0] = '\0';
170
171     while (fgets (line, 1024, file) != NULL)
172     {
173         /* Ignore comments and empty lines */
174         switch (line[0])
175         {
176             case '#':
177             case '\n':
178             case '\0':
179                 continue;
180         }
181
182         if (line[0] == '[')
183         {
184             char *ptr = strchr (line, ']');
185             if (ptr == NULL)
186                 continue; /* syntax error; */
187             *ptr = '\0';
188
189             /* New section ( = a given module) */
190             strcpy (section, line + 1);
191             module = NULL;
192
193             if ((psz_module_name == NULL)
194              || (strcmp (psz_module_name, section) == 0))
195             {
196                 for (int i = 0; i < p_list->i_count; i++)
197                 {
198                     module_t *m = (module_t *)p_list->p_values[i].p_object;
199
200                     if ((strcmp (section, m->psz_object_name) == 0)
201                      && (m->i_config_items > 0)) /* ignore config-less modules */
202                     {
203                         module = m;
204                         if (psz_module_name != NULL)
205                             msg_Dbg (p_this,
206                                      "loading config for module \"%s\"",
207                                      section);
208                         break;
209                     }
210                 }
211             }
212
213             continue;
214         }
215
216         if (module == NULL)
217             continue; /* no need to parse if there is no matching module */
218
219         char *ptr = strchr (line, '\n');
220         if (ptr != NULL)
221             *ptr = '\0';
222
223         /* look for option name */
224         const char *psz_option_name = line;
225
226         ptr = strchr (line, '=');
227         if (ptr == NULL)
228             continue; /* syntax error */
229
230         *ptr = '\0';
231         const char *psz_option_value = ptr + 1;
232
233         /* try to match this option with one of the module's options */
234         for (size_t i = 0; i < module->confsize; i++)
235         {
236             module_config_t *p_item = module->p_config + i;
237
238             if ((p_item->i_type & CONFIG_HINT)
239              || strcmp (p_item->psz_name, psz_option_name))
240                 continue;
241
242             /* We found it */
243             errno = 0;
244
245             switch( p_item->i_type )
246             {
247                 case CONFIG_ITEM_BOOL:
248                 case CONFIG_ITEM_INTEGER:
249                 {
250                     long l = strtoi (psz_option_value);
251                     if (errno)
252                         msg_Warn (p_this, "Integer value (%s) for %s: %m",
253                                   psz_option_value, psz_option_name);
254                     else
255                         p_item->saved.i = p_item->value.i = (int)l;
256                     break;
257                 }
258
259                 case CONFIG_ITEM_FLOAT:
260                     if( !*psz_option_value )
261                         break;                    /* ignore empty option */
262                     p_item->value.f = (float)i18n_atof( psz_option_value);
263                     p_item->saved.f = p_item->value.f;
264                     break;
265
266                 case CONFIG_ITEM_KEY:
267                     if( !*psz_option_value )
268                         break;                    /* ignore empty option */
269                     p_item->value.i = ConfigStringToKey(psz_option_value);
270                     p_item->saved.i = p_item->value.i;
271                     break;
272
273                 default:
274                     vlc_mutex_lock( p_item->p_lock );
275
276                     /* free old string */
277                     free( (char*) p_item->value.psz );
278                     free( (char*) p_item->saved.psz );
279
280                     p_item->value.psz = convert (psz_option_value);
281                     p_item->saved.psz = strdupnull (p_item->value.psz);
282
283                     vlc_mutex_unlock( p_item->p_lock );
284                     break;
285             }
286
287             break;
288         }
289     }
290
291     if (ferror (file))
292     {
293         msg_Err (p_this, "error reading configuration: %m");
294         clearerr (file);
295     }
296     fclose (file);
297
298     vlc_list_release( p_list );
299
300     vlc_mutex_unlock( &priv->config_lock );
301     return 0;
302 }
303
304 /*****************************************************************************
305  * config_CreateDir: Create configuration directory if it doesn't exist.
306  *****************************************************************************/
307 int config_CreateDir( vlc_object_t *p_this, const char *psz_dirname )
308 {
309     if( !psz_dirname && !*psz_dirname ) return -1;
310
311     if( utf8_mkdir( psz_dirname, 0700 ) == 0 )
312         return 0;
313
314     switch( errno )
315     {
316         case EEXIST:
317             return 0;
318
319         case ENOENT:
320         {
321             /* Let's try to create the parent directory */
322             char psz_parent[strlen( psz_dirname ) + 1], *psz_end;
323             strcpy( psz_parent, psz_dirname );
324
325             psz_end = strrchr( psz_parent, DIR_SEP_CHAR );
326             if( psz_end && psz_end != psz_parent )
327             {
328                 *psz_end = '\0';
329                 if( config_CreateDir( p_this, psz_parent ) == 0 )
330                 {
331                     if( !utf8_mkdir( psz_dirname, 0700 ) )
332                         return 0;
333                 }
334             }
335         }
336     }
337
338     msg_Err( p_this, "could not create %s: %m", psz_dirname );
339     return -1;
340 }
341
342 static int
343 config_Write (FILE *file, const char *type, const char *desc,
344               bool comment, const char *name, const char *fmt, ...)
345 {
346     va_list ap;
347     int ret;
348
349     if (desc == NULL)
350         desc = "?";
351
352     if (fprintf (file, "# %s (%s)\n%s%s=", desc, _(type),
353                  comment ? "#" : "", name) < 0)
354         return -1;
355
356     va_start (ap, fmt);
357     ret = vfprintf (file, fmt, ap);
358     va_end (ap);
359     if (ret < 0)
360         return -1;
361
362     if (fputs ("\n\n", file) == EOF)
363         return -1;
364     return 0;
365 }
366
367
368 /*****************************************************************************
369  * config_SaveConfigFile: Save a module's config options.
370  *****************************************************************************
371  * This will save the specified module's config options to the config file.
372  * If psz_module_name is NULL then we save all the modules config options.
373  * It's no use to save the config options that kept their default values, so
374  * we'll try to be a bit clever here.
375  *
376  * When we save we mustn't delete the config options of the modules that
377  * haven't been loaded. So we cannot just create a new config file with the
378  * config structures we've got in memory.
379  * I don't really know how to deal with this nicely, so I will use a completly
380  * dumb method ;-)
381  * I will load the config file in memory, but skipping all the sections of the
382  * modules we want to save. Then I will create a brand new file, dump the file
383  * loaded in memory and then append the sections of the modules we want to
384  * save.
385  * Really stupid no ?
386  *****************************************************************************/
387 static int SaveConfigFile( vlc_object_t *p_this, const char *psz_module_name,
388                            bool b_autosave )
389 {
390     libvlc_priv_t *priv = libvlc_priv (p_this->p_libvlc);
391     module_t *p_parser;
392     vlc_list_t *p_list;
393     FILE *file;
394     char p_line[1024], *p_index2;
395     int i_sizebuf = 0;
396     char *p_bigbuffer, *p_index;
397     bool b_backup;
398     int i_index;
399
400     /* Acquire config file lock */
401     vlc_mutex_lock( &priv->config_lock );
402
403     if( p_this->p_libvlc->psz_configfile == NULL )
404     {
405         const char *psz_configdir = p_this->p_libvlc->psz_configdir;
406         if( !psz_configdir ) /* XXX: This should never happen */
407         {
408             msg_Err( p_this, "no configuration directory defined" );
409             vlc_mutex_unlock( &priv->config_lock );
410             return -1;
411         }
412
413         config_CreateDir( p_this, psz_configdir );
414     }
415
416     file = config_OpenConfigFile( p_this, "rt" );
417     if( file != NULL )
418     {
419         /* look for file size */
420         fseek( file, 0L, SEEK_END );
421         i_sizebuf = ftell( file );
422         fseek( file, 0L, SEEK_SET );
423     }
424
425     p_bigbuffer = p_index = malloc( i_sizebuf+1 );
426     if( !p_bigbuffer )
427     {
428         if( file ) fclose( file );
429         vlc_mutex_unlock( &priv->config_lock );
430         return -1;
431     }
432     p_bigbuffer[0] = 0;
433
434     /* List all available modules */
435     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
436
437     /* backup file into memory, we only need to backup the sections we won't
438      * save later on */
439     b_backup = 0;
440     while( file && fgets( p_line, 1024, file ) )
441     {
442         if( (p_line[0] == '[') && (p_index2 = strchr(p_line,']')))
443         {
444
445             /* we found a section, check if we need to do a backup */
446             for( i_index = 0; i_index < p_list->i_count; i_index++ )
447             {
448                 p_parser = (module_t *)p_list->p_values[i_index].p_object ;
449
450                 if( ((p_index2 - &p_line[1])
451                        == (int)strlen(p_parser->psz_object_name) )
452                     && !memcmp( &p_line[1], p_parser->psz_object_name,
453                                 strlen(p_parser->psz_object_name) ) )
454                 {
455                     if( !psz_module_name )
456                         break;
457                     else if( !strcmp( psz_module_name,
458                                       p_parser->psz_object_name ) )
459                         break;
460                 }
461             }
462
463             if( i_index == p_list->i_count )
464             {
465                 /* we don't have this section in our list so we need to back
466                  * it up */
467                 *p_index2 = 0;
468 #if 0
469                 msg_Dbg( p_this, "backing up config for unknown module \"%s\"",
470                                  &p_line[1] );
471 #endif
472                 *p_index2 = ']';
473
474                 b_backup = 1;
475             }
476             else
477             {
478                 b_backup = 0;
479             }
480         }
481
482         /* save line if requested and line is valid (doesn't begin with a
483          * space, tab, or eol) */
484         if( b_backup && (p_line[0] != '\n') && (p_line[0] != ' ')
485             && (p_line[0] != '\t') )
486         {
487             strcpy( p_index, p_line );
488             p_index += strlen( p_line );
489         }
490     }
491     if( file ) fclose( file );
492
493
494     /*
495      * Save module config in file
496      */
497
498     file = config_OpenConfigFile (p_this, "wt");
499     if( !file )
500     {
501         vlc_list_release( p_list );
502         free( p_bigbuffer );
503         vlc_mutex_unlock( &priv->config_lock );
504         return -1;
505     }
506
507     fprintf( file, "\xEF\xBB\xBF###\n###  " COPYRIGHT_MESSAGE "\n###\n\n"
508        "###\n### lines beginning with a '#' character are comments\n###\n\n" );
509
510     /* Look for the selected module, if NULL then save everything */
511     for( i_index = 0; i_index < p_list->i_count; i_index++ )
512     {
513         module_config_t *p_item, *p_end;
514         p_parser = (module_t *)p_list->p_values[i_index].p_object ;
515
516         if( psz_module_name && strcmp( psz_module_name,
517                                        p_parser->psz_object_name ) )
518             continue;
519
520         if( !p_parser->i_config_items )
521             continue;
522
523         if( psz_module_name )
524             msg_Dbg( p_this, "saving config for module \"%s\"",
525                      p_parser->psz_object_name );
526
527         fprintf( file, "[%s]", p_parser->psz_object_name );
528         if( p_parser->psz_longname )
529             fprintf( file, " # %s\n\n", p_parser->psz_longname );
530         else
531             fprintf( file, "\n\n" );
532
533         for( p_item = p_parser->p_config, p_end = p_item + p_parser->confsize;
534              p_item < p_end;
535              p_item++ )
536         {
537             /* Do not save the new value in the configuration file
538              * if doing an autosave, and the item is not an "autosaved" one. */
539             bool b_retain = b_autosave && !p_item->b_autosave;
540
541             if ((p_item->i_type & CONFIG_HINT) /* ignore hint */
542              || p_item->b_removed              /* ignore deprecated option */
543              || p_item->b_unsaveable)          /* ignore volatile option */
544                 continue;
545
546             if (IsConfigIntegerType (p_item->i_type))
547             {
548                 int val = b_retain ? p_item->saved.i : p_item->value.i;
549                 if (p_item->i_type == CONFIG_ITEM_KEY)
550                 {
551                     char *psz_key = ConfigKeyToString (val);
552                     config_Write (file, p_item->psz_text, N_("key"),
553                                   val == p_item->orig.i,
554                                   p_item->psz_name, "%s",
555                                   psz_key ? psz_key : "");
556                     free (psz_key);
557                 }
558                 else
559                     config_Write (file, p_item->psz_text,
560                                   (p_item->i_type == CONFIG_ITEM_BOOL)
561                                       ? N_("boolean") : N_("integer"),
562                                   val == p_item->orig.i,
563                                   p_item->psz_name, "%d", val);
564                 p_item->saved.i = val;
565             }
566             else
567             if (IsConfigFloatType (p_item->i_type))
568             {
569                 float val = b_retain ? p_item->saved.f : p_item->value.f;
570                 config_Write (file, p_item->psz_text, N_("float"),
571                               val == p_item->orig.f,
572                               p_item->psz_name, "%f", val);
573                 p_item->saved.f = val;
574             }
575             else
576             {
577                 const char *psz_value = b_retain ? p_item->saved.psz
578                                                  : p_item->value.psz;
579                 bool modified;
580
581                 assert (IsConfigStringType (p_item->i_type));
582
583                 if (b_retain && (psz_value == NULL)) /* FIXME: hack */
584                     psz_value = p_item->orig.psz;
585
586                 modified =
587                     (psz_value != NULL)
588                         ? ((p_item->orig.psz != NULL)
589                             ? (strcmp (psz_value, p_item->orig.psz) != 0)
590                             : true)
591                         : (p_item->orig.psz != NULL);
592
593                 config_Write (file, p_item->psz_text, N_("string"),
594                               !modified, p_item->psz_name, "%s",
595                               psz_value ? psz_value : "");
596
597                 if ( !b_retain )
598                 {
599
600                     free ((char *)p_item->saved.psz);
601                     if( (psz_value && p_item->orig.psz &&
602                          strcmp( psz_value, p_item->orig.psz )) ||
603                         !psz_value || !p_item->orig.psz)
604                         p_item->saved.psz = strdupnull (psz_value);
605                     else
606                         p_item->saved.psz = NULL;
607                 }
608             }
609
610             if (!b_retain)
611                 p_item->b_dirty = false;
612         }
613     }
614
615     vlc_list_release( p_list );
616
617     /*
618      * Restore old settings from the config in file
619      */
620     fputs( p_bigbuffer, file );
621     free( p_bigbuffer );
622
623     fclose( file );
624     vlc_mutex_unlock( &priv->config_lock );
625
626     return 0;
627 }
628
629 int config_AutoSaveConfigFile( vlc_object_t *p_this )
630 {
631     libvlc_priv_t *priv = libvlc_priv (p_this->p_libvlc);
632     vlc_list_t *p_list;
633     int i_index, i_count;
634
635     assert( p_this );
636
637     /* Check if there's anything to save */
638     vlc_mutex_lock( &priv->config_lock );
639     p_list = vlc_list_find( p_this, VLC_OBJECT_MODULE, FIND_ANYWHERE );
640     i_count = p_list->i_count;
641     for( i_index = 0; i_index < i_count; i_index++ )
642     {
643         module_t *p_parser = (module_t *)p_list->p_values[i_index].p_object ;
644         module_config_t *p_item, *p_end;
645
646         if( !p_parser->i_config_items ) continue;
647
648         for( p_item = p_parser->p_config, p_end = p_item + p_parser->confsize;
649              p_item < p_end;
650              p_item++ )
651         {
652             if( p_item->b_autosave && p_item->b_dirty ) break;
653         }
654         if( p_item < p_end ) break;
655     }
656     vlc_list_release( p_list );
657     vlc_mutex_unlock( &priv->config_lock );
658
659     if( i_index == i_count ) return VLC_SUCCESS;
660     return SaveConfigFile( p_this, 0, true );
661 }
662
663 int __config_SaveConfigFile( vlc_object_t *p_this, const char *psz_module_name )
664 {
665     return SaveConfigFile( p_this, psz_module_name, false );
666 }
667
668 /**
669  * Get the user's configuration file
670  */
671 char *config_GetConfigFile( libvlc_int_t *p_libvlc )
672 {
673     char *psz_configfile;
674     if( asprintf( &psz_configfile, "%s" DIR_SEP CONFIG_FILE,
675                   p_libvlc->psz_configdir ) == -1 )
676         return NULL;
677     return psz_configfile;
678 }
679
680 /**
681  * Get the user's configuration file when given with the --config option
682  */
683 char *config_GetCustomConfigFile( libvlc_int_t *p_libvlc )
684 {
685     char *psz_configfile = config_GetPsz( p_libvlc, "config" );
686     if( psz_configfile != NULL )
687     {
688         if( psz_configfile[0] == '~' && psz_configfile[1] == '/' )
689         {
690             /* This is incomplete: we should also support the ~cmassiot/ syntax */
691             char *psz_buf;
692             if( asprintf( &psz_buf, "%s/%s", p_libvlc->psz_homedir,
693                           psz_configfile + 2 ) == -1 )
694             {
695                 free( psz_configfile );
696                 return NULL;
697             }
698             free( psz_configfile );
699             psz_configfile = psz_buf;
700         }
701     }
702     return psz_configfile;
703 }
704
705 int ConfigStringToKey( const char *psz_key )
706 {
707     int i_key = 0;
708     unsigned int i;
709     const char *psz_parser = strchr( psz_key, '-' );
710     while( psz_parser && psz_parser != psz_key )
711     {
712         for( i = 0; i < sizeof(vlc_modifiers) / sizeof(key_descriptor_t); i++ )
713         {
714             if( !strncasecmp( vlc_modifiers[i].psz_key_string, psz_key,
715                               strlen( vlc_modifiers[i].psz_key_string ) ) )
716             {
717                 i_key |= vlc_modifiers[i].i_key_code;
718             }
719         }
720         psz_key = psz_parser + 1;
721         psz_parser = strchr( psz_key, '-' );
722     }
723     for( i = 0; i < sizeof(vlc_keys) / sizeof( key_descriptor_t ); i++ )
724     {
725         if( !strcasecmp( vlc_keys[i].psz_key_string, psz_key ) )
726         {
727             i_key |= vlc_keys[i].i_key_code;
728             break;
729         }
730     }
731     return i_key;
732 }
733
734 char *ConfigKeyToString( int i_key )
735 {
736     char *psz_key = malloc( 100 );
737     char *p;
738     size_t index;
739
740     if ( !psz_key )
741     {
742         return NULL;
743     }
744     *psz_key = '\0';
745     p = psz_key;
746
747     for( index = 0; index < (sizeof(vlc_modifiers) / sizeof(key_descriptor_t));
748          index++ )
749     {
750         if( i_key & vlc_modifiers[index].i_key_code )
751         {
752             p += sprintf( p, "%s-", vlc_modifiers[index].psz_key_string );
753         }
754     }
755     for( index = 0; index < (sizeof(vlc_keys) / sizeof( key_descriptor_t));
756          index++)
757     {
758         if( (int)( i_key & ~KEY_MODIFIER ) == vlc_keys[index].i_key_code )
759         {
760             p += sprintf( p, "%s", vlc_keys[index].psz_key_string );
761             break;
762         }
763     }
764     return psz_key;
765 }
766