blob: 4deb509696d16d1804c37feb0ca72a21a8b83f3c (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <imhdr.h>
include <imset.h>
include <imio.h>
# IMSTATS -- Get an IMIO option of type string.
procedure imstats (im, option, outstr, maxch)
pointer im # image descriptor
int option # imset option being queried
char outstr[ARB] # output string
int maxch
begin
switch (option) {
case IM_IMAGENAME:
call strcpy (IM_NAME(im), outstr, maxch)
default:
call imerr (IM_NAME(im), SYS_IMSTATUNKPAR)
}
end
|
