High Resolution Timer Research

wilbert · **Posted:** Mon Mar 05, 2012 8:01 pm

nanosleep does exist on both Linux and OS X if I'm correct
On OS X

Code:

Structure timespec
  tv_sec.i
  tv_nsec.l
EndStructure
    
ImportC ""
  nanosleep(*req.timespec, *rem.timespec = #Null)
EndImport

pause.timespec\tv_nsec = 300000
nanosleep(@pause)

On Linux you probably need to specify a library for ImportC and it's not very accurate.
There's also clock_delay_until(deadline.q)

Guimauve · **Posted:** Mon Mar 05, 2012 8:14 pm

It's better and more safe to implement it this way :

Code:

Procedure NanoDelay(Nanoseconds.l)
  
  If Nanoseconds > 0 And Nanoseconds <= 999999999
    req.timespec\tv_nsec = Nanoseconds
    ProcedureReturn nanosleep(@req, #Null)
  Else
    ProcedureReturn -1
  EndIf
  
EndProcedure

But the Sleep will always be a little bit longer than expected. Maybe this is due to PureBasic Procedure calling time or the CPU load or both.

Best regards
Guimauve

PureBasic Forum

High Resolution Timer Research

Who is online