PeerStreamer

/*

 *  Copyright (c) 2009-2011 Carmelo Daniele, Dario Marchese, Diego Reforgiato, Giuseppe Tropea

 *  Copyright (c) 2010-2011 Csaba Kiraly

 *  developed for the Napa-Wine EU project. See www.napa-wine.eu

 *

 *  This is free software; see lgpl-2.1.txt

 */

#include <libavcodec/avcodec.h>

#include <libavformat/avformat.h>

#include <libswscale/swscale.h>

#include "libav-compat.h"

#include <stdio.h>

#include <unistd.h>

#include "external_chunk_transcoding.h"

#include "frame.h"

#include <SDL.h>

#include <SDL_thread.h>

#include <SDL_mutex.h>

// #include <SDL_ttf.h>

// #include <SDL_image.h>

#include <SDL_video.h>

#include <assert.h>

#include <time.h>

#include "player_stats.h"

#include "player_defines.h"

#include "chunker_player.h"

#include "player_gui.h"

#include "player_core.h"

#include "player_stats.h"

#define MAX(A,B)    ((A)>(B) ? (A) : (B))

#define MIN(A,B)    ((A)<(B) ? (A) : (B))

SDL_Overlay *YUVOverlay;

typedef struct PacketQueue {

        AVPacketList *first_pkt;

        AVPacket *minpts_pkt;

        AVPacketList *last_pkt;

        int nb_packets;

        int size;

        SDL_mutex *mutex;

        short int queueType;

        int last_frame_extracted; //HINT THIS SHOULD BE MORE THAN 4 BYTES

        //total frames lost, as seen from the queue, since last queue init

        int total_lost_frames;

        long cumulative_bitrate;

        long cumulative_samples;

        SHistory PacketHistory;

        double density;

        char stats_message[255];

} PacketQueue;

AVCodecContext  *aCodecCtx;

SDL_Thread *video_thread;

SDL_Thread *stats_thread;

uint8_t *outbuf_audio;

// short int QueueFillingMode=1;

short int QueueStopped;

ThreadVal VideoCallbackThreadParams;

int AudioQueueOffset;

PacketQueue audioq;

PacketQueue videoq;

AVPacket AudioPkt, VideoPkt;

int AVPlaying;

int CurrentAudioFreq;

int CurrentAudioSamples;

uint8_t CurrentAudioSilence;

int GotSigInt;

long long DeltaTime;

short int FirstTimeAudio, FirstTime;

int dimAudioQ;

float deltaAudioQ;

float deltaAudioQError;

int SaveYUV;

char YUVFileName[256];

int SaveLoss;

char VideoFrameLossRateLogFilename[256];

char VideoFrameSkipRateLogFilename[256];

long int decoded_vframes;

long int LastSavedVFrame;

void SaveFrame(AVFrame *pFrame, int width, int height);

int VideoCallback(void *valthread);

int CollectStatisticsThread(void *params);

void AudioCallback(void *userdata, Uint8 *stream, int len);

void PacketQueueClearStats(PacketQueue *q);

//int lastCheckedVideoFrame = -1;

long int last_video_frame_extracted = -1;

int timeval_subtract(struct timeval* x, struct timeval* y, struct timeval* result)

{

  // Perform the carry for the later subtraction by updating y.

  if (x->tv_usec < y->tv_usec)

  {

    int nsec = (y->tv_usec - x->tv_usec) / 1000000 + 1;

    y->tv_usec -= 1000000 * nsec;

    y->tv_sec += nsec;

  }

  if (x->tv_usec - y->tv_usec > 1000000)

  {

    int nsec = (x->tv_usec - y->tv_usec) / 1000000;

    y->tv_usec += 1000000 * nsec;

    y->tv_sec -= nsec;

  }

  // Compute the time remaining to wait. tv_usec is certainly positive.

  result->tv_sec = x->tv_sec - y->tv_sec;

  result->tv_usec = x->tv_usec - y->tv_usec;

  // Return 1 if result is negative.

  return x->tv_sec < y->tv_sec;

}

void PacketQueueInit(PacketQueue *q, short int Type)

{

#ifdef DEBUG_QUEUE

        printf("QUEUE: INIT BEGIN: NPackets=%d Type=%s\n", q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO");

#endif

        memset(q,0,sizeof(PacketQueue));

        q->mutex = SDL_CreateMutex();

        QueueFillingMode=1;

        q->queueType=Type;

        q->last_frame_extracted = -1;

        q->first_pkt= NULL;

        q->minpts_pkt= NULL;

        //q->last_pkt = NULL;

        q->nb_packets = 0;

        q->size = 0;

        q->density= 0.0;

        FirstTime = 1;

        FirstTimeAudio = 1;

        //init up statistics

        q->PacketHistory.Mutex = SDL_CreateMutex();

        PacketQueueClearStats(q);

#ifdef DEBUG_QUEUE

        printf("QUEUE: INIT END: NPackets=%d Type=%s\n", q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO");

#endif

}

void PacketQueueReset(PacketQueue *q)

{

        AVPacketList *tmp,*tmp1;

#ifdef DEBUG_QUEUE

        printf("QUEUE: RESET BEGIN: NPackets=%d Type=%s LastExtr=%d\n", q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO", q->last_frame_extracted);

#endif

        SDL_LockMutex(q->mutex);

        tmp = q->first_pkt;

        while(tmp) {

                tmp1 = tmp;

                tmp = tmp->next;

                av_free_packet(&(tmp1->pkt));

                av_free(tmp1);

#ifdef DEBUG_QUEUE

                printf("F ");

#endif

                q->PacketHistory.LostCount++;

        }

#ifdef DEBUG_QUEUE

        printf("\n");

#endif

        QueueFillingMode=1;

        q->last_frame_extracted = -1;

        // on queue reset do not reset loss count

        // (loss count reset is done on queue init, ie channel switch)

        q->density=0.0;

        q->first_pkt= NULL;

        q->minpts_pkt= NULL;

        //q->last_pkt = NULL;

        q->nb_packets = 0;

        q->size = 0;

        FirstTime = 1;

        FirstTimeAudio = 1;

        //clean up statistics

        PacketQueueClearStats(q);

#ifdef DEBUG_QUEUE

        printf("QUEUE: RESET END: NPackets=%d Type=%s LastExtr=%d\n", q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO", q->last_frame_extracted);

#endif

        SDL_UnlockMutex(q->mutex);

}

void PacketQueueClearStats(PacketQueue *q)

{

        sprintf(q->stats_message, "%s", "\n");

        int i;

        memset((void*)q->PacketHistory.History, 0, sizeof(SHistoryElement)*QUEUE_HISTORY_SIZE);

        for(i=0; i<QUEUE_HISTORY_SIZE; i++)

        {

                q->PacketHistory.History[i].Statistics.LastIFrameDistance = -1;

                q->PacketHistory.History[i].Status = -1;

        }

        q->PacketHistory.Index = q->PacketHistory.LogIndex = 0;

        q->PacketHistory.Index = q->PacketHistory.QoEIndex = 0;

        q->PacketHistory.LostCount = q->PacketHistory.PlayedCount = q->PacketHistory.SkipCount = 0;

}

int ChunkerPlayerCore_PacketQueuePut(PacketQueue *q, AVPacket *pkt)

{

        //~ printf("\tSTREAM_INDEX=%d\n", pkt->stream_index);

        short int skip = 0;

        AVPacketList *pkt1, *tmp, *prevtmp;

        int res = 0;

        if(q->nb_packets > queue_filling_threshold*QUEUE_MAX_GROW_FACTOR) {

#ifdef DEBUG_QUEUE

                printf("QUEUE: PUT i have TOO MANY packets %d Type=%s, RESETTING\n", q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO");

#endif

                PacketQueueReset(q);

        }

        //make a copy of the incoming packet

        if(av_dup_packet(pkt) < 0) {

#ifdef DEBUG_QUEUE

                printf("QUEUE: PUT in Queue cannot duplicate in packet        : NPackets=%d Type=%s\n",q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO");

#endif

                return -1;

        }

        pkt1 = av_malloc(sizeof(AVPacketList));

        if(!pkt1) {

                av_free_packet(pkt);

                return -1;

        }

        pkt1->pkt = *pkt;

        pkt1->next = NULL;

        static time_t last_auto_switch = 0;

        if(

                (pkt->stream_index < last_video_frame_extracted)

                && (pkt->stream_index <= RESTART_FRAME_NUMBER_THRESHOLD)

                && ((time(NULL) - last_auto_switch) > 10)

        )

        {

                printf("file streaming loop detected => re-tune channel and start grabbing statistics\n");

                last_auto_switch = time(NULL);

                SDL_LockMutex(q->mutex);

                ReTune(&(Channels[SelectedChannel]));

                SDL_UnlockMutex(q->mutex);

        }

        else

        {

                SDL_LockMutex(q->mutex);

                // INSERTION SORT ALGORITHM

                // before inserting pkt, check if pkt.stream_index is <= current_extracted_frame.

                if(pkt->stream_index > q->last_frame_extracted)

                {

                        // either checking starting from the first_pkt or needed other struct like AVPacketList with next and prev....

                        //if (!q->last_pkt)

                        if(!q->first_pkt) {

                                q->first_pkt = pkt1;

                                q->last_pkt = pkt1;

                        }

                        else if(pkt->stream_index < q->first_pkt->pkt.stream_index) {

                                //the packet that has arrived is earlier than the first we got some time ago!

                                //we need to put it at the head of the queue

                                pkt1->next = q->first_pkt;

                                q->first_pkt = pkt1;

                        }

                        else {

                                tmp = q->first_pkt;

                                while(tmp->pkt.stream_index < pkt->stream_index) {

                                        prevtmp = tmp;

                                        tmp = tmp->next;

                                        if(!tmp) {

                                                break;

                                        }

                                }

                                if(tmp && tmp->pkt.stream_index == pkt->stream_index) {

                                        //we already have a frame with that index

                                        skip = 1;

#ifdef DEBUG_QUEUE

                                        printf("%s QUEUE: PUT: we already have frame with index %d, skipping\n", ((q->queueType == AUDIO) ? "AUDIO" : "VIDEO"), pkt->stream_index);

#endif

                                }

                                else {

                                        prevtmp->next = pkt1;

                                        pkt1->next = tmp;

                                        if(pkt1->next == NULL)

                                                q->last_pkt = pkt1;

                                }

                                //q->last_pkt->next = pkt1; // It was uncommented when not insertion sort

                        }

                        if(skip == 0) {

                                //q->last_pkt = pkt1;

                                q->nb_packets++;

                                q->size += pkt1->pkt.size;

                                if(q->nb_packets>=queue_filling_threshold && QueueFillingMode) // && q->queueType==AUDIO)

                                {

                                        QueueFillingMode=0;

#ifdef DEBUG_QUEUE

                                        printf("QUEUE: PUT: FillingMode set to zero\n");

#endif

                                }

                                //set min

                                if (!q->minpts_pkt || (pkt1->pkt.pts < q->minpts_pkt->pts)) {

                                        q->minpts_pkt = &(pkt1->pkt);

                                }

                        }

                }

                else {

                        av_free_packet(&pkt1->pkt);

                        av_free(pkt1);

#ifdef DEBUG_QUEUE

                        printf("QUEUE: PUT: NOT inserting because index %d <= last extracted %d\n", pkt->stream_index, q->last_frame_extracted);

#endif

                        res = 1;

                }

                SDL_UnlockMutex(q->mutex);

        }

        return res;

}

int OpenACodec (char *audio_codec, int sample_rate, short int audio_channels)

{

        AVCodec *aCodec;

        aCodecCtx = avcodec_alloc_context();

        //aCodecCtx->bit_rate = 64000;

        aCodecCtx->sample_rate = sample_rate;

        aCodecCtx->channels = audio_channels;

        aCodec = avcodec_find_decoder_by_name(audio_codec);

        if(!aCodec) {

                printf("Codec not found!\n");

                return -1;

        }

        if(avcodec_open(aCodecCtx, aCodec)<0) {

                fprintf(stderr, "could not open codec\n");

                return -1; // Could not open codec

        }

        printf("using audio Codecid: %d ",aCodecCtx->codec_id);

        printf("samplerate: %d ",aCodecCtx->sample_rate);

        printf("channels: %d\n",aCodecCtx->channels);

        return 1;

}

int OpenAudio(AVCodecContext  *aCodecCtx)

{

        SDL_AudioSpec *wanted_spec;

        static SDL_AudioSpec *wanted_spec_old = NULL;

        if (! (wanted_spec = malloc(sizeof(*wanted_spec)))) {

                perror("error initializing audio");

                return -1;

        }

        wanted_spec->freq = aCodecCtx->sample_rate;

        wanted_spec->format = AUDIO_S16SYS;

        wanted_spec->channels = aCodecCtx->channels;

        wanted_spec->silence = 0;

        wanted_spec->samples = SDL_AUDIO_BUFFER_SIZE;

        wanted_spec->callback = AudioCallback;

        wanted_spec->userdata = aCodecCtx;

#ifdef DEBUG_AUDIO

        printf("wanted freq:%d\n",wanted_spec->freq);

        printf("wanted format:%d\n",wanted_spec->format);

        printf("wanted channels:%d\n",wanted_spec->channels);

        printf("wanted silence:%d\n",wanted_spec->silence);

        printf("wanted samples:%d\n",wanted_spec->samples);

#endif

        if (wanted_spec_old && 

           (wanted_spec->freq == wanted_spec_old->freq) &&

           (wanted_spec->channels == wanted_spec_old->channels)) {        //do not reinit audio if the wanted specification is the same as before

                return 1;

        }

        if(wanted_spec_old) {

                SDL_CloseAudio();

        }

        if (! (wanted_spec_old = malloc(sizeof(*wanted_spec_old)))) {

                perror("error initializing audio");

                return -1;

        }

        memcpy(wanted_spec_old, wanted_spec, sizeof(*wanted_spec));

        if (SDL_OpenAudio(wanted_spec,NULL)<0) {

                fprintf(stderr,"SDL_OpenAudio: %s\n", SDL_GetError());

                return -1;

        }

        CurrentAudioFreq = wanted_spec->freq;

        CurrentAudioSamples = wanted_spec->samples;

        dimAudioQ = wanted_spec->size;

        deltaAudioQ = (float)((float)wanted_spec->samples)*1000/wanted_spec->freq;        //in ms

        CurrentAudioSilence = wanted_spec->silence;

#ifdef DEBUG_AUDIO

        printf("freq:%d\n",wanted_spec->freq);

        printf("format:%d\n",wanted_spec->format);

        printf("channels:%d\n",wanted_spec->channels);

        printf("silence:%d\n",wanted_spec->silence);

        printf("samples:%d\n",wanted_spec->samples);

        printf("size:%d\n",wanted_spec->size);

        printf("deltaAudioQ: %f\n",deltaAudioQ);

#endif

        return 1;

}

int ChunkerPlayerCore_InitAudioCodecs(char *audio_codec, int sample_rate, short int audio_channels)

{

        // some initializations

        QueueStopped = 0;

        AudioQueueOffset=0;

        AVPlaying = 0;

        GotSigInt = 0;

        FirstTimeAudio=1;

        FirstTime = 1;

        deltaAudioQError=0;

        if (OpenACodec(audio_codec, sample_rate, audio_channels) < 0) {

                return -1;

        }

        if (OpenAudio(aCodecCtx) < 1) {

                return -1;

        }

        outbuf_audio = malloc(AVCODEC_MAX_AUDIO_FRAME_SIZE);

        //initialize the audio queue

        PacketQueueInit(&audioq, AUDIO);

        // Init audio buffers

        av_init_packet(&AudioPkt);

        //printf("AVCODEC_MAX_AUDIO_FRAME_SIZE=%d\n", AVCODEC_MAX_AUDIO_FRAME_SIZE);

        AudioPkt.data=(uint8_t *)malloc(AVCODEC_MAX_AUDIO_FRAME_SIZE);

        if(!AudioPkt.data) return -1;

        return 0;

}

int ChunkerPlayerCore_InitVideoCodecs(char *v_codec, int width, int height)

{

        memset(&VideoCallbackThreadParams, 0, sizeof(ThreadVal));

        VideoCallbackThreadParams.width = width;

        VideoCallbackThreadParams.height = height;

        VideoCallbackThreadParams.video_codec = strdup(v_codec);

        //initialize the video queue

        PacketQueueInit(&videoq, VIDEO);

        // Init video buffers

        av_init_packet(&VideoPkt);

        VideoPkt.data=(uint8_t *)malloc(width*height*3/2);

        if(!VideoPkt.data) return -1;

        return 0;

}

int ChunkerPlayerCore_InitCodecs(char *v_codec, int width, int height, char *audio_codec, int sample_rate, short int audio_channels)

{

        char audio_stats[255], video_stats[255];

        // Register all formats and codecs

        av_log_set_level(AV_LOG_WARNING);

        avcodec_init();

        av_register_all();

        if (ChunkerPlayerCore_InitAudioCodecs(audio_codec, sample_rate, audio_channels) < 0) {

                return -1;

        }

        if (ChunkerPlayerCore_InitVideoCodecs(v_codec, width, height) < 0) {

                return -1;

        }

        av_log_set_level(AV_LOG_FATAL);

        sprintf(audio_stats, "waiting for incoming audio packets...");

        sprintf(video_stats, "waiting for incoming video packets...");

        ChunkerPlayerGUI_SetStatsText(audio_stats, video_stats,qoe_led ? LED_GREEN : LED_NONE);

}

int DecodeEnqueuedAudio(AVPacket *pkt, PacketQueue *q, int* size)

{

        uint16_t *audio_bufQ = NULL;

        int16_t *dataQ = NULL;

        int data_sizeQ = AVCODEC_MAX_AUDIO_FRAME_SIZE;

        int lenQ;

        int ret = 0;

        //set the flag to decoded anyway        

        pkt->convergence_duration = -1;

        audio_bufQ = (uint16_t *)av_malloc(AVCODEC_MAX_AUDIO_FRAME_SIZE);

        if(audio_bufQ) {

#ifdef DEBUG_AUDIO_BUFFER

                printf("AUDIO_BUFFER: about to decode packet %d, size %d, data %d\n", pkt->stream_index, pkt->size, pkt->data);

#endif

                //decode the packet data

                lenQ = avcodec_decode_audio3(aCodecCtx, (int16_t *)audio_bufQ, &data_sizeQ, pkt);

                if(lenQ > 0) {

                        dataQ = (int16_t *)av_malloc(data_sizeQ); //this will be free later at the time of playback

                        if(dataQ) {

                                memcpy(dataQ, audio_bufQ, data_sizeQ);

                                if(pkt->data != NULL)

                                {

                                        //discard the old encoded bytes

                                        av_free(pkt->data);

                                }

                                //subtract them from queue size

                                q->size -= pkt->size;

                                *size = pkt->size;

                                pkt->data = (uint8_t *)dataQ;

                                pkt->size = data_sizeQ;

                                //add new size to queue size

                                q->size += pkt->size;

                                ret = 1;

                        }

                        else {

#ifdef DEBUG_AUDIO_BUFFER

                                printf("AUDIO_BUFFER: cannot alloc space for decoded packet %d\n", pkt->stream_index);

#endif

                        }

                }

                else {

#ifdef DEBUG_AUDIO_BUFFER

                        printf("AUDIO_BUFFER: cannot decode packet %d\n", pkt->stream_index);

#endif

                }

                av_free(audio_bufQ);

        }

        else {

#ifdef DEBUG_AUDIO_BUFFER

                printf("AUDIO_BUFFER: cannot alloc decode buffer for packet %d\n", pkt->stream_index);

#endif

        }

        return ret; //problems occurred

}

/**

 * removes a packet from the list and returns the next

 * */

AVPacketList *RemoveFromQueue(PacketQueue *q, AVPacketList *p)

{

        AVPacketList *p1;

        if (q->first_pkt == p) {

                q->first_pkt = p->next;

        }

        if (&(p->pkt) == q->minpts_pkt) {

                q->minpts_pkt = NULL;

        }

        AVPacketList *retpk = p->next;

        q->nb_packets--;

        //adjust size here and not in the various cases of the dequeue

        q->size -= p->pkt.size;

        if(&p->pkt)

        {

                av_free_packet(&p->pkt);

        }

        if(p) {

                av_free(p);

        }

        //updating min info

        for (p1 = q->first_pkt; p1; p1 = p1->next) {

                if (!q->minpts_pkt || p1->pkt.pts < q->minpts_pkt->pts) {

                        q->minpts_pkt = &(p1->pkt);

                }

        }

        return retpk;

}

AVPacketList *SeekAndDecodePacketStartingFrom(AVPacketList *p, PacketQueue *q, int* size)

{

        while(p) {

                        //check if audio packet has been already decoded

                        if(p->pkt.convergence_duration == 0) {

                                //not decoded yet, try to decode it

                                if( !DecodeEnqueuedAudio(&(p->pkt), q, size) ) {

                                        //it was not possible to decode this packet, return next one

                                        p = RemoveFromQueue(q, p);

                                }

                                else

                                        return p;

                        }

                        else

                                return p;

        }

        return NULL;

}

int PacketQueueGet(PacketQueue *q, AVPacket *pkt, short int av, int* size)

{

        //AVPacket tmp;

        AVPacketList *pkt1 = NULL;

        int ret=-1;

        int SizeToCopy=0;

        int reqsize;

        SDL_LockMutex(q->mutex);

#ifdef DEBUG_QUEUE

        printf("QUEUE: Get NPackets=%d Type=%s\n", q->nb_packets, (q->queueType==AUDIO) ? "AUDIO" : "VIDEO");

#endif

        if((q->queueType==AUDIO && QueueFillingMode) || QueueStopped)

        {

                SDL_UnlockMutex(q->mutex);

                return -1;

        }

        if(av==1) { //somebody requested an audio packet, q is the audio queue

                reqsize = dimAudioQ; //TODO pass this as parameter, not garanteed by SDL to be exactly dimAudioQ

                pkt->size = 0;

                pkt->dts = 0;

                pkt->pts = 0;

                //try to dequeue the first packet of the audio queue

                pkt1 = q->first_pkt;

                while (pkt->size < reqsize && pkt1 && SeekAndDecodePacketStartingFrom(pkt1, q, size)) {

                        AVPacketList *next = pkt1->next;        //save it here since we could delete pkt1 later

                        if (!pkt->dts) pkt->dts = pkt1->pkt.dts;

                        if (!pkt->pts) pkt->pts = pkt1->pkt.pts;

                        pkt->stream_index = pkt1->pkt.stream_index;

                        pkt->flags = 1;

                        pkt->pos = -1;

                        pkt->convergence_duration = -1;

                        if (pkt1->pkt.size - AudioQueueOffset <= reqsize - pkt->size) { //we need the whole packet

                                SizeToCopy = pkt1->pkt.size - AudioQueueOffset;        //packet might be partial

                                memcpy(pkt->data + pkt->size, pkt1->pkt.data + AudioQueueOffset, SizeToCopy);

                                pkt->size += SizeToCopy;

                                AudioQueueOffset = 0;

                                RemoveFromQueue(q, pkt1);

                        } else {

                                SizeToCopy = reqsize - pkt->size;        //partial packet remains

                                memcpy(pkt->data + pkt->size, pkt1->pkt.data + AudioQueueOffset, SizeToCopy);

                                pkt->size += SizeToCopy;

                                AudioQueueOffset += SizeToCopy;

                                pkt1->pkt.dts += SizeToCopy/(dimAudioQ/CurrentAudioSamples)/(CurrentAudioFreq/1000);

                                pkt1->pkt.pts += SizeToCopy/(dimAudioQ/CurrentAudioSamples)/(CurrentAudioFreq/1000);

                        }

#ifdef DEBUG_AUDIO_BUFFER

                        printf("2: idx %d    \taqo %d    \tstc %d    \taqe %f    \tpsz %d\n", pkt1->pkt.stream_index, AudioQueueOffset, SizeToCopy, deltaAudioQError, pkt1->pkt.size);

#endif

                        //update index of last frame extracted

                        //ChunkerPlayerStats_UpdateAudioLossHistory(&(q->PacketHistory), pkt->stream_index, q->last_frame_extracted);

                        q->last_frame_extracted = pkt->stream_index;

                        pkt1 = next;

                }

                ret = 1; //TODO: check some conditions

        } else { //somebody requested a video packet, q is the video queue

                pkt1 = q->first_pkt;

                if(pkt1) {

#ifdef DEBUG_QUEUE_DEEP

                        printf("  AV not 1\n");

#endif

                        pkt->size = pkt1->pkt.size;

                        pkt->dts = pkt1->pkt.dts;

                        pkt->pts = pkt1->pkt.pts;

                        pkt->stream_index = pkt1->pkt.stream_index;

                        pkt->flags = pkt1->pkt.flags;

                        pkt->pos = pkt1->pkt.pos;

                        pkt->convergence_duration = pkt1->pkt.convergence_duration;

                        //*pkt = pkt1->pkt;

                        if((pkt->data != NULL) && (pkt1->pkt.data != NULL))

                                memcpy(pkt->data, pkt1->pkt.data, pkt1->pkt.size);

                        //HINT SEE BEFORE q->size -= pkt1->pkt.size;

                        RemoveFromQueue(q, pkt1);

                        ret = 1;

                        ChunkerPlayerStats_UpdateVideoLossHistory(&(q->PacketHistory), pkt->stream_index, q->last_frame_extracted);

                        //update index of last frame extracted

                        q->last_frame_extracted = pkt->stream_index;

                        last_video_frame_extracted = q->last_frame_extracted;

                }

#ifdef DEBUG_QUEUE

                else {

                        printf("  VIDEO pk1 NULL!!!!\n");

                }

#endif

        }

        if(q->nb_packets==0 && q->queueType==AUDIO) {

                QueueFillingMode=1;

#ifdef DEBUG_QUEUE

                printf("QUEUE: Get FillingMode ON\n");

#endif

        }

#ifdef DEBUG_QUEUE

        printf("QUEUE: Get Last %s Frame Extracted = %d\n", (q->queueType==AUDIO) ? "AUDIO" : "VIDEO", q->last_frame_extracted);

#endif

        SDL_UnlockMutex(q->mutex);

        return ret;

}

int AudioDecodeFrame(uint8_t *audio_buf, int buf_size) {

        //struct timeval now;

        int audio_pkt_size = 0;

        int compressed_size = 0;

        long long Now;

        short int DecodeAudio=0, SkipAudio=0;

        //int len1, data_size;

        //gettimeofday(&now,NULL);

        //Now = (now.tv_sec)*1000+now.tv_usec/1000;

        Now=(long long)SDL_GetTicks();

        if(QueueFillingMode || QueueStopped)

        {

                //SDL_LockMutex(timing_mutex);

                FirstTimeAudio=1;

                FirstTime = 1;

                //SDL_UnlockMutex(timing_mutex);

                return -1;

        }

        if((FirstTime==1 || FirstTimeAudio==1) && audioq.size>0) {

                if(audioq.first_pkt->pkt.pts>0)

                {

                        //SDL_LockMutex(timing_mutex);

                        DeltaTime=Now-(long long)(audioq.first_pkt->pkt.pts);

                        FirstTimeAudio = 0;

                        FirstTime = 0;

                        //SDL_UnlockMutex(timing_mutex);

#ifdef DEBUG_AUDIO 

                         printf("AUDIO: audio_decode_frame - DeltaTimeAudio=%lld\n",DeltaTime);

#endif

                }

        }

#ifdef DEBUG_AUDIO 

        if(audioq.first_pkt)

        {

                printf("AUDIO: audio_decode_frame - Syncro params: Delta:%lld Now:%lld pts=%lld pts+Delta=%lld ",(long long)DeltaTime,Now,(long long)audioq.first_pkt->pkt.pts,(long long)audioq.first_pkt->pkt.pts+DeltaTime);

                printf("AUDIO: QueueLen=%d ",(int)audioq.nb_packets);

                printf("AUDIO: QueueSize=%d\n",(int)audioq.size);

        }

        else

                printf("AUDIO: audio_decode_frame - Empty queue\n");

#endif

        if(audioq.nb_packets>0)

        {

                if((double)audioq.first_pkt->pkt.pts+DeltaTime<Now+deltaAudioQ)        //too late ... TODO: figure out the right number

                {

                        SkipAudio = 1;

                        DecodeAudio = 0;

                }

                else if((double)audioq.first_pkt->pkt.pts+DeltaTime>=Now+deltaAudioQ &&        //TODO: figure out the right number

                        (double)audioq.first_pkt->pkt.pts+DeltaTime<=Now+deltaAudioQ+3*deltaAudioQ) {        //TODO: how much in future? On some systems, SDL asks for more buffers in a raw

                                SkipAudio = 0;

                                DecodeAudio = 1;

                }

        }

        while(SkipAudio==1 && audioq.size>0)

        {

                SkipAudio = 0;

#ifdef DEBUG_AUDIO

                 printf("AUDIO: skipaudio: queue size=%d\n",audioq.size);

#endif

                if(PacketQueueGet(&audioq,&AudioPkt,1, &compressed_size) < 0) {

                        return -1;

                }

                if(audioq.first_pkt)

                {

                        ChunkerPlayerStats_UpdateAudioSkipHistory(&(audioq.PacketHistory), AudioPkt.stream_index, compressed_size);

                        if((double)audioq.first_pkt->pkt.pts+DeltaTime<Now+deltaAudioQ)        //TODO: figure out the right number

                        {

                                SkipAudio = 1;

                                DecodeAudio = 0;

                        }

                        else if((double)audioq.first_pkt->pkt.pts+DeltaTime>=Now+deltaAudioQ &&        //TODO: figure out the right number

                                (double)audioq.first_pkt->pkt.pts+DeltaTime<=Now+deltaAudioQ+3*deltaAudioQ) {        //TODO: how much in future?

                                        SkipAudio = 0;

                                        DecodeAudio = 1;

                        }

                }

        }

        if(DecodeAudio==1) {

                if(PacketQueueGet(&audioq,&AudioPkt,1, &compressed_size) < 0) {

                        return -1;

                }

#ifdef DEBUG_SYNC

                fprintf(stderr, "AUDIO delay =%lld ms\n",(long long)AudioPkt.pts+DeltaTime-Now);

#endif

                memcpy(audio_buf,AudioPkt.data,AudioPkt.size);

                audio_pkt_size = AudioPkt.size;

#ifdef DEBUG_AUDIO

                 printf("AUDIO: Decode audio\n");

#endif

                ChunkerPlayerStats_UpdateAudioPlayedHistory(&(audioq.PacketHistory), AudioPkt.stream_index, compressed_size);

        }

        return audio_pkt_size;

}

// Render a Frame to a YUV Overlay. Note that the Overlay is already bound to an SDL Surface

// Note that width, height would not be needed in new ffmpeg versions where this info is contained in AVFrame

// see: [FFmpeg-devel] [PATCH] lavc: add width and height fields to AVFrame

int RenderFrame2Overlay(AVFrame *pFrame, int frame_width, int frame_height, int tcrop, int bcrop,  SDL_Overlay *YUVOverlay)

{

        AVPicture pict;

        unsigned int ycrop = 50;

        static struct SwsContext *img_convert_ctx = NULL;        //if the function is used for more streams, this could be made part of some context passed as a parameter (to optimize performance)

                                        if(SDL_LockYUVOverlay(YUVOverlay) < 0) {

                                                return -1;

                                        }

                                        pict.data[0] = YUVOverlay->pixels[0];

                                        pict.data[1] = YUVOverlay->pixels[2];

                                        pict.data[2] = YUVOverlay->pixels[1];

                                        pict.linesize[0] = YUVOverlay->pitches[0];

                                        pict.linesize[1] = YUVOverlay->pitches[2];

                                        pict.linesize[2] = YUVOverlay->pitches[1];

                                        img_convert_ctx = sws_getCachedContext(img_convert_ctx, frame_width, frame_height - tcrop - bcrop, PIX_FMT_YUV420P, YUVOverlay->w, YUVOverlay->h, PIX_FMT_YUV420P, SWS_BICUBIC, NULL, NULL, NULL);

                                        if(img_convert_ctx == NULL) {

                                                fprintf(stderr, "Cannot initialize the conversion context!\n");

                                                exit(1);

                                        }

                                        // let's draw the data (*yuv[3]) on a SDL screen (*screen)

                                        sws_scale(img_convert_ctx, pFrame->data, pFrame->linesize, -tcrop, frame_height - bcrop, pict.data, pict.linesize);

                                        SDL_UnlockYUVOverlay(YUVOverlay);

        return 0;

}

// Render a YUV Overlay to the specified Rect of the Surface. Note that the Overlay is already bound to an SDL Surface.

int RenderOverlay2Rect(SDL_Overlay *YUVOverlay, SDL_Rect *Rect)

{

                                        // Lock SDL_yuv_overlay

                                        if(SDL_MUSTLOCK(MainScreen)) {

                                                if(SDL_LockSurface(MainScreen) < 0) {

                                                        return -1;

                                                }

                                        }

                                        // Show, baby, show!

                                        SDL_LockMutex(OverlayMutex);

                                        SDL_DisplayYUVOverlay(YUVOverlay, Rect);

                                        SDL_UnlockMutex(OverlayMutex);

                                        if(SDL_MUSTLOCK(MainScreen)) {

                                                SDL_UnlockSurface(MainScreen);

                                        }

        return 0;

}

int VideoCallback(void *valthread)

{

        //AVPacket pktvideo;

        AVCodecContext  *pCodecCtx;

        AVCodec         *pCodec;

        AVFrame         *pFrame;

        int frameFinished;

        long long Now;

        long long Last = 0;

        short int SkipVideo, DecodeVideo;

        uint64_t last_pts = 0;

        long long decode_delay = 0;

        int queue_size_checked = 0;

#ifdef SAVE_YUV

        static AVFrame* lastSavedFrameBuffer = NULL;

        if(!lastSavedFrameBuffer)

                lastSavedFrameBuffer = (AVFrame*) malloc(sizeof(AVFrame));

#endif

        //double frame_rate = 0.0,time_between_frames=0.0;

        //struct timeval now;

        //int wait_for_sync = 1;

        ThreadVal *tval;

        tval = (ThreadVal *)valthread;

        //frame_rate = tval->framerate;

        //time_between_frames = 1.e6 / frame_rate;

        //gettimeofday(&time_now,0);

        //frecon = fopen("recondechunk.mpg","wb");

        //setup video decoder

        pCodec = avcodec_find_decoder_by_name(tval->video_codec);

        if (pCodec) {

                fprintf(stderr, "INIT: Setting VIDEO codecID to: %d\n",pCodec->id);

        } else {

                fprintf(stderr, "INIT: Unknown VIDEO codec: %s!\n", tval->video_codec);

                return -1; // Codec not found

        }

        pCodecCtx=avcodec_alloc_context();

        pCodecCtx->codec_type = CODEC_TYPE_VIDEO;

        //pCodecCtx->debug = FF_DEBUG_DCT_COEFF;

        pCodecCtx->codec_id = pCodec->id;

        //pCodecCtx->bit_rate = 400000;

        // resolution must be a multiple of two

        pCodecCtx->width = tval->width;//176;//352;

        pCodecCtx->height = tval->height;//144;//288;

        // frames per second

        //pCodecCtx->time_base = (AVRational){1,25};

        //pCodecCtx->gop_size = 10; // emit one intra frame every ten frames

        //pCodecCtx->max_b_frames=1;

        pCodecCtx->pix_fmt = PIX_FMT_YUV420P;

        pCodec=avcodec_find_decoder(pCodecCtx->codec_id);

        if(pCodec==NULL) {

                fprintf(stderr, "Unsupported codec!\n");

                return -1; // Codec not found

        }

        if(avcodec_open(pCodecCtx, pCodec) < 0) {

                fprintf(stderr, "could not open codec\n");

                return -1; // Could not open codec

        }

        pFrame=avcodec_alloc_frame();

        if(pFrame==NULL) {

                printf("Memory error!!!\n");

                return -1;

        }

#ifdef DEBUG_VIDEO

         printf("VIDEO: video_callback entering main cycle\n");

#endif

        while(AVPlaying && !quit) {

                if(QueueFillingMode || QueueStopped)

                {

                        //SDL_LockMutex(timing_mutex);

                        FirstTime = 1;

                        //SDL_UnlockMutex(timing_mutex);

                        usleep(5000);

                        continue;

                }

                DecodeVideo = 0;

                SkipVideo = 0;

                Now=(long long)SDL_GetTicks();

                if(FirstTime==1 && videoq.size>0) {

                        if(videoq.first_pkt->pkt.pts>0)

                        {

                                //SDL_LockMutex(timing_mutex);

                                DeltaTime=Now-(long long)videoq.first_pkt->pkt.pts;

                                FirstTime = 0;

                                FirstTimeAudio = 0;

                                //SDL_UnlockMutex(timing_mutex);

                        }

#ifdef DEBUG_VIDEO 

                         printf("VIDEO: VideoCallback - DeltaTimeAudio=%lld\n",DeltaTime);

#endif

                }

#ifdef DEBUG_VIDEO 

                if(videoq.first_pkt)

                {

                        printf("VIDEO: VideoCallback - Syncro params: Delta:%lld Now:%lld pts=%lld pts+Delta=%lld ",(long long)DeltaTime,Now,(long long)videoq.first_pkt->pkt.pts,(long long)videoq.first_pkt->pkt.pts+DeltaTime);

                        printf("VIDEO: Index=%d ", (int)videoq.first_pkt->pkt.stream_index);

                        printf("VIDEO: QueueLen=%d ", (int)videoq.nb_packets);

                        printf("VIDEO: QueueSize=%d\n", (int)videoq.size);

                }

                else

                        printf("VIDEO: VideoCallback - Empty queue\n");

#endif

#ifdef DEBUG_VIDEO

                printf("VIDEO: skipvideo:%d decodevideo:%d\n",SkipVideo,DecodeVideo);

#endif

//                        ChunkerPlayerStats_UpdateVideoSkipHistory(&(videoq.PacketHistory), VideoPkt.stream_index, pFrame->pict_type, VideoPkt.size, pFrame);

                if(videoq.nb_packets>0) {

                        if (!queue_size_checked && videoq.last_pkt->pkt.pts - videoq.first_pkt->pkt.pts < decode_delay) {        //queue too short

#ifdef DEBUG_SYNC

                                fprintf(stderr, "VIDEO queue too short,diff(%lld) < decode_delay(%lld), increasing delta from \n",videoq.last_pkt->pkt.pts - videoq.first_pkt->pkt.pts, decode_delay, DeltaTime);

#endif

                                DeltaTime += decode_delay - (videoq.last_pkt->pkt.pts - videoq.first_pkt->pkt.pts);

                                queue_size_checked = 1;        //make sure we do not increase the delay several times bacause of the same frame

                        }

                        if (videoq.first_pkt->pkt.pts + DeltaTime - Now < decode_delay) {        //time to decode, should be based on DTS

                            if (PacketQueueGet(&videoq,&VideoPkt,0, NULL) > 0) {

                                queue_size_checked = 0;

                                avcodec_decode_video2(pCodecCtx, pFrame, &frameFinished, &VideoPkt);

#ifdef DEBUG_SYNC

                                fprintf(stderr, "VIDEO delta =%lld ms; dt=%lld \n",(long long) pFrame->pkt_pts - last_pts, Now - Last);

#endif

                                last_pts = pFrame->pkt_pts;

                                if (pFrame->pkt_pts) decode_delay = MAX(decode_delay, VideoPkt.pts - pFrame->pkt_pts);        //TODO: base this on dts

                                decode_delay = MIN(decode_delay, 40 * 5);        //TODO, this workaround would not be needed if decode_delay would be based on DTS

#ifdef DEBUG_SYNC

                                fprintf(stderr, "VIDEO t=%lld ms ptsin=%lld ptsout=%lld \n",Now, (long long)VideoPkt.pts+DeltaTime, pFrame->pkt_pts+DeltaTime);

                                fprintf(stderr, "VIDEO delay =%lld ms ; %lld ms \n",(long long)VideoPkt.pts+DeltaTime-Now, pFrame->pkt_pts+DeltaTime-Now);

#endif

                                if(frameFinished)

                                { // it must be true all the time else error

                                        long long target_pts = pFrame->pkt_pts + DeltaTime;

                                        long long earlier = target_pts - Now;

#ifdef DEBUG_VIDEO

                                        printf("VIDEO: FrameFinished\n");

#endif

                                        decoded_vframes++;

#ifdef VIDEO_DEINTERLACE

                                        avpicture_deinterlace(

                                                (AVPicture*) pFrame,

                                                (const AVPicture*) pFrame,

                                                pCodecCtx->pix_fmt,

                                                tval->width, tval->height);

#endif

#ifdef SAVE_YUV

                                        if(LastSavedVFrame == -1)

                                        {

                                                memcpy(lastSavedFrameBuffer, pFrame, sizeof(AVFrame));

                                                SaveFrame(pFrame, pCodecCtx->width, pCodecCtx->height);

                                                LastSavedVFrame = VideoPkt.stream_index;

                                        }

                                        else if(LastSavedVFrame == (VideoPkt.stream_index-1))

                                        {

                                                memcpy(lastSavedFrameBuffer, pFrame, sizeof(AVFrame));

                                                SaveFrame(pFrame, pCodecCtx->width, pCodecCtx->height);

                                                LastSavedVFrame = VideoPkt.stream_index;

                                        }

                                        else if(LastSavedVFrame >= 0)

                                        {

                                                while(LastSavedVFrame < (VideoPkt.stream_index-1))

                                                {

                                                        SaveFrame(lastSavedFrameBuffer, pCodecCtx->width, pCodecCtx->height);

                                                }

                                                memcpy(lastSavedFrameBuffer, pFrame, sizeof(AVFrame));

                                                SaveFrame(pFrame, pCodecCtx->width, pCodecCtx->height);

                                                LastSavedVFrame = VideoPkt.stream_index;

                                        }

#endif

                                        ChunkerPlayerStats_UpdateVideoPlayedHistory(&(videoq.PacketHistory), VideoPkt.stream_index, pFrame->pict_type, VideoPkt.size, pFrame);

                                        if(SilentMode)

                                                continue;

                                        SDL_LockMutex(OverlayMutex);

                                        if (RenderFrame2Overlay(pFrame, pCodecCtx->width, pCodecCtx->height, 0, 0, YUVOverlay) < 0){

                                                SDL_UnlockMutex(OverlayMutex);

                                                continue;

                                        }

                                        //wait for the playback time

#ifdef DEBUG_SYNC

                                        fprintf(stderr, "VIDEO earlier =%lld ms\n",earlier);

#endif

                                        if (earlier > 0) {

                                                usleep(MIN(earlier,1000) * 1000);

//                                        } else if (earlier < 0) {

//                                                fprintf(stderr, "should increase delay2 : pFrame->pkt_pts=%lld, DeltaTime=%lld, Now=%lld, earlier=%lld\n", pFrame->pkt_pts, DeltaTime, Now, earlier);

//                                                DeltaTime -= earlier;

                                        }

                                        Last = Now;

                                        if (RenderOverlay2Rect(YUVOverlay, ChunkerPlayerGUI_GetMainOverlayRect()) < 0) {

                                                SDL_UnlockMutex(OverlayMutex);

                                                continue;

                                        }

                                        SDL_UnlockMutex(OverlayMutex);

                                        //redisplay logo

                                        /**SDL_BlitSurface(image, NULL, MainScreen, &dest);*/

                                        /* Update the screen area just changed */

                                        /**SDL_UpdateRects(MainScreen, 1, &dest);*/

                                } //if FrameFinished

                                else

                                {

                                        ChunkerPlayerStats_UpdateVideoLossHistory(&(videoq.PacketHistory), VideoPkt.stream_index+1, videoq.last_frame_extracted-1);

                                }

                            }

                        }

                        usleep(5000);

                }

                usleep(5000);

        }

        avcodec_close(pCodecCtx);

        av_free(pCodecCtx);

        av_free(pFrame);

        //fclose(frecon);

#ifdef DEBUG_VIDEO

         printf("VIDEO: video callback end\n");

#endif

#ifdef SAVE_YUV

        if(!lastSavedFrameBuffer)

                free(lastSavedFrameBuffer);

        lastSavedFrameBuffer = NULL;

#endif

        return 0;

}

void AudioCallback(void *userdata, Uint8 *stream, int len)

{

        //AVCodecContext *aCodecCtx = (AVCodecContext *)userdata;

        int audio_size;

        static uint8_t audio_buf[AVCODEC_MAX_AUDIO_FRAME_SIZE];

        memset(audio_buf, CurrentAudioSilence, sizeof(audio_buf));

        audio_size = AudioDecodeFrame(audio_buf, sizeof(audio_buf));

        if(SilentMode < 2) {

                if(audio_size != len) {

                        memset(stream, CurrentAudioSilence, len);

                } else {

                        memcpy(stream, (uint8_t *)audio_buf, len);

                }

        }

}

void SaveFrame(AVFrame *pFrame, int width, int height)

{

        FILE *pFile;

        int  y;

         // Open file

        pFile=fopen(YUVFileName, "ab");

        if(pFile==NULL)

                return;

        // Write header

        //fprintf(pFile, "P5\n%d %d\n255\n", width, height);

        // Write Y data

        for(y=0; y<height; y++)

                  fwrite(pFrame->data[0]+y*pFrame->linesize[0], 1, width, pFile);

        // Write U data

        for(y=0; y<height/2; y++)

                  fwrite(pFrame->data[1]+y*pFrame->linesize[1], 1, width/2, pFile);

        // Write V data

        for(y=0; y<height/2; y++)

                  fwrite(pFrame->data[2]+y*pFrame->linesize[2], 1, width/2, pFile);

        // Close file

        fclose(pFile);

}

int ChunkerPlayerCore_IsRunning()

{

        return AVPlaying;

}

void ChunkerPlayerCore_Play()

{

        if(AVPlaying) return;

        AVPlaying = 1;

        SDL_PauseAudio(0);

        video_thread = SDL_CreateThread(VideoCallback, &VideoCallbackThreadParams);

        ChunkerPlayerStats_Init(&VideoCallbackThreadParams);

        stats_thread = SDL_CreateThread(CollectStatisticsThread, NULL);

        decoded_vframes = 0;

        LastSavedVFrame = -1;

}

void ChunkerPlayerCore_Stop()

{

        if(!AVPlaying) return;

        AVPlaying = 0;

        // Stop audio&video playback

        SDL_WaitThread(video_thread, NULL);

        SDL_WaitThread(stats_thread, NULL);

        SDL_PauseAudio(1);        

        if(YUVOverlay != NULL)

        {

                SDL_FreeYUVOverlay(YUVOverlay);

                YUVOverlay = NULL;

        }

        PacketQueueReset(&audioq);

        PacketQueueReset(&videoq);

        avcodec_close(aCodecCtx);

        av_free(aCodecCtx);

        free(AudioPkt.data);

        free(VideoPkt.data);

        free(outbuf_audio);

        /*

        * Sleep two buffers' worth of audio before closing, in order

        *  to allow the playback to finish. This isn't always enough;

        *   perhaps SDL needs a way to explicitly wait for device drain?

        * Doesn't seem to be necessary -> disabled

        */

        //int delay = 2 * 1000 * CurrentAudioSamples / CurrentAudioFreq;

        // printf("SDL_Delay(%d)\n", delay*10);

        //SDL_Delay(delay*10);

}

void ChunkerPlayerCore_Finalize()

{

        if(YUVOverlay != NULL)

        {

                SDL_FreeYUVOverlay(YUVOverlay);

                YUVOverlay = NULL;

        }

        SDL_CloseAudio();

}

void ChunkerPlayerCore_Pause()

{

        if(!AVPlaying) return;

        AVPlaying = 0;

        // Stop audio&video playback

        SDL_WaitThread(video_thread, NULL);

        SDL_PauseAudio(1);

        PacketQueueReset(&audioq);

        PacketQueueReset(&videoq);

}

int ChunkerPlayerCore_AudioEnded()

{

        return (audioq.nb_packets==0 && audioq.last_frame_extracted>0);

}

void ChunkerPlayerCore_ResetAVQueues()

{

#ifdef DEBUG_QUEUE

        printf("QUEUE: MAIN SHOULD RESET\n");

#endif

        PacketQueueReset(&audioq);

        PacketQueueReset(&videoq);

}

int ChunkerPlayerCore_EnqueueBlocks(const uint8_t *block, const int block_size)

{

#ifdef EMULATE_CHUNK_LOSS

        static time_t loss_cycle_start_time = 0, now = 0;

        static int early_losses = 0;

        static int clp_frames = 0;

        if(ScheduledChunkLosses)

        {

                static unsigned int random_threshold;

                now=time(NULL);

                if(!loss_cycle_start_time)

                        loss_cycle_start_time = now;

                if(((now-loss_cycle_start_time) >= ScheduledChunkLosses[((CurrChunkLossIndex+1)%NScheduledChunkLosses)].Time) && (NScheduledChunkLosses>1 || CurrChunkLossIndex==-1))

                {

                        CurrChunkLossIndex = ((CurrChunkLossIndex+1)%NScheduledChunkLosses);