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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <syserr.h>
include <gki.h>
# GKI_GETWCS -- Retrieve the WCS from the CL process. Used when opening a
# (non-metafile) device in append mode.
#
# BOI GKI_GETWCS L N
#
# L(i) 3
# N(i) number of words of WCS data to be read
procedure gki_getwcs (fd, wcs, len_wcs)
int fd # input/output file
int wcs[ARB] # array of WCS structures (output)
int len_wcs # number of ints (struct units) in array
int nchars, nwords, read()
short gki[GKI_GETWCS_LEN]
data gki[1] /BOI/, gki[2] /GKI_GETWCS/, gki[3] /GKI_GETWCS_LEN/
errchk syserr, read, write, flush
include "gki.com"
begin
nwords = (len_wcs * SZ_INT / SZ_SHORT)
gki[GKI_GETWCS_N] = nwords
# Request CL to send SETWCS instruction back to us. The directive
# must be sent on the pseudofile control stream.
call write (PSIOCTRL, fd, SZ_INT32)
call write (PSIOCTRL, gki, GKI_GETWCS_LEN * SZ_SHORT)
call flush (PSIOCTRL)
# Read the wcs data. This is returned on the process CLIN channel
# by the CL.
nchars = nwords * SZ_SHORT
if (read (CLIN, wcs, nchars) != nchars)
call syserr (SYS_GGETWCS)
end
|
