blob: b7820012ee48a83e08321ca20b3783be01eb393d (
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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#include <iraf.h>
/* C_FPATHNAME -- Map a VFN (virtual filename) into a pathname (filename
** specification which is independent of the current directory).
*/
int
c_fpathname (
char *vfn, /* virtual filename */
char *osfn, /* OS filename */
int maxch
)
{
XCHAR x_osfn[SZ_PATHNAME+1];
XINT x_maxch = SZ_PATHNAME;
/* The OSFN is returned as a packed string in the XCHAR array x_osfn.
* An intermediate buffer is used to avoid char->xchar alignment
* problems of upward pointer coercion on some machines.
*/
iferr (FPATHNAME (c_sppstr(vfn), x_osfn, &x_maxch))
osfn[0] = EOS;
else
c_strpak (x_osfn, osfn, maxch);
return (strlen (osfn));
}
|
