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 <string.h>
  31
  32 struct _GSettingsSchema
  33 {
  34   const gchar *gettext_domain;
  35   const gchar *path;
  36   GQuark *items;
  37   gint n_items;
  38   GvdbTable *table;
  39   gchar *name;
  40
  41   gint ref_count;
  42 };
  43
  44 typedef struct _GSettingsSchemaSource GSettingsSchemaSource;
  45
  46 struct _GSettingsSchemaSource
  47 {
  48   GSettingsSchemaSource *parent;
  49   GvdbTable *table;
  50
  51   gint ref_count;
  52 };
  53
  54 static GSettingsSchemaSource *schema_sources;
  55
  56 static void
  57 prepend_schema_table (GvdbTable *table)
  58 {
  59   GSettingsSchemaSource *source;
  60
  61   /* we steal the reference from 'schema_sources' for our ->parent */
  62   source = g_slice_new (GSettingsSchemaSource);
  63   source->parent = schema_sources;
  64   source->table = table;
  65   source->ref_count = 1;
  66
  67   schema_sources = source;
  68 }
  69
  70 GSettingsSchemaSource *
  71 g_settings_schema_source_ref (GSettingsSchemaSource *source)
  72 {
  73   g_atomic_int_inc (&source->ref_count);
  74
  75   return source;
  76 }
  77
  78 void
  79 g_settings_schema_source_unref (GSettingsSchemaSource *source)
  80 {
  81   if (g_atomic_int_dec_and_test (&source->ref_count))
  82     {
  83       if (source == schema_sources)
  84         g_error ("g_settings_schema_source_unref() called too many times on the default schema source");
  85
  86       g_settings_schema_source_unref (source->parent);
  87       gvdb_table_unref (source->table);
  88
  89       g_slice_free (GSettingsSchemaSource, source);
  90     }
  91 }
  92
  93 static void
  94 initialise_schema_sources (void)
  95 {
  96   static gsize initialised;
  97
  98   /* need a separate variable because 'schema_sources' may legitimately
  99    * be null if we have zero valid schema sources
 100    */
 101   if G_UNLIKELY (g_once_init_enter (&initialised))
 102     {
 103       const gchar * const *dirs;
 104       const gchar *path;
 105       gint i;
 106
 107       /* iterate in reverse: count up, then count down */
 108       dirs = g_get_system_data_dirs ();
 109       for (i = 0; dirs[i]; i++);
 110
 111       while (i--)
 112         {
 113           gchar *filename;
 114           GvdbTable *table;
 115
 116           filename = g_build_filename (dirs[i], "glib-2.0", "schemas", "gschemas.compiled", NULL);
 117           table = gvdb_table_new (filename, TRUE, NULL);
 118
 119           if (table != NULL)
 120             prepend_schema_table (table);
 121
 122           g_free (filename);
 123         }
 124
 125       if ((path = g_getenv ("GSETTINGS_SCHEMA_DIR")) != NULL)
 126         {
 127           gchar *filename;
 128           GvdbTable *table;
 129
 130           filename = g_build_filename (path, "gschemas.compiled", NULL);
 131           table = gvdb_table_new (filename, TRUE, NULL);
 132
 133           if (table != NULL)
 134             prepend_schema_table (table);
 135
 136           g_free (filename);
 137         }
 138
 139       g_once_init_leave (&initialised, TRUE);
 140     }
 141 }
 142
 143 GSettingsSchemaSource *
 144 g_settings_schema_source_get_default (void)
 145 {
 146   initialise_schema_sources ();
 147
 148   return schema_sources;
 149 }
 150
 151 GSettingsSchema *
 152 g_settings_schema_source_lookup (GSettingsSchemaSource *source,
 153                                  const gchar           *schema_name,
 154                                  gboolean               recursive)
 155 {
 156   GSettingsSchema *schema;
 157   GvdbTable *table;
 158
 159   g_return_val_if_fail (source != NULL, NULL);
 160   g_return_val_if_fail (schema_name != NULL, NULL);
 161
 162   table = gvdb_table_get_table (source->table, schema_name);
 163
 164   if (table == NULL && recursive)
 165     for (source = source->parent; source; source = source->parent)
 166       if ((table = gvdb_table_get_table (source->table, schema_name)))
 167         break;
 168
 169   if (table == NULL)
 170     return NULL;
 171
 172   schema = g_slice_new0 (GSettingsSchema);
 173   schema->ref_count = 1;
 174   schema->name = g_strdup (schema_name);
 175   schema->table = table;
 176   schema->path = g_settings_schema_get_string (schema, ".path");
 177   schema->gettext_domain = g_settings_schema_get_string (schema, ".gettext-domain");
 178
 179   if (schema->gettext_domain)
 180     bind_textdomain_codeset (schema->gettext_domain, "UTF-8");
 181
 182   return schema;
 183 }
 184
 185 static gboolean
 186 steal_item (gpointer key,
 187             gpointer value,
 188             gpointer user_data)
 189 {
 190   gchar ***ptr = user_data;
 191
 192   *(*ptr)++ = (gchar *) key;
 193
 194   return TRUE;
 195 }
 196
 197 static const gchar * const *non_relocatable_schema_list;
 198 static const gchar * const *relocatable_schema_list;
 199 static gsize schema_lists_initialised;
 200
 201 static void
 202 ensure_schema_lists (void)
 203 {
 204   if (g_once_init_enter (&schema_lists_initialised))
 205     {
 206       GSettingsSchemaSource *source;
 207       GHashTable *single, *reloc;
 208       const gchar **ptr;
 209       gchar **list;
 210       gint i;
 211
 212       initialise_schema_sources ();
 213
 214       /* We use hash tables to avoid duplicate listings for schemas that
 215        * appear in more than one file.
 216        */
 217       single = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
 218       reloc = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
 219
 220       for (source = schema_sources; source; source = source->parent)
 221         {
 222           list = gvdb_table_list (source->table, "");
 223
 224           g_assert (list != NULL);
 225
 226           for (i = 0; list[i]; i++)
 227             {
 228               if (!g_hash_table_lookup (single, list[i]) &&
 229                   !g_hash_table_lookup (reloc, list[i]))
 230                 {
 231                   GvdbTable *table;
 232
 233                   table = gvdb_table_get_table (source->table, list[i]);
 234                   g_assert (table != NULL);
 235
 236                   if (gvdb_table_has_value (table, ".path"))
 237                     g_hash_table_insert (single, g_strdup (list[i]), NULL);
 238                   else
 239                     g_hash_table_insert (reloc, g_strdup (list[i]), NULL);
 240
 241                   gvdb_table_unref (table);
 242                 }
 243             }
 244
 245           g_strfreev (list);
 246         }
 247
 248       ptr = g_new (const gchar *, g_hash_table_size (single) + 1);
 249       non_relocatable_schema_list = ptr;
 250       g_hash_table_foreach_steal (single, steal_item, &ptr);
 251       g_hash_table_unref (single);
 252       *ptr = NULL;
 253
 254       ptr = g_new (const gchar *, g_hash_table_size (reloc) + 1);
 255       relocatable_schema_list = ptr;
 256       g_hash_table_foreach_steal (reloc, steal_item, &ptr);
 257       g_hash_table_unref (reloc);
 258       *ptr = NULL;
 259
 260       g_once_init_leave (&schema_lists_initialised, TRUE);
 261     }
 262 }
 263
 264 /**
 265  * g_settings_list_schemas:
 266  *
 267  * Gets a list of the #GSettings schemas installed on the system.  The
 268  * returned list is exactly the list of schemas for which you may call
 269  * g_settings_new() without adverse effects.
 270  *
 271  * This function does not list the schemas that do not provide their own
 272  * paths (ie: schemas for which you must use
 273  * g_settings_new_with_path()).  See
 274  * g_settings_list_relocatable_schemas() for that.
 275  *
 276  * Returns: (element-type utf8) (transfer none):  a list of #GSettings
 277  *   schemas that are available.  The list must not be modified or
 278  *   freed.
 279  *
 280  * Since: 2.26
 281  **/
 282 const gchar * const *
 283 g_settings_list_schemas (void)
 284 {
 285   ensure_schema_lists ();
 286
 287   return non_relocatable_schema_list;
 288 }
 289
 290 /**
 291  * g_settings_list_relocatable_schemas:
 292  *
 293  * Gets a list of the relocatable #GSettings schemas installed on the
 294  * system.  These are schemas that do not provide their own path.  It is
 295  * usual to instantiate these schemas directly, but if you want to you
 296  * can use g_settings_new_with_path() to specify the path.
 297  *
 298  * The output of this function, tTaken together with the output of
 299  * g_settings_list_schemas() represents the complete list of all
 300  * installed schemas.
 301  *
 302  * Returns: (element-type utf8) (transfer none): a list of relocatable
 303  *   #GSettings schemas that are available.  The list must not be
 304  *   modified or freed.
 305  *
 306  * Since: 2.28
 307  **/
 308 const gchar * const *
 309 g_settings_list_relocatable_schemas (void)
 310 {
 311   ensure_schema_lists ();
 312
 313   return relocatable_schema_list;
 314 }
 315
 316 GSettingsSchema *
 317 g_settings_schema_ref (GSettingsSchema *schema)
 318 {
 319   g_atomic_int_inc (&schema->ref_count);
 320
 321   return schema;
 322 }
 323
 324 void
 325 g_settings_schema_unref (GSettingsSchema *schema)
 326 {
 327   if (g_atomic_int_dec_and_test (&schema->ref_count))
 328     {
 329       gvdb_table_unref (schema->table);
 330       g_free (schema->items);
 331       g_free (schema->name);
 332
 333       g_slice_free (GSettingsSchema, schema);
 334     }
 335 }
 336
 337 const gchar *
 338 g_settings_schema_get_string (GSettingsSchema *schema,
 339                               const gchar     *key)
 340 {
 341   const gchar *result = NULL;
 342   GVariant *value;
 343
 344   if ((value = gvdb_table_get_raw_value (schema->table, key)))
 345     {
 346       result = g_variant_get_string (value, NULL);
 347       g_variant_unref (value);
 348     }
 349
 350   return result;
 351 }
 352
 353 GSettingsSchema *
 354 g_settings_schema_new (const gchar *name)
 355 {
 356   GSettingsSchemaSource *source;
 357   GSettingsSchema *schema;
 358
 359   source = g_settings_schema_source_get_default ();
 360
 361   if (source == NULL)
 362     g_error ("No GSettings schemas are installed on the system");
 363
 364   schema = g_settings_schema_source_lookup (source, name, TRUE);
 365
 366   if (schema == NULL)
 367     g_error ("Settings schema '%s' is not installed\n", name);
 368
 369   return schema;
 370 }
 371
 372 GVariantIter *
 373 g_settings_schema_get_value (GSettingsSchema *schema,
 374                              const gchar     *key)
 375 {
 376   GVariantIter *iter;
 377   GVariant *value;
 378
 379   value = gvdb_table_get_raw_value (schema->table, key);
 380
 381   if G_UNLIKELY (value == NULL)
 382     g_error ("Settings schema '%s' does not contain a key named '%s'",
 383              schema->name, key);
 384
 385   iter = g_variant_iter_new (value);
 386   g_variant_unref (value);
 387
 388   return iter;
 389 }
 390
 391 const gchar *
 392 g_settings_schema_get_path (GSettingsSchema *schema)
 393 {
 394   return schema->path;
 395 }
 396
 397 const gchar *
 398 g_settings_schema_get_gettext_domain (GSettingsSchema *schema)
 399 {
 400   return schema->gettext_domain;
 401 }
 402
 403 gboolean
 404 g_settings_schema_has_key (GSettingsSchema *schema,
 405                            const gchar     *key)
 406 {
 407   return gvdb_table_has_value (schema->table, key);
 408 }
 409
 410 const GQuark *
 411 g_settings_schema_list (GSettingsSchema *schema,
 412                         gint            *n_items)
 413 {
 414   gint i, j;
 415
 416   if (schema->items == NULL)
 417     {
 418       gchar **list;
 419       gint len;
 420
 421       list = gvdb_table_list (schema->table, "");
 422       len = list ? g_strv_length (list) : 0;
 423
 424       schema->items = g_new (GQuark, len);
 425       j = 0;
 426
 427       for (i = 0; i < len; i++)
 428         if (list[i][0] != '.')
 429           schema->items[j++] = g_quark_from_string (list[i]);
 430       schema->n_items = j;
 431
 432       g_strfreev (list);
 433     }
 434
 435   *n_items = schema->n_items;
 436   return schema->items;
 437 }
 438
 439 const gchar *
 440 g_settings_schema_get_name (GSettingsSchema *schema)
 441 {
 442   return schema->name;
 443 }
 444
 445 static inline void
 446 endian_fixup (GVariant **value)
 447 {
 448 #if G_BYTE_ORDER == G_BIG_ENDIAN
 449   GVariant *tmp;
 450
 451   tmp = g_variant_byteswap (*value);
 452   g_variant_unref (*value);
 453   *value = tmp;
 454 #endif
 455 }
 456
 457 void
 458 g_settings_schema_key_init (GSettingsSchemaKey *key,
 459                             GSettingsSchema    *schema,
 460                             const gchar        *name)
 461 {
 462   GVariantIter *iter;
 463   GVariant *data;
 464   guchar code;
 465
 466   memset (key, 0, sizeof *key);
 467
 468   iter = g_settings_schema_get_value (schema, name);
 469
 470   key->schema = g_settings_schema_ref (schema);
 471   key->default_value = g_variant_iter_next_value (iter);
 472   endian_fixup (&key->default_value);
 473   key->type = g_variant_get_type (key->default_value);
 474   key->name = g_intern_string (name);
 475
 476   while (g_variant_iter_next (iter, "(y*)", &code, &data))
 477     {
 478       switch (code)
 479         {
 480         case 'l':
 481           /* translation requested */
 482           g_variant_get (data, "(y&s)", &key->lc_char, &key->unparsed);
 483           break;
 484
 485         case 'e':
 486           /* enumerated types... */
 487           key->is_enum = TRUE;
 488           goto choice;
 489
 490         case 'f':
 491           /* flags... */
 492           key->is_flags = TRUE;
 493           goto choice;
 494
 495         choice: case 'c':
 496           /* ..., choices, aliases */
 497           key->strinfo = g_variant_get_fixed_array (data, &key->strinfo_length, sizeof (guint32));
 498           break;
 499
 500         case 'r':
 501           g_variant_get (data, "(**)", &key->minimum, &key->maximum);
 502           endian_fixup (&key->minimum);
 503           endian_fixup (&key->maximum);
 504           break;
 505
 506         default:
 507           g_warning ("unknown schema extension '%c'", code);
 508           break;
 509         }
 510
 511       g_variant_unref (data);
 512     }
 513
 514   g_variant_iter_free (iter);
 515 }
 516
 517 void
 518 g_settings_schema_key_clear (GSettingsSchemaKey *key)
 519 {
 520   if (key->minimum)
 521     g_variant_unref (key->minimum);
 522
 523   if (key->maximum)
 524     g_variant_unref (key->maximum);
 525
 526   g_variant_unref (key->default_value);
 527
 528   g_settings_schema_unref (key->schema);
 529 }
 530
 531 gboolean
 532 g_settings_schema_key_type_check (GSettingsSchemaKey *key,
 533                                   GVariant           *value)
 534 {
 535   g_return_val_if_fail (value != NULL, FALSE);
 536
 537   return g_variant_is_of_type (value, key->type);
 538 }
 539
 540 gboolean
 541 g_settings_schema_key_range_check (GSettingsSchemaKey *key,
 542                                    GVariant           *value)
 543 {
 544   if (key->minimum == NULL && key->strinfo == NULL)
 545     return TRUE;
 546
 547   if (g_variant_is_container (value))
 548     {
 549       gboolean ok = TRUE;
 550       GVariantIter iter;
 551       GVariant *child;
 552
 553       g_variant_iter_init (&iter, value);
 554       while (ok && (child = g_variant_iter_next_value (&iter)))
 555         {
 556           ok = g_settings_schema_key_range_check (key, child);
 557           g_variant_unref (child);
 558         }
 559
 560       return ok;
 561     }
 562
 563   if (key->minimum)
 564     {
 565       return g_variant_compare (key->minimum, value) <= 0 &&
 566              g_variant_compare (value, key->maximum) <= 0;
 567     }
 568
 569   return strinfo_is_string_valid (key->strinfo, key->strinfo_length,
 570                                   g_variant_get_string (value, NULL));
 571 }
 572
 573 GVariant *
 574 g_settings_schema_key_range_fixup (GSettingsSchemaKey *key,
 575                                    GVariant           *value)
 576 {
 577   const gchar *target;
 578
 579   if (g_settings_schema_key_range_check (key, value))
 580     return g_variant_ref (value);
 581
 582   if (key->strinfo == NULL)
 583     return NULL;
 584
 585   if (g_variant_is_container (value))
 586     {
 587       GVariantBuilder builder;
 588       GVariantIter iter;
 589       GVariant *child;
 590
 591       g_variant_iter_init (&iter, value);
 592       g_variant_builder_init (&builder, g_variant_get_type (value));
 593
 594       while ((child = g_variant_iter_next_value (&iter)))
 595         {
 596           GVariant *fixed;
 597
 598           fixed = g_settings_schema_key_range_fixup (key, child);
 599           g_variant_unref (child);
 600
 601           if (fixed == NULL)
 602             {
 603               g_variant_builder_clear (&builder);
 604               return NULL;
 605             }
 606
 607           g_variant_builder_add_value (&builder, fixed);
 608           g_variant_unref (fixed);
 609         }
 610
 611       return g_variant_ref_sink (g_variant_builder_end (&builder));
 612     }
 613
 614   target = strinfo_string_from_alias (key->strinfo, key->strinfo_length,
 615                                       g_variant_get_string (value, NULL));
 616   return target ? g_variant_ref_sink (g_variant_new_string (target)) : NULL;
 617 }
 618
 619
 620 GVariant *
 621 g_settings_schema_key_get_translated_default (GSettingsSchemaKey *key)
 622 {
 623   const gchar *translated;
 624   GError *error = NULL;
 625   const gchar *domain;
 626   GVariant *value;
 627
 628   domain = g_settings_schema_get_gettext_domain (key->schema);
 629
 630   if (key->lc_char == '\0')
 631     /* translation not requested for this key */
 632     return NULL;
 633
 634   if (key->lc_char == 't')
 635     translated = g_dcgettext (domain, key->unparsed, LC_TIME);
 636   else
 637     translated = g_dgettext (domain, key->unparsed);
 638
 639   if (translated == key->unparsed)
 640     /* the default value was not translated */
 641     return NULL;
 642
 643   /* try to parse the translation of the unparsed default */
 644   value = g_variant_parse (key->type, translated, NULL, NULL, &error);
 645
 646   if (value == NULL)
 647     {
 648       g_warning ("Failed to parse translated string `%s' for "
 649                  "key `%s' in schema `%s': %s", key->unparsed, key->name,
 650                  g_settings_schema_get_name (key->schema), error->message);
 651       g_warning ("Using untranslated default instead.");
 652       g_error_free (error);
 653     }
 654
 655   else if (!g_settings_schema_key_range_check (key, value))
 656     {
 657       g_warning ("Translated default `%s' for key `%s' in schema `%s' "
 658                  "is outside of valid range", key->unparsed, key->name,
 659                  g_settings_schema_get_name (key->schema));
 660       g_variant_unref (value);
 661       value = NULL;
 662     }
 663
 664   return value;
 665 }
 666
 667 gint
 668 g_settings_schema_key_to_enum (GSettingsSchemaKey *key,
 669                                GVariant           *value)
 670 {
 671   gboolean it_worked;
 672   guint result;
 673
 674   it_worked = strinfo_enum_from_string (key->strinfo, key->strinfo_length,
 675                                         g_variant_get_string (value, NULL),
 676                                         &result);
 677
 678   /* 'value' can only come from the backend after being filtered for validity,
 679    * from the translation after being filtered for validity, or from the schema
 680    * itself (which the schema compiler checks for validity).  If this assertion
 681    * fails then it's really a bug in GSettings or the schema compiler...
 682    */
 683   g_assert (it_worked);
 684
 685   return result;
 686 }
 687
 688 GVariant *
 689 g_settings_schema_key_from_enum (GSettingsSchemaKey *key,
 690                                  gint                value)
 691 {
 692   const gchar *string;
 693
 694   string = strinfo_string_from_enum (key->strinfo, key->strinfo_length, value);
 695
 696   if (string == NULL)
 697     return NULL;
 698
 699   return g_variant_new_string (string);
 700 }
 701
 702 guint
 703 g_settings_schema_key_to_flags (GSettingsSchemaKey *key,
 704                                 GVariant           *value)
 705 {
 706   GVariantIter iter;
 707   const gchar *flag;
 708   guint result;
 709
 710   result = 0;
 711   g_variant_iter_init (&iter, value);
 712   while (g_variant_iter_next (&iter, "&s", &flag))
 713     {
 714       gboolean it_worked;
 715       guint flag_value;
 716
 717       it_worked = strinfo_enum_from_string (key->strinfo, key->strinfo_length, flag, &flag_value);
 718       /* as in g_settings_to_enum() */
 719       g_assert (it_worked);
 720
 721       result |= flag_value;
 722     }
 723
 724   return result;
 725 }
 726
 727 GVariant *
 728 g_settings_schema_key_from_flags (GSettingsSchemaKey *key,
 729                                   guint               value)
 730 {
 731   GVariantBuilder builder;
 732   gint i;
 733
 734   g_variant_builder_init (&builder, G_VARIANT_TYPE ("as"));
 735
 736   for (i = 0; i < 32; i++)
 737     if (value & (1u << i))
 738       {
 739         const gchar *string;
 740
 741         string = strinfo_string_from_enum (key->strinfo, key->strinfo_length, 1u << i);
 742
 743         if (string == NULL)
 744           {
 745             g_variant_builder_clear (&builder);
 746             return NULL;
 747           }
 748
 749         g_variant_builder_add (&builder, "s", string);
 750       }
 751
 752   return g_variant_builder_end (&builder);
 753 }