1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# IMGSECTION -- Get the image section field from an image specifcation.
procedure imgsection (imspec, section, maxch)
char imspec[ARB] # full image specifcation
char section[ARB] # receives image section
int maxch
int cl_index, cl_size
pointer sp, cluster, ksection
begin
call smark (sp)
call salloc (cluster, SZ_PATHNAME, TY_CHAR)
call salloc (ksection, SZ_FNAME, TY_CHAR)
call imparse (imspec, Memc[cluster], SZ_PATHNAME,
Memc[ksection], SZ_FNAME, section, maxch, cl_index, cl_size)
call sfree (sp)
end
|
