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