File: Time.c

package info (click to toggle)
mlton 20070826-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 33,184 kB
  • ctags: 70,419
  • sloc: ansic: 16,154; lisp: 2,727; makefile: 1,635; sh: 1,234; pascal: 256; asm: 97
file content (13 lines) | stat: -rw-r--r-- 287 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#include "platform.h"

static struct timeval timeval;

C_Int_t Time_getTimeOfDay (void) {
  int res;
  res = gettimeofday (&timeval, (struct timezone*)NULL);
  return res;
}

C_Time_t Time_sec (void) { return timeval.tv_sec; }

C_SUSeconds_t Time_usec (void) { return timeval.tv_usec; }