gst/gststructure.c

   1 /* GStreamer
   2  * Copyright (C) 2003 David A. Schleef <ds@schleef.org>
   3  *
   4  * gststructure.c: lists of { GQuark, GValue } tuples
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Library General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Library General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Library General Public
  17  * License along with this library; if not, write to the
  18  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19  * Boston, MA 02111-1307, USA.
  20  */
  21
  22 /**
  23  * SECTION:gststructure
  24  * @short_description: Generic structure containing fields of names and values
  25  * @see_also: #GstCaps, #GstMessage, #GstEvent, #GstQuery
  26  *
  27  * A #GstStructure is a collection of key/value pairs. The keys are expressed
  28  * as GQuarks and the values can be of any GType.
  29  *
  30  * In addition to the key/value pairs, a #GstStructure also has a name. The name
  31  * starts with a letter and can be folled by letters, numbers and any of "/-_.:".
  32  *
  33  * #GstStructure is used by various GStreamer subsystems to store information
  34  * in a flexible and extensible way. A #GstStructure does not have a refcount
  35  * because it usually is part of a higher level object such as #GstCaps. It
  36  * provides a means to enforce mutability using the refcount of the parent
  37  * with the gst_structure_set_parent_refcount() method.
  38  *
  39  * A #GstStructure can be created with gst_structure_empty_new() or
  40  * gst_structure_new(), which both take a name and an optional set of
  41  * key/value pairs along with the types of the values.
  42  *
  43  * Field values can be changed with gst_structure_set_value() or
  44  * gst_structure_set().
  45  *
  46  * Field values can be retrieved with gst_structure_get_value() or the more
  47  * convenient gst_structure_get_*() functions.
  48  *
  49  * Fields can be removed with gst_structure_remove_field() or
  50  * gst_structure_remove_fields().
  51  *
  52  * Strings in structures must be ASCII or UTF-8 encoded. Other encodings are
  53  * not allowed. Strings must not be empty either, but may be NULL.
  54  *
  55  * Last reviewed on 2009-06-08 (0.10.23)
  56  */
  57
  58 #ifdef HAVE_CONFIG_H
  59 #include "config.h"
  60 #endif
  61
  62 #include <string.h>
  63
  64 #include "gst_private.h"
  65 #include "gstquark.h"
  66 #include <gst/gst.h>
  67 #include <gobject/gvaluecollector.h>
  68
  69 typedef struct _GstStructureField GstStructureField;
  70
  71 struct _GstStructureField
  72 {
  73   GQuark name;
  74   GValue value;
  75 };
  76
  77 #define GST_STRUCTURE_FIELD(structure, index) \
  78     &g_array_index((structure)->fields, GstStructureField, (index))
  79
  80 #define IS_MUTABLE(structure) \
  81     (!(structure)->parent_refcount || \
  82      g_atomic_int_get ((structure)->parent_refcount) == 1)
  83
  84 #define IS_TAGLIST(structure) \
  85     (structure->name == GST_QUARK (TAGLIST))
  86
  87 static void gst_structure_set_field (GstStructure * structure,
  88     GstStructureField * field);
  89 static GstStructureField *gst_structure_get_field (const GstStructure *
  90     structure, const gchar * fieldname);
  91 static GstStructureField *gst_structure_id_get_field (const GstStructure *
  92     structure, GQuark field);
  93 static void gst_structure_transform_to_string (const GValue * src_value,
  94     GValue * dest_value);
  95 static GstStructure *gst_structure_copy_conditional (const GstStructure *
  96     structure);
  97 static gboolean gst_structure_parse_value (gchar * str, gchar ** after,
  98     GValue * value, GType default_type);
  99 static gboolean gst_structure_parse_simple_string (gchar * s, gchar ** end);
 100
 101 GType
 102 gst_structure_get_type (void)
 103 {
 104   static GType gst_structure_type = 0;
 105
 106   if (G_UNLIKELY (gst_structure_type == 0)) {
 107     gst_structure_type = g_boxed_type_register_static ("GstStructure",
 108         (GBoxedCopyFunc) gst_structure_copy_conditional,
 109         (GBoxedFreeFunc) gst_structure_free);
 110
 111     g_value_register_transform_func (gst_structure_type, G_TYPE_STRING,
 112         gst_structure_transform_to_string);
 113   }
 114
 115   return gst_structure_type;
 116 }
 117
 118 static GstStructure *
 119 gst_structure_id_empty_new_with_size (GQuark quark, guint prealloc)
 120 {
 121   GstStructure *structure;
 122
 123   structure = g_slice_new (GstStructure);
 124   structure->type = gst_structure_get_type ();
 125   structure->name = quark;
 126   structure->parent_refcount = NULL;
 127   structure->fields =
 128       g_array_sized_new (FALSE, FALSE, sizeof (GstStructureField), prealloc);
 129
 130   return structure;
 131 }
 132
 133 /**
 134  * gst_structure_id_empty_new:
 135  * @quark: name of new structure
 136  *
 137  * Creates a new, empty #GstStructure with the given name as a GQuark.
 138  *
 139  * Returns: a new, empty #GstStructure
 140  */
 141 GstStructure *
 142 gst_structure_id_empty_new (GQuark quark)
 143 {
 144   g_return_val_if_fail (quark != 0, NULL);
 145
 146   return gst_structure_id_empty_new_with_size (quark, 0);
 147 }
 148
 149 #ifndef G_DISABLE_CHECKS
 150 static gboolean
 151 gst_structure_validate_name (const gchar * name)
 152 {
 153   const gchar *s;
 154
 155   g_return_val_if_fail (name != NULL, FALSE);
 156
 157   /* FIXME 0.11: use g_ascii_isalpha() */
 158   if (G_UNLIKELY (!g_ascii_isalnum (*name))) {
 159     GST_WARNING ("Invalid character '%c' at offset 0 in structure name: %s",
 160         *name, name);
 161     return FALSE;
 162   }
 163
 164   /* FIXME 0.11: don't allow spaces */
 165   /* FIXME: test name string more */
 166   s = &name[1];
 167   while (*s && (g_ascii_isalnum (*s) || strchr ("/-_.:+ ", *s) != NULL))
 168     s++;
 169   if (G_UNLIKELY (*s != '\0')) {
 170     GST_WARNING ("Invalid character '%c' at offset %lu in structure name: %s",
 171         *s, ((gulong) s - (gulong) name), name);
 172     return FALSE;
 173   }
 174
 175   return TRUE;
 176 }
 177 #endif
 178
 179 /**
 180  * gst_structure_empty_new:
 181  * @name: name of new structure
 182  *
 183  * Creates a new, empty #GstStructure with the given @name.
 184  *
 185  * See gst_structure_set_name() for constraints on the @name parameter.
 186  *
 187  * Returns: a new, empty #GstStructure
 188  */
 189 GstStructure *
 190 gst_structure_empty_new (const gchar * name)
 191 {
 192   g_return_val_if_fail (gst_structure_validate_name (name), NULL);
 193
 194   return gst_structure_id_empty_new_with_size (g_quark_from_string (name), 0);
 195 }
 196
 197 /**
 198  * gst_structure_new:
 199  * @name: name of new structure
 200  * @firstfield: name of first field to set
 201  * @...: additional arguments
 202  *
 203  * Creates a new #GstStructure with the given name.  Parses the
 204  * list of variable arguments and sets fields to the values listed.
 205  * Variable arguments should be passed as field name, field type,
 206  * and value.  Last variable argument should be NULL.
 207  *
 208  * Returns: a new #GstStructure
 209  */
 210 GstStructure *
 211 gst_structure_new (const gchar * name, const gchar * firstfield, ...)
 212 {
 213   GstStructure *structure;
 214   va_list varargs;
 215
 216   g_return_val_if_fail (name != NULL, NULL);
 217
 218   va_start (varargs, firstfield);
 219   structure = gst_structure_new_valist (name, firstfield, varargs);
 220   va_end (varargs);
 221
 222   return structure;
 223 }
 224
 225 /**
 226  * gst_structure_new_valist:
 227  * @name: name of new structure
 228  * @firstfield: name of first field to set
 229  * @varargs: variable argument list
 230  *
 231  * Creates a new #GstStructure with the given @name.  Structure fields
 232  * are set according to the varargs in a manner similar to
 233  * gst_structure_new().
 234  *
 235  * See gst_structure_set_name() for constraints on the @name parameter.
 236  *
 237  * Returns: a new #GstStructure
 238  */
 239 GstStructure *
 240 gst_structure_new_valist (const gchar * name,
 241     const gchar * firstfield, va_list varargs)
 242 {
 243   GstStructure *structure;
 244
 245   g_return_val_if_fail (name != NULL, NULL);
 246
 247   structure = gst_structure_empty_new (name);
 248
 249   if (structure)
 250     gst_structure_set_valist (structure, firstfield, varargs);
 251
 252   return structure;
 253 }
 254
 255 /**
 256  * gst_structure_set_parent_refcount:
 257  * @structure: a #GstStructure
 258  * @refcount: a pointer to the parent's refcount
 259  *
 260  * Sets the parent_refcount field of #GstStructure. This field is used to
 261  * determine whether a structure is mutable or not. This function should only be
 262  * called by code implementing parent objects of #GstStructure, as described in
 263  * the MT Refcounting section of the design documents.
 264  */
 265 void
 266 gst_structure_set_parent_refcount (GstStructure * structure, gint * refcount)
 267 {
 268   g_return_if_fail (structure != NULL);
 269
 270   /* if we have a parent_refcount already, we can only clear
 271    * if with a NULL refcount */
 272   if (structure->parent_refcount)
 273     g_return_if_fail (refcount == NULL);
 274   else
 275     g_return_if_fail (refcount != NULL);
 276
 277   structure->parent_refcount = refcount;
 278 }
 279
 280 /**
 281  * gst_structure_copy:
 282  * @structure: a #GstStructure to duplicate
 283  *
 284  * Duplicates a #GstStructure and all its fields and values.
 285  *
 286  * Returns: a new #GstStructure.
 287  */
 288 GstStructure *
 289 gst_structure_copy (const GstStructure * structure)
 290 {
 291   GstStructure *new_structure;
 292   GstStructureField *field;
 293   guint i, len;
 294
 295   g_return_val_if_fail (structure != NULL, NULL);
 296
 297   len = structure->fields->len;
 298   new_structure = gst_structure_id_empty_new_with_size (structure->name, len);
 299
 300   for (i = 0; i < len; i++) {
 301     GstStructureField new_field = { 0 };
 302
 303     field = GST_STRUCTURE_FIELD (structure, i);
 304
 305     new_field.name = field->name;
 306     gst_value_init_and_copy (&new_field.value, &field->value);
 307     g_array_append_val (new_structure->fields, new_field);
 308   }
 309
 310   return new_structure;
 311 }
 312
 313 /**
 314  * gst_structure_free:
 315  * @structure: the #GstStructure to free
 316  *
 317  * Frees a #GstStructure and all its fields and values. The structure must not
 318  * have a parent when this function is called.
 319  */
 320 void
 321 gst_structure_free (GstStructure * structure)
 322 {
 323   GstStructureField *field;
 324   guint i, len;
 325
 326   g_return_if_fail (structure != NULL);
 327   g_return_if_fail (structure->parent_refcount == NULL);
 328
 329   len = structure->fields->len;
 330   for (i = 0; i < len; i++) {
 331     field = GST_STRUCTURE_FIELD (structure, i);
 332
 333     if (G_IS_VALUE (&field->value)) {
 334       g_value_unset (&field->value);
 335     }
 336   }
 337   g_array_free (structure->fields, TRUE);
 338 #ifdef USE_POISONING
 339   memset (structure, 0xff, sizeof (GstStructure));
 340 #endif
 341   g_slice_free (GstStructure, structure);
 342 }
 343
 344 /**
 345  * gst_structure_get_name:
 346  * @structure: a #GstStructure
 347  *
 348  * Get the name of @structure as a string.
 349  *
 350  * Returns: the name of the structure.
 351  */
 352 const gchar *
 353 gst_structure_get_name (const GstStructure * structure)
 354 {
 355   g_return_val_if_fail (structure != NULL, NULL);
 356
 357   return g_quark_to_string (structure->name);
 358 }
 359
 360 /**
 361  * gst_structure_has_name:
 362  * @structure: a #GstStructure
 363  * @name: structure name to check for
 364  *
 365  * Checks if the structure has the given name
 366  *
 367  * Returns: TRUE if @name matches the name of the structure.
 368  */
 369 gboolean
 370 gst_structure_has_name (const GstStructure * structure, const gchar * name)
 371 {
 372   const gchar *structure_name;
 373
 374   g_return_val_if_fail (structure != NULL, FALSE);
 375   g_return_val_if_fail (name != NULL, FALSE);
 376
 377   /* getting the string is cheap and comparing short strings is too
 378    * should be faster than getting the quark for name and comparing the quarks
 379    */
 380   structure_name = g_quark_to_string (structure->name);
 381
 382   return (structure_name && strcmp (structure_name, name) == 0);
 383 }
 384
 385 /**
 386  * gst_structure_get_name_id:
 387  * @structure: a #GstStructure
 388  *
 389  * Get the name of @structure as a GQuark.
 390  *
 391  * Returns: the quark representing the name of the structure.
 392  */
 393 GQuark
 394 gst_structure_get_name_id (const GstStructure * structure)
 395 {
 396   g_return_val_if_fail (structure != NULL, 0);
 397
 398   return structure->name;
 399 }
 400
 401 /**
 402  * gst_structure_set_name:
 403  * @structure: a #GstStructure
 404  * @name: the new name of the structure
 405  *
 406  * Sets the name of the structure to the given @name.  The string
 407  * provided is copied before being used. It must not be empty, start with a
 408  * letter and can be followed by letters, numbers and any of "/-_.:".
 409  */
 410 void
 411 gst_structure_set_name (GstStructure * structure, const gchar * name)
 412 {
 413   g_return_if_fail (structure != NULL);
 414   g_return_if_fail (IS_MUTABLE (structure));
 415   g_return_if_fail (gst_structure_validate_name (name));
 416
 417   structure->name = g_quark_from_string (name);
 418 }
 419
 420 /**
 421  * gst_structure_id_set_value:
 422  * @structure: a #GstStructure
 423  * @field: a #GQuark representing a field
 424  * @value: the new value of the field
 425  *
 426  * Sets the field with the given GQuark @field to @value.  If the field
 427  * does not exist, it is created.  If the field exists, the previous
 428  * value is replaced and freed.
 429  */
 430 void
 431 gst_structure_id_set_value (GstStructure * structure,
 432     GQuark field, const GValue * value)
 433 {
 434   GstStructureField gsfield = { 0, {0,} };
 435
 436   g_return_if_fail (structure != NULL);
 437   g_return_if_fail (G_IS_VALUE (value));
 438   g_return_if_fail (IS_MUTABLE (structure));
 439
 440   gsfield.name = field;
 441   gst_value_init_and_copy (&gsfield.value, value);
 442
 443   gst_structure_set_field (structure, &gsfield);
 444 }
 445
 446 /**
 447  * gst_structure_set_value:
 448  * @structure: a #GstStructure
 449  * @fieldname: the name of the field to set
 450  * @value: the new value of the field
 451  *
 452  * Sets the field with the given name @field to @value.  If the field
 453  * does not exist, it is created.  If the field exists, the previous
 454  * value is replaced and freed.
 455  */
 456 void
 457 gst_structure_set_value (GstStructure * structure,
 458     const gchar * fieldname, const GValue * value)
 459 {
 460   g_return_if_fail (structure != NULL);
 461   g_return_if_fail (fieldname != NULL);
 462   g_return_if_fail (G_IS_VALUE (value));
 463   g_return_if_fail (IS_MUTABLE (structure));
 464
 465   gst_structure_id_set_value (structure, g_quark_from_string (fieldname),
 466       value);
 467 }
 468
 469 /**
 470  * gst_structure_set:
 471  * @structure: a #GstStructure
 472  * @fieldname: the name of the field to set
 473  * @...: variable arguments
 474  *
 475  * Parses the variable arguments and sets fields accordingly.
 476  * Variable arguments should be in the form field name, field type
 477  * (as a GType), value(s).  The last variable argument should be NULL.
 478  */
 479 void
 480 gst_structure_set (GstStructure * structure, const gchar * field, ...)
 481 {
 482   va_list varargs;
 483
 484   g_return_if_fail (structure != NULL);
 485
 486   va_start (varargs, field);
 487   gst_structure_set_valist (structure, field, varargs);
 488   va_end (varargs);
 489 }
 490
 491 /**
 492  * gst_structure_set_valist:
 493  * @structure: a #GstStructure
 494  * @fieldname: the name of the field to set
 495  * @varargs: variable arguments
 496  *
 497  * va_list form of gst_structure_set().
 498  */
 499 void
 500 gst_structure_set_valist (GstStructure * structure,
 501     const gchar * fieldname, va_list varargs)
 502 {
 503   gchar *err = NULL;
 504   GType type;
 505
 506   g_return_if_fail (structure != NULL);
 507   g_return_if_fail (IS_MUTABLE (structure));
 508
 509   while (fieldname) {
 510     GstStructureField field = { 0 };
 511
 512     field.name = g_quark_from_string (fieldname);
 513
 514     type = va_arg (varargs, GType);
 515
 516     if (G_UNLIKELY (type == G_TYPE_DATE)) {
 517       g_warning ("Don't use G_TYPE_DATE, use GST_TYPE_DATE instead\n");
 518       type = GST_TYPE_DATE;
 519     }
 520 #if GLIB_CHECK_VERSION(2,23,3)
 521     G_VALUE_COLLECT_INIT (&field.value, type, varargs, 0, &err);
 522 #else
 523     g_value_init (&field.value, type);
 524     G_VALUE_COLLECT (&field.value, varargs, 0, &err);
 525 #endif
 526     if (G_UNLIKELY (err)) {
 527       g_critical ("%s", err);
 528       return;
 529     }
 530     gst_structure_set_field (structure, &field);
 531
 532     fieldname = va_arg (varargs, gchar *);
 533   }
 534 }
 535
 536 /**
 537  * gst_structure_id_set:
 538  * @structure: a #GstStructure
 539  * @fieldname: the GQuark for the name of the field to set
 540  * @...: variable arguments
 541  *
 542  * Identical to gst_structure_set, except that field names are
 543  * passed using the GQuark for the field name. This allows more efficient
 544  * setting of the structure if the caller already knows the associated
 545  * quark values.
 546  * The last variable argument must be NULL.
 547  *
 548  * Since: 0.10.10
 549  */
 550 void
 551 gst_structure_id_set (GstStructure * structure, GQuark field, ...)
 552 {
 553   va_list varargs;
 554
 555   g_return_if_fail (structure != NULL);
 556
 557   va_start (varargs, field);
 558   gst_structure_id_set_valist (structure, field, varargs);
 559   va_end (varargs);
 560 }
 561
 562 /**
 563  * gst_structure_id_set_valist:
 564  * @structure: a #GstStructure
 565  * @fieldname: the name of the field to set
 566  * @varargs: variable arguments
 567  *
 568  * va_list form of gst_structure_id_set().
 569  *
 570  * Since: 0.10.10
 571  */
 572 void
 573 gst_structure_id_set_valist (GstStructure * structure,
 574     GQuark fieldname, va_list varargs)
 575 {
 576   gchar *err = NULL;
 577   GType type;
 578
 579   g_return_if_fail (structure != NULL);
 580   g_return_if_fail (IS_MUTABLE (structure));
 581
 582   while (fieldname) {
 583     GstStructureField field = { 0 };
 584
 585     field.name = fieldname;
 586
 587     type = va_arg (varargs, GType);
 588
 589     if (G_UNLIKELY (type == G_TYPE_DATE)) {
 590       g_warning ("Don't use G_TYPE_DATE, use GST_TYPE_DATE instead\n");
 591       type = GST_TYPE_DATE;
 592     }
 593 #ifndef G_VALUE_COLLECT_INIT
 594     g_value_init (&field.value, type);
 595     G_VALUE_COLLECT (&field.value, varargs, 0, &err);
 596 #else
 597     G_VALUE_COLLECT_INIT (&field.value, type, varargs, 0, &err);
 598 #endif
 599     if (G_UNLIKELY (err)) {
 600       g_critical ("%s", err);
 601       return;
 602     }
 603     gst_structure_set_field (structure, &field);
 604
 605     fieldname = va_arg (varargs, GQuark);
 606   }
 607 }
 608
 609 /**
 610  * gst_structure_id_new:
 611  * @name_quark: name of new structure
 612  * @field_quark: the GQuark for the name of the field to set
 613  * @...: variable arguments
 614  *
 615  * Creates a new #GstStructure with the given name as a GQuark, followed by
 616  * fieldname quark, GType, argument(s) "triplets" in the same format as
 617  * gst_structure_id_set(). Basically a convenience wrapper around
 618  * gst_structure_id_empty_new() and gst_structure_id_set().
 619  *
 620  * The last variable argument must be NULL (or 0).
 621  *
 622  * Returns: a new #GstStructure
 623  *
 624  * Since: 0.10.24
 625  */
 626 GstStructure *
 627 gst_structure_id_new (GQuark name_quark, GQuark field_quark, ...)
 628 {
 629   GstStructure *s;
 630   va_list varargs;
 631
 632   g_return_val_if_fail (name_quark != 0, NULL);
 633   g_return_val_if_fail (field_quark != 0, NULL);
 634
 635   s = gst_structure_id_empty_new (name_quark);
 636
 637   va_start (varargs, field_quark);
 638   gst_structure_id_set_valist (s, field_quark, varargs);
 639   va_end (varargs);
 640
 641   return s;
 642 }
 643
 644 #if GST_VERSION_NANO == 1
 645 #define GIT_G_WARNING g_warning
 646 #else
 647 #define GIT_G_WARNING GST_WARNING
 648 #endif
 649
 650 /* If the structure currently contains a field with the same name, it is
 651  * replaced with the provided field. Otherwise, the field is added to the
 652  * structure. The field's value is not deeply copied.
 653  */
 654 static void
 655 gst_structure_set_field (GstStructure * structure, GstStructureField * field)
 656 {
 657   GstStructureField *f;
 658   guint i, len = structure->fields->len;
 659
 660   if (G_UNLIKELY (G_VALUE_HOLDS_STRING (&field->value))) {
 661     const gchar *s;
 662
 663     s = g_value_get_string (&field->value);
 664     /* only check for NULL strings in taglists, as they are allowed in message
 665      * structs, e.g. error message debug strings */
 666     if (G_UNLIKELY (IS_TAGLIST (structure) && (s == NULL || *s == '\0'))) {
 667       if (s == NULL) {
 668         GIT_G_WARNING ("Trying to set NULL string on field '%s' on taglist. "
 669             "Please file a bug.", g_quark_to_string (field->name));
 670         g_value_unset (&field->value);
 671         return;
 672       } else {
 673         /* empty strings never make sense */
 674         GIT_G_WARNING ("Trying to set empty string on taglist field '%s'. "
 675             "Please file a bug.", g_quark_to_string (field->name));
 676         g_value_unset (&field->value);
 677         return;
 678       }
 679     } else if (G_UNLIKELY (s != NULL && !g_utf8_validate (s, -1, NULL))) {
 680       g_warning ("Trying to set string on %s field '%s', but string is not "
 681           "valid UTF-8. Please file a bug.",
 682           IS_TAGLIST (structure) ? "taglist" : "structure",
 683           g_quark_to_string (field->name));
 684       g_value_unset (&field->value);
 685       return;
 686     }
 687   }
 688
 689   for (i = 0; i < len; i++) {
 690     f = GST_STRUCTURE_FIELD (structure, i);
 691
 692     if (G_UNLIKELY (f->name == field->name)) {
 693       g_value_unset (&f->value);
 694       memcpy (f, field, sizeof (GstStructureField));
 695       return;
 696     }
 697   }
 698
 699   g_array_append_val (structure->fields, *field);
 700 }
 701
 702 /* If there is no field with the given ID, NULL is returned.
 703  */
 704 static GstStructureField *
 705 gst_structure_id_get_field (const GstStructure * structure, GQuark field_id)
 706 {
 707   GstStructureField *field;
 708   guint i, len;
 709
 710   len = structure->fields->len;
 711
 712   for (i = 0; i < len; i++) {
 713     field = GST_STRUCTURE_FIELD (structure, i);
 714
 715     if (G_UNLIKELY (field->name == field_id))
 716       return field;
 717   }
 718
 719   return NULL;
 720 }
 721
 722 /* If there is no field with the given ID, NULL is returned.
 723  */
 724 static GstStructureField *
 725 gst_structure_get_field (const GstStructure * structure,
 726     const gchar * fieldname)
 727 {
 728   g_return_val_if_fail (structure != NULL, NULL);
 729   g_return_val_if_fail (fieldname != NULL, NULL);
 730
 731   return gst_structure_id_get_field (structure,
 732       g_quark_from_string (fieldname));
 733 }
 734
 735 /**
 736  * gst_structure_get_value:
 737  * @structure: a #GstStructure
 738  * @fieldname: the name of the field to get
 739  *
 740  * Get the value of the field with name @fieldname.
 741  *
 742  * Returns: the #GValue corresponding to the field with the given name.
 743  */
 744 const GValue *
 745 gst_structure_get_value (const GstStructure * structure,
 746     const gchar * fieldname)
 747 {
 748   GstStructureField *field;
 749
 750   g_return_val_if_fail (structure != NULL, NULL);
 751   g_return_val_if_fail (fieldname != NULL, NULL);
 752
 753   field = gst_structure_get_field (structure, fieldname);
 754   if (field == NULL)
 755     return NULL;
 756
 757   return &field->value;
 758 }
 759
 760 /**
 761  * gst_structure_id_get_value:
 762  * @structure: a #GstStructure
 763  * @field: the #GQuark of the field to get
 764  *
 765  * Get the value of the field with GQuark @field.
 766  *
 767  * Returns: the #GValue corresponding to the field with the given name
 768  *          identifier.
 769  */
 770 const GValue *
 771 gst_structure_id_get_value (const GstStructure * structure, GQuark field)
 772 {
 773   GstStructureField *gsfield;
 774
 775   g_return_val_if_fail (structure != NULL, NULL);
 776
 777   gsfield = gst_structure_id_get_field (structure, field);
 778   if (gsfield == NULL)
 779     return NULL;
 780
 781   return &gsfield->value;
 782 }
 783
 784 /**
 785  * gst_structure_remove_field:
 786  * @structure: a #GstStructure
 787  * @fieldname: the name of the field to remove
 788  *
 789  * Removes the field with the given name.  If the field with the given
 790  * name does not exist, the structure is unchanged.
 791  */
 792 void
 793 gst_structure_remove_field (GstStructure * structure, const gchar * fieldname)
 794 {
 795   GstStructureField *field;
 796   GQuark id;
 797   guint i, len;
 798
 799   g_return_if_fail (structure != NULL);
 800   g_return_if_fail (fieldname != NULL);
 801   g_return_if_fail (IS_MUTABLE (structure));
 802
 803   id = g_quark_from_string (fieldname);
 804   len = structure->fields->len;
 805
 806   for (i = 0; i < len; i++) {
 807     field = GST_STRUCTURE_FIELD (structure, i);
 808
 809     if (field->name == id) {
 810       if (G_IS_VALUE (&field->value)) {
 811         g_value_unset (&field->value);
 812       }
 813       structure->fields = g_array_remove_index (structure->fields, i);
 814       return;
 815     }
 816   }
 817 }
 818
 819 /**
 820  * gst_structure_remove_fields:
 821  * @structure: a #GstStructure
 822  * @fieldname: the name of the field to remove
 823  * @...: NULL-terminated list of more fieldnames to remove
 824  *
 825  * Removes the fields with the given names. If a field does not exist, the
 826  * argument is ignored.
 827  */
 828 void
 829 gst_structure_remove_fields (GstStructure * structure,
 830     const gchar * fieldname, ...)
 831 {
 832   va_list varargs;
 833
 834   g_return_if_fail (structure != NULL);
 835   g_return_if_fail (fieldname != NULL);
 836   /* mutability checked in remove_field */
 837
 838   va_start (varargs, fieldname);
 839   gst_structure_remove_fields_valist (structure, fieldname, varargs);
 840   va_end (varargs);
 841 }
 842
 843 /**
 844  * gst_structure_remove_fields_valist:
 845  * @structure: a #GstStructure
 846  * @fieldname: the name of the field to remove
 847  * @varargs: NULL-terminated list of more fieldnames to remove
 848  *
 849  * va_list form of gst_structure_remove_fields().
 850  */
 851 void
 852 gst_structure_remove_fields_valist (GstStructure * structure,
 853     const gchar * fieldname, va_list varargs)
 854 {
 855   gchar *field = (gchar *) fieldname;
 856
 857   g_return_if_fail (structure != NULL);
 858   g_return_if_fail (fieldname != NULL);
 859   /* mutability checked in remove_field */
 860
 861   while (field) {
 862     gst_structure_remove_field (structure, field);
 863     field = va_arg (varargs, char *);
 864   }
 865 }
 866
 867 /**
 868  * gst_structure_remove_all_fields:
 869  * @structure: a #GstStructure
 870  *
 871  * Removes all fields in a GstStructure.
 872  */
 873 void
 874 gst_structure_remove_all_fields (GstStructure * structure)
 875 {
 876   GstStructureField *field;
 877   int i;
 878
 879   g_return_if_fail (structure != NULL);
 880   g_return_if_fail (IS_MUTABLE (structure));
 881
 882   for (i = structure->fields->len - 1; i >= 0; i--) {
 883     field = GST_STRUCTURE_FIELD (structure, i);
 884
 885     if (G_IS_VALUE (&field->value)) {
 886       g_value_unset (&field->value);
 887     }
 888     structure->fields = g_array_remove_index (structure->fields, i);
 889   }
 890 }
 891
 892 /**
 893  * gst_structure_get_field_type:
 894  * @structure: a #GstStructure
 895  * @fieldname: the name of the field
 896  *
 897  * Finds the field with the given name, and returns the type of the
 898  * value it contains.  If the field is not found, G_TYPE_INVALID is
 899  * returned.
 900  *
 901  * Returns: the #GValue of the field
 902  */
 903 GType
 904 gst_structure_get_field_type (const GstStructure * structure,
 905     const gchar * fieldname)
 906 {
 907   GstStructureField *field;
 908
 909   g_return_val_if_fail (structure != NULL, G_TYPE_INVALID);
 910   g_return_val_if_fail (fieldname != NULL, G_TYPE_INVALID);
 911
 912   field = gst_structure_get_field (structure, fieldname);
 913   if (field == NULL)
 914     return G_TYPE_INVALID;
 915
 916   return G_VALUE_TYPE (&field->value);
 917 }
 918
 919 /**
 920  * gst_structure_n_fields:
 921  * @structure: a #GstStructure
 922  *
 923  * Get the number of fields in the structure.
 924  *
 925  * Returns: the number of fields in the structure
 926  */
 927 gint
 928 gst_structure_n_fields (const GstStructure * structure)
 929 {
 930   g_return_val_if_fail (structure != NULL, 0);
 931
 932   return structure->fields->len;
 933 }
 934
 935 /**
 936  * gst_structure_nth_field_name:
 937  * @structure: a #GstStructure
 938  * @index: the index to get the name of
 939  *
 940  * Get the name of the given field number, counting from 0 onwards.
 941  *
 942  * Returns: the name of the given field number
 943  */
 944 const gchar *
 945 gst_structure_nth_field_name (const GstStructure * structure, guint index)
 946 {
 947   GstStructureField *field;
 948
 949   g_return_val_if_fail (structure != NULL, NULL);
 950   g_return_val_if_fail (index < structure->fields->len, NULL);
 951
 952   field = GST_STRUCTURE_FIELD (structure, index);
 953
 954   return g_quark_to_string (field->name);
 955 }
 956
 957 /**
 958  * gst_structure_foreach:
 959  * @structure: a #GstStructure
 960  * @func: a function to call for each field
 961  * @user_data: private data
 962  *
 963  * Calls the provided function once for each field in the #GstStructure. The
 964  * function must not modify the fields. Also see gst_structure_map_in_place().
 965  *
 966  * Returns: TRUE if the supplied function returns TRUE For each of the fields,
 967  * FALSE otherwise.
 968  */
 969 gboolean
 970 gst_structure_foreach (const GstStructure * structure,
 971     GstStructureForeachFunc func, gpointer user_data)
 972 {
 973   guint i, len;
 974   GstStructureField *field;
 975   gboolean ret;
 976
 977   g_return_val_if_fail (structure != NULL, FALSE);
 978   g_return_val_if_fail (func != NULL, FALSE);
 979
 980   len = structure->fields->len;
 981
 982   for (i = 0; i < len; i++) {
 983     field = GST_STRUCTURE_FIELD (structure, i);
 984
 985     ret = func (field->name, &field->value, user_data);
 986     if (G_UNLIKELY (!ret))
 987       return FALSE;
 988   }
 989
 990   return TRUE;
 991 }
 992
 993 /**
 994  * gst_structure_map_in_place:
 995  * @structure: a #GstStructure
 996  * @func: a function to call for each field
 997  * @user_data: private data
 998  *
 999  * Calls the provided function once for each field in the #GstStructure. In
1000  * contrast to gst_structure_foreach(), the function may modify but not delete the
1001  * fields. The structure must be mutable.
1002  *
1003  * Returns: TRUE if the supplied function returns TRUE For each of the fields,
1004  * FALSE otherwise.
1005  */
1006 gboolean
1007 gst_structure_map_in_place (GstStructure * structure,
1008     GstStructureMapFunc func, gpointer user_data)
1009 {
1010   guint i, len;
1011   GstStructureField *field;
1012   gboolean ret;
1013
1014   g_return_val_if_fail (structure != NULL, FALSE);
1015   g_return_val_if_fail (IS_MUTABLE (structure), FALSE);
1016   g_return_val_if_fail (func != NULL, FALSE);
1017   len = structure->fields->len;
1018
1019   for (i = 0; i < len; i++) {
1020     field = GST_STRUCTURE_FIELD (structure, i);
1021
1022     ret = func (field->name, &field->value, user_data);
1023     if (!ret)
1024       return FALSE;
1025   }
1026
1027   return TRUE;
1028 }
1029
1030 /**
1031  * gst_structure_id_has_field:
1032  * @structure: a #GstStructure
1033  * @field: #GQuark of the field name
1034  *
1035  * Check if @structure contains a field named @field.
1036  *
1037  * Returns: TRUE if the structure contains a field with the given name
1038  *
1039  * Since: 0.10.26
1040  */
1041 gboolean
1042 gst_structure_id_has_field (const GstStructure * structure, GQuark field)
1043 {
1044   GstStructureField *f;
1045
1046   g_return_val_if_fail (structure != NULL, FALSE);
1047   g_return_val_if_fail (field != 0, FALSE);
1048
1049   f = gst_structure_id_get_field (structure, field);
1050
1051   return (f != NULL);
1052 }
1053
1054 /**
1055  * gst_structure_has_field:
1056  * @structure: a #GstStructure
1057  * @fieldname: the name of a field
1058  *
1059  * Check if @structure contains a field named @fieldname.
1060  *
1061  * Returns: TRUE if the structure contains a field with the given name
1062  */
1063 gboolean
1064 gst_structure_has_field (const GstStructure * structure,
1065     const gchar * fieldname)
1066 {
1067   g_return_val_if_fail (structure != NULL, FALSE);
1068   g_return_val_if_fail (fieldname != NULL, FALSE);
1069
1070   return gst_structure_id_has_field (structure,
1071       g_quark_from_string (fieldname));
1072 }
1073
1074 /**
1075  * gst_structure_id_has_field_typed:
1076  * @structure: a #GstStructure
1077  * @field: #GQuark of the field name
1078  * @type: the type of a value
1079  *
1080  * Check if @structure contains a field named @field and with GType @type.
1081  *
1082  * Returns: TRUE if the structure contains a field with the given name and type
1083  *
1084  * Since: 0.10.26
1085  */
1086 gboolean
1087 gst_structure_id_has_field_typed (const GstStructure * structure,
1088     GQuark field, GType type)
1089 {
1090   GstStructureField *f;
1091
1092   g_return_val_if_fail (structure != NULL, FALSE);
1093   g_return_val_if_fail (field != 0, FALSE);
1094
1095   f = gst_structure_id_get_field (structure, field);
1096   if (f == NULL)
1097     return FALSE;
1098
1099   return (G_VALUE_TYPE (&f->value) == type);
1100 }
1101
1102 /**
1103  * gst_structure_has_field_typed:
1104  * @structure: a #GstStructure
1105  * @fieldname: the name of a field
1106  * @type: the type of a value
1107  *
1108  * Check if @structure contains a field named @fieldname and with GType @type.
1109  *
1110  * Returns: TRUE if the structure contains a field with the given name and type
1111  */
1112 gboolean
1113 gst_structure_has_field_typed (const GstStructure * structure,
1114     const gchar * fieldname, GType type)
1115 {
1116   g_return_val_if_fail (structure != NULL, FALSE);
1117   g_return_val_if_fail (fieldname != NULL, FALSE);
1118
1119   return gst_structure_id_has_field_typed (structure,
1120       g_quark_from_string (fieldname), type);
1121 }
1122
1123 /* utility functions */
1124
1125 /**
1126  * gst_structure_get_boolean:
1127  * @structure: a #GstStructure
1128  * @fieldname: the name of a field
1129  * @value: a pointer to a #gboolean to set
1130  *
1131  * Sets the boolean pointed to by @value corresponding to the value of the
1132  * given field.  Caller is responsible for making sure the field exists
1133  * and has the correct type.
1134  *
1135  * Returns: TRUE if the value could be set correctly. If there was no field
1136  * with @fieldname or the existing field did not contain a boolean, this
1137  * function returns FALSE.
1138  */
1139 gboolean
1140 gst_structure_get_boolean (const GstStructure * structure,
1141     const gchar * fieldname, gboolean * value)
1142 {
1143   GstStructureField *field;
1144
1145   g_return_val_if_fail (structure != NULL, FALSE);
1146   g_return_val_if_fail (fieldname != NULL, FALSE);
1147
1148   field = gst_structure_get_field (structure, fieldname);
1149
1150   if (field == NULL)
1151     return FALSE;
1152   if (!G_VALUE_HOLDS_BOOLEAN (&field->value))
1153     return FALSE;
1154
1155   *value = gst_g_value_get_boolean_unchecked (&field->value);
1156
1157   return TRUE;
1158 }
1159
1160 /**
1161  * gst_structure_get_int:
1162  * @structure: a #GstStructure
1163  * @fieldname: the name of a field
1164  * @value: a pointer to an int to set
1165  *
1166  * Sets the int pointed to by @value corresponding to the value of the
1167  * given field.  Caller is responsible for making sure the field exists
1168  * and has the correct type.
1169  *
1170  * Returns: %TRUE if the value could be set correctly. If there was no field
1171  * with @fieldname or the existing field did not contain an int, this function
1172  * returns %FALSE.
1173  */
1174 gboolean
1175 gst_structure_get_int (const GstStructure * structure,
1176     const gchar * fieldname, gint * value)
1177 {
1178   GstStructureField *field;
1179
1180   g_return_val_if_fail (structure != NULL, FALSE);
1181   g_return_val_if_fail (fieldname != NULL, FALSE);
1182   g_return_val_if_fail (value != NULL, FALSE);
1183
1184   field = gst_structure_get_field (structure, fieldname);
1185
1186   if (field == NULL)
1187     return FALSE;
1188   if (!G_VALUE_HOLDS_INT (&field->value))
1189     return FALSE;
1190
1191   *value = gst_g_value_get_int_unchecked (&field->value);
1192
1193   return TRUE;
1194 }
1195
1196 /**
1197  * gst_structure_get_uint:
1198  * @structure: a #GstStructure
1199  * @fieldname: the name of a field
1200  * @value: a pointer to a uint to set
1201  *
1202  * Sets the uint pointed to by @value corresponding to the value of the
1203  * given field.  Caller is responsible for making sure the field exists
1204  * and has the correct type.
1205  *
1206  * Returns: %TRUE if the value could be set correctly. If there was no field
1207  * with @fieldname or the existing field did not contain a uint, this function
1208  * returns %FALSE.
1209  *
1210  * Since: 0.10.15
1211  */
1212 gboolean
1213 gst_structure_get_uint (const GstStructure * structure,
1214     const gchar * fieldname, guint * value)
1215 {
1216   GstStructureField *field;
1217
1218   g_return_val_if_fail (structure != NULL, FALSE);
1219   g_return_val_if_fail (fieldname != NULL, FALSE);
1220   g_return_val_if_fail (value != NULL, FALSE);
1221
1222   field = gst_structure_get_field (structure, fieldname);
1223
1224   if (field == NULL)
1225     return FALSE;
1226   if (!G_VALUE_HOLDS_UINT (&field->value))
1227     return FALSE;
1228
1229   *value = gst_g_value_get_uint_unchecked (&field->value);
1230
1231   return TRUE;
1232 }
1233
1234 /**
1235  * gst_structure_get_fourcc:
1236  * @structure: a #GstStructure
1237  * @fieldname: the name of a field
1238  * @value: a pointer to a 32bit unsigned int to set
1239  *
1240  * Sets the Fourcc pointed to by @value corresponding to the value of the
1241  * given field.  Caller is responsible for making sure the field exists
1242  * and has the correct type.
1243  *
1244  * Returns: TRUE if the value could be set correctly. If there was no field
1245  * with @fieldname or the existing field did not contain a fourcc, this function
1246  * returns FALSE.
1247  */
1248 gboolean
1249 gst_structure_get_fourcc (const GstStructure * structure,
1250     const gchar * fieldname, guint32 * value)
1251 {
1252   GstStructureField *field;
1253
1254   g_return_val_if_fail (structure != NULL, FALSE);
1255   g_return_val_if_fail (fieldname != NULL, FALSE);
1256   g_return_val_if_fail (value != NULL, FALSE);
1257
1258   field = gst_structure_get_field (structure, fieldname);
1259
1260   if (field == NULL)
1261     return FALSE;
1262   if (!GST_VALUE_HOLDS_FOURCC (&field->value))
1263     return FALSE;
1264
1265   *value = gst_value_get_fourcc (&field->value);
1266
1267   return TRUE;
1268 }
1269
1270 /**
1271  * gst_structure_get_date:
1272  * @structure: a #GstStructure
1273  * @fieldname: the name of a field
1274  * @value: a pointer to a #GDate to set
1275  *
1276  * Sets the date pointed to by @value corresponding to the date of the
1277  * given field.  Caller is responsible for making sure the field exists
1278  * and has the correct type.
1279  *
1280  * On success @value will point to a newly-allocated copy of the date which
1281  * should be freed with g_date_free() when no longer needed (note: this is
1282  * inconsistent with e.g. gst_structure_get_string() which doesn't return a
1283  * copy of the string).
1284  *
1285  * Returns: TRUE if the value could be set correctly. If there was no field
1286  * with @fieldname or the existing field did not contain a data, this function
1287  * returns FALSE.
1288  */
1289 gboolean
1290 gst_structure_get_date (const GstStructure * structure, const gchar * fieldname,
1291     GDate ** value)
1292 {
1293   GstStructureField *field;
1294
1295   g_return_val_if_fail (structure != NULL, FALSE);
1296   g_return_val_if_fail (fieldname != NULL, FALSE);
1297   g_return_val_if_fail (value != NULL, FALSE);
1298
1299   field = gst_structure_get_field (structure, fieldname);
1300
1301   if (field == NULL)
1302     return FALSE;
1303   if (!GST_VALUE_HOLDS_DATE (&field->value))
1304     return FALSE;
1305
1306   /* FIXME: 0.11 g_value_dup_boxed() -> g_value_get_boxed() */
1307   *value = g_value_dup_boxed (&field->value);
1308
1309   return TRUE;
1310 }
1311
1312 /**
1313  * gst_structure_get_clock_time:
1314  * @structure: a #GstStructure
1315  * @fieldname: the name of a field
1316  * @value: a pointer to a #GstClockTime to set
1317  *
1318  * Sets the clock time pointed to by @value corresponding to the clock time
1319  * of the given field.  Caller is responsible for making sure the field exists
1320  * and has the correct type.
1321  *
1322  * Returns: TRUE if the value could be set correctly. If there was no field
1323  * with @fieldname or the existing field did not contain a #GstClockTime, this
1324  * function returns FALSE.
1325  */
1326 gboolean
1327 gst_structure_get_clock_time (const GstStructure * structure,
1328     const gchar * fieldname, GstClockTime * value)
1329 {
1330   GstStructureField *field;
1331
1332   g_return_val_if_fail (structure != NULL, FALSE);
1333   g_return_val_if_fail (fieldname != NULL, FALSE);
1334   g_return_val_if_fail (value != NULL, FALSE);
1335
1336   field = gst_structure_get_field (structure, fieldname);
1337
1338   if (field == NULL)
1339     return FALSE;
1340   if (!G_VALUE_HOLDS_UINT64 (&field->value))
1341     return FALSE;
1342
1343   *value = gst_g_value_get_uint64_unchecked (&field->value);
1344
1345   return TRUE;
1346 }
1347
1348 /**
1349  * gst_structure_get_double:
1350  * @structure: a #GstStructure
1351  * @fieldname: the name of a field
1352  * @value: a pointer to a gdouble to set
1353  *
1354  * Sets the double pointed to by @value corresponding to the value of the
1355  * given field.  Caller is responsible for making sure the field exists
1356  * and has the correct type.
1357  *
1358  * Returns: TRUE if the value could be set correctly. If there was no field
1359  * with @fieldname or the existing field did not contain a double, this
1360  * function returns FALSE.
1361  */
1362 gboolean
1363 gst_structure_get_double (const GstStructure * structure,
1364     const gchar * fieldname, gdouble * value)
1365 {
1366   GstStructureField *field;
1367
1368   g_return_val_if_fail (structure != NULL, FALSE);
1369   g_return_val_if_fail (fieldname != NULL, FALSE);
1370   g_return_val_if_fail (value != NULL, FALSE);
1371
1372   field = gst_structure_get_field (structure, fieldname);
1373
1374   if (field == NULL)
1375     return FALSE;
1376   if (!G_VALUE_HOLDS_DOUBLE (&field->value))
1377     return FALSE;
1378
1379   *value = gst_g_value_get_double_unchecked (&field->value);
1380
1381   return TRUE;
1382 }
1383
1384 /**
1385  * gst_structure_get_string:
1386  * @structure: a #GstStructure
1387  * @fieldname: the name of a field
1388  *
1389  * Finds the field corresponding to @fieldname, and returns the string
1390  * contained in the field's value.  Caller is responsible for making
1391  * sure the field exists and has the correct type.
1392  *
1393  * The string should not be modified, and remains valid until the next
1394  * call to a gst_structure_*() function with the given structure.
1395  *
1396  * Returns: a pointer to the string or NULL when the field did not exist
1397  * or did not contain a string.
1398  */
1399 const gchar *
1400 gst_structure_get_string (const GstStructure * structure,
1401     const gchar * fieldname)
1402 {
1403   GstStructureField *field;
1404
1405   g_return_val_if_fail (structure != NULL, NULL);
1406   g_return_val_if_fail (fieldname != NULL, NULL);
1407
1408   field = gst_structure_get_field (structure, fieldname);
1409
1410   if (field == NULL)
1411     return NULL;
1412   if (!G_VALUE_HOLDS_STRING (&field->value))
1413     return NULL;
1414
1415   return gst_g_value_get_string_unchecked (&field->value);
1416 }
1417
1418 /**
1419  * gst_structure_get_enum:
1420  * @structure: a #GstStructure
1421  * @fieldname: the name of a field
1422  * @enumtype: the enum type of a field
1423  * @value: a pointer to an int to set
1424  *
1425  * Sets the int pointed to by @value corresponding to the value of the
1426  * given field.  Caller is responsible for making sure the field exists,
1427  * has the correct type and that the enumtype is correct.
1428  *
1429  * Returns: TRUE if the value could be set correctly. If there was no field
1430  * with @fieldname or the existing field did not contain an enum of the given
1431  * type, this function returns FALSE.
1432  */
1433 gboolean
1434 gst_structure_get_enum (const GstStructure * structure,
1435     const gchar * fieldname, GType enumtype, gint * value)
1436 {
1437   GstStructureField *field;
1438
1439   g_return_val_if_fail (structure != NULL, FALSE);
1440   g_return_val_if_fail (fieldname != NULL, FALSE);
1441   g_return_val_if_fail (enumtype != G_TYPE_INVALID, FALSE);
1442   g_return_val_if_fail (value != NULL, FALSE);
1443
1444   field = gst_structure_get_field (structure, fieldname);
1445
1446   if (field == NULL)
1447     return FALSE;
1448   if (!G_TYPE_CHECK_VALUE_TYPE (&field->value, enumtype))
1449     return FALSE;
1450
1451   *value = g_value_get_enum (&field->value);
1452
1453   return TRUE;
1454 }
1455
1456 /**
1457  * gst_structure_get_fraction:
1458  * @structure: a #GstStructure
1459  * @fieldname: the name of a field
1460  * @value_numerator: a pointer to an int to set
1461  * @value_denominator: a pointer to an int to set
1462  *
1463  * Sets the integers pointed to by @value_numerator and @value_denominator
1464  * corresponding to the value of the given field.  Caller is responsible
1465  * for making sure the field exists and has the correct type.
1466  *
1467  * Returns: TRUE if the values could be set correctly. If there was no field
1468  * with @fieldname or the existing field did not contain a GstFraction, this
1469  * function returns FALSE.
1470  */
1471 gboolean
1472 gst_structure_get_fraction (const GstStructure * structure,
1473     const gchar * fieldname, gint * value_numerator, gint * value_denominator)
1474 {
1475   GstStructureField *field;
1476
1477   g_return_val_if_fail (structure != NULL, FALSE);
1478   g_return_val_if_fail (fieldname != NULL, FALSE);
1479   g_return_val_if_fail (value_numerator != NULL, FALSE);
1480   g_return_val_if_fail (value_denominator != NULL, FALSE);
1481
1482   field = gst_structure_get_field (structure, fieldname);
1483
1484   if (field == NULL)
1485     return FALSE;
1486   if (!GST_VALUE_HOLDS_FRACTION (&field->value))
1487     return FALSE;
1488
1489   *value_numerator = gst_value_get_fraction_numerator (&field->value);
1490   *value_denominator = gst_value_get_fraction_denominator (&field->value);
1491
1492   return TRUE;
1493 }
1494
1495 typedef struct _GstStructureAbbreviation
1496 {
1497   const gchar *type_name;
1498   GType type;
1499 }
1500 GstStructureAbbreviation;
1501
1502 /* return a copy of an array of GstStructureAbbreviation containing all the
1503  * known type_string, GType maps, including abbreviations for common types */
1504 static GstStructureAbbreviation *
1505 gst_structure_get_abbrs (gint * n_abbrs)
1506 {
1507   static GstStructureAbbreviation *abbrs = NULL;
1508   static volatile gsize num = 0;
1509
1510   if (g_once_init_enter (&num)) {
1511     /* dynamically generate the array */
1512     gsize _num;
1513     GstStructureAbbreviation dyn_abbrs[] = {
1514       {"int", G_TYPE_INT}
1515       ,
1516       {"i", G_TYPE_INT}
1517       ,
1518       {"uint", G_TYPE_UINT}
1519       ,
1520       {"u", G_TYPE_UINT}
1521       ,
1522       {"float", G_TYPE_FLOAT}
1523       ,
1524       {"f", G_TYPE_FLOAT}
1525       ,
1526       {"double", G_TYPE_DOUBLE}
1527       ,
1528       {"d", G_TYPE_DOUBLE}
1529       ,
1530       {"buffer", GST_TYPE_BUFFER}
1531       ,
1532       {"fourcc", GST_TYPE_FOURCC}
1533       ,
1534       {"4", GST_TYPE_FOURCC}
1535       ,
1536       {"fraction", GST_TYPE_FRACTION}
1537       ,
1538       {"boolean", G_TYPE_BOOLEAN}
1539       ,
1540       {"bool", G_TYPE_BOOLEAN}
1541       ,
1542       {"b", G_TYPE_BOOLEAN}
1543       ,
1544       {"string", G_TYPE_STRING}
1545       ,
1546       {"str", G_TYPE_STRING}
1547       ,
1548       {"s", G_TYPE_STRING}
1549       ,
1550       {"structure", GST_TYPE_STRUCTURE}
1551       ,
1552       {"datetime", GST_TYPE_DATE_TIME}
1553     };
1554     _num = G_N_ELEMENTS (dyn_abbrs);
1555     /* permanently allocate and copy the array now */
1556     abbrs = g_new0 (GstStructureAbbreviation, _num);
1557     memcpy (abbrs, dyn_abbrs, sizeof (GstStructureAbbreviation) * _num);
1558     g_once_init_leave (&num, _num);
1559   }
1560   *n_abbrs = num;
1561
1562   return abbrs;
1563 }
1564
1565 /* given a type_name that could be a type abbreviation or a registered GType,
1566  * return a matching GType */
1567 static GType
1568 gst_structure_gtype_from_abbr (const char *type_name)
1569 {
1570   int i;
1571   GstStructureAbbreviation *abbrs;
1572   gint n_abbrs;
1573
1574   g_return_val_if_fail (type_name != NULL, G_TYPE_INVALID);
1575
1576   abbrs = gst_structure_get_abbrs (&n_abbrs);
1577
1578   for (i = 0; i < n_abbrs; i++) {
1579     if (strcmp (type_name, abbrs[i].type_name) == 0) {
1580       return abbrs[i].type;
1581     }
1582   }
1583
1584   /* this is the fallback */
1585   return g_type_from_name (type_name);
1586 }
1587
1588 static const char *
1589 gst_structure_to_abbr (GType type)
1590 {
1591   int i;
1592   GstStructureAbbreviation *abbrs;
1593   gint n_abbrs;
1594
1595   g_return_val_if_fail (type != G_TYPE_INVALID, NULL);
1596
1597   abbrs = gst_structure_get_abbrs (&n_abbrs);
1598
1599   for (i = 0; i < n_abbrs; i++) {
1600     if (type == abbrs[i].type) {
1601       return abbrs[i].type_name;
1602     }
1603   }
1604
1605   return g_type_name (type);
1606 }
1607
1608 static GType
1609 gst_structure_value_get_generic_type (GValue * val)
1610 {
1611   if (G_VALUE_TYPE (val) == GST_TYPE_LIST
1612       || G_VALUE_TYPE (val) == GST_TYPE_ARRAY) {
1613     GArray *array = g_value_peek_pointer (val);
1614
1615     if (array->len > 0) {
1616       GValue *value = &g_array_index (array, GValue, 0);
1617
1618       return gst_structure_value_get_generic_type (value);
1619     } else {
1620       return G_TYPE_INT;
1621     }
1622   } else if (G_VALUE_TYPE (val) == GST_TYPE_INT_RANGE) {
1623     return G_TYPE_INT;
1624   } else if (G_VALUE_TYPE (val) == GST_TYPE_DOUBLE_RANGE) {
1625     return G_TYPE_DOUBLE;
1626   } else if (G_VALUE_TYPE (val) == GST_TYPE_FRACTION_RANGE) {
1627     return GST_TYPE_FRACTION;
1628   }
1629   return G_VALUE_TYPE (val);
1630 }
1631
1632 gboolean
1633 priv_gst_structure_append_to_gstring (const GstStructure * structure,
1634     GString * s)
1635 {
1636   GstStructureField *field;
1637   guint i, len;
1638
1639   g_return_val_if_fail (s != NULL, FALSE);
1640
1641   g_string_append (s, g_quark_to_string (structure->name));
1642   len = structure->fields->len;
1643   for (i = 0; i < len; i++) {
1644     char *t;
1645     GType type;
1646
1647     field = GST_STRUCTURE_FIELD (structure, i);
1648
1649     t = gst_value_serialize (&field->value);
1650     type = gst_structure_value_get_generic_type (&field->value);
1651
1652     g_string_append_len (s, ", ", 2);
1653     /* FIXME: do we need to escape fieldnames? */
1654     g_string_append (s, g_quark_to_string (field->name));
1655     g_string_append_len (s, "=(", 2);
1656     g_string_append (s, gst_structure_to_abbr (type));
1657     g_string_append_c (s, ')');
1658     g_string_append (s, t == NULL ? "NULL" : t);
1659     g_free (t);
1660   }
1661
1662   g_string_append_c (s, ';');
1663   return TRUE;
1664 }
1665
1666 /**
1667  * gst_structure_to_string:
1668  * @structure: a #GstStructure
1669  *
1670  * Converts @structure to a human-readable string representation.
1671  *
1672  * For debugging purposes its easier to do something like this:
1673  * |[
1674  * GST_LOG ("structure is %" GST_PTR_FORMAT, structure);
1675  * ]|
1676  * This prints the structure in human readble form.
1677  *
1678  * Returns: a pointer to string allocated by g_malloc(). g_free() after
1679  * usage.
1680  */
1681 gchar *
1682 gst_structure_to_string (const GstStructure * structure)
1683 {
1684   GString *s;
1685
1686   /* NOTE:  This function is potentially called by the debug system,
1687    * so any calls to gst_log() (and GST_DEBUG(), GST_LOG(), etc.)
1688    * should be careful to avoid recursion.  This includes any functions
1689    * called by gst_structure_to_string.  In particular, calls should
1690    * not use the GST_PTR_FORMAT extension.  */
1691
1692   g_return_val_if_fail (structure != NULL, NULL);
1693
1694   /* we estimate a minimum size based on the number of fields in order to
1695    * avoid unnecessary reallocs within GString */
1696   s = g_string_sized_new (STRUCTURE_ESTIMATED_STRING_LEN (structure));
1697   priv_gst_structure_append_to_gstring (structure, s);
1698   return g_string_free (s, FALSE);
1699 }
1700
1701 /*
1702  * r will still point to the string. if end == next, the string will not be
1703  * null-terminated. In all other cases it will be.
1704  * end = pointer to char behind end of string, next = pointer to start of
1705  * unread data.
1706  * THIS FUNCTION MODIFIES THE STRING AND DETECTS INSIDE A NONTERMINATED STRING
1707  */
1708 static gboolean
1709 gst_structure_parse_string (gchar * s, gchar ** end, gchar ** next,
1710     gboolean unescape)
1711 {
1712   gchar *w;
1713
1714   if (*s == 0)
1715     return FALSE;
1716
1717   if (*s != '"') {
1718     int ret;
1719
1720     ret = gst_structure_parse_simple_string (s, end);
1721     *next = *end;
1722
1723     return ret;
1724   }
1725
1726   if (unescape) {
1727     w = s;
1728     s++;
1729     while (*s != '"') {
1730       if (G_UNLIKELY (*s == 0))
1731         return FALSE;
1732       if (G_UNLIKELY (*s == '\\'))
1733         s++;
1734       *w = *s;
1735       w++;
1736       s++;
1737     }
1738     s++;
1739   } else {
1740     /* Find the closing quotes */
1741     s++;
1742     while (*s != '"') {
1743       if (G_UNLIKELY (*s == 0))
1744         return FALSE;
1745       if (G_UNLIKELY (*s == '\\'))
1746         s++;
1747       s++;
1748     }
1749     s++;
1750     w = s;
1751   }
1752
1753   *end = w;
1754   *next = s;
1755
1756   return TRUE;
1757 }
1758
1759 static gboolean
1760 gst_structure_parse_range (gchar * s, gchar ** after, GValue * value,
1761     GType type)
1762 {
1763   GValue value1 = { 0 };
1764   GValue value2 = { 0 };
1765   GType range_type;
1766   gboolean ret;
1767
1768   if (*s != '[')
1769     return FALSE;
1770   s++;
1771
1772   ret = gst_structure_parse_value (s, &s, &value1, type);
1773   if (ret == FALSE)
1774     return FALSE;
1775
1776   while (g_ascii_isspace (*s))
1777     s++;
1778
1779   if (*s != ',')
1780     return FALSE;
1781   s++;
1782
1783   while (g_ascii_isspace (*s))
1784     s++;
1785
1786   ret = gst_structure_parse_value (s, &s, &value2, type);
1787   if (ret == FALSE)
1788     return FALSE;
1789
1790   while (g_ascii_isspace (*s))
1791     s++;
1792
1793   if (*s != ']')
1794     return FALSE;
1795   s++;
1796
1797   if (G_VALUE_TYPE (&value1) != G_VALUE_TYPE (&value2))
1798     return FALSE;
1799
1800   if (G_VALUE_TYPE (&value1) == G_TYPE_DOUBLE) {
1801     range_type = GST_TYPE_DOUBLE_RANGE;
1802     g_value_init (value, range_type);
1803     gst_value_set_double_range (value,
1804         gst_g_value_get_double_unchecked (&value1),
1805         gst_g_value_get_double_unchecked (&value2));
1806   } else if (G_VALUE_TYPE (&value1) == G_TYPE_INT) {
1807     range_type = GST_TYPE_INT_RANGE;
1808     g_value_init (value, range_type);
1809     gst_value_set_int_range (value, gst_g_value_get_int_unchecked (&value1),
1810         gst_g_value_get_int_unchecked (&value2));
1811   } else if (G_VALUE_TYPE (&value1) == GST_TYPE_FRACTION) {
1812     range_type = GST_TYPE_FRACTION_RANGE;
1813     g_value_init (value, range_type);
1814     gst_value_set_fraction_range (value, &value1, &value2);
1815   } else {
1816     return FALSE;
1817   }
1818
1819   *after = s;
1820   return TRUE;
1821 }
1822
1823 static gboolean
1824 gst_structure_parse_any_list (gchar * s, gchar ** after, GValue * value,
1825     GType type, GType list_type, char begin, char end)
1826 {
1827   GValue list_value = { 0 };
1828   gboolean ret;
1829   GArray *array;
1830
1831   g_value_init (value, list_type);
1832   array = g_value_peek_pointer (value);
1833
1834   if (*s != begin)
1835     return FALSE;
1836   s++;
1837
1838   while (g_ascii_isspace (*s))
1839     s++;
1840   if (*s == end) {
1841     s++;
1842     *after = s;
1843     return TRUE;
1844   }
1845
1846   ret = gst_structure_parse_value (s, &s, &list_value, type);
1847   if (ret == FALSE)
1848     return FALSE;
1849
1850   g_array_append_val (array, list_value);
1851
1852   while (g_ascii_isspace (*s))
1853     s++;
1854
1855   while (*s != end) {
1856     if (*s != ',')
1857       return FALSE;
1858     s++;
1859
1860     while (g_ascii_isspace (*s))
1861       s++;
1862
1863     memset (&list_value, 0, sizeof (list_value));
1864     ret = gst_structure_parse_value (s, &s, &list_value, type);
1865     if (ret == FALSE)
1866       return FALSE;
1867
1868     g_array_append_val (array, list_value);
1869     while (g_ascii_isspace (*s))
1870       s++;
1871   }
1872
1873   s++;
1874
1875   *after = s;
1876   return TRUE;
1877 }
1878
1879 static gboolean
1880 gst_structure_parse_list (gchar * s, gchar ** after, GValue * value, GType type)
1881 {
1882   return gst_structure_parse_any_list (s, after, value, type, GST_TYPE_LIST,
1883       '{', '}');
1884 }
1885
1886 static gboolean
1887 gst_structure_parse_array (gchar * s, gchar ** after, GValue * value,
1888     GType type)
1889 {
1890   return gst_structure_parse_any_list (s, after, value, type,
1891       GST_TYPE_ARRAY, '<', '>');
1892 }
1893
1894 static gboolean
1895 gst_structure_parse_simple_string (gchar * str, gchar ** end)
1896 {
1897   char *s = str;
1898
1899   while (G_LIKELY (GST_ASCII_IS_STRING (*s))) {
1900     s++;
1901   }
1902
1903   *end = s;
1904
1905   return (s != str);
1906 }
1907
1908 static gboolean
1909 gst_structure_parse_field (gchar * str,
1910     gchar ** after, GstStructureField * field)
1911 {
1912   gchar *name;
1913   gchar *name_end;
1914   gchar *s;
1915   gchar c;
1916
1917   s = str;
1918
1919   while (g_ascii_isspace (*s) || (s[0] == '\\' && g_ascii_isspace (s[1])))
1920     s++;
1921   name = s;
1922   if (G_UNLIKELY (!gst_structure_parse_simple_string (s, &name_end))) {
1923     GST_WARNING ("failed to parse simple string, str=%s", str);
1924     return FALSE;
1925   }
1926
1927   s = name_end;
1928   while (g_ascii_isspace (*s) || (s[0] == '\\' && g_ascii_isspace (s[1])))
1929     s++;
1930
1931   if (G_UNLIKELY (*s != '=')) {
1932     GST_WARNING ("missing assignment operator in the field, str=%s", str);
1933     return FALSE;
1934   }
1935   s++;
1936
1937   c = *name_end;
1938   *name_end = '\0';
1939   field->name = g_quark_from_string (name);
1940   GST_DEBUG ("trying field name '%s'", name);
1941   *name_end = c;
1942
1943   if (G_UNLIKELY (!gst_structure_parse_value (s, &s, &field->value,
1944               G_TYPE_INVALID))) {
1945     GST_WARNING ("failed to parse value %s", str);
1946     return FALSE;
1947   }
1948
1949   *after = s;
1950   return TRUE;
1951 }
1952
1953 static gboolean
1954 gst_structure_parse_value (gchar * str,
1955     gchar ** after, GValue * value, GType default_type)
1956 {
1957   gchar *type_name;
1958   gchar *type_end;
1959   gchar *value_s;
1960   gchar *value_end;
1961   gchar *s;
1962   gchar c;
1963   int ret = 0;
1964   GType type = default_type;
1965
1966   s = str;
1967   while (g_ascii_isspace (*s))
1968     s++;
1969
1970   /* check if there's a (type_name) 'cast' */
1971   type_name = NULL;
1972   if (*s == '(') {
1973     s++;
1974     while (g_ascii_isspace (*s))
1975       s++;
1976     type_name = s;
1977     if (G_UNLIKELY (!gst_structure_parse_simple_string (s, &type_end)))
1978       return FALSE;
1979     s = type_end;
1980     while (g_ascii_isspace (*s))
1981       s++;
1982     if (G_UNLIKELY (*s != ')'))
1983       return FALSE;
1984     s++;
1985     while (g_ascii_isspace (*s))
1986       s++;
1987
1988     c = *type_end;
1989     *type_end = 0;
1990     type = gst_structure_gtype_from_abbr (type_name);
1991     GST_DEBUG ("trying type name '%s'", type_name);
1992     *type_end = c;
1993
1994     if (G_UNLIKELY (type == G_TYPE_INVALID)) {
1995       GST_WARNING ("invalid type");
1996       return FALSE;
1997     }
1998   }
1999
2000   while (g_ascii_isspace (*s))
2001     s++;
2002   if (*s == '[') {
2003     ret = gst_structure_parse_range (s, &s, value, type);
2004   } else if (*s == '{') {
2005     ret = gst_structure_parse_list (s, &s, value, type);
2006   } else if (*s == '<') {
2007     ret = gst_structure_parse_array (s, &s, value, type);
2008   } else {
2009     value_s = s;
2010
2011     if (G_UNLIKELY (type == G_TYPE_INVALID)) {
2012       GType try_types[] =
2013           { G_TYPE_INT, G_TYPE_DOUBLE, GST_TYPE_FRACTION, G_TYPE_BOOLEAN,
2014         G_TYPE_STRING
2015       };
2016       int i;
2017
2018       if (G_UNLIKELY (!gst_structure_parse_string (s, &value_end, &s, TRUE)))
2019         return FALSE;
2020       /* Set NULL terminator for deserialization */
2021       c = *value_end;
2022       *value_end = '\0';
2023
2024       for (i = 0; i < G_N_ELEMENTS (try_types); i++) {
2025         g_value_init (value, try_types[i]);
2026         ret = gst_value_deserialize (value, value_s);
2027         if (ret)
2028           break;
2029         g_value_unset (value);
2030       }
2031     } else {
2032       g_value_init (value, type);
2033
2034       if (G_UNLIKELY (!gst_structure_parse_string (s, &value_end, &s,
2035                   (type != G_TYPE_STRING))))
2036         return FALSE;
2037       /* Set NULL terminator for deserialization */
2038       c = *value_end;
2039       *value_end = '\0';
2040
2041       ret = gst_value_deserialize (value, value_s);
2042       if (G_UNLIKELY (!ret))
2043         g_value_unset (value);
2044     }
2045     *value_end = c;
2046   }
2047
2048   *after = s;
2049
2050   return ret;
2051 }
2052
2053 /**
2054  * gst_structure_from_string:
2055  * @string: a string representation of a #GstStructure.
2056  * @end: pointer to store the end of the string in.
2057  *
2058  * Creates a #GstStructure from a string representation.
2059  * If end is not NULL, a pointer to the place inside the given string
2060  * where parsing ended will be returned.
2061  *
2062  * Returns: a new #GstStructure or NULL when the string could not
2063  * be parsed. Free with gst_structure_free() after use.
2064  */
2065 GstStructure *
2066 gst_structure_from_string (const gchar * string, gchar ** end)
2067 {
2068   char *name;
2069   char *copy;
2070   char *w;
2071   char *r;
2072   char save;
2073   GstStructure *structure = NULL;
2074   GstStructureField field;
2075
2076   g_return_val_if_fail (string != NULL, NULL);
2077
2078   copy = g_strdup (string);
2079   r = copy;
2080
2081   /* skip spaces (FIXME: _isspace treats tabs and newlines as space!) */
2082   while (*r && (g_ascii_isspace (*r) || (r[0] == '\\'
2083               && g_ascii_isspace (r[1]))))
2084     r++;
2085
2086   name = r;
2087   if (G_UNLIKELY (!gst_structure_parse_string (r, &w, &r, TRUE))) {
2088     GST_WARNING ("Failed to parse structure string '%s'", string);
2089     goto error;
2090   }
2091
2092   save = *w;
2093   *w = '\0';
2094   structure = gst_structure_empty_new (name);
2095   *w = save;
2096
2097   if (G_UNLIKELY (structure == NULL))
2098     goto error;
2099
2100   do {
2101     while (*r && (g_ascii_isspace (*r) || (r[0] == '\\'
2102                 && g_ascii_isspace (r[1]))))
2103       r++;
2104     if (*r == ';') {
2105       /* end of structure, get the next char and finish */
2106       r++;
2107       break;
2108     }
2109     if (*r == '\0') {
2110       /* accept \0 as end delimiter */
2111       break;
2112     }
2113     if (G_UNLIKELY (*r != ',')) {
2114       GST_WARNING ("Failed to find delimiter, r=%s", r);
2115       goto error;
2116     }
2117     r++;
2118     while (*r && (g_ascii_isspace (*r) || (r[0] == '\\'
2119                 && g_ascii_isspace (r[1]))))
2120       r++;
2121
2122     memset (&field, 0, sizeof (field));
2123     if (G_UNLIKELY (!gst_structure_parse_field (r, &r, &field))) {
2124       GST_WARNING ("Failed to parse field, r=%s", r);
2125       goto error;
2126     }
2127     gst_structure_set_field (structure, &field);
2128   } while (TRUE);
2129
2130   if (end)
2131     *end = (char *) string + (r - copy);
2132   else if (*r)
2133     g_warning ("gst_structure_from_string did not consume whole string,"
2134         " but caller did not provide end pointer (\"%s\")", string);
2135
2136   g_free (copy);
2137   return structure;
2138
2139 error:
2140   if (structure)
2141     gst_structure_free (structure);
2142   g_free (copy);
2143   return NULL;
2144 }
2145
2146 static void
2147 gst_structure_transform_to_string (const GValue * src_value,
2148     GValue * dest_value)
2149 {
2150   g_return_if_fail (src_value != NULL);
2151   g_return_if_fail (dest_value != NULL);
2152
2153   dest_value->data[0].v_pointer =
2154       gst_structure_to_string (src_value->data[0].v_pointer);
2155 }
2156
2157 static GstStructure *
2158 gst_structure_copy_conditional (const GstStructure * structure)
2159 {
2160   if (structure)
2161     return gst_structure_copy (structure);
2162   return NULL;
2163 }
2164
2165 /* fixate utility functions */
2166
2167 /**
2168  * gst_structure_fixate_field_nearest_int:
2169  * @structure: a #GstStructure
2170  * @field_name: a field in @structure
2171  * @target: the target value of the fixation
2172  *
2173  * Fixates a #GstStructure by changing the given field to the nearest
2174  * integer to @target that is a subset of the existing field.
2175  *
2176  * Returns: TRUE if the structure could be fixated
2177  */
2178 gboolean
2179 gst_structure_fixate_field_nearest_int (GstStructure * structure,
2180     const char *field_name, int target)
2181 {
2182   const GValue *value;
2183
2184   g_return_val_if_fail (gst_structure_has_field (structure, field_name), FALSE);
2185   g_return_val_if_fail (IS_MUTABLE (structure), FALSE);
2186
2187   value = gst_structure_get_value (structure, field_name);
2188
2189   if (G_VALUE_TYPE (value) == G_TYPE_INT) {
2190     /* already fixed */
2191     return FALSE;
2192   } else if (G_VALUE_TYPE (value) == GST_TYPE_INT_RANGE) {
2193     int x;
2194
2195     x = gst_value_get_int_range_min (value);
2196     if (target < x)
2197       target = x;
2198     x = gst_value_get_int_range_max (value);
2199     if (target > x)
2200       target = x;
2201     gst_structure_set (structure, field_name, G_TYPE_INT, target, NULL);
2202     return TRUE;
2203   } else if (G_VALUE_TYPE (value) == GST_TYPE_LIST) {
2204     const GValue *list_value;
2205     int i, n;
2206     int best = 0;
2207     int best_index = -1;
2208
2209     n = gst_value_list_get_size (value);
2210     for (i = 0; i < n; i++) {
2211       list_value = gst_value_list_get_value (value, i);
2212       if (G_VALUE_TYPE (list_value) == G_TYPE_INT) {
2213         int x = gst_g_value_get_int_unchecked (list_value);
2214
2215         if (best_index == -1 || (ABS (target - x) < ABS (target - best))) {
2216           best_index = i;
2217           best = x;
2218         }
2219       }
2220     }
2221     if (best_index != -1) {
2222       gst_structure_set (structure, field_name, G_TYPE_INT, best, NULL);
2223       return TRUE;
2224     }
2225     return FALSE;
2226   }
2227
2228   return FALSE;
2229 }
2230
2231 /**
2232  * gst_structure_fixate_field_nearest_double:
2233  * @structure: a #GstStructure
2234  * @field_name: a field in @structure
2235  * @target: the target value of the fixation
2236  *
2237  * Fixates a #GstStructure by changing the given field to the nearest
2238  * double to @target that is a subset of the existing field.
2239  *
2240  * Returns: TRUE if the structure could be fixated
2241  */
2242 gboolean
2243 gst_structure_fixate_field_nearest_double (GstStructure * structure,
2244     const char *field_name, double target)
2245 {
2246   const GValue *value;
2247
2248   g_return_val_if_fail (gst_structure_has_field (structure, field_name), FALSE);
2249   g_return_val_if_fail (IS_MUTABLE (structure), FALSE);
2250
2251   value = gst_structure_get_value (structure, field_name);
2252
2253   if (G_VALUE_TYPE (value) == G_TYPE_DOUBLE) {
2254     /* already fixed */
2255     return FALSE;
2256   } else if (G_VALUE_TYPE (value) == GST_TYPE_DOUBLE_RANGE) {
2257     double x;
2258
2259     x = gst_value_get_double_range_min (value);
2260     if (target < x)
2261       target = x;
2262     x = gst_value_get_double_range_max (value);
2263     if (target > x)
2264       target = x;
2265     gst_structure_set (structure, field_name, G_TYPE_DOUBLE, target, NULL);
2266     return TRUE;
2267   } else if (G_VALUE_TYPE (value) == GST_TYPE_LIST) {
2268     const GValue *list_value;
2269     int i, n;
2270     double best = 0;
2271     int best_index = -1;
2272
2273     n = gst_value_list_get_size (value);
2274     for (i = 0; i < n; i++) {
2275       list_value = gst_value_list_get_value (value, i);
2276       if (G_VALUE_TYPE (list_value) == G_TYPE_DOUBLE) {
2277         double x = gst_g_value_get_double_unchecked (list_value);
2278
2279         if (best_index == -1 || (ABS (target - x) < ABS (target - best))) {
2280           best_index = i;
2281           best = x;
2282         }
2283       }
2284     }
2285     if (best_index != -1) {
2286       gst_structure_set (structure, field_name, G_TYPE_DOUBLE, best, NULL);
2287       return TRUE;
2288     }
2289     return FALSE;
2290   }
2291
2292   return FALSE;
2293
2294 }
2295
2296 /**
2297  * gst_structure_fixate_field_boolean:
2298  * @structure: a #GstStructure
2299  * @field_name: a field in @structure
2300  * @target: the target value of the fixation
2301  *
2302  * Fixates a #GstStructure by changing the given @field_name field to the given
2303  * @target boolean if that field is not fixed yet.
2304  *
2305  * Returns: TRUE if the structure could be fixated
2306  */
2307 gboolean
2308 gst_structure_fixate_field_boolean (GstStructure * structure,
2309     const char *field_name, gboolean target)
2310 {
2311   const GValue *value;
2312
2313   g_return_val_if_fail (gst_structure_has_field (structure, field_name), FALSE);
2314   g_return_val_if_fail (IS_MUTABLE (structure), FALSE);
2315
2316   value = gst_structure_get_value (structure, field_name);
2317
2318   if (G_VALUE_TYPE (value) == G_TYPE_BOOLEAN) {
2319     /* already fixed */
2320     return FALSE;
2321   } else if (G_VALUE_TYPE (value) == GST_TYPE_LIST) {
2322     const GValue *list_value;
2323     int i, n;
2324     int best = 0;
2325     int best_index = -1;
2326
2327     n = gst_value_list_get_size (value);
2328     for (i = 0; i < n; i++) {
2329       list_value = gst_value_list_get_value (value, i);
2330       if (G_VALUE_TYPE (list_value) == G_TYPE_BOOLEAN) {
2331         gboolean x = gst_g_value_get_boolean_unchecked (list_value);
2332
2333         if (best_index == -1 || x == target) {
2334           best_index = i;
2335           best = x;
2336         }
2337       }
2338     }
2339     if (best_index != -1) {
2340       gst_structure_set (structure, field_name, G_TYPE_BOOLEAN, best, NULL);
2341       return TRUE;
2342     }
2343     return FALSE;
2344   }
2345
2346   return FALSE;
2347 }
2348
2349 /**
2350  * gst_structure_fixate_field_string:
2351  * @structure: a #GstStructure
2352  * @field_name: a field in @structure
2353  * @target: the target value of the fixation
2354  *
2355  * Fixates a #GstStructure by changing the given @field_name field to the given
2356  * @target string if that field is not fixed yet.
2357  *
2358  * Returns: TRUE if the structure could be fixated
2359  *
2360  * Since: 0.10.30
2361  */
2362 gboolean
2363 gst_structure_fixate_field_string (GstStructure * structure,
2364     const gchar * field_name, const gchar * target)
2365 {
2366   const GValue *value;
2367
2368   g_return_val_if_fail (gst_structure_has_field (structure, field_name), FALSE);
2369   g_return_val_if_fail (IS_MUTABLE (structure), FALSE);
2370
2371   value = gst_structure_get_value (structure, field_name);
2372
2373   if (G_VALUE_TYPE (value) == G_TYPE_STRING) {
2374     /* already fixed */
2375     return FALSE;
2376   } else if (G_VALUE_TYPE (value) == GST_TYPE_LIST) {
2377     const GValue *list_value;
2378     int i, n;
2379     const gchar *best = NULL;
2380     int best_index = -1;
2381
2382     n = gst_value_list_get_size (value);
2383     for (i = 0; i < n; i++) {
2384       list_value = gst_value_list_get_value (value, i);
2385       if (G_VALUE_TYPE (list_value) == G_TYPE_STRING) {
2386         const gchar *x = g_value_get_string (list_value);
2387
2388         if (best_index == -1 || g_str_equal (x, target)) {
2389           best_index = i;
2390           best = x;
2391         }
2392       }
2393     }
2394     if (best_index != -1) {
2395       gst_structure_set (structure, field_name, G_TYPE_STRING, best, NULL);
2396       return TRUE;
2397     }
2398     return FALSE;
2399   }
2400
2401   return FALSE;
2402 }
2403
2404 /**
2405  * gst_structure_fixate_field_nearest_fraction:
2406  * @structure: a #GstStructure
2407  * @field_name: a field in @structure
2408  * @target_numerator: The numerator of the target value of the fixation
2409  * @target_denominator: The denominator of the target value of the fixation
2410  *
2411  * Fixates a #GstStructure by changing the given field to the nearest
2412  * fraction to @target_numerator/@target_denominator that is a subset
2413  * of the existing field.
2414  *
2415  * Returns: TRUE if the structure could be fixated
2416  */
2417 gboolean
2418 gst_structure_fixate_field_nearest_fraction (GstStructure * structure,
2419     const char *field_name, const gint target_numerator,
2420     const gint target_denominator)
2421 {
2422   const GValue *value;
2423
2424   g_return_val_if_fail (gst_structure_has_field (structure, field_name), FALSE);
2425   g_return_val_if_fail (IS_MUTABLE (structure), FALSE);
2426
2427   value = gst_structure_get_value (structure, field_name);
2428
2429   if (G_VALUE_TYPE (value) == GST_TYPE_FRACTION) {
2430     /* already fixed */
2431     return FALSE;
2432   } else if (G_VALUE_TYPE (value) == GST_TYPE_FRACTION_RANGE) {
2433     const GValue *x, *new_value;
2434     GValue target = { 0 };
2435     g_value_init (&target, GST_TYPE_FRACTION);
2436     gst_value_set_fraction (&target, target_numerator, target_denominator);
2437
2438     new_value = &target;
2439     x = gst_value_get_fraction_range_min (value);
2440     if (gst_value_compare (&target, x) == GST_VALUE_LESS_THAN)
2441       new_value = x;
2442     x = gst_value_get_fraction_range_max (value);
2443     if (gst_value_compare (&target, x) == GST_VALUE_GREATER_THAN)
2444       new_value = x;
2445
2446     gst_structure_set_value (structure, field_name, new_value);
2447     g_value_unset (&target);
2448     return TRUE;
2449   } else if (G_VALUE_TYPE (value) == GST_TYPE_LIST) {
2450     const GValue *list_value;
2451     int i, n;
2452     const GValue *best = NULL;
2453     gdouble target;
2454     gdouble cur_diff;
2455     gdouble best_diff = G_MAXDOUBLE;
2456
2457     target = (gdouble) target_numerator / (gdouble) target_denominator;
2458
2459     GST_DEBUG ("target %g, best %g", target, best_diff);
2460
2461     best = NULL;
2462
2463     n = gst_value_list_get_size (value);
2464     for (i = 0; i < n; i++) {
2465       list_value = gst_value_list_get_value (value, i);
2466       if (G_VALUE_TYPE (list_value) == GST_TYPE_FRACTION) {
2467         gint num, denom;
2468         gdouble list_double;
2469
2470         num = gst_value_get_fraction_numerator (list_value);
2471         denom = gst_value_get_fraction_denominator (list_value);
2472
2473         list_double = ((gdouble) num / (gdouble) denom);
2474         cur_diff = target - list_double;
2475
2476         GST_DEBUG ("curr diff %g, list %g", cur_diff, list_double);
2477
2478         if (cur_diff < 0)
2479           cur_diff = -cur_diff;
2480
2481         if (!best || cur_diff < best_diff) {
2482           GST_DEBUG ("new best %g", list_double);
2483           best = list_value;
2484           best_diff = cur_diff;
2485         }
2486       }
2487     }
2488     if (best != NULL) {
2489       gst_structure_set_value (structure, field_name, best);
2490       return TRUE;
2491     }
2492   }
2493
2494   return FALSE;
2495 }
2496
2497 /* our very own version of G_VALUE_LCOPY that allows NULL return locations
2498  * (useful for message parsing functions where the return location is user
2499  * supplied and the user may pass NULL if the value isn't of interest) */
2500 #define GST_VALUE_LCOPY(value, var_args, flags, __error, fieldname)           \
2501 G_STMT_START {                                                                \
2502   const GValue *_value = (value);                                             \
2503   guint _flags = (flags);                                                     \
2504   GType _value_type = G_VALUE_TYPE (_value);                                  \
2505   GTypeValueTable *_vtable = g_type_value_table_peek (_value_type);           \
2506   gchar *_lcopy_format = _vtable->lcopy_format;                               \
2507   GTypeCValue _cvalues[G_VALUE_COLLECT_FORMAT_MAX_LENGTH] = { { 0, }, };      \
2508   guint _n_values = 0;                                                        \
2509                                                                               \
2510   while (*_lcopy_format != '\0') {                                            \
2511     g_assert (*_lcopy_format == G_VALUE_COLLECT_POINTER);                     \
2512     _cvalues[_n_values++].v_pointer = va_arg ((var_args), gpointer);          \
2513     _lcopy_format++;                                                          \
2514   }                                                                           \
2515   if (_n_values == 2 && !!_cvalues[0].v_pointer != !!_cvalues[1].v_pointer) { \
2516     *(__error) = g_strdup_printf ("either all or none of the return "         \
2517         "locations for field '%s' need to be NULL", fieldname);               \
2518   } else if (_cvalues[0].v_pointer != NULL) {                                 \
2519     *(__error) = _vtable->lcopy_value (_value, _n_values, _cvalues, _flags);  \
2520   }                                                                           \
2521 } G_STMT_END
2522
2523 /**
2524  * gst_structure_get_valist:
2525  * @structure: a #GstStructure
2526  * @first_fieldname: the name of the first field to read
2527  * @args: variable arguments
2528  *
2529  * Parses the variable arguments and reads fields from @structure accordingly.
2530  * valist-variant of gst_structure_get(). Look at the documentation of
2531  * gst_structure_get() for more details.
2532  *
2533  * Returns: TRUE, or FALSE if there was a problem reading any of the fields
2534  *
2535  * Since: 0.10.24
2536  */
2537 gboolean
2538 gst_structure_get_valist (const GstStructure * structure,
2539     const char *first_fieldname, va_list args)
2540 {
2541   const char *field_name;
2542   GType expected_type = G_TYPE_INVALID;
2543
2544   g_return_val_if_fail (GST_IS_STRUCTURE (structure), FALSE);
2545   g_return_val_if_fail (first_fieldname != NULL, FALSE);
2546
2547   field_name = first_fieldname;
2548   while (field_name) {
2549     const GValue *val = NULL;
2550     gchar *err = NULL;
2551
2552     expected_type = va_arg (args, GType);
2553
2554     val = gst_structure_get_value (structure, field_name);
2555
2556     if (val == NULL)
2557       goto no_such_field;
2558
2559     if (G_VALUE_TYPE (val) != expected_type)
2560       goto wrong_type;
2561
2562     GST_VALUE_LCOPY (val, args, 0, &err, field_name);
2563     if (err) {
2564       g_warning ("%s: %s", G_STRFUNC, err);
2565       g_free (err);
2566       return FALSE;
2567     }
2568
2569     field_name = va_arg (args, const gchar *);
2570   }
2571
2572   return TRUE;
2573
2574 /* ERRORS */
2575 no_such_field:
2576   {
2577     GST_WARNING ("Expected field '%s' in structure: %" GST_PTR_FORMAT,
2578         field_name, structure);
2579     return FALSE;
2580   }
2581 wrong_type:
2582   {
2583     GST_WARNING ("Expected field '%s' in structure to be of type '%s', but "
2584         "field was of type '%s': %" GST_PTR_FORMAT, field_name,
2585         GST_STR_NULL (g_type_name (expected_type)),
2586         G_VALUE_TYPE_NAME (gst_structure_get_value (structure, field_name)),
2587         structure);
2588     return FALSE;
2589   }
2590 }
2591
2592 /**
2593  * gst_structure_id_get_valist:
2594  * @structure: a #GstStructure
2595  * @first_field_id: the quark of the first field to read
2596  * @args: variable arguments
2597  *
2598  * Parses the variable arguments and reads fields from @structure accordingly.
2599  * valist-variant of gst_structure_id_get(). Look at the documentation of
2600  * gst_structure_id_get() for more details.
2601  *
2602  * Returns: TRUE, or FALSE if there was a problem reading any of the fields
2603  *
2604  * Since: 0.10.24
2605  */
2606 gboolean
2607 gst_structure_id_get_valist (const GstStructure * structure,
2608     GQuark first_field_id, va_list args)
2609 {
2610   GQuark field_id;
2611   GType expected_type = G_TYPE_INVALID;
2612
2613   g_return_val_if_fail (GST_IS_STRUCTURE (structure), FALSE);
2614   g_return_val_if_fail (first_field_id != 0, FALSE);
2615
2616   field_id = first_field_id;
2617   while (field_id) {
2618     const GValue *val = NULL;
2619     gchar *err = NULL;
2620
2621     expected_type = va_arg (args, GType);
2622
2623     val = gst_structure_id_get_value (structure, field_id);
2624
2625     if (val == NULL)
2626       goto no_such_field;
2627
2628     if (G_VALUE_TYPE (val) != expected_type)
2629       goto wrong_type;
2630
2631     GST_VALUE_LCOPY (val, args, 0, &err, g_quark_to_string (field_id));
2632     if (err) {
2633       g_warning ("%s: %s", G_STRFUNC, err);
2634       g_free (err);
2635       return FALSE;
2636     }
2637
2638     field_id = va_arg (args, GQuark);
2639   }
2640
2641   return TRUE;
2642
2643 /* ERRORS */
2644 no_such_field:
2645   {
2646     GST_WARNING ("Expected field '%s' in structure: %" GST_PTR_FORMAT,
2647         GST_STR_NULL (g_quark_to_string (field_id)), structure);
2648     return FALSE;
2649   }
2650 wrong_type:
2651   {
2652     GST_WARNING ("Expected field '%s' in structure to be of type '%s', but "
2653         "field was of type '%s': %" GST_PTR_FORMAT,
2654         g_quark_to_string (field_id),
2655         GST_STR_NULL (g_type_name (expected_type)),
2656         G_VALUE_TYPE_NAME (gst_structure_id_get_value (structure, field_id)),
2657         structure);
2658     return FALSE;
2659   }
2660 }
2661
2662 /**
2663  * gst_structure_get:
2664  * @structure: a #GstStructure
2665  * @first_fieldname: the name of the first field to read
2666  * @...: variable arguments
2667  *
2668  * Parses the variable arguments and reads fields from @structure accordingly.
2669  * Variable arguments should be in the form field name, field type
2670  * (as a GType), pointer(s) to a variable(s) to hold the return value(s).
2671  * The last variable argument should be NULL.
2672  *
2673  * For refcounted (mini)objects you will acquire your own reference which
2674  * you must release with a suitable _unref() when no longer needed. For
2675  * strings and boxed types you will acquire a copy which you will need to
2676  * release with either g_free() or the suiteable function for the boxed type.
2677  *
2678  * Returns: FALSE if there was a problem reading any of the fields (e.g.
2679  *     because the field requested did not exist, or was of a type other
2680  *     than the type specified), otherwise TRUE.
2681  *
2682  * Since: 0.10.24
2683  */
2684 gboolean
2685 gst_structure_get (const GstStructure * structure, const char *first_fieldname,
2686     ...)
2687 {
2688   gboolean ret;
2689   va_list args;
2690
2691   g_return_val_if_fail (GST_IS_STRUCTURE (structure), FALSE);
2692   g_return_val_if_fail (first_fieldname != NULL, FALSE);
2693
2694   va_start (args, first_fieldname);
2695   ret = gst_structure_get_valist (structure, first_fieldname, args);
2696   va_end (args);
2697
2698   return ret;
2699 }
2700
2701 /**
2702  * gst_structure_id_get:
2703  * @structure: a #GstStructure
2704  * @first_field_id: the quark of the first field to read
2705  * @...: variable arguments
2706  *
2707  * Parses the variable arguments and reads fields from @structure accordingly.
2708  * Variable arguments should be in the form field id quark, field type
2709  * (as a GType), pointer(s) to a variable(s) to hold the return value(s).
2710  * The last variable argument should be NULL (technically it should be a
2711  * 0 quark, but we require NULL so compilers that support it can check for
2712  * the NULL terminator and warn if it's not there).
2713  *
2714  * This function is just like gst_structure_get() only that it is slightly
2715  * more efficient since it saves the string-to-quark lookup in the global
2716  * quark hashtable.
2717  *
2718  * For refcounted (mini)objects you will acquire your own reference which
2719  * you must release with a suitable _unref() when no longer needed. For
2720  * strings and boxed types you will acquire a copy which you will need to
2721  * release with either g_free() or the suiteable function for the boxed type.
2722  *
2723  * Returns: FALSE if there was a problem reading any of the fields (e.g.
2724  *     because the field requested did not exist, or was of a type other
2725  *     than the type specified), otherwise TRUE.
2726  *
2727  * Since: 0.10.24
2728  */
2729 gboolean
2730 gst_structure_id_get (const GstStructure * structure, GQuark first_field_id,
2731     ...)
2732 {
2733   gboolean ret;
2734   va_list args;
2735
2736   g_return_val_if_fail (GST_IS_STRUCTURE (structure), FALSE);
2737   g_return_val_if_fail (first_field_id != 0, FALSE);
2738
2739   va_start (args, first_field_id);
2740   ret = gst_structure_id_get_valist (structure, first_field_id, args);
2741   va_end (args);
2742
2743   return ret;
2744 }