blob: 21faea885d5a99d2cb6af0ffd6ef66528cb1b49f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
include <time.h>
# APDATE -- Fetch the date and time strings required for the apphot output
# files.
procedure apdate (date, time, maxch)
char date[ARB] # the date string
char time[ARB] # the time string
int maxch # the maximum number of character in the string
int tm[LEN_TMSTRUCT]
long ctime
long clktime()
#long lsttogmt()
begin
ctime = clktime (long(0))
#ctime = lsttogmt (ctime)
call brktime (ctime, tm)
call sprintf (date, maxch, "%04d-%02d-%02d")
call pargi (TM_YEAR(tm))
call pargi (TM_MONTH(tm))
call pargi (TM_MDAY(tm))
call sprintf (time, maxch, "%02d:%02d:%02d")
call pargi (TM_HOUR(tm))
call pargi (TM_MIN(tm))
call pargi (TM_SEC(tm))
end
|
