ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/meta/syscalls.c
Revision: 1.1
Committed: Sat Feb 22 02:07:26 2003 UTC (21 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad3R5
Log Message:
Changes and check-in for 3.5 release
Includes new source files and modifications not recorded for many years
See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id$";
3 #endif
4 /*
5 * System calls for meta-file routines
6 */
7
8
9 #include "meta.h"
10
11
12
13
14
15 FILE *
16 efopen(fname, mode) /* open a file, report errors */
17
18 char *fname, *mode;
19
20 {
21 register FILE *fp;
22 FILE *fopen();
23
24 if ((fp = fopen(fname, mode)) == NULL) {
25 sprintf(errmsg, "cannot open file \"%s\", mode \"%s\"", fname, mode);
26 error(USER, errmsg);
27 }
28
29 return(fp);
30 }
31
32
33
34 FILE *
35 mfopen(fname, mode) /* open a program metafile */
36
37 char *fname;
38 char *mode;
39
40 {
41 char *mdir, stemp[MAXFNAME];
42 #if UNIX || MAC
43 char *getenv();
44
45 if ((mdir = getenv("MDIR")) == NULL)
46 #endif
47 mdir = MDIR;
48 sprintf(stemp, "%s%s", mdir, fname);
49
50 return(efopen(stemp, mode));
51 }
52
53
54
55 #ifdef CPM
56 getpid() /* for CP/M, get user number */
57
58 {
59
60 return(getusr());
61 }
62 #endif
63
64
65
66 #ifdef MAC
67 getpid() /* dummy value for MacIntosh */
68
69 {
70
71 return(0);
72 }
73 #endif