/*
 * Copyright (C) 2006 Marcus Overhagen <marcus@overhagen.de>. All rights reserved.
 * Copyright (C) 2008 Maurice Kalinowski <haiku@kaldience.com>. All rights reserved.
 *
 * Distributed under the terms of the MIT License.
 */
#include "VideoNode.h"
#include "VideoView.h"
#include "VideoWindow.h"


#include <Bitmap.h>
#include <Buffer.h>
#include <BufferGroup.h>
#include <Debug.h>
#include <MediaRoster.h>
#include <Locker.h>
#include <TimeSource.h>
#include <Window.h>
#include <stdio.h>
#include <string.h>


VideoNode::VideoNode(const char *name)
 :      BMediaNode(name)
 ,      BMediaEventLooper()
 ,      BBufferConsumer(B_MEDIA_RAW_VIDEO)
 ,      fWindow(0)
 ,      fVideoView(0)
 ,      fInput()
 ,      fOverlayEnabled(true)
 ,      fOverlayActive(false)
 ,      fDirectOverlayBuffer(false)
 ,      fBitmap(0)
 ,      fBitmapLocker(new BLocker("Video Node Locker"))
 ,      fAddOn(0)
 ,      fInternalFlavorId(0)
{
        _InitDisplay();
}


VideoNode::VideoNode(const char *name, BMediaAddOn* addon, int32 id)
 :      BMediaNode(name)
 ,      BMediaEventLooper()
 ,      BBufferConsumer(B_MEDIA_RAW_VIDEO)
 ,      fWindow(0)
 ,      fVideoView(0)
 ,      fInput()
 ,      fOverlayEnabled(true)
 ,      fOverlayActive(false)
 ,      fDirectOverlayBuffer(false)
 ,      fBitmap(0)
 ,      fBitmapLocker(new BLocker("Video Node Locker"))
 ,      fAddOn(addon)
 ,      fInternalFlavorId(id)
{
        _InitDisplay();
}


VideoNode::~VideoNode()
{
        Quit();
        DeleteBuffers();
        delete fBitmapLocker;
        if (fWindow && fWindow->Lock())
                fWindow->Quit();
}


BMediaAddOn     *
VideoNode::AddOn(int32 *internal_id) const
{
        *internal_id = fInternalFlavorId;
        return fAddOn;
}


void
VideoNode::NodeRegistered()
{
        fInput.node = Node();
        fInput.source = media_source::null;
        fInput.destination.port = ControlPort();
        fInput.destination.id = 0;
        fInput.format.type = B_MEDIA_RAW_VIDEO;
        fInput.format.u.raw_video = media_raw_video_format::wildcard;
        strcpy(fInput.name, "video in");

        SetPriority(B_DISPLAY_PRIORITY);
        Run();
}


void
VideoNode::BufferReceived(BBuffer * buffer)
{
        if (RunState() != B_STARTED) {
                buffer->Recycle();
                return;
        }
        if (fOverlayActive && fDirectOverlayBuffer) {
                HandleBuffer(buffer);
        } else {
                media_timed_event event(buffer->Header()->start_time,
                        BTimedEventQueue::B_HANDLE_BUFFER, buffer,
                        BTimedEventQueue::B_RECYCLE_BUFFER);
                EventQueue()->AddEvent(event);
        }
}


status_t
VideoNode::GetNextInput(int32 *cookie,  media_input *out_input)
{
        if (*cookie < 1) {
                *out_input = fInput;
                *cookie += 1;
                return B_OK;
        }
        return B_ERROR;
}


void
VideoNode::DisposeInputCookie(int32 cookie)
{
        // nothing to do
}


status_t
VideoNode::     HandleMessage(int32 message, const void *data, size_t size)
{
        return B_ERROR;
}


void
VideoNode::HandleEvent(const media_timed_event *event, bigtime_t lateness,
        bool realTimeEvent)
{
        switch (event->type) {
                case BTimedEventQueue::B_START:
                        break;
                case BTimedEventQueue::B_STOP:
                        EventQueue()->FlushEvents(event->event_time,
                                BTimedEventQueue::B_ALWAYS, true,
                                BTimedEventQueue::B_HANDLE_BUFFER);
                        break;
                case BTimedEventQueue::B_HANDLE_BUFFER:
                        HandleBuffer((BBuffer *)event->pointer);
                        break;
                case BTimedEventQueue::B_SEEK:
                        fprintf(stderr, "VideoNode::HandleEvent Seek event not handled\n");
                        break;
                default:
                        fprintf(stderr, "VideoNode::HandleEvent unknown event\n");
                        break;
        }
}


void
VideoNode::ProducerDataStatus(const media_destination &dst, int32 status,
        bigtime_t at_media_time)
{
        // do nothing
}


status_t
VideoNode::GetLatencyFor(const media_destination &dst,  bigtime_t *out_latency,
        media_node_id *out_id)
{
        if (dst != fInput.destination)
                return B_MEDIA_BAD_DESTINATION;

        *out_latency = 10000;
        *out_id = TimeSource()->ID();
        return B_OK;
}


status_t
VideoNode::AcceptFormat(const media_destination &dst, media_format *format)
{
        /* The connection process:
         *                BBufferProducer::FormatProposal
         * we are here => BBufferConsumer::AcceptFormat
         *                BBufferProducer::PrepareToConnect
         *                BBufferConsumer::Connected
         *                BBufferProducer::Connect
         */
        if (dst != fInput.destination)
                return B_MEDIA_BAD_DESTINATION;

        if (format->type == B_MEDIA_NO_TYPE)
                format->type = B_MEDIA_RAW_VIDEO;

        if (format->type != B_MEDIA_RAW_VIDEO)
                return B_MEDIA_BAD_FORMAT;

        return B_OK;
}


status_t
VideoNode::Connected(const media_source &src, const media_destination &dst,
        const media_format &format, media_input *out_input)
{
        /* The connection process:
         *                BBufferProducer::FormatProposal
         *                BBufferConsumer::AcceptFormat
         *                BBufferProducer::PrepareToConnect
         * we are here => BBufferConsumer::Connected
         *                BBufferProducer::Connect
         */

        if (dst != fInput.destination)
                return B_MEDIA_BAD_DESTINATION;

        fInput.source = src;
        fInput.format = format;

        if (fInput.format.u.raw_video.field_rate < 1.0)
                fInput.format.u.raw_video.field_rate = 25.0;

        // In order to display video we need to create a buffer that is either
        // in the overlay colorspace B_YCbCr422
        // or the requested colorspace if not B_YCbCr422
        // and we need to tell the node upstream of our choice

        BRect frame(0, 0, format.u.raw_video.display.line_width - 1,
                format.u.raw_video.display.line_count - 1);

        DeleteBuffers();
        status_t err;

        if (format.u.raw_video.display.format == B_NO_COLOR_SPACE) {
                // upstream node is leaving it up to us so we try overlay then
                // B_RGBA32 (We probably should try what format the screen is)
                err = CreateBuffers(frame, B_YCbCr422, true);
                SetOverlayEnabled(err == B_OK);
                if (!fOverlayEnabled) {
                        // no overlay available so fall back to RGBA32
                        err = CreateBuffers(frame, B_RGBA32, false);
                }
        } else if (format.u.raw_video.display.format == B_YCbCr422) {
                // upstream node is likely requesting overlay
                err = CreateBuffers(frame, B_YCbCr422, true);
                SetOverlayEnabled(err == B_OK);
                // if we cannot give them what they want then return error
        } else {
                // upstream node is requesting some other format
                SetOverlayEnabled(false);
                err = CreateBuffers(frame, format.u.raw_video.display.format,
                        fOverlayEnabled);
        }

        if (err) {
                fprintf(stderr, "VideoNode::Connected failed, fOverlayEnabled = %d\n",
                        fOverlayEnabled);
                return err;
        } else {
                fInput.format.u.raw_video.display.format = fBitmap->ColorSpace();
        }

        *out_input = fInput;

        return B_OK;
}


void
VideoNode::Disconnected(const media_source &src, const media_destination &dst)
{
        if (src != fInput.source)
                return;
        if (dst != fInput.destination)
                return;

        DeleteBuffers();

        // disconnect the connection
        fInput.source = media_source::null;
}


status_t
VideoNode::FormatChanged(const media_source &src, const media_destination &dst,
        int32 from_change_count, const media_format &format)
{
        if (src != fInput.source)
                return B_MEDIA_BAD_SOURCE;
        if (dst != fInput.destination)
                return B_MEDIA_BAD_DESTINATION;

        color_space colorspace = format.u.raw_video.display.format;
        BRect frame(0, 0, format.u.raw_video.display.line_width - 1,
                format.u.raw_video.display.line_count - 1);

        status_t err;

        DeleteBuffers();
        if (fOverlayEnabled) {
                fVideoView->RemoveOverlay();
                err = CreateBuffers(frame, colorspace, true); // try overlay
                if (err) {
                        fprintf(stderr, "VideoNode::FormatChanged creating overlay buffer failed\n");
                        err = CreateBuffers(frame, colorspace, false); // no overlay
                }
        } else {
                err = CreateBuffers(frame, colorspace, false); // no overlay
        }

        if (err) {
                fprintf(stderr, "VideoNode::FormatChanged failed (lost buffer group!)\n");
                return B_MEDIA_BAD_FORMAT;
        }

        fInput.format = format;

        return B_OK;
}


void
VideoNode::HandleBuffer(BBuffer *buffer)
{
        LockBitmap();
        if (fBitmap && fWindow && fVideoView) {
//              bigtime_t start = system_time();
                if (fOverlayActive) {
                        if (B_OK == fBitmap->LockBits()) {
                                memcpy(fBitmap->Bits(), buffer->Data(), fBitmap->BitsLength());
                                fBitmap->UnlockBits();
                        }
                } else {
                        memcpy(fBitmap->Bits(), buffer->Data(), fBitmap->BitsLength());
                }
//              printf("overlay copy: %lld usec\n", system_time() - start);
        }
        UnlockBitmap();

        buffer->Recycle();

        fVideoView->DrawFrame();
}


void
VideoNode::SetOverlayEnabled(bool yesno)
{
        fOverlayEnabled = yesno;
}


void
VideoNode::LockBitmap()
{
        fBitmapLocker->Lock();
}


BBitmap *
VideoNode::Bitmap()
{
        return fBitmap;
}


void
VideoNode::UnlockBitmap()
{
        fBitmapLocker->Unlock();
}


bool
VideoNode::IsOverlayActive()
{
        return fOverlayActive;
}


status_t
VideoNode::CreateBuffers(BRect frame, color_space cspace, bool overlay)
{
        printf("VideoNode::CreateBuffers: frame %d,%d,%d,%d colorspace 0x%08x, "
                "overlay %d\n", int(frame.left), int(frame.top), int(frame.right),
                int(frame.bottom), int(cspace), overlay);

        LockBitmap();
        ASSERT(fBitmap == 0);

        uint32 flags = 0;
        if (overlay)
                flags = B_BITMAP_WILL_OVERLAY | B_BITMAP_RESERVE_OVERLAY_CHANNEL;

        fBitmap = new BBitmap(frame, flags, cspace);
        if (!(fBitmap && fBitmap->InitCheck() == B_OK && fBitmap->IsValid())) {
                delete fBitmap;
                fBitmap = NULL;
                fOverlayActive = false;
                UnlockBitmap();
                fprintf(stderr, "VideoNode::CreateBuffers failed\n");
                return B_MEDIA_BAD_FORMAT;
        }
        fOverlayActive = overlay;
        UnlockBitmap();

        return B_OK;
}


void
VideoNode::DeleteBuffers()
{
        LockBitmap();
        delete fBitmap;
        fBitmap = NULL;
        UnlockBitmap();
}


void
VideoNode::_InitDisplay()
{
        // TODO: Get rid of hardcoded values
        BRect size(0,0,320,240);
        fVideoView = new VideoView(size, "Video View", B_FOLLOW_ALL_SIDES,
                B_WILL_DRAW | B_FULL_UPDATE_ON_RESIZE, this);

        size.OffsetBy(40.f, 40.f);
        fWindow = new VideoWindow(size, fVideoView);
        fWindow->Show();
}