blob: 3d7eb70bbf3f4bfd62b7c9ed3d88ede3c308c964 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "stdgraph.h"
# STG_CLOSE -- Close the STDGRAPH kernel. Free all storage associated with the
# stdgraph descriptor. Note that the stdgraph kernel may be multiply opened
# (connected to two or more graphics steams, e.g., both STDGRAPH and STDIMAGE),
# hence we do not physically close down until the last stream is closed.
procedure stg_close()
include "stdgraph.com"
begin
g_nopen = g_nopen - 1
if (g_nopen <= 0) {
call stg_deactivatews (0)
call flush (g_out)
call mfree (SG_SBUF(g_sg), TY_CHAR)
call mfree (g_sg, TY_STRUCT)
if (g_tty != NULL) {
call ttycdes (g_tty)
g_tty = NULL
}
if (g_term != NULL) {
call ttycdes (g_term)
g_term = NULL
}
if (g_pbtty != NULL) {
call ttycdes (g_pbtty)
g_pbtty = NULL
}
if (g_msgbuf != NULL) {
call mfree (g_msgbuf, TY_CHAR)
g_msgbuf = NULL
g_msgbuflen = 0
g_msglen = 0
}
g_nopen = 0
}
end
|
