blob: 8f8554f8d2803a3870e83fceacd65bc2cbc87e90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
implement Timestamp;
include "sys.m";
sys: Sys;
include "draw.m";
include "bufio.m";
bufio: Bufio;
Iobuf: import bufio;
Timestamp: module {
init: fn(nil: ref Draw->Context, argv: list of string);
};
timefd: ref Sys->FD;
starttime: big;
init(nil: ref Draw->Context, argv: list of string)
{
sys = load Sys Sys->PATH;
bufio = load Bufio Bufio->PATH;
note: string;
if(len argv > 1)
note = hd tl argv + " ";
timefd = sys->open("/dev/time", Sys->OREAD);
starttime = now();
sys->print("%.10bd %sstart %bd\n", now(), note, starttime);
iob := bufio->fopen(sys->fildes(0), Sys->OREAD);
while((s := iob.gets('\n')) != nil)
sys->print("%.10bd %s%s", now(), note, s);
}
now(): big
{
buf := array[24] of byte;
n := sys->pread(timefd, buf, len buf, big 0);
if(n <= 0)
return big 0;
return big string buf[0:n] / big 1000 - starttime;
}
|
