/*
 * Copyright (C) 2008-2011 Teluu Inc. (http://www.teluu.com)
 * Copyright (C) 2003-2008 Benny Prijono <benny@prijono.org>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
#include "test.h"
#include <pjmedia-audiodev/audiodev.h>
#include <pjmedia-codec/ffmpeg_vid_codecs.h>
#include <pjmedia/vid_codec.h>
#include <pjmedia_videodev.h>


#if defined(PJMEDIA_HAS_VIDEO) && (PJMEDIA_HAS_VIDEO != 0)


#define THIS_FILE       "vid_dev_test.c"
#define LOOP_DURATION   10

static pj_bool_t is_quitting = PJ_FALSE;

static const char *vid_dir_name(pjmedia_dir dir)
{
    switch (dir) {
    case PJMEDIA_DIR_CAPTURE:
        return "capture";
    case PJMEDIA_DIR_RENDER:
        return "render";
    case PJMEDIA_DIR_CAPTURE_RENDER:
        return "capture & render";
    default:
        return "unknown";
    }
}

static int enum_devs(void)
{
    unsigned i, dev_cnt;
    pj_status_t status;

    PJ_LOG(3, (THIS_FILE, " Enum video devices:"));
    dev_cnt = pjmedia_vid_dev_count();
    for (i = 0; i < dev_cnt; ++i) {
        pjmedia_vid_dev_info di;
        status = pjmedia_vid_dev_get_info(i, &di);
        if (status == PJ_SUCCESS) {
            unsigned j;

            PJ_LOG(3, (THIS_FILE, " %3d: %s (%s) - %s", i, di.name, di.driver,
                       vid_dir_name(di.dir)));

            PJ_LOG(3,(THIS_FILE, "      Supported formats:"));
            for (j=0; j<di.fmt_cnt; ++j) {
                const pjmedia_video_format_info *vfi;

                vfi = pjmedia_get_video_format_info(NULL, di.fmt[j].id);
                PJ_LOG(3,(THIS_FILE, "       %s",
                          (vfi ? vfi->name : "unknown")));
            }
        }
    }

    return PJ_SUCCESS;
}

static pj_status_t vid_event_cb(pjmedia_event *event,
                                void *user_data)
{
    PJ_UNUSED_ARG(user_data);

    if (event->type == PJMEDIA_EVENT_WND_CLOSED)
        is_quitting = PJ_TRUE;

    return PJ_SUCCESS;
}

static int capture_render_loopback(int cap_dev_id, int rend_dev_id,
                                   const pjmedia_format *fmt)
{
    pj_pool_t *pool;
    pjmedia_vid_port *capture=NULL, *renderer=NULL;
    pjmedia_vid_dev_info cdi, rdi;
    pjmedia_vid_port_param param;
    pjmedia_video_format_detail *vfd;
    pj_status_t status;
    int rc = 0, i;

    pool = pj_pool_create(mem, "vidloop", 1000, 1000, NULL);

    status = pjmedia_vid_dev_get_info(cap_dev_id, &cdi);
    if (status != PJ_SUCCESS)
        goto on_return;

    status = pjmedia_vid_dev_get_info(rend_dev_id, &rdi);
    if (status != PJ_SUCCESS)
        goto on_return;

    PJ_LOG(3,(THIS_FILE,
              "  %s (%s) ===> %s (%s)\t%s\t%dx%d\t@%d:%d fps",
              cdi.name, cdi.driver, rdi.name, rdi.driver,
              pjmedia_get_video_format_info(NULL, fmt->id)->name,
              fmt->det.vid.size.w, fmt->det.vid.size.h,
              fmt->det.vid.fps.num, fmt->det.vid.fps.denum));

    pjmedia_vid_port_param_default(&param);

    /* Create capture, set it to active (master) */
    status = pjmedia_vid_dev_default_param(pool, cap_dev_id,
                                           &param.vidparam);
    if (status != PJ_SUCCESS) {
        rc = 100; goto on_return;
    }
    param.vidparam.dir = PJMEDIA_DIR_CAPTURE;
    param.vidparam.fmt = *fmt;
    param.active = PJ_TRUE;

    if (param.vidparam.fmt.detail_type != PJMEDIA_FORMAT_DETAIL_VIDEO) {
        rc = 103; goto on_return;
    }

    vfd = pjmedia_format_get_video_format_detail(&param.vidparam.fmt, PJ_TRUE);
    if (vfd == NULL) {
        rc = 105; goto on_return;
    }

    status = pjmedia_vid_port_create(pool, &param, &capture);
    if (status != PJ_SUCCESS) {
        rc = 110; goto on_return;
    }

    /* Create renderer, set it to passive (slave)  */
    status = pjmedia_vid_dev_default_param(pool, rend_dev_id,
                                           &param.vidparam);
    if (status != PJ_SUCCESS) {
        rc = 120; goto on_return;
    }

    param.active = PJ_FALSE;
    param.vidparam.dir = PJMEDIA_DIR_RENDER;
    param.vidparam.rend_id = rend_dev_id;
    param.vidparam.fmt = *fmt;
    param.vidparam.disp_size = vfd->size;

    status = pjmedia_vid_port_create(pool, &param, &renderer);
    if (status != PJ_SUCCESS) {
        rc = 130; goto on_return;
    }

    /* Set event handler */
    pjmedia_event_subscribe(NULL, &vid_event_cb, NULL, renderer);

    /* Connect capture to renderer */
    status = pjmedia_vid_port_connect(
                 capture,
                 pjmedia_vid_port_get_passive_port(renderer),
                 PJ_FALSE);
    if (status != PJ_SUCCESS) {
        rc = 140; goto on_return;
    }

    /* Start streaming.. */
    status = pjmedia_vid_port_start(renderer);
    if (status != PJ_SUCCESS) {
        rc = 150; goto on_return;
    }
    status = pjmedia_vid_port_start(capture);
    if (status != PJ_SUCCESS) {
        rc = 160; goto on_return;
    }

    /* Sleep while the webcam is being displayed... */
    for (i = 0; i < LOOP_DURATION*10 && (!is_quitting); i++) {
        pj_thread_sleep(100);
    }

on_return:
    if (status != PJ_SUCCESS)
        PJ_PERROR(3, (THIS_FILE, status, "   error"));

    if (capture)
        pjmedia_vid_port_stop(capture);
    if (renderer)
        pjmedia_vid_port_stop(renderer);
    if (capture)
        pjmedia_vid_port_destroy(capture);
    if (renderer) {
        pjmedia_event_unsubscribe(NULL, &vid_event_cb, NULL, renderer);
        pjmedia_vid_port_destroy(renderer);
    }

    pj_pool_release(pool);
    return rc;
}

static int loopback_test(void)
{
    unsigned count, i;
    pjmedia_format_id test_fmts[] = {
#if defined(PJ_DARWINOS) && PJ_DARWINOS
        PJMEDIA_FORMAT_I420
#else
        PJMEDIA_FORMAT_YUY2
#endif
    };
    pjmedia_rect_size test_sizes[] = {
        {176,144},      /* QCIF */
        {352,288},      /* CIF */
        {704,576}       /* 4CIF */
    };
    pjmedia_ratio test_fpses[] = {
        {25, 1},
        {30, 1},
    };
    pj_status_t status;

    PJ_LOG(3, (THIS_FILE, " Loopback tests (prepare you webcams):"));

    count = pjmedia_vid_dev_count();
    for (i=0; i<count; ++i) {
        pjmedia_vid_dev_info cdi;
        unsigned j;

        status = pjmedia_vid_dev_get_info(i, &cdi);
        if (status != PJ_SUCCESS)
            return -300;

        /* Only interested with capture device */
        if ((cdi.dir & PJMEDIA_DIR_CAPTURE) == 0)
            continue;

        for (j=i+1; j<count; ++j) {
            pjmedia_vid_dev_info rdi;
            unsigned k;

            status = pjmedia_vid_dev_get_info(j, &rdi);
            if (status != PJ_SUCCESS)
                return -310;

            /* Only interested with render device */
            if ((rdi.dir & PJMEDIA_DIR_RENDER) == 0)
                continue;

            /* Test with the format, size, and fps combinations */
            for (k=0; k<PJ_ARRAY_SIZE(test_fmts); ++k) {
                unsigned l;

                for (l=0; l<PJ_ARRAY_SIZE(test_sizes); ++l) {
                    unsigned m;

                    for (m=0; m<PJ_ARRAY_SIZE(test_fpses); ++m) {
                        pjmedia_format fmt;

                        pjmedia_format_init_video(&fmt, test_fmts[k],
                                                  test_sizes[l].w,
                                                  test_sizes[l].h,
                                                  test_fpses[m].num,
                                                  test_fpses[m].denum);

                        capture_render_loopback(i, j, &fmt);
                    }
                }
            } /* k */

        }
    }

    return 0;
}

int vid_dev_test(void)
{
    int rc = 0;
    pj_status_t status;
    
    status = pjmedia_vid_dev_subsys_init(mem);
    if (status != PJ_SUCCESS)
        return -10;

    rc = enum_devs();
    if (rc != 0)
        goto on_return;

    rc = loopback_test();
    if (rc != 0)
        goto on_return;

on_return:
    pjmedia_vid_dev_subsys_shutdown();
    
    return rc;
}


#endif /* PJMEDIA_HAS_VIDEO */
