#include "lisp/time.h"
#include "lisp/bytecode.h"
LispObj *
Lisp_Time(LispBuiltin *builtin)
{
#ifndef __UNIXOS2__
struct itimerval real, virt, prof;
unsigned long count;
long sec, usec;
LispObj *result;
#define MONTH 60 * 60 * 31
LispObj *form;
form = ARGUMENT(0);
real.it_value.tv_sec =
virt.it_value.tv_sec =
prof.it_value.tv_sec =
real.it_interval.tv_sec =
virt.it_interval.tv_sec =
prof.it_interval.tv_sec = MONTH;
real.it_value.tv_usec =
virt.it_value.tv_usec =
prof.it_value.tv_usec =
real.it_interval.tv_usec =
virt.it_interval.tv_usec =
prof.it_interval.tv_usec = 0;
setitimer(ITIMER_REAL, &real, NULL);
setitimer(ITIMER_VIRTUAL, &virt, NULL);
setitimer(ITIMER_PROF, &prof, NULL);
getitimer(ITIMER_REAL, &real);
getitimer(ITIMER_VIRTUAL, &virt);
getitimer(ITIMER_PROF, &prof);
lisp__data.gc.gctime = 0;
lisp__data.gc.timebits = 1;
count = lisp__data.gc.count;
#if 0
form = CONS(form, NIL);
COD = CONS(form, COD);
result = LispExecuteBytecode(LispCompileForm(form));
#else
result = EVAL(form);
#endif
getitimer(ITIMER_REAL, &real);
getitimer(ITIMER_VIRTUAL, &virt);
getitimer(ITIMER_PROF, &prof);
sec = real.it_interval.tv_sec - real.it_value.tv_sec;
usec = real.it_interval.tv_usec - real.it_value.tv_usec;
if (usec < 0) {
--sec;
usec += 1000000;
}
LispMessage("Real time : %g sec", sec + usec / 1000000.0);
sec = virt.it_interval.tv_sec - virt.it_value.tv_sec;
usec = virt.it_interval.tv_usec - virt.it_value.tv_usec + 10000;
if (usec < 0) {
--sec;
usec += 1000000;
}
LispMessage("Virtual time: %g sec", sec + usec / 1000000.0);
sec = prof.it_interval.tv_sec - prof.it_value.tv_sec;
usec = prof.it_interval.tv_usec - prof.it_value.tv_usec + 10000;
if (usec < 0) {
--sec;
usec += 1000000;
}
LispMessage("Profile time: %g sec", sec + usec / 1000000.0);
real.it_value.tv_sec =
virt.it_value.tv_sec =
prof.it_value.tv_sec =
real.it_interval.tv_sec =
virt.it_interval.tv_sec =
prof.it_interval.tv_sec =
real.it_value.tv_usec =
virt.it_value.tv_usec =
prof.it_value.tv_usec =
real.it_interval.tv_usec =
virt.it_interval.tv_usec =
prof.it_interval.tv_usec = 0;
setitimer(ITIMER_REAL, &real, NULL);
setitimer(ITIMER_VIRTUAL, &virt, NULL);
setitimer(ITIMER_PROF, &prof, NULL);
LispMessage("GC: %ld times, %g sec",
lisp__data.gc.count - count, lisp__data.gc.gctime / 1000000.0);
lisp__data.gc.timebits = 0;
return (result);
#else
LispMessage("\"Lisp_Time\" not implemented under OS/2");
return (NIL);
#endif
}