sys/v4l2/gstv4l2videodec.c

   1 /*
   2  * Copyright (C) 2014 Collabora Ltd.
   3  *     Author: Nicolas Dufresne <nicolas.dufresne@collabora.com>
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Library General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Library General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Library General Public
  16  * License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
  18  * Boston, MA 02110-1301, USA.
  19  *
  20  */
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include "config.h"
  24 #endif
  25
  26 #include <sys/stat.h>
  27 #include <fcntl.h>
  28 #include <errno.h>
  29 #include <unistd.h>
  30 #include <string.h>
  31
  32 #include "gstv4l2object.h"
  33 #include "gstv4l2videodec.h"
  34
  35 #include <string.h>
  36 #include <gst/gst-i18n-plugin.h>
  37
  38 GST_DEBUG_CATEGORY_STATIC (gst_v4l2_video_dec_debug);
  39 #define GST_CAT_DEFAULT gst_v4l2_video_dec_debug
  40
  41 typedef struct
  42 {
  43   gchar *device;
  44   GstCaps *sink_caps;
  45   GstCaps *src_caps;
  46   const gchar *longname;
  47   const gchar *description;
  48 } GstV4l2VideoDecCData;
  49
  50 enum
  51 {
  52   PROP_0,
  53   V4L2_STD_OBJECT_PROPS
  54 };
  55
  56 #define gst_v4l2_video_dec_parent_class parent_class
  57 G_DEFINE_ABSTRACT_TYPE (GstV4l2VideoDec, gst_v4l2_video_dec,
  58     GST_TYPE_VIDEO_DECODER);
  59
  60 static GstFlowReturn gst_v4l2_video_dec_finish (GstVideoDecoder * decoder);
  61
  62 static void
  63 gst_v4l2_video_dec_set_property (GObject * object,
  64     guint prop_id, const GValue * value, GParamSpec * pspec)
  65 {
  66   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (object);
  67
  68   switch (prop_id) {
  69     case PROP_CAPTURE_IO_MODE:
  70       if (!gst_v4l2_object_set_property_helper (self->v4l2capture,
  71               prop_id, value, pspec)) {
  72         G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
  73       }
  74       break;
  75
  76       /* By default, only set on output */
  77     default:
  78       if (!gst_v4l2_object_set_property_helper (self->v4l2output,
  79               prop_id, value, pspec)) {
  80         G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
  81       }
  82       break;
  83   }
  84 }
  85
  86 static void
  87 gst_v4l2_video_dec_get_property (GObject * object,
  88     guint prop_id, GValue * value, GParamSpec * pspec)
  89 {
  90   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (object);
  91
  92   switch (prop_id) {
  93     case PROP_CAPTURE_IO_MODE:
  94       if (!gst_v4l2_object_get_property_helper (self->v4l2capture,
  95               prop_id, value, pspec)) {
  96         G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
  97       }
  98       break;
  99
 100       /* By default read from output */
 101     default:
 102       if (!gst_v4l2_object_get_property_helper (self->v4l2output,
 103               prop_id, value, pspec)) {
 104         G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 105       }
 106       break;
 107   }
 108 }
 109
 110 static gboolean
 111 gst_v4l2_video_dec_open (GstVideoDecoder * decoder)
 112 {
 113   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 114   GstCaps *codec_caps;
 115
 116   GST_DEBUG_OBJECT (self, "Opening");
 117
 118   if (!gst_v4l2_object_open (self->v4l2output))
 119     goto failure;
 120
 121   if (!gst_v4l2_object_open_shared (self->v4l2capture, self->v4l2output))
 122     goto failure;
 123
 124   codec_caps = gst_pad_get_pad_template_caps (decoder->sinkpad);
 125   self->probed_sinkcaps = gst_v4l2_object_probe_caps (self->v4l2output,
 126       codec_caps);
 127   gst_caps_unref (codec_caps);
 128
 129   if (gst_caps_is_empty (self->probed_sinkcaps))
 130     goto no_encoded_format;
 131
 132   self->probed_srccaps = gst_v4l2_object_probe_caps (self->v4l2capture,
 133       gst_v4l2_object_get_raw_caps ());
 134
 135   if (gst_caps_is_empty (self->probed_srccaps))
 136     goto no_raw_format;
 137
 138   return TRUE;
 139
 140 no_encoded_format:
 141   GST_ELEMENT_ERROR (self, RESOURCE, SETTINGS,
 142       (_("Decoder on device %s has no supported input format"),
 143           self->v4l2output->videodev), (NULL));
 144   goto failure;
 145
 146
 147 no_raw_format:
 148   GST_ELEMENT_ERROR (self, RESOURCE, SETTINGS,
 149       (_("Decoder on device %s has no supported output format"),
 150           self->v4l2output->videodev), (NULL));
 151   goto failure;
 152
 153 failure:
 154   if (GST_V4L2_IS_OPEN (self->v4l2output))
 155     gst_v4l2_object_close (self->v4l2output);
 156
 157   if (GST_V4L2_IS_OPEN (self->v4l2capture))
 158     gst_v4l2_object_close (self->v4l2capture);
 159
 160   gst_caps_replace (&self->probed_srccaps, NULL);
 161   gst_caps_replace (&self->probed_sinkcaps, NULL);
 162
 163   return FALSE;
 164 }
 165
 166 static gboolean
 167 gst_v4l2_video_dec_close (GstVideoDecoder * decoder)
 168 {
 169   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 170
 171   GST_DEBUG_OBJECT (self, "Closing");
 172
 173   gst_v4l2_object_close (self->v4l2output);
 174   gst_v4l2_object_close (self->v4l2capture);
 175   gst_caps_replace (&self->probed_srccaps, NULL);
 176   gst_caps_replace (&self->probed_sinkcaps, NULL);
 177
 178   return TRUE;
 179 }
 180
 181 static gboolean
 182 gst_v4l2_video_dec_start (GstVideoDecoder * decoder)
 183 {
 184   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 185
 186   GST_DEBUG_OBJECT (self, "Starting");
 187
 188   gst_v4l2_object_unlock (self->v4l2output);
 189   g_atomic_int_set (&self->active, TRUE);
 190   self->output_flow = GST_FLOW_OK;
 191
 192   return TRUE;
 193 }
 194
 195 static gboolean
 196 gst_v4l2_video_dec_stop (GstVideoDecoder * decoder)
 197 {
 198   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 199
 200   GST_DEBUG_OBJECT (self, "Stopping");
 201
 202   gst_v4l2_object_unlock (self->v4l2output);
 203   gst_v4l2_object_unlock (self->v4l2capture);
 204
 205   /* Wait for capture thread to stop */
 206   gst_pad_stop_task (decoder->srcpad);
 207
 208   GST_VIDEO_DECODER_STREAM_LOCK (decoder);
 209   self->output_flow = GST_FLOW_OK;
 210   GST_VIDEO_DECODER_STREAM_UNLOCK (decoder);
 211
 212   /* Should have been flushed already */
 213   g_assert (g_atomic_int_get (&self->active) == FALSE);
 214
 215   gst_v4l2_object_stop (self->v4l2output);
 216   gst_v4l2_object_stop (self->v4l2capture);
 217
 218   if (self->input_state) {
 219     gst_video_codec_state_unref (self->input_state);
 220     self->input_state = NULL;
 221   }
 222
 223   GST_DEBUG_OBJECT (self, "Stopped");
 224
 225   return TRUE;
 226 }
 227
 228 static gboolean
 229 gst_v4l2_video_dec_set_format (GstVideoDecoder * decoder,
 230     GstVideoCodecState * state)
 231 {
 232   GstV4l2Error error = GST_V4L2_ERROR_INIT;
 233   gboolean ret = TRUE;
 234   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 235
 236   GST_DEBUG_OBJECT (self, "Setting format: %" GST_PTR_FORMAT, state->caps);
 237
 238   if (self->input_state) {
 239     if (gst_v4l2_object_caps_equal (self->v4l2output, state->caps)) {
 240       GST_DEBUG_OBJECT (self, "Compatible caps");
 241       goto done;
 242     }
 243     gst_video_codec_state_unref (self->input_state);
 244     self->input_state = NULL;
 245
 246     gst_v4l2_video_dec_finish (decoder);
 247     gst_v4l2_object_stop (self->v4l2output);
 248
 249     /* The renegotiation flow don't blend with the base class flow. To
 250      * properly stop the capture pool we need to reclaim our buffers, which
 251      * will happend through the allocation query. The allocation query is
 252      * triggered by gst_video_decoder_negotiate() which requires the output
 253      * caps to be set, but we can't know this information as we rely on the
 254      * decoder, which requires the capture queue to be stopped.
 255      *
 256      * To workaround this issue, we simply run an allocation query with the
 257      * old negotiated caps in order to drain/reclaim our buffers. That breaks
 258      * the complexity and should not have much impact in performance since the
 259      * following allocation query will happen on a drained pipeline and won't
 260      * block. */
 261     {
 262       GstCaps *caps = gst_pad_get_current_caps (decoder->srcpad);
 263       if (caps) {
 264         GstQuery *query = gst_query_new_allocation (caps, FALSE);
 265         gst_pad_peer_query (decoder->srcpad, query);
 266         gst_query_unref (query);
 267         gst_caps_unref (caps);
 268       }
 269     }
 270
 271     gst_v4l2_object_stop (self->v4l2capture);
 272     self->output_flow = GST_FLOW_OK;
 273   }
 274
 275   ret = gst_v4l2_object_set_format (self->v4l2output, state->caps, &error);
 276
 277   if (ret)
 278     self->input_state = gst_video_codec_state_ref (state);
 279   else
 280     gst_v4l2_error (self, &error);
 281
 282 done:
 283   return ret;
 284 }
 285
 286 static gboolean
 287 gst_v4l2_video_dec_flush (GstVideoDecoder * decoder)
 288 {
 289   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 290
 291   GST_DEBUG_OBJECT (self, "Flushed");
 292
 293   /* Ensure the processing thread has stopped for the reverse playback
 294    * discount case */
 295   if (gst_pad_get_task_state (decoder->srcpad) == GST_TASK_STARTED) {
 296     GST_VIDEO_DECODER_STREAM_UNLOCK (decoder);
 297
 298     gst_v4l2_object_unlock (self->v4l2output);
 299     gst_v4l2_object_unlock (self->v4l2capture);
 300     gst_pad_stop_task (decoder->srcpad);
 301     GST_VIDEO_DECODER_STREAM_LOCK (decoder);
 302   }
 303
 304   self->output_flow = GST_FLOW_OK;
 305
 306   gst_v4l2_object_unlock_stop (self->v4l2output);
 307   gst_v4l2_object_unlock_stop (self->v4l2capture);
 308
 309   if (self->v4l2output->pool)
 310     gst_v4l2_buffer_pool_flush (self->v4l2output->pool);
 311
 312   /* gst_v4l2_buffer_pool_flush() calls streamon the capture pool and must be
 313    * called after gst_v4l2_object_unlock_stop() stopped flushing the buffer
 314    * pool. */
 315   if (self->v4l2capture->pool)
 316     gst_v4l2_buffer_pool_flush (self->v4l2capture->pool);
 317
 318   return TRUE;
 319 }
 320
 321 static gboolean
 322 gst_v4l2_video_dec_negotiate (GstVideoDecoder * decoder)
 323 {
 324   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 325
 326   /* We don't allow renegotiation without carefull disabling the pool */
 327   if (self->v4l2capture->pool &&
 328       gst_buffer_pool_is_active (GST_BUFFER_POOL (self->v4l2capture->pool)))
 329     return TRUE;
 330
 331   return GST_VIDEO_DECODER_CLASS (parent_class)->negotiate (decoder);
 332 }
 333
 334 static gboolean
 335 gst_v4l2_decoder_cmd (GstV4l2Object * v4l2object, guint cmd, guint flags)
 336 {
 337   struct v4l2_decoder_cmd dcmd = { 0, };
 338
 339   GST_DEBUG_OBJECT (v4l2object->element,
 340       "sending v4l2 decoder command %u with flags %u", cmd, flags);
 341
 342   if (!GST_V4L2_IS_OPEN (v4l2object))
 343     return FALSE;
 344
 345   dcmd.cmd = cmd;
 346   dcmd.flags = flags;
 347   if (v4l2object->ioctl (v4l2object->video_fd, VIDIOC_DECODER_CMD, &dcmd) < 0)
 348     goto dcmd_failed;
 349
 350   return TRUE;
 351
 352 dcmd_failed:
 353   if (errno == ENOTTY) {
 354     GST_INFO_OBJECT (v4l2object->element,
 355         "Failed to send decoder command %u with flags %u for '%s'. (%s)",
 356         cmd, flags, v4l2object->videodev, g_strerror (errno));
 357   } else {
 358     GST_ERROR_OBJECT (v4l2object->element,
 359         "Failed to send decoder command %u with flags %u for '%s'. (%s)",
 360         cmd, flags, v4l2object->videodev, g_strerror (errno));
 361   }
 362   return FALSE;
 363 }
 364
 365 static GstFlowReturn
 366 gst_v4l2_video_dec_finish (GstVideoDecoder * decoder)
 367 {
 368   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 369   GstFlowReturn ret = GST_FLOW_OK;
 370   GstBuffer *buffer;
 371
 372   if (gst_pad_get_task_state (decoder->srcpad) != GST_TASK_STARTED)
 373     goto done;
 374
 375   GST_DEBUG_OBJECT (self, "Finishing decoding");
 376
 377   GST_VIDEO_DECODER_STREAM_UNLOCK (decoder);
 378
 379   if (gst_v4l2_decoder_cmd (self->v4l2output, V4L2_DEC_CMD_STOP, 0)) {
 380     GstTask *task = decoder->srcpad->task;
 381
 382     /* If the decoder stop command succeeded, just wait until processing is
 383      * finished */
 384     GST_OBJECT_LOCK (task);
 385     while (GST_TASK_STATE (task) == GST_TASK_STARTED)
 386       GST_TASK_WAIT (task);
 387     GST_OBJECT_UNLOCK (task);
 388     ret = GST_FLOW_FLUSHING;
 389   } else {
 390     /* otherwise keep queuing empty buffers until the processing thread has
 391      * stopped, _pool_process() will return FLUSHING when that happened */
 392     while (ret == GST_FLOW_OK) {
 393       buffer = gst_buffer_new ();
 394       ret =
 395           gst_v4l2_buffer_pool_process (GST_V4L2_BUFFER_POOL (self->
 396               v4l2output->pool), &buffer);
 397       gst_buffer_unref (buffer);
 398     }
 399   }
 400
 401   /* and ensure the processing thread has stopped in case another error
 402    * occured. */
 403   gst_v4l2_object_unlock (self->v4l2capture);
 404   gst_pad_stop_task (decoder->srcpad);
 405   GST_VIDEO_DECODER_STREAM_LOCK (decoder);
 406
 407   if (ret == GST_FLOW_FLUSHING)
 408     ret = self->output_flow;
 409
 410   GST_DEBUG_OBJECT (decoder, "Done draining buffers");
 411
 412   /* TODO Shall we cleanup any reffed frame to workaround broken decoders ? */
 413
 414 done:
 415   return ret;
 416 }
 417
 418 static gboolean
 419 gst_v4l2_video_dec_drain (GstVideoDecoder * decoder)
 420 {
 421   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 422
 423   GST_DEBUG_OBJECT (self, "Draining...");
 424   gst_v4l2_video_dec_finish (decoder);
 425   gst_v4l2_video_dec_flush (decoder);
 426
 427   return TRUE;
 428 }
 429
 430 static GstVideoCodecFrame *
 431 gst_v4l2_video_dec_get_oldest_frame (GstVideoDecoder * decoder)
 432 {
 433   GstVideoCodecFrame *frame = NULL;
 434   GList *frames, *l;
 435   gint count = 0;
 436
 437   frames = gst_video_decoder_get_frames (decoder);
 438
 439   for (l = frames; l != NULL; l = l->next) {
 440     GstVideoCodecFrame *f = l->data;
 441
 442     if (!frame || frame->pts > f->pts)
 443       frame = f;
 444
 445     count++;
 446   }
 447
 448   if (frame) {
 449     GST_LOG_OBJECT (decoder,
 450         "Oldest frame is %d %" GST_TIME_FORMAT " and %d frames left",
 451         frame->system_frame_number, GST_TIME_ARGS (frame->pts), count - 1);
 452     gst_video_codec_frame_ref (frame);
 453   }
 454
 455   g_list_free_full (frames, (GDestroyNotify) gst_video_codec_frame_unref);
 456
 457   return frame;
 458 }
 459
 460 static void
 461 gst_v4l2_video_dec_loop (GstVideoDecoder * decoder)
 462 {
 463   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 464   GstV4l2BufferPool *v4l2_pool = GST_V4L2_BUFFER_POOL (self->v4l2capture->pool);
 465   GstBufferPool *pool;
 466   GstVideoCodecFrame *frame;
 467   GstBuffer *buffer = NULL;
 468   GstFlowReturn ret;
 469
 470   GST_LOG_OBJECT (decoder, "Allocate output buffer");
 471
 472   self->output_flow = GST_FLOW_OK;
 473   do {
 474     /* We cannot use the base class allotate helper since it taking the internal
 475      * stream lock. we know that the acquire may need to poll until more frames
 476      * comes in and holding this lock would prevent that.
 477      */
 478     pool = gst_video_decoder_get_buffer_pool (decoder);
 479
 480     /* Pool may be NULL if we started going to READY state */
 481     if (pool == NULL) {
 482       ret = GST_FLOW_FLUSHING;
 483       goto beach;
 484     }
 485
 486     ret = gst_buffer_pool_acquire_buffer (pool, &buffer, NULL);
 487     g_object_unref (pool);
 488
 489     if (ret != GST_FLOW_OK)
 490       goto beach;
 491
 492     GST_LOG_OBJECT (decoder, "Process output buffer");
 493     ret = gst_v4l2_buffer_pool_process (v4l2_pool, &buffer);
 494
 495   } while (ret == GST_V4L2_FLOW_CORRUPTED_BUFFER);
 496
 497   if (ret != GST_FLOW_OK)
 498     goto beach;
 499
 500   frame = gst_v4l2_video_dec_get_oldest_frame (decoder);
 501
 502   if (frame) {
 503     frame->output_buffer = buffer;
 504     buffer = NULL;
 505     ret = gst_video_decoder_finish_frame (decoder, frame);
 506
 507     if (ret != GST_FLOW_OK)
 508       goto beach;
 509   } else {
 510     GST_WARNING_OBJECT (decoder, "Decoder is producing too many buffers");
 511     gst_buffer_unref (buffer);
 512   }
 513
 514   return;
 515
 516 beach:
 517   GST_DEBUG_OBJECT (decoder, "Leaving output thread: %s",
 518       gst_flow_get_name (ret));
 519
 520   gst_buffer_replace (&buffer, NULL);
 521   self->output_flow = ret;
 522   gst_v4l2_object_unlock (self->v4l2output);
 523   gst_pad_pause_task (decoder->srcpad);
 524 }
 525
 526 static gboolean
 527 gst_v4l2_video_remove_padding (GstCapsFeatures * features,
 528     GstStructure * structure, gpointer user_data)
 529 {
 530   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (user_data);
 531   GstVideoAlignment *align = &self->v4l2capture->align;
 532   GstVideoInfo *info = &self->v4l2capture->info;
 533   int width, height;
 534
 535   if (!gst_structure_get_int (structure, "width", &width))
 536     return TRUE;
 537
 538   if (!gst_structure_get_int (structure, "height", &height))
 539     return TRUE;
 540
 541   if (align->padding_left != 0 || align->padding_top != 0 ||
 542       height != info->height + align->padding_bottom)
 543     return TRUE;
 544
 545   if (height == info->height + align->padding_bottom) {
 546     /* Some drivers may round up width to the padded with */
 547     if (width == info->width + align->padding_right)
 548       gst_structure_set (structure,
 549           "width", G_TYPE_INT, width - align->padding_right,
 550           "height", G_TYPE_INT, height - align->padding_bottom, NULL);
 551     /* Some drivers may keep visible width and only round up bytesperline */
 552     else if (width == info->width)
 553       gst_structure_set (structure,
 554           "height", G_TYPE_INT, height - align->padding_bottom, NULL);
 555   }
 556
 557   return TRUE;
 558 }
 559
 560 static GstFlowReturn
 561 gst_v4l2_video_dec_handle_frame (GstVideoDecoder * decoder,
 562     GstVideoCodecFrame * frame)
 563 {
 564   GstV4l2Error error = GST_V4L2_ERROR_INIT;
 565   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 566   GstFlowReturn ret = GST_FLOW_OK;
 567   gboolean processed = FALSE;
 568   GstBuffer *tmp;
 569   GstTaskState task_state;
 570
 571   GST_DEBUG_OBJECT (self, "Handling frame %d", frame->system_frame_number);
 572
 573   if (G_UNLIKELY (!g_atomic_int_get (&self->active)))
 574     goto flushing;
 575
 576   if (G_UNLIKELY (!GST_V4L2_IS_ACTIVE (self->v4l2output))) {
 577     if (!self->input_state)
 578       goto not_negotiated;
 579     if (!gst_v4l2_object_set_format (self->v4l2output, self->input_state->caps,
 580             &error))
 581       goto not_negotiated;
 582   }
 583
 584   if (G_UNLIKELY (!GST_V4L2_IS_ACTIVE (self->v4l2capture))) {
 585     GstBufferPool *pool = GST_BUFFER_POOL (self->v4l2output->pool);
 586     GstVideoInfo info;
 587     GstVideoCodecState *output_state;
 588     GstBuffer *codec_data;
 589     GstCaps *acquired_caps, *available_caps, *caps, *filter;
 590     GstStructure *st;
 591
 592     GST_DEBUG_OBJECT (self, "Sending header");
 593
 594     codec_data = self->input_state->codec_data;
 595
 596     /* We are running in byte-stream mode, so we don't know the headers, but
 597      * we need to send something, otherwise the decoder will refuse to
 598      * intialize.
 599      */
 600     if (codec_data) {
 601       gst_buffer_ref (codec_data);
 602     } else {
 603       codec_data = gst_buffer_ref (frame->input_buffer);
 604       processed = TRUE;
 605     }
 606
 607     /* Ensure input internal pool is active */
 608     if (!gst_buffer_pool_is_active (pool)) {
 609       GstStructure *config = gst_buffer_pool_get_config (pool);
 610       gst_buffer_pool_config_set_params (config, self->input_state->caps,
 611           self->v4l2output->info.size, 2, 2);
 612
 613       /* There is no reason to refuse this config */
 614       if (!gst_buffer_pool_set_config (pool, config))
 615         goto activate_failed;
 616
 617       if (!gst_buffer_pool_set_active (pool, TRUE))
 618         goto activate_failed;
 619     }
 620
 621     GST_VIDEO_DECODER_STREAM_UNLOCK (decoder);
 622     ret =
 623         gst_v4l2_buffer_pool_process (GST_V4L2_BUFFER_POOL (self->
 624             v4l2output->pool), &codec_data);
 625     GST_VIDEO_DECODER_STREAM_LOCK (decoder);
 626
 627     gst_buffer_unref (codec_data);
 628
 629     /* For decoders G_FMT returns coded size, G_SELECTION returns visible size
 630      * in the compose rectangle. gst_v4l2_object_acquire_format() checks both
 631      * and returns the visible size as with/height and the coded size as
 632      * padding. */
 633     if (!gst_v4l2_object_acquire_format (self->v4l2capture, &info))
 634       goto not_negotiated;
 635
 636     /* Create caps from the acquired format, remove the format field */
 637     acquired_caps = gst_video_info_to_caps (&info);
 638     GST_DEBUG_OBJECT (self, "Acquired caps: %" GST_PTR_FORMAT, acquired_caps);
 639     st = gst_caps_get_structure (acquired_caps, 0);
 640     gst_structure_remove_field (st, "format");
 641
 642     /* Probe currently available pixel formats */
 643     available_caps = gst_v4l2_object_probe_caps (self->v4l2capture, NULL);
 644     available_caps = gst_caps_make_writable (available_caps);
 645     GST_DEBUG_OBJECT (self, "Available caps: %" GST_PTR_FORMAT, available_caps);
 646
 647     /* Replace coded size with visible size, we want to negotiate visible size
 648      * with downstream, not coded size. */
 649     gst_caps_map_in_place (available_caps, gst_v4l2_video_remove_padding, self);
 650
 651     filter = gst_caps_intersect_full (available_caps, acquired_caps,
 652         GST_CAPS_INTERSECT_FIRST);
 653     GST_DEBUG_OBJECT (self, "Filtered caps: %" GST_PTR_FORMAT, filter);
 654     gst_caps_unref (acquired_caps);
 655     gst_caps_unref (available_caps);
 656     caps = gst_pad_peer_query_caps (decoder->srcpad, filter);
 657     gst_caps_unref (filter);
 658
 659     GST_DEBUG_OBJECT (self, "Possible decoded caps: %" GST_PTR_FORMAT, caps);
 660     if (gst_caps_is_empty (caps)) {
 661       gst_caps_unref (caps);
 662       goto not_negotiated;
 663     }
 664
 665     /* Fixate pixel format */
 666     caps = gst_caps_fixate (caps);
 667
 668     GST_DEBUG_OBJECT (self, "Chosen decoded caps: %" GST_PTR_FORMAT, caps);
 669
 670     /* Try to set negotiated format, on success replace acquired format */
 671     if (gst_v4l2_object_set_format (self->v4l2capture, caps, &error))
 672       gst_video_info_from_caps (&info, caps);
 673     else
 674       gst_v4l2_clear_error (&error);
 675     gst_caps_unref (caps);
 676
 677     output_state = gst_video_decoder_set_output_state (decoder,
 678         info.finfo->format, info.width, info.height, self->input_state);
 679
 680     /* Copy the rest of the information, there might be more in the future */
 681     output_state->info.interlace_mode = info.interlace_mode;
 682     gst_video_codec_state_unref (output_state);
 683
 684     if (!gst_video_decoder_negotiate (decoder)) {
 685       if (GST_PAD_IS_FLUSHING (decoder->srcpad))
 686         goto flushing;
 687       else
 688         goto not_negotiated;
 689     }
 690
 691     /* Ensure our internal pool is activated */
 692     if (!gst_buffer_pool_set_active (GST_BUFFER_POOL (self->v4l2capture->pool),
 693             TRUE))
 694       goto activate_failed;
 695   }
 696
 697   task_state = gst_pad_get_task_state (GST_VIDEO_DECODER_SRC_PAD (self));
 698   if (task_state == GST_TASK_STOPPED || task_state == GST_TASK_PAUSED) {
 699     /* It's possible that the processing thread stopped due to an error */
 700     if (self->output_flow != GST_FLOW_OK &&
 701         self->output_flow != GST_FLOW_FLUSHING) {
 702       GST_DEBUG_OBJECT (self, "Processing loop stopped with error, leaving");
 703       ret = self->output_flow;
 704       goto drop;
 705     }
 706
 707     GST_DEBUG_OBJECT (self, "Starting decoding thread");
 708
 709     /* Start the processing task, when it quits, the task will disable input
 710      * processing to unlock input if draining, or prevent potential block */
 711     self->output_flow = GST_FLOW_FLUSHING;
 712     if (!gst_pad_start_task (decoder->srcpad,
 713             (GstTaskFunction) gst_v4l2_video_dec_loop, self, NULL))
 714       goto start_task_failed;
 715   }
 716
 717   if (!processed) {
 718     GST_VIDEO_DECODER_STREAM_UNLOCK (decoder);
 719     ret =
 720         gst_v4l2_buffer_pool_process (GST_V4L2_BUFFER_POOL (self->v4l2output->
 721             pool), &frame->input_buffer);
 722     GST_VIDEO_DECODER_STREAM_LOCK (decoder);
 723
 724     if (ret == GST_FLOW_FLUSHING) {
 725       if (gst_pad_get_task_state (GST_VIDEO_DECODER_SRC_PAD (self)) !=
 726           GST_TASK_STARTED)
 727         ret = self->output_flow;
 728       goto drop;
 729     } else if (ret != GST_FLOW_OK) {
 730       goto process_failed;
 731     }
 732   }
 733
 734   /* No need to keep input arround */
 735   tmp = frame->input_buffer;
 736   frame->input_buffer = gst_buffer_new ();
 737   gst_buffer_copy_into (frame->input_buffer, tmp,
 738       GST_BUFFER_COPY_FLAGS | GST_BUFFER_COPY_TIMESTAMPS |
 739       GST_BUFFER_COPY_META, 0, 0);
 740   gst_buffer_unref (tmp);
 741
 742   gst_video_codec_frame_unref (frame);
 743   return ret;
 744
 745   /* ERRORS */
 746 not_negotiated:
 747   {
 748     GST_ERROR_OBJECT (self, "not negotiated");
 749     ret = GST_FLOW_NOT_NEGOTIATED;
 750     gst_v4l2_error (self, &error);
 751     goto drop;
 752   }
 753 activate_failed:
 754   {
 755     GST_ELEMENT_ERROR (self, RESOURCE, SETTINGS,
 756         (_("Failed to allocate required memory.")),
 757         ("Buffer pool activation failed"));
 758     ret = GST_FLOW_ERROR;
 759     goto drop;
 760   }
 761 flushing:
 762   {
 763     ret = GST_FLOW_FLUSHING;
 764     goto drop;
 765   }
 766
 767 start_task_failed:
 768   {
 769     GST_ELEMENT_ERROR (self, RESOURCE, FAILED,
 770         (_("Failed to start decoding thread.")), (NULL));
 771     ret = GST_FLOW_ERROR;
 772     goto drop;
 773   }
 774 process_failed:
 775   {
 776     GST_ELEMENT_ERROR (self, RESOURCE, FAILED,
 777         (_("Failed to process frame.")),
 778         ("Maybe be due to not enough memory or failing driver"));
 779     ret = GST_FLOW_ERROR;
 780     goto drop;
 781   }
 782 drop:
 783   {
 784     gst_video_decoder_drop_frame (decoder, frame);
 785     return ret;
 786   }
 787 }
 788
 789 static gboolean
 790 gst_v4l2_video_dec_decide_allocation (GstVideoDecoder * decoder,
 791     GstQuery * query)
 792 {
 793   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 794   GstClockTime latency;
 795   gboolean ret = FALSE;
 796
 797   if (gst_v4l2_object_decide_allocation (self->v4l2capture, query))
 798     ret = GST_VIDEO_DECODER_CLASS (parent_class)->decide_allocation (decoder,
 799         query);
 800
 801   if (GST_CLOCK_TIME_IS_VALID (self->v4l2capture->duration)) {
 802     latency = self->v4l2capture->min_buffers * self->v4l2capture->duration;
 803     GST_DEBUG_OBJECT (self, "Setting latency: %" GST_TIME_FORMAT " (%"
 804         G_GUINT32_FORMAT " * %" G_GUINT64_FORMAT, GST_TIME_ARGS (latency),
 805         self->v4l2capture->min_buffers, self->v4l2capture->duration);
 806     gst_video_decoder_set_latency (decoder, latency, latency);
 807   } else {
 808     GST_WARNING_OBJECT (self, "Duration invalid, not setting latency");
 809   }
 810
 811   return ret;
 812 }
 813
 814 static gboolean
 815 gst_v4l2_video_dec_src_query (GstVideoDecoder * decoder, GstQuery * query)
 816 {
 817   gboolean ret = TRUE;
 818   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 819
 820   switch (GST_QUERY_TYPE (query)) {
 821     case GST_QUERY_CAPS:{
 822       GstCaps *filter, *result = NULL;
 823       GstPad *pad = GST_VIDEO_DECODER_SRC_PAD (decoder);
 824
 825       gst_query_parse_caps (query, &filter);
 826
 827       if (self->probed_srccaps)
 828         result = gst_caps_ref (self->probed_srccaps);
 829       else
 830         result = gst_pad_get_pad_template_caps (pad);
 831
 832       if (filter) {
 833         GstCaps *tmp = result;
 834         result =
 835             gst_caps_intersect_full (filter, tmp, GST_CAPS_INTERSECT_FIRST);
 836         gst_caps_unref (tmp);
 837       }
 838
 839       GST_DEBUG_OBJECT (self, "Returning src caps %" GST_PTR_FORMAT, result);
 840
 841       gst_query_set_caps_result (query, result);
 842       gst_caps_unref (result);
 843       break;
 844     }
 845
 846     default:
 847       ret = GST_VIDEO_DECODER_CLASS (parent_class)->src_query (decoder, query);
 848       break;
 849   }
 850
 851   return ret;
 852 }
 853
 854 static GstCaps *
 855 gst_v4l2_video_dec_sink_getcaps (GstVideoDecoder * decoder, GstCaps * filter)
 856 {
 857   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 858   GstCaps *result;
 859
 860   result = gst_video_decoder_proxy_getcaps (decoder, self->probed_sinkcaps,
 861       filter);
 862
 863   GST_DEBUG_OBJECT (self, "Returning sink caps %" GST_PTR_FORMAT, result);
 864
 865   return result;
 866 }
 867
 868 static gboolean
 869 gst_v4l2_video_dec_sink_event (GstVideoDecoder * decoder, GstEvent * event)
 870 {
 871   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (decoder);
 872   gboolean ret;
 873
 874   switch (GST_EVENT_TYPE (event)) {
 875     case GST_EVENT_FLUSH_START:
 876       GST_DEBUG_OBJECT (self, "flush start");
 877       gst_v4l2_object_unlock (self->v4l2output);
 878       gst_v4l2_object_unlock (self->v4l2capture);
 879       break;
 880     default:
 881       break;
 882   }
 883
 884   ret = GST_VIDEO_DECODER_CLASS (parent_class)->sink_event (decoder, event);
 885
 886   switch (GST_EVENT_TYPE (event)) {
 887     case GST_EVENT_FLUSH_START:
 888       /* The processing thread should stop now, wait for it */
 889       gst_pad_stop_task (decoder->srcpad);
 890       GST_DEBUG_OBJECT (self, "flush start done");
 891       break;
 892     default:
 893       break;
 894   }
 895
 896   return ret;
 897 }
 898
 899 static GstStateChangeReturn
 900 gst_v4l2_video_dec_change_state (GstElement * element,
 901     GstStateChange transition)
 902 {
 903   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (element);
 904   GstVideoDecoder *decoder = GST_VIDEO_DECODER (element);
 905
 906   if (transition == GST_STATE_CHANGE_PAUSED_TO_READY) {
 907     g_atomic_int_set (&self->active, FALSE);
 908     gst_v4l2_object_unlock (self->v4l2output);
 909     gst_v4l2_object_unlock (self->v4l2capture);
 910     gst_pad_stop_task (decoder->srcpad);
 911   }
 912
 913   return GST_ELEMENT_CLASS (parent_class)->change_state (element, transition);
 914 }
 915
 916 static void
 917 gst_v4l2_video_dec_dispose (GObject * object)
 918 {
 919   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (object);
 920
 921   gst_caps_replace (&self->probed_sinkcaps, NULL);
 922   gst_caps_replace (&self->probed_srccaps, NULL);
 923
 924   G_OBJECT_CLASS (parent_class)->dispose (object);
 925 }
 926
 927 static void
 928 gst_v4l2_video_dec_finalize (GObject * object)
 929 {
 930   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (object);
 931
 932   gst_v4l2_object_destroy (self->v4l2capture);
 933   gst_v4l2_object_destroy (self->v4l2output);
 934
 935   G_OBJECT_CLASS (parent_class)->finalize (object);
 936 }
 937
 938 static void
 939 gst_v4l2_video_dec_init (GstV4l2VideoDec * self)
 940 {
 941   /* V4L2 object are created in subinstance_init */
 942 }
 943
 944 static void
 945 gst_v4l2_video_dec_subinstance_init (GTypeInstance * instance, gpointer g_class)
 946 {
 947   GstV4l2VideoDecClass *klass = GST_V4L2_VIDEO_DEC_CLASS (g_class);
 948   GstV4l2VideoDec *self = GST_V4L2_VIDEO_DEC (instance);
 949   GstVideoDecoder *decoder = GST_VIDEO_DECODER (instance);
 950
 951   gst_video_decoder_set_packetized (decoder, TRUE);
 952
 953   self->v4l2output = gst_v4l2_object_new (GST_ELEMENT (self),
 954       GST_OBJECT (GST_VIDEO_DECODER_SINK_PAD (self)),
 955       V4L2_BUF_TYPE_VIDEO_OUTPUT, klass->default_device,
 956       gst_v4l2_get_output, gst_v4l2_set_output, NULL);
 957   self->v4l2output->no_initial_format = TRUE;
 958   self->v4l2output->keep_aspect = FALSE;
 959
 960   self->v4l2capture = gst_v4l2_object_new (GST_ELEMENT (self),
 961       GST_OBJECT (GST_VIDEO_DECODER_SRC_PAD (self)),
 962       V4L2_BUF_TYPE_VIDEO_CAPTURE, klass->default_device,
 963       gst_v4l2_get_input, gst_v4l2_set_input, NULL);
 964 }
 965
 966 static void
 967 gst_v4l2_video_dec_class_init (GstV4l2VideoDecClass * klass)
 968 {
 969   GstElementClass *element_class;
 970   GObjectClass *gobject_class;
 971   GstVideoDecoderClass *video_decoder_class;
 972
 973   parent_class = g_type_class_peek_parent (klass);
 974
 975   element_class = (GstElementClass *) klass;
 976   gobject_class = (GObjectClass *) klass;
 977   video_decoder_class = (GstVideoDecoderClass *) klass;
 978
 979   GST_DEBUG_CATEGORY_INIT (gst_v4l2_video_dec_debug, "v4l2videodec", 0,
 980       "V4L2 Video Decoder");
 981
 982   gobject_class->dispose = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_dispose);
 983   gobject_class->finalize = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_finalize);
 984   gobject_class->set_property =
 985       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_set_property);
 986   gobject_class->get_property =
 987       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_get_property);
 988
 989   video_decoder_class->open = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_open);
 990   video_decoder_class->close = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_close);
 991   video_decoder_class->start = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_start);
 992   video_decoder_class->stop = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_stop);
 993   video_decoder_class->finish = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_finish);
 994   video_decoder_class->flush = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_flush);
 995   video_decoder_class->drain = GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_drain);
 996   video_decoder_class->set_format =
 997       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_set_format);
 998   video_decoder_class->negotiate =
 999       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_negotiate);
1000   video_decoder_class->decide_allocation =
1001       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_decide_allocation);
1002   /* FIXME propose_allocation or not ? */
1003   video_decoder_class->handle_frame =
1004       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_handle_frame);
1005   video_decoder_class->getcaps =
1006       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_sink_getcaps);
1007   video_decoder_class->src_query =
1008       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_src_query);
1009   video_decoder_class->sink_event =
1010       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_sink_event);
1011
1012   element_class->change_state =
1013       GST_DEBUG_FUNCPTR (gst_v4l2_video_dec_change_state);
1014
1015   gst_v4l2_object_install_m2m_properties_helper (gobject_class);
1016 }
1017
1018 static void
1019 gst_v4l2_video_dec_subclass_init (gpointer g_class, gpointer data)
1020 {
1021   GstV4l2VideoDecClass *klass = GST_V4L2_VIDEO_DEC_CLASS (g_class);
1022   GstElementClass *element_class = GST_ELEMENT_CLASS (g_class);
1023   GstV4l2VideoDecCData *cdata = data;
1024
1025   klass->default_device = cdata->device;
1026
1027   /* Note: gst_pad_template_new() take the floating ref from the caps */
1028   gst_element_class_add_pad_template (element_class,
1029       gst_pad_template_new ("sink", GST_PAD_SINK, GST_PAD_ALWAYS,
1030           cdata->sink_caps));
1031   gst_element_class_add_pad_template (element_class,
1032       gst_pad_template_new ("src", GST_PAD_SRC, GST_PAD_ALWAYS,
1033           cdata->src_caps));
1034
1035   gst_element_class_set_static_metadata (element_class, cdata->longname,
1036       "Codec/Decoder/Video", cdata->description,
1037       "Nicolas Dufresne <nicolas.dufresne@collabora.com>");
1038
1039   gst_caps_unref (cdata->sink_caps);
1040   gst_caps_unref (cdata->src_caps);
1041   g_free (cdata);
1042 }
1043
1044 /* Probing functions */
1045 gboolean
1046 gst_v4l2_is_video_dec (GstCaps * sink_caps, GstCaps * src_caps)
1047 {
1048   gboolean ret = FALSE;
1049
1050   if (gst_caps_is_subset (sink_caps, gst_v4l2_object_get_codec_caps ())
1051       && gst_caps_is_subset (src_caps, gst_v4l2_object_get_raw_caps ()))
1052     ret = TRUE;
1053
1054   return ret;
1055 }
1056
1057 static gchar *
1058 gst_v4l2_video_dec_set_metadata (GstStructure * s, GstV4l2VideoDecCData * cdata,
1059     const gchar * basename)
1060 {
1061   gchar *codec_name = NULL;
1062   gchar *type_name = NULL;
1063
1064 #define SET_META(codec) \
1065 G_STMT_START { \
1066   cdata->longname = "V4L2 " codec " Decoder"; \
1067   cdata->description = "Decodes " codec " streams via V4L2 API"; \
1068   codec_name = g_ascii_strdown (codec, -1); \
1069 } G_STMT_END
1070
1071   if (gst_structure_has_name (s, "image/jpeg")) {
1072     SET_META ("JPEG");
1073   } else if (gst_structure_has_name (s, "video/mpeg")) {
1074     gint mpegversion = 0;
1075     gst_structure_get_int (s, "mpegversion", &mpegversion);
1076
1077     if (mpegversion == 2) {
1078       SET_META ("MPEG2");
1079     } else {
1080       SET_META ("MPEG4");
1081     }
1082   } else if (gst_structure_has_name (s, "video/x-h263")) {
1083     SET_META ("H263");
1084   } else if (gst_structure_has_name (s, "video/x-fwht")) {
1085     SET_META ("FWHT");
1086   } else if (gst_structure_has_name (s, "video/x-h264")) {
1087     SET_META ("H264");
1088   } else if (gst_structure_has_name (s, "video/x-wmv")) {
1089     SET_META ("VC1");
1090   } else if (gst_structure_has_name (s, "video/x-vp8")) {
1091     SET_META ("VP8");
1092   } else if (gst_structure_has_name (s, "video/x-vp9")) {
1093     SET_META ("VP9");
1094   } else if (gst_structure_has_name (s, "video/x-bayer")) {
1095     SET_META ("BAYER");
1096   } else if (gst_structure_has_name (s, "video/x-sonix")) {
1097     SET_META ("SONIX");
1098   } else if (gst_structure_has_name (s, "video/x-pwc1")) {
1099     SET_META ("PWC1");
1100   } else if (gst_structure_has_name (s, "video/x-pwc2")) {
1101     SET_META ("PWC2");
1102   } else {
1103     /* This code should be kept on sync with the exposed CODEC type of format
1104      * from gstv4l2object.c. This warning will only occure in case we forget
1105      * to also add a format here. */
1106     gchar *s_str = gst_structure_to_string (s);
1107     g_warning ("Missing fixed name mapping for caps '%s', this is a GStreamer "
1108         "bug, please report at https://bugs.gnome.org", s_str);
1109     g_free (s_str);
1110   }
1111
1112   if (codec_name) {
1113     type_name = g_strdup_printf ("v4l2%sdec", codec_name);
1114     if (g_type_from_name (type_name) != 0) {
1115       g_free (type_name);
1116       type_name = g_strdup_printf ("v4l2%s%sdec", basename, codec_name);
1117     }
1118
1119     g_free (codec_name);
1120   }
1121
1122   return type_name;
1123 #undef SET_META
1124 }
1125
1126 void
1127 gst_v4l2_video_dec_register (GstPlugin * plugin, const gchar * basename,
1128     const gchar * device_path, GstCaps * sink_caps, GstCaps * src_caps)
1129 {
1130   gint i;
1131
1132   for (i = 0; i < gst_caps_get_size (sink_caps); i++) {
1133     GstV4l2VideoDecCData *cdata;
1134     GstStructure *s;
1135     GTypeQuery type_query;
1136     GTypeInfo type_info = { 0, };
1137     GType type, subtype;
1138     gchar *type_name;
1139
1140     s = gst_caps_get_structure (sink_caps, i);
1141
1142     cdata = g_new0 (GstV4l2VideoDecCData, 1);
1143     cdata->device = g_strdup (device_path);
1144     cdata->sink_caps = gst_caps_new_empty ();
1145     gst_caps_append_structure (cdata->sink_caps, gst_structure_copy (s));
1146     cdata->src_caps = gst_caps_ref (src_caps);
1147     type_name = gst_v4l2_video_dec_set_metadata (s, cdata, basename);
1148
1149     /* Skip over if we hit an unmapped type */
1150     if (!type_name) {
1151       g_free (cdata);
1152       continue;
1153     }
1154
1155     type = gst_v4l2_video_dec_get_type ();
1156     g_type_query (type, &type_query);
1157     memset (&type_info, 0, sizeof (type_info));
1158     type_info.class_size = type_query.class_size;
1159     type_info.instance_size = type_query.instance_size;
1160     type_info.class_init = gst_v4l2_video_dec_subclass_init;
1161     type_info.class_data = cdata;
1162     type_info.instance_init = gst_v4l2_video_dec_subinstance_init;
1163
1164     subtype = g_type_register_static (type, type_name, &type_info, 0);
1165     if (!gst_element_register (plugin, type_name, GST_RANK_PRIMARY + 1,
1166             subtype))
1167       GST_WARNING ("Failed to register plugin '%s'", type_name);
1168
1169     g_free (type_name);
1170   }
1171 }