decklink.cpp 24.4 KB
Newer Older
1 2 3 4
/*****************************************************************************
 * decklink.cpp: BlackMagic DeckLink SDI input module
 *****************************************************************************
 * Copyright (C) 2010 Steinar H. Gunderson
5
 * Copyright (C) 2012-2014 Rafaël Carré
6 7
 *
 * Authors: Steinar H. Gunderson <steinar+vlc@gunderson.no>
8
            Rafaël Carré <funman@videolanorg>
9
 *
10 11 12 13
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation; either version 2.1 of the License, or
 * (at your option) any later version.
14 15 16
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Jean-Baptiste Kempf's avatar
LGPL  
Jean-Baptiste Kempf committed
17
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 19
 * Lesser General Public License for more details.
 *
20 21 22
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
23 24 25 26 27 28 29 30 31 32
 *****************************************************************************/

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#include <vlc_common.h>
#include <vlc_plugin.h>
#include <vlc_demux.h>

33
#ifdef HAVE_ARPA_INET_H
34
#include <arpa/inet.h>
35
#endif
36 37 38 39

#include <DeckLinkAPI.h>
#include <DeckLinkAPIDispatch.cpp>

40 41
#include "sdi.h"

42 43
#include <atomic>

Rafaël Carré's avatar
Rafaël Carré committed
44 45
static int  Open (vlc_object_t *);
static void Close(vlc_object_t *);
46 47 48 49

#define CARD_INDEX_TEXT N_("Input card to use")
#define CARD_INDEX_LONGTEXT N_( \
    "DeckLink capture card to use, if multiple exist. " \
Rafaël Carré's avatar
Rafaël Carré committed
50
    "The cards are numbered from 0.")
51

52
#define MODE_TEXT N_("Desired input video mode. Leave empty for autodetection.")
53 54 55
#define MODE_LONGTEXT N_( \
    "Desired input video mode for DeckLink captures. " \
    "This value should be a FOURCC code in textual " \
Rafaël Carré's avatar
Rafaël Carré committed
56
    "form, e.g. \"ntsc\".")
57 58 59 60 61

#define AUDIO_CONNECTION_TEXT N_("Audio connection")
#define AUDIO_CONNECTION_LONGTEXT N_( \
    "Audio connection to use for DeckLink captures. " \
    "Valid choices: embedded, aesebu, analog. " \
Rafaël Carré's avatar
Rafaël Carré committed
62
    "Leave blank for card default.")
63

64
#define RATE_TEXT N_("Audio samplerate (Hz)")
65 66
#define RATE_LONGTEXT N_( \
    "Audio sampling rate (in hertz) for DeckLink captures. " \
Rafaël Carré's avatar
Rafaël Carré committed
67
    "0 disables audio input.")
68 69 70 71

#define CHANNELS_TEXT N_("Number of audio channels")
#define CHANNELS_LONGTEXT N_( \
    "Number of input audio channels for DeckLink captures. " \
Rafaël Carré's avatar
Rafaël Carré committed
72
    "Must be 2, 8 or 16. 0 disables audio input.")
73 74 75 76 77 78

#define VIDEO_CONNECTION_TEXT N_("Video connection")
#define VIDEO_CONNECTION_LONGTEXT N_( \
    "Video connection to use for DeckLink captures. " \
    "Valid choices: sdi, hdmi, opticalsdi, component, " \
    "composite, svideo. " \
Rafaël Carré's avatar
Rafaël Carré committed
79
    "Leave blank for card default.")
80 81 82 83 84

static const char *const ppsz_videoconns[] = {
    "sdi", "hdmi", "opticalsdi", "component", "composite", "svideo"
};
static const char *const ppsz_videoconns_text[] = {
Jean-Baptiste Kempf's avatar
Jean-Baptiste Kempf committed
85
    N_("SDI"), N_("HDMI"), N_("Optical SDI"), N_("Component"), N_("Composite"), N_("S-Video")
86 87
};

88 89 90 91 92 93 94
static const char *const ppsz_audioconns[] = {
    "embedded", "aesebu", "analog"
};
static const char *const ppsz_audioconns_text[] = {
    N_("Embedded"), N_("AES/EBU"), N_("Analog")
};

95
#define ASPECT_RATIO_TEXT N_("Aspect ratio")
Rafaël Carré's avatar
Rafaël Carré committed
96 97
#define ASPECT_RATIO_LONGTEXT N_(\
    "Aspect ratio (4:3, 16:9). Default assumes square pixels.")
98 99

vlc_module_begin ()
Rafaël Carré's avatar
Rafaël Carré committed
100 101 102 103 104 105 106
    set_shortname(N_("DeckLink"))
    set_description(N_("Blackmagic DeckLink SDI input"))
    set_category(CAT_INPUT)
    set_subcategory(SUBCAT_INPUT_ACCESS)

    add_integer("decklink-card-index", 0,
                 CARD_INDEX_TEXT, CARD_INDEX_LONGTEXT, true)
107
    add_string("decklink-mode", NULL,
Rafaël Carré's avatar
Rafaël Carré committed
108 109 110 111 112 113 114 115 116 117 118 119 120
                 MODE_TEXT, MODE_LONGTEXT, true)
    add_string("decklink-audio-connection", 0,
                 AUDIO_CONNECTION_TEXT, AUDIO_CONNECTION_LONGTEXT, true)
        change_string_list(ppsz_audioconns, ppsz_audioconns_text)
    add_integer("decklink-audio-rate", 48000,
                 RATE_TEXT, RATE_LONGTEXT, true)
    add_integer("decklink-audio-channels", 2,
                 CHANNELS_TEXT, CHANNELS_LONGTEXT, true)
    add_string("decklink-video-connection", 0,
                 VIDEO_CONNECTION_TEXT, VIDEO_CONNECTION_LONGTEXT, true)
        change_string_list(ppsz_videoconns, ppsz_videoconns_text)
    add_string("decklink-aspect-ratio", NULL,
                ASPECT_RATIO_TEXT, ASPECT_RATIO_LONGTEXT, true)
121
    add_bool("decklink-tenbits", false, N_("10 bits"), N_("10 bits"), true)
Rafaël Carré's avatar
Rafaël Carré committed
122 123

    add_shortcut("decklink")
124
    set_capability("access", 0)
Rafaël Carré's avatar
Rafaël Carré committed
125
    set_callbacks(Open, Close)
126 127
vlc_module_end ()

Rafaël Carré's avatar
Rafaël Carré committed
128
static int Control(demux_t *, int, va_list);
129 130 131 132 133

class DeckLinkCaptureDelegate;

struct demux_sys_t
{
Rafaël Carré's avatar
Rafaël Carré committed
134 135 136
    IDeckLink *card;
    IDeckLinkInput *input;
    DeckLinkCaptureDelegate *delegate;
137

138
    /* We need to hold onto the IDeckLinkConfiguration object, or our settings will not apply.
139
       See section 2.4.15 of the Blackmagic DeckLink SDK documentation. */
Rafaël Carré's avatar
Rafaël Carré committed
140
    IDeckLinkConfiguration *config;
141 142 143
    IDeckLinkAttributes *attributes;

    bool autodetect;
144

Rafaël Carré's avatar
Rafaël Carré committed
145
    es_out_id_t *video_es;
146
    es_format_t video_fmt;
Rafaël Carré's avatar
Rafaël Carré committed
147
    es_out_id_t *audio_es;
148
    es_out_id_t *cc_es;
149 150

    vlc_mutex_t pts_lock;
Rafaël Carré's avatar
Rafaël Carré committed
151
    int last_pts;  /* protected by <pts_lock> */
152

Rafaël Carré's avatar
Rafaël Carré committed
153 154
    uint32_t dominance_flags;
    int channels;
155 156

    bool tenbits;
157 158
};

159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178
static const char *GetFieldDominance(BMDFieldDominance dom, uint32_t *flags)
{
    switch(dom)
    {
        case bmdProgressiveFrame:
            return "";
        case bmdProgressiveSegmentedFrame:
            return ", segmented";
        case bmdLowerFieldFirst:
            *flags = BLOCK_FLAG_BOTTOM_FIELD_FIRST;
            return ", interlaced [BFF]";
        case bmdUpperFieldFirst:
            *flags = BLOCK_FLAG_TOP_FIELD_FIRST;
            return ", interlaced [TFF]";
        case bmdUnknownFieldDominance:
        default:
            return ", unknown field dominance";
    }
}

179 180
static es_format_t GetModeSettings(demux_t *demux, IDeckLinkDisplayMode *m,
        BMDDetectedVideoInputFormatFlags fmt_flags)
181
{
182
    demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
183 184 185 186 187 188 189 190 191 192
    uint32_t flags = 0;
    (void)GetFieldDominance(m->GetFieldDominance(), &flags);

    BMDTimeValue frame_duration, time_scale;
    if (m->GetFrameRate(&frame_duration, &time_scale) != S_OK) {
        time_scale = 0;
        frame_duration = 1;
    }

    es_format_t video_fmt;
193 194 195 196 197 198 199 200 201 202 203 204
    vlc_fourcc_t chroma = 0;
    switch (fmt_flags) {
        case bmdDetectedVideoInputYCbCr422:
            chroma = sys->tenbits ? VLC_CODEC_I422_10L : VLC_CODEC_UYVY;
            break;
        case bmdDetectedVideoInputRGB444:
            chroma = VLC_CODEC_ARGB;
            break;
        default:
            msg_Err(demux, "Unsupported input format");
            break;
    }
205 206
    es_format_Init(&video_fmt, VIDEO_ES, chroma);

207
    video_fmt.video.i_chroma = chroma;
208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227
    video_fmt.video.i_width = m->GetWidth();
    video_fmt.video.i_height = m->GetHeight();
    video_fmt.video.i_sar_num = 1;
    video_fmt.video.i_sar_den = 1;
    video_fmt.video.i_frame_rate = time_scale;
    video_fmt.video.i_frame_rate_base = frame_duration;
    video_fmt.i_bitrate = video_fmt.video.i_width * video_fmt.video.i_height * video_fmt.video.i_frame_rate * 2 * 8;

    unsigned aspect_num, aspect_den;
    if (!var_InheritURational(demux, &aspect_num, &aspect_den, "decklink-aspect-ratio") &&
         aspect_num > 0 && aspect_den > 0) {
        video_fmt.video.i_sar_num = aspect_num * video_fmt.video.i_height;
        video_fmt.video.i_sar_den = aspect_den * video_fmt.video.i_width;
    }

    sys->dominance_flags = flags;

    return video_fmt;
}

228 229 230
class DeckLinkCaptureDelegate : public IDeckLinkInputCallback
{
public:
Rafaël Carré's avatar
Rafaël Carré committed
231
    DeckLinkCaptureDelegate(demux_t *demux) : demux_(demux)
232
    {
233
        m_ref_.store(1);
234 235
    }

Rafaël Carré's avatar
Rafaël Carré committed
236
    virtual HRESULT STDMETHODCALLTYPE QueryInterface(REFIID, LPVOID *) { return E_NOINTERFACE; }
237 238 239

    virtual ULONG STDMETHODCALLTYPE AddRef(void)
    {
240
        return m_ref_.fetch_add(1);
241 242 243 244
    }

    virtual ULONG STDMETHODCALLTYPE Release(void)
    {
245
        uintptr_t new_ref = m_ref_.fetch_sub(1);
Rafaël Carré's avatar
Rafaël Carré committed
246
        if (new_ref == 0)
247 248 249 250
            delete this;
        return new_ref;
    }

251
    virtual HRESULT STDMETHODCALLTYPE VideoInputFormatChanged(BMDVideoInputFormatChangedEvents events, IDeckLinkDisplayMode *mode, BMDDetectedVideoInputFormatFlags flags)
252
    {
253
        demux_sys_t *sys = static_cast<demux_sys_t *>(demux_->p_sys);
254 255 256 257 258 259 260 261 262 263 264 265 266 267

        if( !(events & bmdVideoInputDisplayModeChanged ))
            return S_OK;

        const char *mode_name;
        if (mode->GetName(&mode_name) != S_OK)
            mode_name = "unknown";

        msg_Dbg(demux_, "Video input format changed to %s", mode_name);
        if (!sys->autodetect) {
            msg_Err(demux_, "Video format detection disabled");
            return S_OK;
        }

268 269 270 271 272 273 274 275 276 277 278 279 280
        BMDPixelFormat fmt = 0;
        switch (flags) {
            case bmdDetectedVideoInputYCbCr422:
                fmt = sys->tenbits ? bmdFormat10BitYUV : bmdFormat8BitYUV;
                break;
            case bmdDetectedVideoInputRGB444:
                fmt = bmdFormat8BitARGB;
                break;
            default:
                msg_Err(demux_, "Unsupported input format");
                return S_OK;
        }

281
        es_out_Del(demux_->out, sys->video_es);
282 283
        sys->video_fmt = GetModeSettings(demux_, mode, flags);
        sys->video_es = es_out_Add(demux_->out, &sys->video_fmt);
284 285 286 287 288 289

        sys->input->PauseStreams();
        sys->input->EnableVideoInput( mode->GetDisplayMode(), fmt, bmdVideoInputEnableFormatDetection );
        sys->input->FlushStreams();
        sys->input->StartStreams();

290 291 292 293 294 295
        return S_OK;
    }

    virtual HRESULT STDMETHODCALLTYPE VideoInputFrameArrived(IDeckLinkVideoInputFrame*, IDeckLinkAudioInputPacket*);

private:
296
    std::atomic_uint m_ref_;
Rafaël Carré's avatar
Rafaël Carré committed
297
    demux_t *demux_;
298 299 300 301
};

HRESULT DeckLinkCaptureDelegate::VideoInputFrameArrived(IDeckLinkVideoInputFrame* videoFrame, IDeckLinkAudioInputPacket* audioFrame)
{
302
    demux_sys_t *sys = static_cast<demux_sys_t *>(demux_->p_sys);
303

Rafaël Carré's avatar
Rafaël Carré committed
304 305
    if (videoFrame) {
        if (videoFrame->GetFlags() & bmdFrameHasNoInputSource) {
306 307
            msg_Warn(demux_, "No input signal detected (%dx%d)",
			    videoFrame->GetWidth(), videoFrame->GetHeight());
308 309 310
            return S_OK;
        }

Rafaël Carré's avatar
Rafaël Carré committed
311 312 313
        const int width = videoFrame->GetWidth();
        const int height = videoFrame->GetHeight();
        const int stride = videoFrame->GetRowBytes();
314

315 316 317 318 319 320 321 322 323 324
        int bpp = 0;
        switch (sys->video_fmt.i_codec) {
            case VLC_CODEC_I422_10L:
            case VLC_CODEC_ARGB:
                bpp = 4;
                break;
            case VLC_CODEC_UYVY:
                bpp = 2;
                break;
        };
325
        block_t *video_frame = block_Alloc(width * height * bpp);
Rafaël Carré's avatar
Rafaël Carré committed
326
        if (!video_frame)
Rafaël Carré's avatar
Rafaël Carré committed
327
            return S_OK;
328

329
        const uint32_t *frame_bytes;
330 331
        videoFrame->GetBytes((void**)&frame_bytes);

332 333 334 335
        BMDTimeValue stream_time, frame_duration;
        videoFrame->GetStreamTime(&stream_time, &frame_duration, CLOCK_FREQ);
        video_frame->i_flags = BLOCK_FLAG_TYPE_I | sys->dominance_flags;
        video_frame->i_pts = video_frame->i_dts = VLC_TS_0 + stream_time;
336

337
        if (sys->video_fmt.i_codec == VLC_CODEC_I422_10L) {
338 339 340 341 342 343 344 345 346
            v210_convert((uint16_t*)video_frame->p_buffer, frame_bytes, width, height);
            IDeckLinkVideoFrameAncillary *vanc;
            if (videoFrame->GetAncillaryData(&vanc) == S_OK) {
                for (int i = 1; i < 21; i++) {
                    uint32_t *buf;
                    if (vanc->GetBufferForVerticalBlankingLine(i, (void**)&buf) != S_OK)
                        break;
                    uint16_t dec[width * 2];
                    v210_convert(&dec[0], buf, width, 1);
347 348 349 350 351 352 353 354
                    block_t *cc = vanc_to_cc(demux_, dec, width * 2);
                    if (!cc)
                        continue;
                    cc->i_pts = cc->i_dts = VLC_TS_0 + stream_time;

                    if (!sys->cc_es) {
                        es_format_t fmt;

355
                        es_format_Init( &fmt, SPU_ES, VLC_CODEC_CEA608 );
356 357 358 359
                        fmt.psz_description = strdup(N_("Closed captions 1"));
                        if (fmt.psz_description) {
                            sys->cc_es = es_out_Add(demux_->out, &fmt);
                            msg_Dbg(demux_, "Adding Closed captions stream");
360 361
                        }
                    }
362 363 364 365 366
                    if (sys->cc_es)
                        es_out_Send(demux_->out, sys->cc_es, cc);
                    else
                        block_Release(cc);
                    break; // we found the line with Closed Caption data
367
                }
368
                vanc->Release();
369
            }
370
        } else if (sys->video_fmt.i_codec == VLC_CODEC_UYVY) {
371 372 373 374 375
            for (int y = 0; y < height; ++y) {
                const uint8_t *src = (const uint8_t *)frame_bytes + stride * y;
                uint8_t *dst = video_frame->p_buffer + width * 2 * y;
                memcpy(dst, src, width * 2);
            }
376 377
        } else {
                memcpy(video_frame->p_buffer, frame_bytes, width * height * bpp);
378 379
        }

Rafaël Carré's avatar
Rafaël Carré committed
380 381 382 383
        vlc_mutex_lock(&sys->pts_lock);
        if (video_frame->i_pts > sys->last_pts)
            sys->last_pts = video_frame->i_pts;
        vlc_mutex_unlock(&sys->pts_lock);
384

385
        es_out_SetPCR(demux_->out, video_frame->i_pts);
Rafaël Carré's avatar
Rafaël Carré committed
386
        es_out_Send(demux_->out, sys->video_es, video_frame);
387 388
    }

Rafaël Carré's avatar
Rafaël Carré committed
389
    if (audioFrame) {
Rafaël Carré's avatar
Rafaël Carré committed
390
        const int bytes = audioFrame->GetSampleFrameCount() * sizeof(int16_t) * sys->channels;
391

392
        block_t *audio_frame = block_Alloc(bytes);
Rafaël Carré's avatar
Rafaël Carré committed
393
        if (!audio_frame)
394 395 396
            return S_OK;

        void *frame_bytes;
Rafaël Carré's avatar
Rafaël Carré committed
397 398
        audioFrame->GetBytes(&frame_bytes);
        memcpy(audio_frame->p_buffer, frame_bytes, bytes);
399 400

        BMDTimeValue packet_time;
Rafaël Carré's avatar
Rafaël Carré committed
401 402
        audioFrame->GetPacketTime(&packet_time, CLOCK_FREQ);
        audio_frame->i_pts = audio_frame->i_dts = VLC_TS_0 + packet_time;
403

Rafaël Carré's avatar
Rafaël Carré committed
404 405 406 407
        vlc_mutex_lock(&sys->pts_lock);
        if (audio_frame->i_pts > sys->last_pts)
            sys->last_pts = audio_frame->i_pts;
        vlc_mutex_unlock(&sys->pts_lock);
408

409
        es_out_SetPCR(demux_->out, audio_frame->i_pts);
Rafaël Carré's avatar
Rafaël Carré committed
410
        es_out_Send(demux_->out, sys->audio_es, audio_frame);
411 412 413 414 415
    }

    return S_OK;
}

416 417 418

static int GetAudioConn(demux_t *demux)
{
419
    demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
420 421 422 423 424 425 426 427 428 429 430 431

    char *opt = var_CreateGetNonEmptyString(demux, "decklink-audio-connection");
    if (!opt)
        return VLC_SUCCESS;

    BMDAudioConnection c;
    if (!strcmp(opt, "embedded"))
        c = bmdAudioConnectionEmbedded;
    else if (!strcmp(opt, "aesebu"))
        c = bmdAudioConnectionAESEBU;
    else if (!strcmp(opt, "analog"))
        c = bmdAudioConnectionAnalog;
Rafaël Carré's avatar
Rafaël Carré committed
432
    else {
433 434 435 436 437
        msg_Err(demux, "Invalid audio-connection: `%s\' specified", opt);
        free(opt);
        return VLC_EGENERIC;
    }

Rafaël Carré's avatar
Rafaël Carré committed
438
    if (sys->config->SetInt(bmdDeckLinkConfigAudioInputConnection, c) != S_OK) {
439 440 441 442 443 444 445 446 447
        msg_Err(demux, "Failed to set audio input connection");
        return VLC_EGENERIC;
    }

    return VLC_SUCCESS;
}

static int GetVideoConn(demux_t *demux)
{
448
    demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466

    char *opt = var_InheritString(demux, "decklink-video-connection");
    if (!opt)
        return VLC_SUCCESS;

    BMDVideoConnection c;
    if (!strcmp(opt, "sdi"))
        c = bmdVideoConnectionSDI;
    else if (!strcmp(opt, "hdmi"))
        c = bmdVideoConnectionHDMI;
    else if (!strcmp(opt, "opticalsdi"))
        c = bmdVideoConnectionOpticalSDI;
    else if (!strcmp(opt, "component"))
        c = bmdVideoConnectionComponent;
    else if (!strcmp(opt, "composite"))
        c = bmdVideoConnectionComposite;
    else if (!strcmp(opt, "svideo"))
        c = bmdVideoConnectionSVideo;
Rafaël Carré's avatar
Rafaël Carré committed
467
    else {
468 469 470 471 472 473
        msg_Err(demux, "Invalid video-connection: `%s\' specified", opt);
        free(opt);
        return VLC_EGENERIC;
    }

    free(opt);
Rafaël Carré's avatar
Rafaël Carré committed
474
    if (sys->config->SetInt(bmdDeckLinkConfigVideoInputConnection, c) != S_OK) {
475 476 477 478 479 480 481
        msg_Err(demux, "Failed to set video input connection");
        return VLC_EGENERIC;
    }

    return VLC_SUCCESS;
}

Rafaël Carré's avatar
Rafaël Carré committed
482
static int Open(vlc_object_t *p_this)
483
{
Rafaël Carré's avatar
Rafaël Carré committed
484 485
    demux_t     *demux = (demux_t*)p_this;
    demux_sys_t *sys;
486
    int         ret = VLC_EGENERIC;
Rafaël Carré's avatar
Rafaël Carré committed
487
    int         card_index;
488
    int         physical_channels = 0;
Rafaël Carré's avatar
Rafaël Carré committed
489
    int         rate;
490
    BMDVideoInputFlags flags = bmdVideoInputFlagDefault;
491

492 493 494
    if (demux->out == NULL)
        return VLC_EGENERIC;

Rafaël Carré's avatar
Rafaël Carré committed
495 496 497 498 499
    /* Set up demux */
    demux->pf_demux = NULL;
    demux->pf_control = Control;
    demux->p_sys = sys = (demux_sys_t*)calloc(1, sizeof(demux_sys_t));
    if (!sys)
500 501
        return VLC_ENOMEM;

Rafaël Carré's avatar
Rafaël Carré committed
502
    vlc_mutex_init(&sys->pts_lock);
503

504 505
    sys->tenbits = var_InheritBool(p_this, "decklink-tenbits");

506
    IDeckLinkIterator *decklink_iterator = CreateDeckLinkIteratorInstance();
Rafaël Carré's avatar
Rafaël Carré committed
507
    if (!decklink_iterator) {
Rafaël Carré's avatar
Rafaël Carré committed
508
        msg_Err(demux, "DeckLink drivers not found.");
509 510 511
        goto finish;
    }

Rafaël Carré's avatar
Rafaël Carré committed
512
    card_index = var_InheritInteger(demux, "decklink-card-index");
Rafaël Carré's avatar
Rafaël Carré committed
513
    if (card_index < 0) {
Rafaël Carré's avatar
Rafaël Carré committed
514
        msg_Err(demux, "Invalid card index %d", card_index);
515 516 517
        goto finish;
    }

Rafaël Carré's avatar
Rafaël Carré committed
518
    for (int i = 0; i <= card_index; i++) {
Rafaël Carré's avatar
Rafaël Carré committed
519 520
        if (sys->card)
            sys->card->Release();
Rafaël Carré's avatar
Rafaël Carré committed
521
        if (decklink_iterator->Next(&sys->card) != S_OK) {
522 523 524
            msg_Err(demux, "DeckLink PCI card %d not found", card_index);
            goto finish;
        }
525 526
    }

Rafaël Carré's avatar
Rafaël Carré committed
527
    const char *model_name;
Rafaël Carré's avatar
Rafaël Carré committed
528 529
    if (sys->card->GetModelName(&model_name) != S_OK)
        model_name = "unknown";
530

Rafaël Carré's avatar
Rafaël Carré committed
531
    msg_Dbg(demux, "Opened DeckLink PCI card %d (%s)", card_index, model_name);
532

Rafaël Carré's avatar
Rafaël Carré committed
533
    if (sys->card->QueryInterface(IID_IDeckLinkInput, (void**)&sys->input) != S_OK) {
Rafaël Carré's avatar
Rafaël Carré committed
534
        msg_Err(demux, "Card has no inputs");
535 536 537 538
        goto finish;
    }

    /* Set up the video and audio sources. */
Rafaël Carré's avatar
Rafaël Carré committed
539
    if (sys->card->QueryInterface(IID_IDeckLinkConfiguration, (void**)&sys->config) != S_OK) {
Rafaël Carré's avatar
Rafaël Carré committed
540
        msg_Err(demux, "Failed to get configuration interface");
541 542 543
        goto finish;
    }

544 545 546 547 548
    if (sys->card->QueryInterface(IID_IDeckLinkAttributes, (void**)&sys->attributes) != S_OK) {
        msg_Err(demux, "Failed to get attributes interface");
        goto finish;
    }

549 550
    if (GetVideoConn(demux) || GetAudioConn(demux))
        goto finish;
551

552 553 554 555
    BMDPixelFormat fmt;
    fmt = sys->tenbits ? bmdFormat10BitYUV : bmdFormat8BitYUV;
    if (sys->attributes->GetFlag(BMDDeckLinkSupportsInputFormatDetection, &sys->autodetect) != S_OK) {
        msg_Err(demux, "Failed to query card attribute");
556 557 558
        goto finish;
    }

Rafaël Carré's avatar
Rafaël Carré committed
559 560 561 562
    /* Get the list of display modes. */
    IDeckLinkDisplayModeIterator *mode_it;
    if (sys->input->GetDisplayModeIterator(&mode_it) != S_OK) {
        msg_Err(demux, "Failed to enumerate display modes");
563 564 565
        goto finish;
    }

Rafaël Carré's avatar
Rafaël Carré committed
566 567 568 569
    union {
        BMDDisplayMode id;
        char str[4];
    } u;
570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596

    u.id = 0;

    char *mode;
    mode = var_CreateGetNonEmptyString(demux, "decklink-mode");
    if (mode)
        sys->autodetect = false; // disable autodetection if mode was set

    if (sys->autodetect) {
        msg_Dbg(demux, "Card supports input format detection");
        flags |= bmdVideoInputEnableFormatDetection;
        /* Enable a random format, we will reconfigure on format detection */
        u.id = htonl(bmdModeHD1080p2997);
    } else {
        if (!mode || strlen(mode) < 3 || strlen(mode) > 4) {
            msg_Err(demux, "Invalid mode: \'%s\'", mode ? mode : "");
            free(mode);
            goto finish;
        }

        msg_Dbg(demux, "Looking for mode \'%s\'", mode);
        memcpy(u.str, mode, 4);
        if (u.str[3] == '\0')
            u.str[3] = ' '; /* 'pal'\0 -> 'pal ' */
        free(mode);
    }

597
    sys->video_fmt.video.i_width = 0;
Rafaël Carré's avatar
Rafaël Carré committed
598 599 600

    for (IDeckLinkDisplayMode *m;; m->Release()) {
        if ((mode_it->Next(&m) != S_OK) || !m)
601 602
            break;

Rafaël Carré's avatar
Rafaël Carré committed
603
        const char *mode_name;
604
        BMDTimeValue frame_duration, time_scale;
605 606
        uint32_t field_flags;
        const char *field = GetFieldDominance(m->GetFieldDominance(), &field_flags);
Rafaël Carré's avatar
Rafaël Carré committed
607 608 609 610 611 612 613
        BMDDisplayMode id = ntohl(m->GetDisplayMode());

        if (m->GetName(&mode_name) != S_OK)
            mode_name = "unknown";
        if (m->GetFrameRate(&frame_duration, &time_scale) != S_OK) {
            time_scale = 0;
            frame_duration = 1;
614 615
        }

Rafaël Carré's avatar
Rafaël Carré committed
616 617 618 619
        msg_Dbg(demux, "Found mode '%4.4s': %s (%dx%d, %.3f fps%s)",
                 (char*)&id, mode_name,
                 (int)m->GetWidth(), (int)m->GetHeight(),
                 double(time_scale) / frame_duration, field);
620

Rafaël Carré's avatar
Rafaël Carré committed
621
        if (u.id == id) {
622
            sys->video_fmt = GetModeSettings(demux, m, bmdDetectedVideoInputYCbCr422);
623
            msg_Dbg(demux, "Using that mode");
624 625 626
        }
    }

Rafaël Carré's avatar
Rafaël Carré committed
627 628
    mode_it->Release();

629
    if (sys->video_fmt.video.i_width == 0) {
Rafaël Carré's avatar
Rafaël Carré committed
630
        msg_Err(demux, "Unknown video mode `%4.4s\' specified.", (char*)&u.id);
631 632 633
        goto finish;
    }

634
    if (sys->input->EnableVideoInput(htonl(u.id), fmt, flags) != S_OK) {
Rafaël Carré's avatar
Rafaël Carré committed
635
        msg_Err(demux, "Failed to enable video input");
636 637 638 639
        goto finish;
    }

    /* Set up audio. */
Rafaël Carré's avatar
Rafaël Carré committed
640
    sys->channels = var_InheritInteger(demux, "decklink-audio-channels");
641 642 643 644 645 646 647 648 649 650 651 652 653 654
    switch (sys->channels) {
    case 0:
        break;
    case 2:
        physical_channels = AOUT_CHANS_STEREO;
        break;
    case 8:
        physical_channels = AOUT_CHANS_7_1;
        break;
    //case 16:
    default:
        msg_Err(demux, "Invalid number of channels (%d), disabling audio", sys->channels);
        sys->channels = 0;
    }
Rafaël Carré's avatar
Rafaël Carré committed
655
    rate = var_InheritInteger(demux, "decklink-audio-rate");
Rafaël Carré's avatar
Rafaël Carré committed
656 657
    if (rate > 0 && sys->channels > 0) {
        if (sys->input->EnableAudioInput(rate, bmdAudioSampleType16bitInteger, sys->channels) != S_OK) {
Rafaël Carré's avatar
Rafaël Carré committed
658
            msg_Err(demux, "Failed to enable audio input");
659 660 661 662
            goto finish;
        }
    }

Rafaël Carré's avatar
Rafaël Carré committed
663 664
    sys->delegate = new DeckLinkCaptureDelegate(demux);
    sys->input->SetCallback(sys->delegate);
665

Rafaël Carré's avatar
Rafaël Carré committed
666
    if (sys->input->StartStreams() != S_OK) {
Rafaël Carré's avatar
Rafaël Carré committed
667 668
        msg_Err(demux, "Could not start streaming from SDI card. This could be caused "
                          "by invalid video mode or flags, access denied, or card already in use.");
669 670 671
        goto finish;
    }

Rafaël Carré's avatar
Rafaël Carré committed
672
    msg_Dbg(demux, "added new video es %4.4s %dx%d",
673 674
             (char*)&sys->video_fmt.i_codec, sys->video_fmt.video.i_width, sys->video_fmt.video.i_height);
    sys->video_es = es_out_Add(demux->out, &sys->video_fmt);
675 676

    es_format_t audio_fmt;
Rafaël Carré's avatar
Rafaël Carré committed
677 678
    es_format_Init(&audio_fmt, AUDIO_ES, VLC_CODEC_S16N);
    audio_fmt.audio.i_channels = sys->channels;
679
    audio_fmt.audio.i_physical_channels = physical_channels;
Rafaël Carré's avatar
Rafaël Carré committed
680
    audio_fmt.audio.i_rate = rate;
681 682 683 684
    audio_fmt.audio.i_bitspersample = 16;
    audio_fmt.audio.i_blockalign = audio_fmt.audio.i_channels * audio_fmt.audio.i_bitspersample / 8;
    audio_fmt.i_bitrate = audio_fmt.audio.i_channels * audio_fmt.audio.i_rate * audio_fmt.audio.i_bitspersample;

Rafaël Carré's avatar
Rafaël Carré committed
685
    msg_Dbg(demux, "added new audio es %4.4s %dHz %dbpp %dch",
686
             (char*)&audio_fmt.i_codec, audio_fmt.audio.i_rate, audio_fmt.audio.i_bitspersample, audio_fmt.audio.i_channels);
Rafaël Carré's avatar
Rafaël Carré committed
687
    sys->audio_es = es_out_Add(demux->out, &audio_fmt);
688 689 690 691

    ret = VLC_SUCCESS;

finish:
Rafaël Carré's avatar
Rafaël Carré committed
692
    if (decklink_iterator)
693 694
        decklink_iterator->Release();

Rafaël Carré's avatar
Rafaël Carré committed
695 696
    if (ret != VLC_SUCCESS)
        Close(p_this);
697 698 699 700

    return ret;
}

Rafaël Carré's avatar
Rafaël Carré committed
701
static void Close(vlc_object_t *p_this)
702
{
Rafaël Carré's avatar
Rafaël Carré committed
703
    demux_t     *demux = (demux_t *)p_this;
704
    demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
705

706 707 708
    if (sys->attributes)
        sys->attributes->Release();

Rafaël Carré's avatar
Rafaël Carré committed
709 710
    if (sys->config)
        sys->config->Release();
711

Rafaël Carré's avatar
Rafaël Carré committed
712
    if (sys->input) {
Rafaël Carré's avatar
Rafaël Carré committed
713 714
        sys->input->StopStreams();
        sys->input->Release();
715 716
    }

Rafaël Carré's avatar
Rafaël Carré committed
717 718
    if (sys->card)
        sys->card->Release();
719

Rafaël Carré's avatar
Rafaël Carré committed
720 721
    if (sys->delegate)
        sys->delegate->Release();
722

Rafaël Carré's avatar
Rafaël Carré committed
723 724
    vlc_mutex_destroy(&sys->pts_lock);
    free(sys);
725 726
}

Rafaël Carré's avatar
Rafaël Carré committed
727
static int Control(demux_t *demux, int query, va_list args)
728
{
729
    demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
730
    bool *pb;
Rafaël Carré's avatar
Rafaël Carré committed
731
    int64_t *pi64;
732

Rafaël Carré's avatar
Rafaël Carré committed
733
    switch(query)
734 735 736 737 738
    {
        /* Special for access_demux */
        case DEMUX_CAN_PAUSE:
        case DEMUX_CAN_SEEK:
        case DEMUX_CAN_CONTROL_PACE:
739
            pb = va_arg(args, bool *);
740 741 742 743
            *pb = false;
            return VLC_SUCCESS;

        case DEMUX_GET_PTS_DELAY:
744
            pi64 = va_arg(args, int64_t *);
Rafaël Carré's avatar
Rafaël Carré committed
745
            *pi64 = INT64_C(1000) * var_InheritInteger(demux, "live-caching");
746 747 748
            return VLC_SUCCESS;

        case DEMUX_GET_TIME:
749
            pi64 = va_arg(args, int64_t *);
Rafaël Carré's avatar
Rafaël Carré committed
750 751 752
            vlc_mutex_lock(&sys->pts_lock);
            *pi64 = sys->last_pts;
            vlc_mutex_unlock(&sys->pts_lock);
753 754 755 756 757 758
            return VLC_SUCCESS;

        default:
            return VLC_EGENERIC;
    }
}