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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "stdgraph.h"
define SZ_PROGRAM 256
# STG_CTRL -- Fetch an encoder format string from the graphcap entry and
# use it to encode zero, one, or two integer arguments into a control string.
# Put the control string to the output device.
procedure stg_ctrl (cap)
char cap[ARB] # name of device capability to be encoded
pointer sp, prog
int stg_encode(), ttygets()
include "stdgraph.com"
begin
call smark (sp)
call salloc (prog, SZ_PROGRAM, TY_CHAR)
# Fetch the program from the graphcap file. Zero is returned if the
# device does not have the named capability, in which case the function
# is inapplicable and should be ignored.
if (ttygets (g_tty, cap, Memc[prog], SZ_PROGRAM) > 0) {
# Encode the output string and write the encoded string to the
# output file.
g_reg[E_IOP] = 1
if (stg_encode (Memc[prog], g_mem, g_reg) == OK) {
g_mem[g_reg[E_IOP]] = EOS
call ttyputs (g_out, g_tty, g_mem, 1)
}
}
call sfree (sp)
end
# STG_CTRL1 -- Encode one integer argument.
procedure stg_ctrl1 (cap, arg1)
char cap[ARB] # device capability
int arg1
include "stdgraph.com"
begin
g_reg[1] = arg1
call stg_ctrl (cap)
end
# STG_CTRL2 -- Encode two integer arguments.
procedure stg_ctrl2 (cap, arg1, arg2)
char cap[ARB] # device capability
int arg1, arg2
include "stdgraph.com"
begin
g_reg[1] = arg1
g_reg[2] = arg2
call stg_ctrl (cap)
end
# STG_CTRL3 -- Encode three integer arguments.
procedure stg_ctrl3 (cap, arg1, arg2, arg3)
char cap[ARB] # device capability
int arg1, arg2, arg3
include "stdgraph.com"
begin
g_reg[1] = arg1
g_reg[2] = arg2
g_reg[3] = arg3
call stg_ctrl (cap)
end
|
