gio/gsettingsschema.c

   1 /*
   2  * Copyright © 2010 Codethink Limited
   3  * Copyright © 2011 Canonical Limited
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the licence, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18  * Boston, MA 02111-1307, USA.
  19  */
  20
  21 #include "config.h"
  22
  23 #include "gsettingsschema-internal.h"
  24 #include "gsettings.h"
  25
  26 #include "gvdb/gvdb-reader.h"
  27 #include "strinfo.c"
  28
  29 #include <glibintl.h>
  30 #include <locale.h>
  31 #include <string.h>
  32
  33 /**
  34  * SECTION:gsettingsschema
  35  * @short_description: Introspecting and controlling the loading of
  36  *                     GSettings schemas
  37  *
  38  * The #GSettingsSchemaSource and #GSettingsSchema APIs provide a
  39  * mechanism for advanced control over the loading of schemas and a
  40  * mechanism for introspecting their content.
  41  *
  42  * Plugin loading systems that wish to provide plugins a way to access
  43  * settings face the problem of how to make the schemas for these
  44  * settings visible to GSettings.  Typically, a plugin will want to ship
  45  * the schema along with itself and it won't be installed into the
  46  * standard system directories for schemas.
  47  *
  48  * #GSettingsSchemaSource provides a mechanism for dealing with this by
  49  * allowing the creation of a new 'schema source' from which schemas can
  50  * be acquired.  This schema source can then become part of the metadata
  51  * associated with the plugin and queried whenever the plugin requires
  52  * access to some settings.
  53  *
  54  * Consider the following example:
  55  *
  56  * |[
  57  * typedef struct
  58  * {
  59  *    ...
  60  *    GSettingsSchemaSource *schema_source;
  61  *    ...
  62  * } Plugin;
  63  *
  64  * Plugin *
  65  * initialise_plugin (const gchar *dir)
  66  * {
  67  *   Plugin *plugin;
  68  *
  69  *   ...
  70  *
  71  *   plugin->schema_source =
  72  *     g_settings_new_schema_source_from_directory (dir,
  73  *       g_settings_schema_source_get_default (), FALSE, NULL);
  74  *
  75  *   ...
  76  *
  77  *   return plugin;
  78  * }
  79  *
  80  * ...
  81  *
  82  * GSettings *
  83  * plugin_get_settings (Plugin      *plugin,
  84  *                      const gchar *schema_id)
  85  * {
  86  *   GSettingsSchema *schema;
  87  *
  88  *   if (schema_id == NULL)
  89  *     schema_id = plugin->identifier;
  90  *
  91  *   schema = g_settings_schema_source_lookup (plugin->schema_source,
  92  *                                             schema_id, FALSE);
  93  *
  94  *   if (schema == NULL)
  95  *     {
  96  *       ... disable the plugin or abort, etc ...
  97  *     }
  98  *
  99  *   return g_settings_new_full (schema, NULL, NULL);
 100  * }
 101  * ]|
 102  *
 103  * The code above shows how hooks should be added to the code that
 104  * initialises (or enables) the plugin to create the schema source and
 105  * how an API can be added to the plugin system to provide a convenient
 106  * way for the plugin to access its settings, using the schemas that it
 107  * ships.
 108  *
 109  * From the standpoint of the plugin, it would need to ensure that it
 110  * ships a gschemas.compiled file as part of itself, and then simply do
 111  * the following:
 112  *
 113  * |[
 114  * {
 115  *   GSettings *settings;
 116  *   gint some_value;
 117  *
 118  *   settings = plugin_get_settings (self, NULL);
 119  *   some_value = g_settings_get_int (settings, "some-value");
 120  *   ...
 121  * }
 122  * ]|
 123  *
 124  * It's also possible that the plugin system expects the schema source
 125  * files (ie: .gschema.xml files) instead of a gschemas.compiled file.
 126  * In that case, the plugin loading system must compile the schemas for
 127  * itself before attempting to create the settings source.
 128  *
 129  * Since: 2.32
 130  **/
 131
 132 /**
 133  * GSettingsSchema:
 134  *
 135  * This is an opaque structure type.  You may not access it directly.
 136  *
 137  * Since: 2.32
 138  **/
 139 struct _GSettingsSchema
 140 {
 141   GSettingsSchemaSource *source;
 142   const gchar *gettext_domain;
 143   const gchar *path;
 144   GQuark *items;
 145   gint n_items;
 146   GvdbTable *table;
 147   gchar *id;
 148
 149   GSettingsSchema *extends;
 150
 151   gint ref_count;
 152 };
 153
 154 /**
 155  * G_TYPE_SETTINGS_SCHEMA_SOURCE:
 156  *
 157  * A boxed #GType corresponding to #GSettingsSchemaSource.
 158  *
 159  * Since: 2.32
 160  **/
 161 G_DEFINE_BOXED_TYPE (GSettingsSchemaSource, g_settings_schema_source, g_settings_schema_source_ref, g_settings_schema_source_unref)
 162
 163 /**
 164  * G_TYPE_SETTINGS_SCHEMA:
 165  *
 166  * A boxed #GType corresponding to #GSettingsSchema.
 167  *
 168  * Since: 2.32
 169  **/
 170 G_DEFINE_BOXED_TYPE (GSettingsSchema, g_settings_schema, g_settings_schema_ref, g_settings_schema_unref)
 171
 172 /**
 173  * GSettingsSchemaSource:
 174  *
 175  * This is an opaque structure type.  You may not access it directly.
 176  *
 177  * Since: 2.32
 178  **/
 179 struct _GSettingsSchemaSource
 180 {
 181   GSettingsSchemaSource *parent;
 182   gchar *directory;
 183   GvdbTable *table;
 184   GHashTable **text_tables;
 185
 186   gint ref_count;
 187 };
 188
 189 static GSettingsSchemaSource *schema_sources;
 190
 191 /**
 192  * g_settings_schema_source_ref:
 193  * @source: a #GSettingsSchemaSource
 194  *
 195  * Increase the reference count of @source, returning a new reference.
 196  *
 197  * Returns: a new reference to @source
 198  *
 199  * Since: 2.32
 200  **/
 201 GSettingsSchemaSource *
 202 g_settings_schema_source_ref (GSettingsSchemaSource *source)
 203 {
 204   g_atomic_int_inc (&source->ref_count);
 205
 206   return source;
 207 }
 208
 209 /**
 210  * g_settings_schema_source_unref:
 211  * @source: a #GSettingsSchemaSource
 212  *
 213  * Decrease the reference count of @source, possibly freeing it.
 214  *
 215  * Since: 2.32
 216  **/
 217 void
 218 g_settings_schema_source_unref (GSettingsSchemaSource *source)
 219 {
 220   if (g_atomic_int_dec_and_test (&source->ref_count))
 221     {
 222       if (source == schema_sources)
 223         g_error ("g_settings_schema_source_unref() called too many times on the default schema source");
 224
 225       if (source->parent)
 226         g_settings_schema_source_unref (source->parent);
 227       gvdb_table_unref (source->table);
 228       g_free (source->directory);
 229
 230       if (source->text_tables)
 231         {
 232           g_hash_table_unref (source->text_tables[0]);
 233           g_hash_table_unref (source->text_tables[1]);
 234           g_free (source->text_tables);
 235         }
 236
 237       g_slice_free (GSettingsSchemaSource, source);
 238     }
 239 }
 240
 241 /**
 242  * g_settings_schema_source_new_from_directory:
 243  * @directory: the filename of a directory
 244  * @parent: (allow-none): a #GSettingsSchemaSource, or %NULL
 245  * @trusted: %TRUE, if the directory is trusted
 246  * @error: a pointer to a #GError pointer set to %NULL, or %NULL
 247  *
 248  * Attempts to create a new schema source corresponding to the contents
 249  * of the given directory.
 250  *
 251  * This function is not required for normal uses of #GSettings but it
 252  * may be useful to authors of plugin management systems.
 253  *
 254  * The directory should contain a file called
 255  * <filename>gschemas.compiled</filename> as produced by
 256  * <command>glib-compile-schemas</command>.
 257  *
 258  * If @trusted is %TRUE then <filename>gschemas.compiled</filename> is
 259  * trusted not to be corrupted.  This assumption has a performance
 260  * advantage, but can result in crashes or inconsistent behaviour in the
 261  * case of a corrupted file.  Generally, you should set @trusted to
 262  * %TRUE for files installed by the system and to %FALSE for files in
 263  * the home directory.
 264  *
 265  * If @parent is non-%NULL then there are two effects.
 266  *
 267  * First, if g_settings_schema_source_lookup() is called with the
 268  * @recursive flag set to %TRUE and the schema can not be found in the
 269  * source, the lookup will recurse to the parent.
 270  *
 271  * Second, any references to other schemas specified within this
 272  * source (ie: <literal>child</literal> or <literal>extends</literal>)
 273  * references may be resolved from the @parent.
 274  *
 275  * For this second reason, except in very unusual situations, the
 276  * @parent should probably be given as the default schema source, as
 277  * returned by g_settings_schema_source_get_default().
 278  *
 279  * Since: 2.32
 280  **/
 281 GSettingsSchemaSource *
 282 g_settings_schema_source_new_from_directory (const gchar            *directory,
 283                                              GSettingsSchemaSource  *parent,
 284                                              gboolean                trusted,
 285                                              GError                **error)
 286 {
 287   GSettingsSchemaSource *source;
 288   GvdbTable *table;
 289   gchar *filename;
 290
 291   filename = g_build_filename (directory, "gschemas.compiled", NULL);
 292   table = gvdb_table_new (filename, trusted, error);
 293   g_free (filename);
 294
 295   if (table == NULL)
 296     return NULL;
 297
 298   source = g_slice_new (GSettingsSchemaSource);
 299   source->directory = g_strdup (directory);
 300   source->parent = parent ? g_settings_schema_source_ref (parent) : NULL;
 301   source->text_tables = NULL;
 302   source->table = table;
 303   source->ref_count = 1;
 304
 305   return source;
 306 }
 307
 308 static void
 309 try_prepend_dir (const gchar *directory)
 310 {
 311   GSettingsSchemaSource *source;
 312
 313   source = g_settings_schema_source_new_from_directory (directory, schema_sources, TRUE, NULL);
 314
 315   /* If we successfully created it then prepend it to the global list */
 316   if (source != NULL)
 317     schema_sources = source;
 318 }
 319
 320 static void
 321 initialise_schema_sources (void)
 322 {
 323   static gsize initialised;
 324
 325   /* need a separate variable because 'schema_sources' may legitimately
 326    * be null if we have zero valid schema sources
 327    */
 328   if G_UNLIKELY (g_once_init_enter (&initialised))
 329     {
 330       const gchar * const *dirs;
 331       const gchar *path;
 332       gint i;
 333
 334       /* iterate in reverse: count up, then count down */
 335       dirs = g_get_system_data_dirs ();
 336       for (i = 0; dirs[i]; i++);
 337
 338       while (i--)
 339         {
 340           gchar *dirname;
 341
 342           dirname = g_build_filename (dirs[i], "glib-2.0", "schemas", NULL);
 343           try_prepend_dir (dirname);
 344           g_free (dirname);
 345         }
 346
 347       if ((path = g_getenv ("GSETTINGS_SCHEMA_DIR")) != NULL)
 348         try_prepend_dir (path);
 349
 350       g_once_init_leave (&initialised, TRUE);
 351     }
 352 }
 353
 354 /**
 355  * g_settings_schema_source_get_default:
 356  *
 357  * Gets the default system schema source.
 358  *
 359  * This function is not required for normal uses of #GSettings but it
 360  * may be useful to authors of plugin management systems or to those who
 361  * want to introspect the content of schemas.
 362  *
 363  * If no schemas are installed, %NULL will be returned.
 364  *
 365  * The returned source may actually consist of multiple schema sources
 366  * from different directories, depending on which directories were given
 367  * in <envar>XDG_DATA_DIRS</envar> and
 368  * <envar>GSETTINGS_SCHEMA_DIR</envar>.  For this reason, all lookups
 369  * performed against the default source should probably be done
 370  * recursively.
 371  *
 372  * Returns: (transfer none): the default schema source
 373  *
 374  * Since: 2.32
 375  **/
 376  GSettingsSchemaSource *
 377 g_settings_schema_source_get_default (void)
 378 {
 379   initialise_schema_sources ();
 380
 381   return schema_sources;
 382 }
 383
 384 /**
 385  * g_settings_schema_source_lookup:
 386  * @source: a #GSettingsSchemaSource
 387  * @schema_id: a schema ID
 388  * @recursive: %TRUE if the lookup should be recursive
 389  *
 390  * Looks up a schema with the identifier @schema_id in @source.
 391  *
 392  * This function is not required for normal uses of #GSettings but it
 393  * may be useful to authors of plugin management systems or to those who
 394  * want to introspect the content of schemas.
 395  *
 396  * If the schema isn't found directly in @source and @recursive is %TRUE
 397  * then the parent sources will also be checked.
 398  *
 399  * If the schema isn't found, %NULL is returned.
 400  *
 401  * Returns: (transfer full): a new #GSettingsSchema
 402  *
 403  * Since: 2.32
 404  **/
 405 GSettingsSchema *
 406 g_settings_schema_source_lookup (GSettingsSchemaSource *source,
 407                                  const gchar           *schema_id,
 408                                  gboolean               recursive)
 409 {
 410   GSettingsSchema *schema;
 411   GvdbTable *table;
 412   const gchar *extends;
 413
 414   g_return_val_if_fail (source != NULL, NULL);
 415   g_return_val_if_fail (schema_id != NULL, NULL);
 416
 417   table = gvdb_table_get_table (source->table, schema_id);
 418
 419   if (table == NULL && recursive)
 420     for (source = source->parent; source; source = source->parent)
 421       if ((table = gvdb_table_get_table (source->table, schema_id)))
 422         break;
 423
 424   if (table == NULL)
 425     return NULL;
 426
 427   schema = g_slice_new0 (GSettingsSchema);
 428   schema->source = g_settings_schema_source_ref (source);
 429   schema->ref_count = 1;
 430   schema->id = g_strdup (schema_id);
 431   schema->table = table;
 432   schema->path = g_settings_schema_get_string (schema, ".path");
 433   schema->gettext_domain = g_settings_schema_get_string (schema, ".gettext-domain");
 434
 435   if (schema->gettext_domain)
 436     bind_textdomain_codeset (schema->gettext_domain, "UTF-8");
 437
 438   extends = g_settings_schema_get_string (schema, ".extends");
 439   if (extends)
 440     {
 441       schema->extends = g_settings_schema_source_lookup (source, extends, TRUE);
 442       if (schema->extends == NULL)
 443         g_warning ("Schema '%s' extends schema '%s' but we could not find it", schema_id, extends);
 444     }
 445
 446   return schema;
 447 }
 448
 449 typedef struct
 450 {
 451   GHashTable *summaries;
 452   GHashTable *descriptions;
 453   GSList     *gettext_domain;
 454   GSList     *schema_id;
 455   GSList     *key_name;
 456   GString    *string;
 457 } TextTableParseInfo;
 458
 459 static const gchar *
 460 get_attribute_value (GSList *list)
 461 {
 462   GSList *node;
 463
 464   for (node = list; node; node = node->next)
 465     if (node->data)
 466       return node->data;
 467
 468   return NULL;
 469 }
 470
 471 static void
 472 pop_attribute_value (GSList **list)
 473 {
 474   gchar *top;
 475
 476   top = (*list)->data;
 477   *list = g_slist_remove (*list, top);
 478
 479   g_free (top);
 480 }
 481
 482 static void
 483 push_attribute_value (GSList      **list,
 484                       const gchar  *value)
 485 {
 486   *list = g_slist_prepend (*list, g_strdup (value));
 487 }
 488
 489 static void
 490 start_element (GMarkupParseContext  *context,
 491                const gchar          *element_name,
 492                const gchar         **attribute_names,
 493                const gchar         **attribute_values,
 494                gpointer              user_data,
 495                GError              **error)
 496 {
 497   TextTableParseInfo *info = user_data;
 498   const gchar *gettext_domain = NULL;
 499   const gchar *schema_id = NULL;
 500   const gchar *key_name = NULL;
 501   gint i;
 502
 503   for (i = 0; attribute_names[i]; i++)
 504     {
 505       if (g_str_equal (attribute_names[i], "gettext-domain"))
 506         gettext_domain = attribute_values[i];
 507       else if (g_str_equal (attribute_names[i], "id"))
 508         schema_id = attribute_values[i];
 509       else if (g_str_equal (attribute_names[i], "name"))
 510         key_name = attribute_values[i];
 511     }
 512
 513   push_attribute_value (&info->gettext_domain, gettext_domain);
 514   push_attribute_value (&info->schema_id, schema_id);
 515   push_attribute_value (&info->key_name, key_name);
 516
 517   if (info->string)
 518     {
 519       g_string_free (info->string, TRUE);
 520       info->string = NULL;
 521     }
 522
 523   if (g_str_equal (element_name, "summary") || g_str_equal (element_name, "description"))
 524     info->string = g_string_new (NULL);
 525 }
 526
 527 static gchar *
 528 normalise_whitespace (const gchar *orig)
 529 {
 530   /* We normalise by the same rules as in intltool:
 531    *
 532    *   sub cleanup {
 533    *       s/^\s+//;
 534    *       s/\s+$//;
 535    *       s/\s+/ /g;
 536    *       return $_;
 537    *   }
 538    *
 539    *   $message = join "\n\n", map &cleanup, split/\n\s*\n+/, $message;
 540    *
 541    * Where \s is an ascii space character.
 542    *
 543    * We aim for ease of implementation over efficiency -- this code is
 544    * not run in normal applications.
 545    */
 546   static GRegex *cleanup[3];
 547   static GRegex *splitter;
 548   gchar **lines;
 549   gchar *result;
 550   gint i;
 551
 552   if (g_once_init_enter (&splitter))
 553     {
 554       GRegex *s;
 555
 556       cleanup[0] = g_regex_new ("^\\s+", 0, 0, 0);
 557       cleanup[1] = g_regex_new ("\\s+$", 0, 0, 0);
 558       cleanup[2] = g_regex_new ("\\s+", 0, 0, 0);
 559       s = g_regex_new ("\\n\\s*\\n+", 0, 0, 0);
 560
 561       g_once_init_leave (&splitter, s);
 562     }
 563
 564   lines = g_regex_split (splitter, orig, 0);
 565   for (i = 0; lines[i]; i++)
 566     {
 567       gchar *a, *b, *c;
 568
 569       a = g_regex_replace_literal (cleanup[0], lines[i], -1, 0, "", 0, 0);
 570       b = g_regex_replace_literal (cleanup[1], a, -1, 0, "", 0, 0);
 571       c = g_regex_replace_literal (cleanup[2], b, -1, 0, " ", 0, 0);
 572       g_free (lines[i]);
 573       g_free (a);
 574       g_free (b);
 575       lines[i] = c;
 576     }
 577
 578   result = g_strjoinv ("\n\n", lines);
 579   g_strfreev (lines);
 580
 581   return result;
 582 }
 583
 584 static void
 585 end_element (GMarkupParseContext *context,
 586              const gchar *element_name,
 587              gpointer user_data,
 588              GError **error)
 589 {
 590   TextTableParseInfo *info = user_data;
 591
 592   pop_attribute_value (&info->gettext_domain);
 593   pop_attribute_value (&info->schema_id);
 594   pop_attribute_value (&info->key_name);
 595
 596   if (info->string)
 597     {
 598       GHashTable *source_table = NULL;
 599       const gchar *gettext_domain;
 600       const gchar *schema_id;
 601       const gchar *key_name;
 602
 603       gettext_domain = get_attribute_value (info->gettext_domain);
 604       schema_id = get_attribute_value (info->schema_id);
 605       key_name = get_attribute_value (info->key_name);
 606
 607       if (g_str_equal (element_name, "summary"))
 608         source_table = info->summaries;
 609       else if (g_str_equal (element_name, "description"))
 610         source_table = info->descriptions;
 611
 612       if (source_table && schema_id && key_name)
 613         {
 614           GHashTable *schema_table;
 615           gchar *normalised;
 616
 617           schema_table = g_hash_table_lookup (source_table, schema_id);
 618
 619           if (schema_table == NULL)
 620             {
 621               schema_table = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, g_free);
 622               g_hash_table_insert (source_table, g_strdup (schema_id), schema_table);
 623             }
 624
 625           normalised = normalise_whitespace (info->string->str);
 626
 627           if (gettext_domain)
 628             {
 629               gchar *translated;
 630
 631               translated = g_strdup (g_dgettext (gettext_domain, normalised));
 632               g_free (normalised);
 633               normalised = translated;
 634             }
 635
 636           g_hash_table_insert (schema_table, g_strdup (key_name), normalised);
 637         }
 638
 639       g_string_free (info->string, TRUE);
 640       info->string = NULL;
 641     }
 642 }
 643
 644 static void
 645 text (GMarkupParseContext  *context,
 646       const gchar          *text,
 647       gsize                 text_len,
 648       gpointer              user_data,
 649       GError              **error)
 650 {
 651   TextTableParseInfo *info = user_data;
 652
 653   if (info->string)
 654     g_string_append_len (info->string, text, text_len);
 655 }
 656
 657 static void
 658 parse_into_text_tables (const gchar *directory,
 659                         GHashTable  *summaries,
 660                         GHashTable  *descriptions)
 661 {
 662   GMarkupParser parser = { start_element, end_element, text };
 663   TextTableParseInfo info = { summaries, descriptions };
 664   const gchar *basename;
 665   GDir *dir;
 666
 667   dir = g_dir_open (directory, 0, NULL);
 668   while ((basename = g_dir_read_name (dir)))
 669     {
 670       gchar *filename;
 671       gchar *contents;
 672       gsize size;
 673
 674       filename = g_build_filename (directory, basename, NULL);
 675       if (g_file_get_contents (filename, &contents, &size, NULL))
 676         {
 677           GMarkupParseContext *context;
 678
 679           context = g_markup_parse_context_new (&parser, G_MARKUP_TREAT_CDATA_AS_TEXT, &info, NULL);
 680           if (g_markup_parse_context_parse (context, contents, size, NULL))
 681             g_markup_parse_context_end_parse (context, NULL);
 682           g_markup_parse_context_free (context);
 683
 684           /* Clean up dangling stuff in case there was an error. */
 685           g_slist_free_full (info.gettext_domain, g_free);
 686           g_slist_free_full (info.schema_id, g_free);
 687           g_slist_free_full (info.key_name, g_free);
 688
 689           info.gettext_domain = NULL;
 690           info.schema_id = NULL;
 691           info.key_name = NULL;
 692
 693           if (info.string)
 694             {
 695               g_string_free (info.string, TRUE);
 696               info.string = NULL;
 697             }
 698
 699           g_free (contents);
 700         }
 701
 702       g_free (filename);
 703     }
 704 }
 705
 706 static GHashTable **
 707 g_settings_schema_source_get_text_tables (GSettingsSchemaSource *source)
 708 {
 709   if (g_once_init_enter (&source->text_tables))
 710     {
 711       GHashTable **text_tables;
 712
 713       text_tables = g_new (GHashTable *, 2);
 714       text_tables[0] = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, (GDestroyNotify) g_hash_table_unref);
 715       text_tables[1] = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, (GDestroyNotify) g_hash_table_unref);
 716
 717       if (source->directory)
 718         parse_into_text_tables (source->directory, text_tables[0], text_tables[1]);
 719
 720       g_once_init_leave (&source->text_tables, text_tables);
 721     }
 722
 723   return source->text_tables;
 724 }
 725
 726 /**
 727  * g_settings_schema_source_list_schemas:
 728  * @source: a #GSettingsSchemaSource
 729  * @recursive: if we should recurse
 730  * @non_relocatable_schemas: (out) (transfer full): the list of
 731  *   non-relocatable schemas
 732  * @relocatable_schemas: (out) (transfer full): the list of relocatable
 733  *   schemas
 734  *
 735  * Lists the schemas in a given source.
 736  *
 737  * If @recursive is %TRUE then include parent sources.  If %FALSE then
 738  * only include the schemas from one source (ie: one directory).  You
 739  * probably want %TRUE.
 740  *
 741  * Non-relocatable schemas are those for which you can call
 742  * g_settings_new().  Relocatable schemas are those for which you must
 743  * use g_settings_new_with_path().
 744  *
 745  * Do not call this function from normal programs.  This is designed for
 746  * use by database editors, commandline tools, etc.
 747  *
 748  * Since: 2.40
 749  **/
 750 void
 751 g_settings_schema_source_list_schemas (GSettingsSchemaSource   *source,
 752                                        gboolean                 recursive,
 753                                        gchar                 ***non_relocatable_schemas,
 754                                        gchar                 ***relocatable_schemas)
 755 {
 756   GHashTable *single, *reloc;
 757   GSettingsSchemaSource *s;
 758
 759   /* We use hash tables to avoid duplicate listings for schemas that
 760    * appear in more than one file.
 761    */
 762   single = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
 763   reloc = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
 764
 765   for (s = source; s; s = s->parent)
 766     {
 767       gchar **list;
 768       gint i;
 769
 770       list = gvdb_table_list (s->table, "");
 771
 772       /* empty schema cache file? */
 773       if (list == NULL)
 774         continue;
 775
 776       for (i = 0; list[i]; i++)
 777         {
 778           if (!g_hash_table_lookup (single, list[i]) &&
 779               !g_hash_table_lookup (reloc, list[i]))
 780             {
 781               GvdbTable *table;
 782
 783               table = gvdb_table_get_table (s->table, list[i]);
 784               g_assert (table != NULL);
 785
 786               if (gvdb_table_has_value (table, ".path"))
 787                 g_hash_table_insert (single, g_strdup (list[i]), NULL);
 788               else
 789                 g_hash_table_insert (reloc, g_strdup (list[i]), NULL);
 790
 791               gvdb_table_unref (table);
 792             }
 793         }
 794
 795       g_strfreev (list);
 796
 797       /* Only the first source if recursive not requested */
 798       if (!recursive)
 799         break;
 800     }
 801
 802   if (non_relocatable_schemas)
 803     {
 804       *non_relocatable_schemas = (gchar **) g_hash_table_get_keys_as_array (single, NULL);
 805       g_hash_table_steal_all (single);
 806     }
 807
 808   if (relocatable_schemas)
 809     {
 810       *relocatable_schemas = (gchar **) g_hash_table_get_keys_as_array (reloc, NULL);
 811       g_hash_table_steal_all (reloc);
 812     }
 813
 814   g_hash_table_unref (single);
 815   g_hash_table_unref (reloc);
 816 }
 817
 818 static gchar **non_relocatable_schema_list;
 819 static gchar **relocatable_schema_list;
 820 static gsize schema_lists_initialised;
 821
 822 static void
 823 ensure_schema_lists (void)
 824 {
 825   if (g_once_init_enter (&schema_lists_initialised))
 826     {
 827       initialise_schema_sources ();
 828
 829       g_settings_schema_source_list_schemas (schema_sources, TRUE,
 830                                              &non_relocatable_schema_list,
 831                                              &relocatable_schema_list);
 832
 833       g_once_init_leave (&schema_lists_initialised, TRUE);
 834     }
 835 }
 836
 837 /**
 838  * g_settings_list_schemas:
 839  *
 840  * Returns: (element-type utf8) (transfer none):  a list of #GSettings
 841  *   schemas that are available.  The list must not be modified or
 842  *   freed.
 843  *
 844  * Since: 2.26
 845  *
 846  * Deprecated:2.40: Use g_settings_schema_source_list_schemas() instead
 847  **/
 848 const gchar * const *
 849 g_settings_list_schemas (void)
 850 {
 851   ensure_schema_lists ();
 852
 853   return (const gchar **) non_relocatable_schema_list;
 854 }
 855
 856 /**
 857  * g_settings_list_relocatable_schemas:
 858  *
 859  * Returns: (element-type utf8) (transfer none): a list of relocatable
 860  *   #GSettings schemas that are available.  The list must not be
 861  *   modified or freed.
 862  *
 863  * Since: 2.28
 864  *
 865  * Deprecated:2.40: Use g_settings_schema_source_list_schemas() instead
 866  **/
 867 const gchar * const *
 868 g_settings_list_relocatable_schemas (void)
 869 {
 870   ensure_schema_lists ();
 871
 872   return (const gchar **) relocatable_schema_list;
 873 }
 874
 875 /**
 876  * g_settings_schema_ref:
 877  * @schema: a #GSettingsSchema
 878  *
 879  * Increase the reference count of @schema, returning a new reference.
 880  *
 881  * Returns: a new reference to @schema
 882  *
 883  * Since: 2.32
 884  **/
 885 GSettingsSchema *
 886 g_settings_schema_ref (GSettingsSchema *schema)
 887 {
 888   g_atomic_int_inc (&schema->ref_count);
 889
 890   return schema;
 891 }
 892
 893 /**
 894  * g_settings_schema_unref:
 895  * @schema: a #GSettingsSchema
 896  *
 897  * Decrease the reference count of @schema, possibly freeing it.
 898  *
 899  * Since: 2.32
 900  **/
 901 void
 902 g_settings_schema_unref (GSettingsSchema *schema)
 903 {
 904   if (g_atomic_int_dec_and_test (&schema->ref_count))
 905     {
 906       if (schema->extends)
 907         g_settings_schema_unref (schema->extends);
 908
 909       g_settings_schema_source_unref (schema->source);
 910       gvdb_table_unref (schema->table);
 911       g_free (schema->items);
 912       g_free (schema->id);
 913
 914       g_slice_free (GSettingsSchema, schema);
 915     }
 916 }
 917
 918 const gchar *
 919 g_settings_schema_get_string (GSettingsSchema *schema,
 920                               const gchar     *key)
 921 {
 922   const gchar *result = NULL;
 923   GVariant *value;
 924
 925   if ((value = gvdb_table_get_raw_value (schema->table, key)))
 926     {
 927       result = g_variant_get_string (value, NULL);
 928       g_variant_unref (value);
 929     }
 930
 931   return result;
 932 }
 933
 934 GVariantIter *
 935 g_settings_schema_get_value (GSettingsSchema *schema,
 936                              const gchar     *key)
 937 {
 938   GSettingsSchema *s = schema;
 939   GVariantIter *iter;
 940   GVariant *value;
 941
 942   g_return_val_if_fail (schema != NULL, NULL);
 943
 944   for (s = schema; s; s = schema->extends)
 945     if ((value = gvdb_table_get_raw_value (schema->table, key)))
 946       break;
 947
 948   if G_UNLIKELY (value == NULL || !g_variant_is_of_type (value, G_VARIANT_TYPE_TUPLE))
 949     g_error ("Settings schema '%s' does not contain a key named '%s'", schema->id, key);
 950
 951   iter = g_variant_iter_new (value);
 952   g_variant_unref (value);
 953
 954   return iter;
 955 }
 956
 957 /**
 958  * g_settings_schema_get_path:
 959  * @schema: a #GSettingsSchema
 960  *
 961  * Gets the path associated with @schema, or %NULL.
 962  *
 963  * Schemas may be single-instance or relocatable.  Single-instance
 964  * schemas correspond to exactly one set of keys in the backend
 965  * database: those located at the path returned by this function.
 966  *
 967  * Relocatable schemas can be referenced by other schemas and can
 968  * threfore describe multiple sets of keys at different locations.  For
 969  * relocatable schemas, this function will return %NULL.
 970  *
 971  * Returns: (transfer none): the path of the schema, or %NULL
 972  *
 973  * Since: 2.32
 974  **/
 975 const gchar *
 976 g_settings_schema_get_path (GSettingsSchema *schema)
 977 {
 978   return schema->path;
 979 }
 980
 981 const gchar *
 982 g_settings_schema_get_gettext_domain (GSettingsSchema *schema)
 983 {
 984   return schema->gettext_domain;
 985 }
 986
 987 gboolean
 988 g_settings_schema_has_key (GSettingsSchema *schema,
 989                            const gchar     *key)
 990 {
 991   return gvdb_table_has_value (schema->table, key);
 992 }
 993
 994 const GQuark *
 995 g_settings_schema_list (GSettingsSchema *schema,
 996                         gint            *n_items)
 997 {
 998   if (schema->items == NULL)
 999     {
1000       GSettingsSchema *s;
1001       GHashTableIter iter;
1002       GHashTable *items;
1003       gpointer name;
1004       gint len;
1005       gint i;
1006
1007       items = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
1008
1009       for (s = schema; s; s = s->extends)
1010         {
1011           gchar **list;
1012
1013           list = gvdb_table_list (s->table, "");
1014
1015           if (list)
1016             {
1017               for (i = 0; list[i]; i++)
1018                 g_hash_table_add (items, list[i]); /* transfer ownership */
1019
1020               g_free (list); /* free container only */
1021             }
1022         }
1023
1024       /* Do a first pass to eliminate child items that do not map to
1025        * valid schemas (ie: ones that would crash us if we actually
1026        * tried to create them).
1027        */
1028       g_hash_table_iter_init (&iter, items);
1029       while (g_hash_table_iter_next (&iter, &name, NULL))
1030         if (g_str_has_suffix (name, "/"))
1031           {
1032             GSettingsSchemaSource *source;
1033             GVariant *child_schema;
1034             GvdbTable *child_table;
1035
1036             child_schema = gvdb_table_get_raw_value (schema->table, name);
1037             if (!child_schema)
1038               continue;
1039
1040             child_table = NULL;
1041
1042             for (source = schema_sources; source; source = source->parent)
1043               if ((child_table = gvdb_table_get_table (source->table, g_variant_get_string (child_schema, NULL))))
1044                 break;
1045
1046             g_variant_unref (child_schema);
1047
1048             /* Schema is not found -> remove it from the list */
1049             if (child_table == NULL)
1050               {
1051                 g_hash_table_iter_remove (&iter);
1052                 continue;
1053               }
1054
1055             /* Make sure the schema is relocatable or at the
1056              * expected path
1057              */
1058             if (gvdb_table_has_value (child_table, ".path"))
1059               {
1060                 GVariant *path;
1061                 gchar *expected;
1062                 gboolean same;
1063
1064                 path = gvdb_table_get_raw_value (child_table, ".path");
1065                 expected = g_strconcat (schema->path, name, NULL);
1066                 same = g_str_equal (expected, g_variant_get_string (path, NULL));
1067                 g_variant_unref (path);
1068                 g_free (expected);
1069
1070                 /* Schema is non-relocatable and did not have the
1071                  * expected path -> remove it from the list
1072                  */
1073                 if (!same)
1074                   g_hash_table_iter_remove (&iter);
1075               }
1076
1077             gvdb_table_unref (child_table);
1078           }
1079
1080       /* Now create the list */
1081       len = g_hash_table_size (items);
1082       schema->items = g_new (GQuark, len);
1083       i = 0;
1084       g_hash_table_iter_init (&iter, items);
1085
1086       while (g_hash_table_iter_next (&iter, &name, NULL))
1087         schema->items[i++] = g_quark_from_string (name);
1088       schema->n_items = i;
1089       g_assert (i == len);
1090
1091       g_hash_table_unref (items);
1092     }
1093
1094   *n_items = schema->n_items;
1095   return schema->items;
1096 }
1097
1098 /**
1099  * g_settings_schema_get_id:
1100  * @schema: a #GSettingsSchema
1101  *
1102  * Get the ID of @schema.
1103  *
1104  * Returns: (transfer none): the ID
1105  **/
1106 const gchar *
1107 g_settings_schema_get_id (GSettingsSchema *schema)
1108 {
1109   return schema->id;
1110 }
1111
1112 static inline void
1113 endian_fixup (GVariant **value)
1114 {
1115 #if G_BYTE_ORDER == G_BIG_ENDIAN
1116   GVariant *tmp;
1117
1118   tmp = g_variant_byteswap (*value);
1119   g_variant_unref (*value);
1120   *value = tmp;
1121 #endif
1122 }
1123
1124 void
1125 g_settings_schema_key_init (GSettingsSchemaKey *key,
1126                             GSettingsSchema    *schema,
1127                             const gchar        *name)
1128 {
1129   GVariantIter *iter;
1130   GVariant *data;
1131   guchar code;
1132
1133   memset (key, 0, sizeof *key);
1134
1135   iter = g_settings_schema_get_value (schema, name);
1136
1137   key->schema = g_settings_schema_ref (schema);
1138   key->default_value = g_variant_iter_next_value (iter);
1139   endian_fixup (&key->default_value);
1140   key->type = g_variant_get_type (key->default_value);
1141   key->name = g_intern_string (name);
1142
1143   while (g_variant_iter_next (iter, "(y*)", &code, &data))
1144     {
1145       switch (code)
1146         {
1147         case 'l':
1148           /* translation requested */
1149           g_variant_get (data, "(y&s)", &key->lc_char, &key->unparsed);
1150           break;
1151
1152         case 'e':
1153           /* enumerated types... */
1154           key->is_enum = TRUE;
1155           goto choice;
1156
1157         case 'f':
1158           /* flags... */
1159           key->is_flags = TRUE;
1160           goto choice;
1161
1162         choice: case 'c':
1163           /* ..., choices, aliases */
1164           key->strinfo = g_variant_get_fixed_array (data, &key->strinfo_length, sizeof (guint32));
1165           break;
1166
1167         case 'r':
1168           g_variant_get (data, "(**)", &key->minimum, &key->maximum);
1169           endian_fixup (&key->minimum);
1170           endian_fixup (&key->maximum);
1171           break;
1172
1173         default:
1174           g_warning ("unknown schema extension '%c'", code);
1175           break;
1176         }
1177
1178       g_variant_unref (data);
1179     }
1180
1181   g_variant_iter_free (iter);
1182 }
1183
1184 void
1185 g_settings_schema_key_clear (GSettingsSchemaKey *key)
1186 {
1187   if (key->minimum)
1188     g_variant_unref (key->minimum);
1189
1190   if (key->maximum)
1191     g_variant_unref (key->maximum);
1192
1193   g_variant_unref (key->default_value);
1194
1195   g_settings_schema_unref (key->schema);
1196 }
1197
1198 gboolean
1199 g_settings_schema_key_type_check (GSettingsSchemaKey *key,
1200                                   GVariant           *value)
1201 {
1202   g_return_val_if_fail (value != NULL, FALSE);
1203
1204   return g_variant_is_of_type (value, key->type);
1205 }
1206
1207 gboolean
1208 g_settings_schema_key_range_check (GSettingsSchemaKey *key,
1209                                    GVariant           *value)
1210 {
1211   if (key->minimum == NULL && key->strinfo == NULL)
1212     return TRUE;
1213
1214   if (g_variant_is_container (value))
1215     {
1216       gboolean ok = TRUE;
1217       GVariantIter iter;
1218       GVariant *child;
1219
1220       g_variant_iter_init (&iter, value);
1221       while (ok && (child = g_variant_iter_next_value (&iter)))
1222         {
1223           ok = g_settings_schema_key_range_check (key, child);
1224           g_variant_unref (child);
1225         }
1226
1227       return ok;
1228     }
1229
1230   if (key->minimum)
1231     {
1232       return g_variant_compare (key->minimum, value) <= 0 &&
1233              g_variant_compare (value, key->maximum) <= 0;
1234     }
1235
1236   return strinfo_is_string_valid (key->strinfo, key->strinfo_length,
1237                                   g_variant_get_string (value, NULL));
1238 }
1239
1240 GVariant *
1241 g_settings_schema_key_range_fixup (GSettingsSchemaKey *key,
1242                                    GVariant           *value)
1243 {
1244   const gchar *target;
1245
1246   if (g_settings_schema_key_range_check (key, value))
1247     return g_variant_ref (value);
1248
1249   if (key->strinfo == NULL)
1250     return NULL;
1251
1252   if (g_variant_is_container (value))
1253     {
1254       GVariantBuilder builder;
1255       GVariantIter iter;
1256       GVariant *child;
1257
1258       g_variant_iter_init (&iter, value);
1259       g_variant_builder_init (&builder, g_variant_get_type (value));
1260
1261       while ((child = g_variant_iter_next_value (&iter)))
1262         {
1263           GVariant *fixed;
1264
1265           fixed = g_settings_schema_key_range_fixup (key, child);
1266           g_variant_unref (child);
1267
1268           if (fixed == NULL)
1269             {
1270               g_variant_builder_clear (&builder);
1271               return NULL;
1272             }
1273
1274           g_variant_builder_add_value (&builder, fixed);
1275           g_variant_unref (fixed);
1276         }
1277
1278       return g_variant_ref_sink (g_variant_builder_end (&builder));
1279     }
1280
1281   target = strinfo_string_from_alias (key->strinfo, key->strinfo_length,
1282                                       g_variant_get_string (value, NULL));
1283   return target ? g_variant_ref_sink (g_variant_new_string (target)) : NULL;
1284 }
1285
1286
1287 GVariant *
1288 g_settings_schema_key_get_translated_default (GSettingsSchemaKey *key)
1289 {
1290   const gchar *translated;
1291   GError *error = NULL;
1292   const gchar *domain;
1293   GVariant *value;
1294
1295   domain = g_settings_schema_get_gettext_domain (key->schema);
1296
1297   if (key->lc_char == '\0')
1298     /* translation not requested for this key */
1299     return NULL;
1300
1301   if (key->lc_char == 't')
1302     translated = g_dcgettext (domain, key->unparsed, LC_TIME);
1303   else
1304     translated = g_dgettext (domain, key->unparsed);
1305
1306   if (translated == key->unparsed)
1307     /* the default value was not translated */
1308     return NULL;
1309
1310   /* try to parse the translation of the unparsed default */
1311   value = g_variant_parse (key->type, translated, NULL, NULL, &error);
1312
1313   if (value == NULL)
1314     {
1315       g_warning ("Failed to parse translated string '%s' for "
1316                  "key '%s' in schema '%s': %s", key->unparsed, key->name,
1317                  g_settings_schema_get_id (key->schema), error->message);
1318       g_warning ("Using untranslated default instead.");
1319       g_error_free (error);
1320     }
1321
1322   else if (!g_settings_schema_key_range_check (key, value))
1323     {
1324       g_warning ("Translated default '%s' for key '%s' in schema '%s' "
1325                  "is outside of valid range", key->unparsed, key->name,
1326                  g_settings_schema_get_id (key->schema));
1327       g_variant_unref (value);
1328       value = NULL;
1329     }
1330
1331   return value;
1332 }
1333
1334 gint
1335 g_settings_schema_key_to_enum (GSettingsSchemaKey *key,
1336                                GVariant           *value)
1337 {
1338   gboolean it_worked;
1339   guint result;
1340
1341   it_worked = strinfo_enum_from_string (key->strinfo, key->strinfo_length,
1342                                         g_variant_get_string (value, NULL),
1343                                         &result);
1344
1345   /* 'value' can only come from the backend after being filtered for validity,
1346    * from the translation after being filtered for validity, or from the schema
1347    * itself (which the schema compiler checks for validity).  If this assertion
1348    * fails then it's really a bug in GSettings or the schema compiler...
1349    */
1350   g_assert (it_worked);
1351
1352   return result;
1353 }
1354
1355 GVariant *
1356 g_settings_schema_key_from_enum (GSettingsSchemaKey *key,
1357                                  gint                value)
1358 {
1359   const gchar *string;
1360
1361   string = strinfo_string_from_enum (key->strinfo, key->strinfo_length, value);
1362
1363   if (string == NULL)
1364     return NULL;
1365
1366   return g_variant_new_string (string);
1367 }
1368
1369 guint
1370 g_settings_schema_key_to_flags (GSettingsSchemaKey *key,
1371                                 GVariant           *value)
1372 {
1373   GVariantIter iter;
1374   const gchar *flag;
1375   guint result;
1376
1377   result = 0;
1378   g_variant_iter_init (&iter, value);
1379   while (g_variant_iter_next (&iter, "&s", &flag))
1380     {
1381       gboolean it_worked;
1382       guint flag_value;
1383
1384       it_worked = strinfo_enum_from_string (key->strinfo, key->strinfo_length, flag, &flag_value);
1385       /* as in g_settings_to_enum() */
1386       g_assert (it_worked);
1387
1388       result |= flag_value;
1389     }
1390
1391   return result;
1392 }
1393
1394 GVariant *
1395 g_settings_schema_key_from_flags (GSettingsSchemaKey *key,
1396                                   guint               value)
1397 {
1398   GVariantBuilder builder;
1399   gint i;
1400
1401   g_variant_builder_init (&builder, G_VARIANT_TYPE ("as"));
1402
1403   for (i = 0; i < 32; i++)
1404     if (value & (1u << i))
1405       {
1406         const gchar *string;
1407
1408         string = strinfo_string_from_enum (key->strinfo, key->strinfo_length, 1u << i);
1409
1410         if (string == NULL)
1411           {
1412             g_variant_builder_clear (&builder);
1413             return NULL;
1414           }
1415
1416         g_variant_builder_add (&builder, "s", string);
1417       }
1418
1419   return g_variant_builder_end (&builder);
1420 }
1421
1422 G_DEFINE_BOXED_TYPE (GSettingsSchemaKey, g_settings_schema_key, g_settings_schema_key_ref, g_settings_schema_key_unref)
1423
1424 /**
1425  * g_settings_schema_key_ref:
1426  * @key: a #GSettingsSchemaKey
1427  *
1428  * Increase the reference count of @key, returning a new reference.
1429  *
1430  * Returns: a new reference to @key
1431  *
1432  * Since: 2.40
1433  **/
1434 GSettingsSchemaKey *
1435 g_settings_schema_key_ref (GSettingsSchemaKey *key)
1436 {
1437   g_return_val_if_fail (key != NULL, NULL);
1438
1439   g_atomic_int_inc (&key->ref_count);
1440
1441   return key;
1442 }
1443
1444 /**
1445  * g_settings_schema_key_unref:
1446  * @key: a #GSettingsSchemaKey
1447  *
1448  * Decrease the reference count of @key, possibly freeing it.
1449  *
1450  * Since: 2.40
1451  **/
1452 void
1453 g_settings_schema_key_unref (GSettingsSchemaKey *key)
1454 {
1455   g_return_if_fail (key != NULL);
1456
1457   if (g_atomic_int_dec_and_test (&key->ref_count))
1458     {
1459       g_settings_schema_key_clear (key);
1460
1461       g_slice_free (GSettingsSchemaKey, key);
1462     }
1463 }
1464
1465 /**
1466  * g_settings_schema_get_key:
1467  * @schema: a #GSettingsSchema
1468  * @name: the name of a key
1469  *
1470  * Gets the key named @name from @schema.
1471  *
1472  * It is a programmer error to request a key that does not exist.  See
1473  * g_settings_schema_list_keys().
1474  *
1475  * Returns: (transfer full): the #GSettingsSchemaKey for @name
1476  *
1477  * Since: 2.40
1478  **/
1479 GSettingsSchemaKey *
1480 g_settings_schema_get_key (GSettingsSchema *schema,
1481                            const gchar     *name)
1482 {
1483   GSettingsSchemaKey *key;
1484
1485   g_return_val_if_fail (schema != NULL, NULL);
1486   g_return_val_if_fail (name != NULL, NULL);
1487
1488   key = g_slice_new (GSettingsSchemaKey);
1489   g_settings_schema_key_init (key, schema, name);
1490   key->ref_count = 1;
1491
1492   return key;
1493 }
1494
1495 /**
1496  * g_settings_schema_key_get_summary:
1497  * @key: a #GSettingsSchemaKey
1498  *
1499  * Gets the summary for @key.
1500  *
1501  * If no summary has been provided in the schema for @key, returns
1502  * %NULL.
1503  *
1504  * The summary is a short description of the purpose of the key; usually
1505  * one short sentence.  Summaries can be translated and the value
1506  * returned from this function is is the current locale.
1507  *
1508  * This function is slow.  The summary and description information for
1509  * the schemas is not stored in the compiled schema database so this
1510  * function has to parse all of the source XML files in the schema
1511  * directory.
1512  *
1513  * Returns: the summary for @key, or %NULL
1514  *
1515  * Since: 2.34
1516  **/
1517 const gchar *
1518 g_settings_schema_key_get_summary (GSettingsSchemaKey *key)
1519 {
1520   GHashTable **text_tables;
1521   GHashTable *summaries;
1522
1523   text_tables = g_settings_schema_source_get_text_tables (key->schema->source);
1524   summaries = g_hash_table_lookup (text_tables[0], key->schema->id);
1525
1526   return summaries ? g_hash_table_lookup (summaries, key->name) : NULL;
1527 }
1528
1529 /**
1530  * g_settings_schema_key_get_description:
1531  * @key: a #GSettingsSchemaKey
1532  *
1533  * Gets the description for @key.
1534  *
1535  * If no description has been provided in the schema for @key, returns
1536  * %NULL.
1537  *
1538  * The description can be one sentence to several paragraphs in length.
1539  * Paragraphs are delimited with a double newline.  Descriptions can be
1540  * translated and the value returned from this function is is the
1541  * current locale.
1542  *
1543  * This function is slow.  The summary and description information for
1544  * the schemas is not stored in the compiled schema database so this
1545  * function has to parse all of the source XML files in the schema
1546  * directory.
1547  *
1548  * Returns: the description for @key, or %NULL
1549  *
1550  * Since: 2.34
1551  **/
1552 const gchar *
1553 g_settings_schema_key_get_description (GSettingsSchemaKey *key)
1554 {
1555   GHashTable **text_tables;
1556   GHashTable *descriptions;
1557
1558   text_tables = g_settings_schema_source_get_text_tables (key->schema->source);
1559   descriptions = g_hash_table_lookup (text_tables[1], key->schema->id);
1560
1561   return descriptions ? g_hash_table_lookup (descriptions, key->name) : NULL;
1562 }