38 lines
1.1 KiB
C
38 lines
1.1 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2009 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
#include "gtm_time.h"
|
||
|
|
#include "stringpool.h"
|
||
|
|
#include "op.h"
|
||
|
|
#include "dollarh.h"
|
||
|
|
|
||
|
|
GBLREF spdesc stringpool;
|
||
|
|
|
||
|
|
void op_horolog(mval *s)
|
||
|
|
{
|
||
|
|
uint4 days;
|
||
|
|
time_t seconds;
|
||
|
|
|
||
|
|
assert (stringpool.free <= stringpool.top);
|
||
|
|
assert (stringpool.free >= stringpool.base);
|
||
|
|
ENSURE_STP_FREE_SPACE(MAXNUMLEN + 1);
|
||
|
|
seconds = time(0);
|
||
|
|
dollarh(seconds, &days, &seconds);
|
||
|
|
s->str.addr = (char *) stringpool.free;
|
||
|
|
stringpool.free = i2asc(stringpool.free, days);
|
||
|
|
*stringpool.free++ = ',';
|
||
|
|
stringpool.free = i2asc(stringpool.free, (uint4)seconds);
|
||
|
|
s->str.len = INTCAST((char *)stringpool.free - s->str.addr);
|
||
|
|
s->mvtype = MV_STR;
|
||
|
|
return;
|
||
|
|
}
|