From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/libc/cfmapfn.c | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 sys/libc/cfmapfn.c (limited to 'sys/libc/cfmapfn.c') diff --git a/sys/libc/cfmapfn.c b/sys/libc/cfmapfn.c new file mode 100644 index 00000000..0d4181a0 --- /dev/null +++ b/sys/libc/cfmapfn.c @@ -0,0 +1,36 @@ +/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. +*/ + +#define import_spp +#define import_libc +#define import_xnames +#include + + +/* 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)); +} -- cgit