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/cfpath.c | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 sys/libc/cfpath.c (limited to 'sys/libc/cfpath.c') diff --git a/sys/libc/cfpath.c b/sys/libc/cfpath.c new file mode 100644 index 00000000..b7820012 --- /dev/null +++ b/sys/libc/cfpath.c @@ -0,0 +1,34 @@ +/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. +*/ + +#define import_spp +#define import_libc +#define import_xnames +#include + + +/* 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)); +} -- cgit