blob: 02be88b924ccb5a3a68a2053a45f67790bb19823 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
# XT_PHISTORY -- Put history string.
procedure xt_phistory (im, str)
pointer im # IMIO pointer
char str # String to be put in history
pointer sp, timestr
long clktime()
begin
call smark (sp)
call salloc (timestr, SZ_LINE, TY_CHAR)
call cnvdate (clktime (0), Memc[timestr], SZ_LINE)
call strcat (Memc[timestr], IM_HISTORY(im), SZ_IMHIST)
call strcat (": ", IM_HISTORY(im), SZ_IMHIST)
call strcat (str, IM_HISTORY(im), SZ_IMHIST)
call sfree (sp)
end
|
