Annotation of src/usr.bin/make/util.c, Revision 1.1.1.1
1.1 deraadt 1: /* $NetBSD: util.c,v 1.4 1995/06/14 15:20:11 christos Exp $ */
2:
3: /*
4: * Missing stuff from OS's
5: *
6: */
7:
8: #ifndef lint
9: static char rcsid[] = "$Id: util.c,v 1.4 1995/06/14 15:20:11 christos Exp $";
10: #endif
11:
12: #include <stdio.h>
13: #include "make.h"
14:
15: #if !__STDC__
16: # ifndef const
17: # define const
18: # endif
19: #endif
20:
21: #ifdef sun
22:
23:
24:
25: extern int errno, sys_nerr;
26: extern char *sys_errlist[];
27:
28: char *
29: strerror(e)
30: int e;
31: {
32: static char buf[100];
33: if (e < 0 || e >= sys_nerr) {
34: sprintf(buf, "Unknown error %d", e);
35: return buf;
36: }
37: else
38: return sys_errlist[e];
39: }
40: #endif
41:
42: #if defined(sun) || defined(__hpux)
43:
44: int
45: setenv(name, value, dum)
46: const char *name;
47: const char *value;
48: int dum;
49: {
50: register char *p;
51: int len = strlen(name) + strlen(value) + 2; /* = \0 */
52: char *ptr = (char*) malloc(len);
53:
54: (void) dum;
55:
56: if (ptr == NULL)
57: return -1;
58:
59: p = ptr;
60:
61: while (*name)
62: *p++ = *name++;
63:
64: *p++ = '=';
65:
66: while (*value)
67: *p++ = *value++;
68:
69: *p = '\0';
70:
71: len = putenv(ptr);
72: /* free(ptr); */
73: return len;
74: }
75: #endif
76:
77: #ifdef __hpux
78: #include <sys/types.h>
79: #include <sys/param.h>
80: #include <sys/syscall.h>
81: #include <sys/signal.h>
82: #include <sys/stat.h>
83: #include <stdio.h>
84: #include <dirent.h>
85: #include <sys/time.h>
86: #include <time.h>
87: #include <unistd.h>
88:
89:
90: int
91: killpg(pid, sig)
92: int pid, sig;
93: {
94: return kill(-pid, sig);
95: }
96:
97: void
98: srandom(seed)
99: long seed;
100: {
101: srand48(seed);
102: }
103:
104: long
105: random()
106: {
107: return lrand48();
108: }
109:
110: /* turn into bsd signals */
111: void (*
112: signal(s, a)) ()
113: int s;
114: void (*a)();
115: {
116: struct sigvec osv, sv;
117:
118: (void) sigvector(s, (struct sigvec *) 0, &osv);
119: sv = osv;
120: sv.sv_handler = a;
121: #ifdef SV_BSDSIG
122: sv.sv_flags = SV_BSDSIG;
123: #endif
124:
125: if (sigvector(s, &sv, (struct sigvec *) 0) == -1)
126: return (BADSIG);
127: return (osv.sv_handler);
128: }
129:
130: #if !defined(BSD) && !defined(d_fileno)
131: # define d_fileno d_ino
132: #endif
133:
134: #ifndef DEV_DEV_COMPARE
135: # define DEV_DEV_COMPARE(a, b) ((a) == (b))
136: #endif
137: #define ISDOT(c) ((c)[0] == '.' && (((c)[1] == '\0') || ((c)[1] == '/')))
138: #define ISDOTDOT(c) ((c)[0] == '.' && ISDOT(&((c)[1])))
139:
140:
141: /* strrcpy():
142: * Like strcpy, going backwards and returning the new pointer
143: */
144: static char *
145: strrcpy(ptr, str)
146: register char *ptr, *str;
147: {
148: register int len = strlen(str);
149:
150: while (len)
151: *--ptr = str[--len];
152:
153: return (ptr);
154: } /* end strrcpy */
155:
156:
157: char *
158: getwd(pathname)
159: char *pathname;
160: {
161: DIR *dp;
162: struct dirent *d;
163: extern int errno;
164:
165: struct stat st_root, st_cur, st_next, st_dotdot;
166: char pathbuf[MAXPATHLEN], nextpathbuf[MAXPATHLEN * 2];
167: char *pathptr, *nextpathptr, *cur_name_add;
168:
169: /* find the inode of root */
170: if (stat("/", &st_root) == -1) {
171: (void) sprintf(pathname,
172: "getwd: Cannot stat \"/\" (%s)", strerror(errno));
173: return (NULL);
174: }
175: pathbuf[MAXPATHLEN - 1] = '\0';
176: pathptr = &pathbuf[MAXPATHLEN - 1];
177: nextpathbuf[MAXPATHLEN - 1] = '\0';
178: cur_name_add = nextpathptr = &nextpathbuf[MAXPATHLEN - 1];
179:
180: /* find the inode of the current directory */
181: if (lstat(".", &st_cur) == -1) {
182: (void) sprintf(pathname,
183: "getwd: Cannot stat \".\" (%s)", strerror(errno));
184: return (NULL);
185: }
186: nextpathptr = strrcpy(nextpathptr, "../");
187:
188: /* Descend to root */
189: for (;;) {
190:
191: /* look if we found root yet */
192: if (st_cur.st_ino == st_root.st_ino &&
193: DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) {
194: (void) strcpy(pathname, *pathptr != '/' ? "/" : pathptr);
195: return (pathname);
196: }
197:
198: /* open the parent directory */
199: if (stat(nextpathptr, &st_dotdot) == -1) {
200: (void) sprintf(pathname,
201: "getwd: Cannot stat directory \"%s\" (%s)",
202: nextpathptr, strerror(errno));
203: return (NULL);
204: }
205: if ((dp = opendir(nextpathptr)) == NULL) {
206: (void) sprintf(pathname,
207: "getwd: Cannot open directory \"%s\" (%s)",
208: nextpathptr, strerror(errno));
209: return (NULL);
210: }
211:
212: /* look in the parent for the entry with the same inode */
213: if (DEV_DEV_COMPARE(st_dotdot.st_dev, st_cur.st_dev)) {
214: /* Parent has same device. No need to stat every member */
215: for (d = readdir(dp); d != NULL; d = readdir(dp))
216: if (d->d_fileno == st_cur.st_ino)
217: break;
218: }
219: else {
220: /*
221: * Parent has a different device. This is a mount point so we
222: * need to stat every member
223: */
224: for (d = readdir(dp); d != NULL; d = readdir(dp)) {
225: if (ISDOT(d->d_name) || ISDOTDOT(d->d_name))
226: continue;
227: (void) strcpy(cur_name_add, d->d_name);
228: if (lstat(nextpathptr, &st_next) == -1) {
229: (void) sprintf(pathname, "getwd: Cannot stat \"%s\" (%s)",
230: d->d_name, strerror(errno));
231: (void) closedir(dp);
232: return (NULL);
233: }
234: /* check if we found it yet */
235: if (st_next.st_ino == st_cur.st_ino &&
236: DEV_DEV_COMPARE(st_next.st_dev, st_cur.st_dev))
237: break;
238: }
239: }
240: if (d == NULL) {
241: (void) sprintf(pathname, "getwd: Cannot find \".\" in \"..\"");
242: (void) closedir(dp);
243: return (NULL);
244: }
245: st_cur = st_dotdot;
246: pathptr = strrcpy(pathptr, d->d_name);
247: pathptr = strrcpy(pathptr, "/");
248: nextpathptr = strrcpy(nextpathptr, "../");
249: (void) closedir(dp);
250: *cur_name_add = '\0';
251: }
252: } /* end getwd */
253:
254:
255: char *sys_siglist[] = {
256: "Signal 0",
257: "Hangup", /* SIGHUP */
258: "Interrupt", /* SIGINT */
259: "Quit", /* SIGQUIT */
260: "Illegal instruction", /* SIGILL */
261: "Trace/BPT trap", /* SIGTRAP */
262: "IOT trap", /* SIGIOT */
263: "EMT trap", /* SIGEMT */
264: "Floating point exception", /* SIGFPE */
265: "Killed", /* SIGKILL */
266: "Bus error", /* SIGBUS */
267: "Segmentation fault", /* SIGSEGV */
268: "Bad system call", /* SIGSYS */
269: "Broken pipe", /* SIGPIPE */
270: "Alarm clock", /* SIGALRM */
271: "Terminated", /* SIGTERM */
272: "User defined signal 1", /* SIGUSR1 */
273: "User defined signal 2", /* SIGUSR2 */
274: "Child exited", /* SIGCLD */
275: "Power-fail restart", /* SIGPWR */
276: "Virtual timer expired", /* SIGVTALRM */
277: "Profiling timer expired", /* SIGPROF */
278: "I/O possible", /* SIGIO */
279: "Window size changes", /* SIGWINDOW */
280: "Stopped (signal)", /* SIGSTOP */
281: "Stopped", /* SIGTSTP */
282: "Continued", /* SIGCONT */
283: "Stopped (tty input)", /* SIGTTIN */
284: "Stopped (tty output)", /* SIGTTOU */
285: "Urgent I/O condition", /* SIGURG */
286: "Remote lock lost (NFS)", /* SIGLOST */
287: "Signal 31", /* reserved */
288: "DIL signal" /* SIGDIL */
289: };
290:
291: int
292: utimes(file, tvp)
293: char *file;
294: struct timeval tvp[2];
295: {
296: struct utimbuf t;
297:
298: t.actime = tvp[0].tv_sec;
299: t.modtime = tvp[1].tv_sec;
300: return(utime(file, &t));
301: }
302:
303:
304: #endif /* __hpux */