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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# GMPRINTF -- Formatted write a string value to a UI (user interface)
# parameter.
#
# NOTE - I don't think this code works yet. Don't use it, use gmsg.
procedure gmprintf (gp, object, format)
pointer gp #I graphics descriptor
char object[ARB] #I object name
char format[ARB] #I print format
pointer sp, fmt
begin
call smark (sp)
call salloc (fmt, SZ_LINE, TY_CHAR)
call sprintf (Memc[fmt], SZ_LINE, "\031%s %s\035\037")
call pargstr (object)
call pargstr (format)
call flush (STDOUT)
call printf (Memc[fmt])
call sfree (sp)
end
|
