blob: 0d4181a07bf440e8c7dd5f1b1942db6a07e1fc0b (
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
35
36
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#include <iraf.h>
/* C_FMAPFN -- Map a VFN (virtual filename) into an OSFN (host system filename).
*/
int
c_fmapfn (
char *vfn, /* virtual filename */
char *osfn, /* OS filename */
int maxch
)
{
XCHAR x_osfn[SZ_PATHNAME+1];
XINT sz_path = 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.
*/
if (maxch)
iferr (FMAPFN (c_sppstr(vfn), x_osfn, &sz_path))
osfn[0] = EOS;
else {
(void) strncpy (osfn, (char *)x_osfn, maxch);
osfn[maxch-1] = EOS;
}
return (strlen (osfn));
}
|
