13 lines
258 B
C
13 lines
258 B
C
#include "lib.h"
|
|
|
|
PUBLIC long time(tp)
|
|
long *tp;
|
|
{
|
|
int k;
|
|
long l;
|
|
k = callm1(FS, TIME, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
|
|
if (M.m_type < 0 || k != OK) {errno = -M.m_type; return(-1L);}
|
|
l = M.m2_l1;
|
|
if (tp != (long *) 0) *tp = l;
|
|
return(l);
|
|
}
|