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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <stdio.h>
#include <string.h>
#define NOLIBCNAMES
#define import_spp
#define import_libc
#define import_xnames
#define import_knames
#include <iraf.h>
#define FINIT
#include "bootlib.h"
static PKCHAR pk_osfn[SZ_PATHNAME+1];
static char *osfn = (char *)pk_osfn;
extern char *os_getenv();
#ifdef NOVOS
/* VFN2OSFN -- Map an IRAF virtual filename into an OS filename. This is
* a simplified version for UNIX which does not use the VOS. This version
* should also be almost sufficient to compile the system libraries when
* starting from scratch on a new machine, since the filenames in the system
* directories are simple and the full generality of the FIO filename mapping
* code is not required (extension mapping is about all that is required).
* Only the well-known system logical directories are recognized in this
* version, however ZGTENV is called to replace logical directories, and
* this in turn references the host system environment, so one can bootstrap
* things by using the host environment facilities.
*/
char *
vfn2osfn (
char *vfn, /* input IRAF virtual filename */
int new /* new file */
)
{
register char *ip, *op;
char fname[SZ_PATHNAME+1], *ldir;
/* Recursively expand logical directories, but don't do anything
* about subdirectories, extensions, etc. This is all that is
* needed for UNIX.
*/
for (ip=vfn, op=fname; (*op = *ip++); op++)
if (*op == '$') {
*op = EOS;
if ( (ldir = os_getenv (fname)) )
strcpy (fname, ldir);
strcat (fname, ip);
return (vfn2osfn (fname, 0));
}
/* Copy filename to the output string. Fix up the "//" sequences
* that occur because IRAF likes the / at the end of logical directory
* names.
*/
for (ip=fname, op=osfn; (*op = *ip++); op++)
if (*op == '/' && op > osfn && *(op-1) == '/')
--op;
return (osfn);
}
#else
/* VFN2OSFN -- Map an IRAF virtual filename into an OS filename. This is
* the portable version using the VOS (libsys.a+libvops.a+libos.a) to do the
* mapping. The system libraries must have been built before we can do this,
* of course.
*/
char *
vfn2osfn (
char *vfn, /* input IRAF virtual filename */
int new /* new file */
)
{
register char *ip;
register XCHAR *op;
register int n = SZ_PATHNAME;
XINT vp, mode, maxch = SZ_PATHNAME;
PKCHAR upkvfn[SZ_PATHNAME+1];
int err;
extern void _envinit();
/* Copy the input filename into local storage before calling envinit,
* below, to avoid any chance of overwriting the input string in a
* recursive call to vfn2osfn by envinit.
*/
for (ip=vfn, op=upkvfn; --n >= 0 && (*op++ = *ip++) != (XCHAR)EOS; )
;
*(op-1) = XEOS;
mode = new ? VFN_WRITE : VFN_READ;
/* Nasty beast that can call vsn2osfn recursively. */
_envinit();
err = 0;
iferr (vp = VFNOPEN (upkvfn, (integer *)&mode)) {
fprintf (stderr, "Warning: cannot open vfn `%s' for %s\n",
vfn, mode == VFN_WRITE ? "writing" : "reading");
err++;
}
if (new) {
if (!err)
iferr (VFNADD ((integer *)&vp, pk_osfn, (integer *)&maxch))
fprintf (stderr, "Warning: cannot add filename `%s'\n",vfn);
} else {
if (!err)
iferr (VFNMAP ((integer *)&vp, pk_osfn, (integer *)&maxch))
fprintf (stderr, "Warning: cannot map filename `%s'\n",vfn);
}
mode = (mode == VFN_WRITE) ? VFN_UPDATE : VFN_NOUPDATE;
if (!err) {
iferr (VFNCLOSE ((integer *)&vp, (integer *)&mode))
fprintf (stderr, "Warning: error closing mapping file\n");
} else
*osfn = EOS;
return (osfn);
}
/*
* KISTUB -- Stub out selected KI (kernel network interface) routines. This
* is done when VOS filename mapping is in use to avoid linking in a lot of
* objects that will never be used, since the HSI does not use networking.
*/
int KI_GETHOSTS() { return (0); }
void KI_SEND(){}
void KI_RECEIVE(){}
#endif
#ifdef SUNOS
/* Stub out the following too, since there is no floating point in the HSI. */
ieee_flags(){}
ieee_handler(){}
abrupt_underflow_(){}
#endif
|
