/*
        Copyright (c) 1996, Ruslan R. Laishev (@RRL)
*/

#include	<time.h>
#include	<string.h>
#include	<stdio.h>
#include	<descrip.h>
#include	<libdef.h>
#include	<stdarg.h>
#include	<stdlib.h>

#define INIT_SDESC(dsc, len, ptr) {(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
    (dsc).dsc$b_class = DSC$K_CLASS_S; (dsc).dsc$w_length = (len);\
    (dsc).dsc$a_pointer = (ptr);}

void	main	(void)
{
struct dsc$descriptor   dsc_dt;
int	lib$sys_asctim	();
time_t	t;
int	len;
char	buf [ 64 ];
long	status;

	INIT_SDESC (dsc_dt,sizeof(buf),buf);

	time(&t);
	status = lib$sys_asctim (&len,&dsc_dt);
	if (! (status & 1) )
		lib$signal(status);

	printf("\n%.*s",len,buf);

}