blob: 0697911bc3701d468bef125b2d1f4aaea72e4cfa (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <imhdr.h>
include <imset.h>
include <imio.h>
# IMSTATI -- Get an IMIO option of type integer.
int procedure imstati (im, option)
pointer im #I image descriptor
int option #I imset option being queried
begin
switch (option) {
case IM_ADVICE:
return (IM_VADVICE(im))
case IM_BUFSIZE:
return (IM_VBUFSIZE(im))
case IM_BUFFRAC:
return (IM_VBUFFRAC(im))
case IM_BUFMAX:
return (IM_VBUFMAX(im))
case IM_NBUFS:
return (IM_VNBUFS(im))
case IM_COMPRESS:
return (IM_VCOMPRESS(im))
case IM_NBNDRYPIX:
return (IM_VNBNDRYPIX(im))
case IM_TYBNDRY:
return (IM_VTYBNDRY(im))
case IM_FLAGBADPIX:
return (IM_VFLAGBADPIX(im))
case IM_PIXFD:
return (IM_PFD(im))
case IM_CLOSEFD:
return (IM_VCLOSEFD(im))
case IM_WHEADER:
return (IM_UPDATE(im))
case IM_PLDES:
return (IM_PL(im))
case IM_RLIO:
if (and (IM_PLFLAGS(im), PL_RLIO) != 0)
return (YES)
else
return (NO)
default:
call imerr (IM_NAME(im), SYS_IMSTATUNKPAR)
}
end
|
