/* Timer.c: Copyright © 2000 Nogfx - Timer Functions for FlashbackNG */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>

#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <graphics/displayinfo.h>
#include <dos/dos.h>
#include <graphics/gfx.h>

#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/graphics_protos.h>
#include <clib/alib_protos.h>
#include <clib/dos_protos.h>
#include <clib/lowlevel_protos.h>
#include <clib/timer_protos.h>

struct Library *TimerBase;
struct MsgPort *TimerPort;
struct timerequest *TimeReq;
struct timerequest *ReturnTime;

struct timerequest *CreateTimer(ULONG theUnit) {

    ULONG Error;


//begin
    TimerPort = CreatePort(NULL,0);
    if (!TimerPort) ReturnTime=NULL;

    TimeReq = (struct timerequest*)(CreateExtIO(TimerPort,sizeof(struct timerequest)));
    if (!TimeReq) {
    DeletePort(TimerPort);
    ReturnTime = NULL;
    }
    Error = OpenDevice((STRPTR)"timer.device", theUnit, (struct IORequest*)(TimeReq), 0);
    if (Error!=0) {
    DeleteExtIO((struct IORequest*)(TimeReq));
    DeletePort(TimerPort);
    ReturnTime = NULL;
    }
    TimerBase = (struct Library*)(TimeReq->tr_node.io_Device);
    ReturnTime=(struct timerequest*)(TimeReq);
    return(ReturnTime);
}

void DeleteTimer(struct timerequest *WhichTimer)  {


    struct MsgPort *WhichPort;
//begin

    WhichPort = WhichTimer->tr_node.io_Message.mn_ReplyPort;
    if (WhichTimer) {
        CloseDevice((struct IORequest *)(WhichTimer));
        DeleteExtIO((struct IORequest *)(WhichTimer));
    }
    if (WhichPort) DeletePort(WhichPort);
}


BOOL Temps(struct timeval debut,struct timeval fin,int speed) {
    BOOL temp;
    temp=FALSE;
    GetSysTime(&fin);
    //printf("Sec fin:%d\n",fin.tv_secs>>24);

    SubTime(&fin,&debut);
    //if (  ((double)((fin.tv_secs & 0xFFFF)*1000+(double)(fin.tv_micro/1000000.0)*1000))>=vitesse) temp=TRUE;
    //printf("Sec fin:%d\n",fin.tv_secs>>24);
    if (((int)(fin.tv_micro/100)+(int)(10000*fin.tv_secs))>=speed) temp=TRUE;

    return(temp);

    }