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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctotok.h>
include <ctype.h>
include "../lib/ids.h"
# DISPLAY -- Turn frames on or off
procedure display(command)
char command[ARB]
int tok
char token[SZ_LINE]
short color[IDS_MAXGCOLOR+1]
short frames[IDS_MAXIMPL+1]
short quad[5]
short instruction
int escape
include "cv.com"
begin
if (command[1] == 'i')
escape = IDS_DISPLAY_I
else if (command[1] == 'g')
escape = IDS_DISPLAY_G
else {
call eprintf ("Only 'di' or 'dg' are understood\n")
return
}
instruction = ERR
frames[1] = ERR
color[1] = ERR
quad[1] = IDS_EOD
repeat {
call gargtok (tok, token, SZ_LINE)
call strlwr (token)
if ( tok == TOK_IDENTIFIER) {
switch (token[1]) {
case 'c':
call cv_color (token[2], color)
if (color[1] == ERR)
return
case 'f':
call cv_frame (token[2], frames)
if (frames[1] == ERR)
return
case 'o':
if (token[2] == 'n')
instruction = IDS_ON
else if (token[2] == 'f')
instruction = IDS_OFF
case 'q':
call cv_quad (token[2], quad)
if (quad[1] == ERR)
return
}
} else if (tok == TOK_NUMBER) {
call cv_frame (token[1], frames)
if (frames[1] == ERR)
return
}
} until ( tok == TOK_NEWLINE )
# Require a frame number, but allow default of color and quad to "all".
# But, for graphics, default the frame and require a color.
# In either case, for OFF, allow all defaults.
if (escape == IDS_DISPLAY_I) {
if ((instruction == IDS_OFF) && (frames[1] == ERR))
frames[1] = IDS_EOD
if ( color[1] == ERR)
color[1] = IDS_EOD
} else {
if ((instruction == IDS_OFF) && ( color[1] == ERR) )
color[1] = IDS_EOD
if ( frames[1] == ERR)
frames[1] = IDS_EOD
}
if (frames[1] == ERR) {
call eprintf ("Frame specification required\n")
return
}
if (color[1] == ERR) {
call eprintf ("Color specification required\n")
return
}
# if neither "on" nor "off", then turn off all, and turn
# on the specified frames
if (instruction == ERR) {
call cvdisplay (IDS_OFF , escape, short(IDS_EOD),
short(IDS_EOD), short(IDS_EOD))
instruction = IDS_ON
}
call cvdisplay (instruction, escape, frames, color, quad)
end
|
