blob: b11e4a076fb8c3b4422aab63e079021ab59d626b (
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
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ttset.h>
include <gset.h>
include "stdgraph.h"
# STG_DEACTIVATEWS -- Deactivate the workstation, i.e., disable graphics,
# leaving the terminal in text mode. Note that it is the CW (close
# workstation) sequence which is actually output, since the GD sequence is
# used only to write single lines of text to the status line.
procedure stg_deactivatews (flags)
int flags # action modifier flags
char buf[1]
int stg_readtty(), and()
include "stdgraph.com"
begin
if (g_out <= 0)
return
# The g_active and g_out test permits us to be called before the
# kernel is opened and causes redundant calls to be ignored.
if (g_active == YES) {
# Pause before deactivating?
if (and (flags, AW_PAUSE) != 0) {
call stg_putline (g_out, "\n[Hit return to continue]\n")
while (stg_readtty (STDIN, buf, 1) != EOF)
if (buf[1] == '\r' || buf[1] == '\n')
break
}
# Deactivate the workstation.
call stgctrl ("CW")
g_active = NO
g_enable = NO
# Reenable stty ucaseout mode if it was set when the workstation
# was activated.
if (g_ucaseout == YES)
call ttseti (g_out, TT_UCASEOUT, YES)
}
# Clear the text screen?
if (and (flags, AW_CLEAR) != 0 && g_term != NULL)
call ttyclear (g_out, g_term)
call flush (g_out)
end
|
