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
|
include <error.h>
include "ccdtypes.h"
# SET_INPUT -- Set the input image and image type.
#
# 1. Open the input image. Return warning and NULL pointer for an error.
# 2. Get the requested CCD image type.
# a. If no type is requested then accept the image.
# b. If a type is requested then match against the image type.
# Unmap the image if no match.
# 3. If the image is acceptable then get the CCD type code.
procedure set_input (image, im, ccdtype)
char image[ARB] # Input image name
pointer im # IMIO pointer (returned)
int ccdtype # CCD image type
bool strne()
int ccdtypei()
pointer sp, str1, str2, immap()
begin
# Open the image. Return a warning and NULL pointer for an error.
iferr (im = immap (image, READ_ONLY, 0)) {
call erract (EA_WARN)
im = NULL
return
}
call smark (sp)
call salloc (str1, SZ_LINE, TY_CHAR)
call salloc (str2, SZ_LINE, TY_CHAR)
# Get the requested CCD type.
call clgstr ("ccdtype", Memc[str1], SZ_LINE)
call xt_stripwhite (Memc[str1])
if (Memc[str1] != EOS) {
call ccdtypes (im, Memc[str2], SZ_LINE)
if (strne (Memc[str1], Memc[str2]))
call imunmap (im)
}
if (im != NULL)
ccdtype = ccdtypei (im)
call sfree (sp)
end
|
