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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "../lib/ids.h"
# IDS_GETCURSOR -- Get the position of a cursor. This is the low level
# cursor read procedure. Reading the image cursor is only possible when
# the ids kernel is run interactively, i.e., when the kernel is linked
# into the CL process, which owns the terminal. A raw binary read is required.
# The cursor value is returned as a GKI structure on the stream "i_in",
# i.e., it is sent back to the process which requested it.
procedure ids_getcursor (cursor)
int cursor
int cur
int x, y, key
include "../lib/ids.com"
begin
cur = cursor
if ( cur > IDS_CSPECIAL ) {
switch( cur ) {
case IDS_BUT_RD, IDS_BUT_WT:
call iisbutton( cur, x, y, key)
}
} else
call zcursor_read (cur, x, y, key)
call gki_retcursorvalue (i_in, x, y, key, cur)
call flush (i_in)
end
|
