Import "timer.cpp"

SuperStrict

Extern
	
	Type CStopWatch
		Method _pad1()
		Method _pad2()
				
		Method startTimer()
		Method StopTimer()
		Method getElapsedTime:Double()
	End Type
	
	Function newTimer:CStopWatch()
	
End Extern

Local c:CStopWatch = newTimer()
c.startTimer() ' <- Absturtz!

c.StopTimer()

#include <windows.h>
#include <cstdio>

#include "timer.hpp"

double CStopWatch::LIToSecs( LARGE_INTEGER & L) {
    return ((double)L.QuadPart /(double)frequency.QuadPart) ;
}
 
 CStopWatch::CStopWatch(){
   this->timer = new stopWatch;
   timer->start.QuadPart=0;
   timer->stop.QuadPart=0;
   QueryPerformanceFrequency( &frequency ) ;
}

 CStopWatch::~CStopWatch(){
}
 
 void CStopWatch::startTimer( ){
   QueryPerformanceCounter(&this->timer->start);
}

void CStopWatch::StopTimer( ) {
   QueryPerformanceCounter(&this->timer->stop);
}

double CStopWatch::getElapsedTime(){
    LARGE_INTEGER time;
    time.QuadPart = timer->stop.QuadPart - timer->start.QuadPart;
    return LIToSecs( time) ;
}


extern "C"{
   CStopWatch *newTimer(){
      CStopWatch *l = new CStopWatch;
      return l;
   };
};

 #ifndef hr_timer
 #define hr_timer
 
 #include <windows.h>
 
 using namespace std;
 
 typedef struct{
     LARGE_INTEGER start;
     LARGE_INTEGER stop;
 }stopWatch;
 
 class CStopWatch{

   private:
      stopWatch *timer;
      LARGE_INTEGER frequency;
      double LIToSecs(LARGE_INTEGER & L);

   public:
      CStopWatch();
      virtual ~CStopWatch();
      
      virtual void startTimer();
      virtual void StopTimer();
      virtual double getElapsedTime();
};
 

extern "C"{
   CStopWatch *newTimer();
}
#endif

Local c:CStopWatch = newTimer()

void CStopWatch::startTimer( ){
   stopWatch *newtimer = new stopWatch;
   QueryPerformanceCounter(&newtimer->start);
}

this->timer = new stopWatch;