blob: b555fee006cb3aee7b7aeffb94a1932b4573545d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gks.h"
# GQWKS -- Inquire workstation state. State is either ACTIVE or INACTIVE;
# this information has been stored in gks.com by GACWK.
procedure gqwks (wkid, errind, state)
int wkid # Workstation id for inquire
int errind # Error indicator
int state # Returned state value: ACTIVE or INACTIVE
include "gks.com"
begin
errind = 0
if (wkid > NDEV)
errind = 1
else
state = gk_status[wkid]
end
|
