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
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "stdgraph.h"
# STG_OUTSTR -- Format and output a control sequence containing a string
# string argument to the output device.
procedure stg_outstr (cap, strval)
char cap[ARB] #I graphcap capability name
char strval[ARB] #I string data
pointer sp, fmt, ctrl
include "stdgraph.com"
int ttygets()
errchk ttygets
begin
call smark (sp)
call salloc (fmt, SZ_LINE, TY_CHAR)
call salloc (ctrl, SZ_LINE, TY_CHAR)
if (ttygets (g_tty, cap, Memc[fmt], SZ_LINE) > 0) {
call sprintf (Memc[ctrl], SZ_LINE, Memc[fmt])
call pargstr (strval)
call ttyputs (g_out, g_tty, Memc[ctrl], 1)
}
call sfree (sp)
end
|
