/*
 *   THIS FILE IS UNDER RCS - DO NOT MODIFY UNLESS YOU HAVE
 *   CHECKED IT OUT USING THE COMMAND CHECKOUT.
 *
 *    $Id: st_oracle.c,v 1.1 2000/03/13 23:48:35 lombard Exp $
 *
 *    Revision history:
 *     $Log: st_oracle.c,v $
 *     Revision 1.1  2000/03/13 23:48:35  lombard
 *     Initial revision
 *
 *
 *
 */

#include <dcc_std.h>
#include <dcc_time.h>

_SUB STDTIME ST_GetOracleTime(char *instr)
{
	int i,y,d,h,m,s;

	STDTIME intime;

	if (strlen(instr)<1) return(ST_End());

	intime = ST_Zero();

	i = sscanf(instr,"%d %d %d %d %d",
	       &y,&d,&h,&m,&s);

	if (i!=5) return(ST_End());

	intime.year = y;
	intime.day = d;
	intime.hour = h;
	intime.minute = m;
	intime.second = s;

	if (intime.year<2) intime = ST_Zero();

	return(intime);
}

static char _ttime[50];	

_SUB char *ST_PutOracleTime(STDTIME intime)
{

	if (intime.year<2) {
		intime = ST_Zero();
		intime.year = 1;
		intime.day = 1;
	}

	sprintf(_ttime,"%d %d %d %d %d",
		intime.year,
		intime.day,
		intime.hour,
		intime.minute,
		intime.second);

	return(_ttime);
}



