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
52
53
54
55
56
57
58
59
60
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <knet.h>
include "oif.h"
# OIF_GPIXFNAME -- Convert a logical pixfile name into a physical pathname.
procedure oif_gpixfname (pixfile, hdrfile, path, maxch)
char pixfile[ARB] # pixfile name
char hdrfile[ARB] # header file name (gives hdr directory)
char path[maxch] # receives pathname
int maxch
int ip, nchars
pointer sp, fname, op
int strncmp(), fnldir()
begin
# Merely return pathname if not case "HDR$".
if (strncmp (pixfile, HDR, STRLEN_HDR) != 0) {
call fpathname (pixfile, path, maxch)
return
}
call smark (sp)
call salloc (fname, SZ_PATHNAME, TY_CHAR)
# Get host pathname of pixel file directory.
nchars = fnldir (hdrfile, Memc[fname], SZ_PATHNAME)
call fpathname (Memc[fname], path, maxch)
# Fold in any subdirectories from the pixfile name.
# (as in HDR$pixels/).
op = fname
nchars = 0
for (ip=STRLEN_HDR+1; pixfile[ip] != EOS; ip=ip+1) {
if (pixfile[ip] == '/') {
Memc[op] = EOS
call zfsubd (path, maxch, Memc[fname], nchars)
op = fname
} else {
Memc[op] = pixfile[ip]
op = op + 1
}
}
# Tack on the pixel file name, which was left in the fname buf.
if (op > fname) {
Memc[op] = EOS
if (nchars > 0)
call strcpy (Memc[fname], path[nchars+1], maxch-nchars)
else
call strcat (Memc[fname], path, maxch)
}
call sfree (sp)
end
|
