1 /* $Header: /p/tcsh/cvsroot/tcsh/tc.os.c,v 3.69 2006/08/24 20:56:31 christos Exp $ */ 2 /* 3 * tc.os.c: OS Dependent builtin functions 4 */ 5 /*- 6 * Copyright (c) 1980, 1991 The Regents of the University of California. 7 * All rights reserved. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 1. Redistributions of source code must retain the above copyright 13 * notice, this list of conditions and the following disclaimer. 14 * 2. Redistributions in binary form must reproduce the above copyright 15 * notice, this list of conditions and the following disclaimer in the 16 * documentation and/or other materials provided with the distribution. 17 * 3. Neither the name of the University nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 */ 33 #include "sh.h" 34 35 RCSID("$tcsh: tc.os.c,v 3.69 2006/08/24 20:56:31 christos Exp $") 36 37 #include "tw.h" 38 #include "ed.h" 39 #include "ed.defns.h" /* for the function names */ 40 #include "sh.decls.h" 41 42 #ifdef _UWIN 43 #define TIOCGPGRP TIOCGETPGRP 44 #define TIOCSPGRP TIOCSETPGRP 45 #endif 46 47 /*** 48 *** MACH 49 ***/ 50 51 #ifdef MACH 52 /* dosetpath -- setpath built-in command 53 * 54 ********************************************************************** 55 * HISTORY 56 * 08-May-88 Richard Draves (rpd) at Carnegie-Mellon University 57 * Major changes to remove artificial limits on sizes and numbers 58 * of paths. 59 * 60 ********************************************************************** 61 */ 62 63 #ifdef MACH 64 static Char STRCPATH[] = {'C', 'P', 'A', 'T', 'H', '\0'}; 65 static Char STRLPATH[] = {'L', 'P', 'A', 'T', 'H', '\0'}; 66 static Char STRMPATH[] = {'M', 'P', 'A', 'T', 'H', '\0'}; 67 # if EPATH 68 static Char STREPATH[] = {'E', 'P', 'A', 'T', 'H', '\0'}; 69 # endif 70 #endif /* MACH */ 71 static Char *syspaths[] = {STRKPATH, STRCPATH, STRLPATH, STRMPATH, 72 73 #if EPATH 74 STREPATH, 75 #endif 76 0}; 77 #define LOCALSYSPATH "/usr/local" 78 79 /*ARGSUSED*/ 80 void 81 dosetpath(Char **arglist, struct command *c) 82 { 83 extern char *getenv(); 84 Char **pathvars, **cmdargs; 85 char **spaths, **cpaths, **cmds; 86 char *tcp; 87 unsigned int npaths, ncmds; 88 int i, sysflag; 89 90 pintr_disabled++; 91 cleanup_push(&pintr_disabled, disabled_cleanup); 92 93 /* 94 * setpath(3) uses stdio and we want 0, 1, 2 to work... 95 */ 96 if (!didfds) { 97 (void) dcopy(SHIN, 0); 98 (void) dcopy(SHOUT, 1); 99 (void) dcopy(SHDIAG, 2); 100 didfds = 1; 101 } 102 103 for (i = 1; arglist[i] && (arglist[i][0] != '-'); i++); 104 npaths = i - 1; 105 106 cmdargs = &arglist[i]; 107 for (; arglist[i]; i++); 108 ncmds = i - npaths - 1; 109 110 if (npaths) { 111 sysflag = 0; 112 pathvars = &arglist[1]; 113 } 114 else { 115 sysflag = 1; 116 npaths = (sizeof syspaths / sizeof *syspaths) - 1; 117 pathvars = syspaths; 118 } 119 120 /* note that npaths != 0 */ 121 122 spaths = xmalloc(npaths * sizeof *spaths); 123 setzero(spaths, npaths * sizeof *spaths); 124 cpaths = xmalloc((npaths + 1) * sizeof *cpaths); 125 setzero(cpaths, (npaths + 1) * sizeof *cpaths); 126 cmds = xmalloc((ncmds + 1) * sizeof *cmds); 127 setzero(cmds, (ncmds + 1) * sizeof *cmds); 128 for (i = 0; i < npaths; i++) { 129 char *val = getenv(short2str(pathvars[i])); 130 131 if (val == NULL) 132 val = ""; 133 134 spaths[i] = xmalloc((Strlen(pathvars[i]) + strlen(val) + 2) * 135 sizeof **spaths); 136 (void) strcpy(spaths[i], short2str(pathvars[i])); 137 (void) strcat(spaths[i], "="); 138 (void) strcat(spaths[i], val); 139 cpaths[i] = spaths[i]; 140 } 141 142 for (i = 0; i < ncmds; i++) { 143 Char *val = globone(cmdargs[i], G_ERROR);/*FIXRESET*/ 144 145 if (val == NULL) 146 goto abortpath; 147 cmds[i] = strsave(short2str(val)); 148 } 149 150 151 if (setpath(cpaths, cmds, LOCALSYSPATH, sysflag, 1) < 0) { 152 abortpath: 153 if (spaths) { 154 for (i = 0; i < npaths; i++) 155 xfree(spaths[i]); 156 xfree(spaths); 157 } 158 xfree(cpaths); 159 if (cmds) { 160 for (i = 0; i < ncmds; i++) 161 xfree(cmds[i]); 162 xfree(cmds); 163 } 164 165 cleanup_until(&pintr_disabled); 166 donefds(); 167 return; 168 } 169 170 for (i = 0; i < npaths; i++) { 171 Char *val, *name; 172 173 name = str2short(cpaths[i]); 174 for (val = str2short(cpaths[i]); val && *val && *val != '='; val++); 175 if (val && *val == '=') { 176 *val++ = '\0'; 177 178 tsetenv(name, val);/*FIXRESET*/ 179 if (Strcmp(name, STRKPATH) == 0) { 180 importpath(val);/*FIXRESET*/ 181 if (havhash) 182 dohash(NULL, NULL);/*FIXRESET*/ 183 } 184 *--val = '='; 185 } 186 } 187 cleanup_until(&pintr_disabled); 188 donefds(); 189 } 190 #endif /* MACH */ 191 192 /*** 193 *** AIX 194 ***/ 195 #ifdef TCF 196 /* ARGSUSED */ 197 void 198 dogetxvers(Char **v, struct command *c) 199 { 200 char xvers[MAXPATHLEN]; 201 202 if (getxvers(xvers, MAXPATHLEN) == -1) 203 stderror(ERR_SYSTEM, "getxvers", strerror(errno)); 204 xprintf("%s\n", xvers); 205 flush(); 206 } 207 208 /*ARGSUSED*/ 209 void 210 dosetxvers(Char **v, struct command *c) 211 { 212 char *xvers; 213 214 ++v; 215 if (!*v || *v[0] == '\0') 216 xvers = ""; 217 else 218 xvers = short2str(*v); 219 if (setxvers(xvers) == -1) 220 stderror(ERR_SYSTEM, "setxvers", strerror(errno)); 221 } 222 223 #include <sf.h> 224 #ifdef _AIXPS2 225 # define XC_PDP11 0x01 226 # define XC_23 0x02 227 # define XC_Z8K 0x03 228 # define XC_8086 0x04 229 # define XC_68K 0x05 230 # define XC_Z80 0x06 231 # define XC_VAX 0x07 232 # define XC_16032 0x08 233 # define XC_286 0x09 234 # define XC_386 0x0a 235 # define XC_S370 0x0b 236 #else 237 # include <sys/x.out.h> 238 #endif /* _AIXPS2 */ 239 240 static struct xc_cpu_t { 241 short xc_id; 242 char *xc_name; 243 } xcpu[] = 244 { 245 { XC_PDP11, "pdp11" }, 246 { XC_23, "i370" }, 247 { XC_Z8K, "z8000" }, 248 { XC_8086, "i86" }, 249 { XC_68K, "mc68000" }, 250 { XC_Z80, "x80" }, 251 { XC_VAX, "vax" }, 252 { XC_16032, "ns16032" }, 253 { XC_286, "i286" }, 254 { XC_386, "i386" }, 255 { XC_S370, "xa370" }, 256 { 0, NULL } 257 }; 258 259 /* 260 * our local hack table, stolen from x.out.h 261 */ 262 static char * 263 getxcode(short xcid) 264 { 265 int i; 266 267 for (i = 0; xcpu[i].xc_name != NULL; i++) 268 if (xcpu[i].xc_id == xcid) 269 return (xcpu[i].xc_name); 270 return (NULL); 271 } 272 273 static short 274 getxid(char *xcname) 275 { 276 int i; 277 278 for (i = 0; xcpu[i].xc_name != NULL; i++) 279 if (strcmp(xcpu[i].xc_name, xcname) == 0) 280 return (xcpu[i].xc_id); 281 return ((short) -1); 282 } 283 284 285 /*ARGSUSED*/ 286 void 287 dogetspath(Char **v, struct command *c) 288 { 289 int i, j; 290 sitepath_t p[MAXSITE]; 291 struct sf *st; 292 static char *local = "LOCAL "; 293 294 if ((j = getspath(p, MAXSITE)) == -1) 295 stderror(ERR_SYSTEM, "getspath", strerror(errno)); 296 for (i = 0; i < j && (p[i] & SPATH_CPU) != NOSITE; i++) { 297 if (p[i] & SPATH_CPU) { 298 if ((p[i] & SPATH_MASK) == NULLSITE) 299 xprintf(local); 300 else if ((st = sfxcode((short) (p[i] & SPATH_MASK))) != NULL) 301 xprintf("%s ", st->sf_ctype); 302 else { 303 char *xc = getxcode(p[i] & SPATH_MASK); 304 305 if (xc != NULL) 306 xprintf("%s ", xc); 307 else 308 xprintf("*cpu %d* ", (int) (p[i] & SPATH_MASK)); 309 /* 310 * BUG in the aix code... needs that cause if 311 * sfxcode fails once it fails for ever 312 */ 313 endsf(); 314 } 315 } 316 else { 317 if (p[i] == NULLSITE) 318 xprintf(local); 319 else if ((st = sfnum(p[i])) != NULL) 320 xprintf("%s ", st->sf_sname); 321 else 322 xprintf("*site %d* ", (int) (p[i] & SPATH_MASK)); 323 } 324 } 325 xputchar('\n'); 326 flush(); 327 } 328 329 /*ARGSUSED*/ 330 void 331 dosetspath(Char **v, struct command *c) 332 { 333 int i; 334 short j; 335 char *s; 336 sitepath_t p[MAXSITE]; 337 struct sf *st; 338 339 /* 340 * sfname() on AIX G9.9 at least, mallocs too pointers p, q 341 * then does the equivalent of while (*p++ == *q++) continue; 342 * and then tries to free(p,q) them! Congrats to the wizard who 343 * wrote that one. I bet he tested it really well too. 344 * Sooo, we set dont_free :-) 345 */ 346 dont_free = 1; 347 for (i = 0, v++; *v && *v[0] != '\0'; v++, i++) { 348 s = short2str(*v); 349 if (isdigit(*s)) 350 p[i] = atoi(s); 351 else if (strcmp(s, "LOCAL") == 0) 352 p[i] = NULLSITE; 353 else if ((st = sfctype(s)) != NULL) 354 p[i] = SPATH_CPU | st->sf_ccode; 355 else if ((j = getxid(s)) != -1) 356 p[i] = SPATH_CPU | j; 357 else if ((st = sfname(s)) != NULL) 358 p[i] = st->sf_id; 359 else { 360 setname(s); 361 stderror(ERR_NAME | ERR_STRING, CGETS(23, 1, "Bad cpu/site name")); 362 } 363 if (i == MAXSITE - 1) 364 stderror(ERR_NAME | ERR_STRING, CGETS(23, 2, "Site path too long")); 365 } 366 if (setspath(p, i) == -1) 367 stderror(ERR_SYSTEM, "setspath", strerror(errno)); 368 dont_free = 0; 369 } 370 371 /* sitename(): 372 * Return the site name where the process is running 373 */ 374 char * 375 sitename(pid_t pid) 376 { 377 siteno_t ss; 378 struct sf *st; 379 380 if ((ss = site(pid)) == -1 || (st = sfnum(ss)) == NULL) 381 return CGETS(23, 3, "unknown"); 382 else 383 return st->sf_sname; 384 } 385 386 static int 387 migratepid(pit_t pid, siteno_t new_site) 388 { 389 struct sf *st; 390 int need_local; 391 392 need_local = (pid == 0) || (pid == getpid()); 393 394 if (kill3(pid, SIGMIGRATE, new_site) < 0) { 395 xprintf("%d: %s\n", pid, strerror(errno)); 396 return (-1); 397 } 398 399 if (need_local) { 400 if ((new_site = site(0)) == -1) { 401 xprintf(CGETS(23, 4, "site: %s\n"), strerror(errno)); 402 return (-1); 403 } 404 if ((st = sfnum(new_site)) == NULL) { 405 xprintf(CGETS(23, 5, "%d: Site not found\n"), new_site); 406 return (-1); 407 } 408 if (setlocal(st->sf_local, strlen(st->sf_local)) == -1) { 409 xprintf(CGETS(23, 6, "setlocal: %s: %s\n"), 410 st->sf_local, strerror(errno)); 411 return (-1); 412 } 413 } 414 return (0); 415 } 416 417 /*ARGSUSED*/ 418 void 419 domigrate(Char **v, struct command *c) 420 { 421 struct sf *st; 422 char *s; 423 Char *cp; 424 struct process *pp; 425 int err1 = 0; 426 int pid = 0; 427 siteno_t new_site = 0; 428 429 pchild_disabled++; 430 cleanup_push(&pchild_disabled, disabled_cleanup); 431 if (setintr) { 432 pintr_disabled++; 433 cleanup_push(&pintr_disabled, disabled_cleanup); 434 } 435 436 ++v; 437 if (*v[0] == '-') { 438 /* 439 * Do the -site. 440 */ 441 s = short2str(&v[0][1]); 442 /* 443 * see comment in setspath() 444 */ 445 dont_free = 1; 446 if ((st = sfname(s)) == NULL) { 447 dont_free = 0; 448 setname(s); 449 stderror(ERR_NAME | ERR_STRING, CGETS(23, 7, "Site not found")); 450 } 451 dont_free = 0; 452 new_site = st->sf_id; 453 ++v; 454 } 455 456 if (!*v || *v[0] == '\0') { 457 if (migratepid(0, new_site) == -1) 458 err1++; 459 } 460 else { 461 Char **globbed; 462 463 v = glob_all_or_error(v); 464 globbed = v; 465 cleanup_push(globbed, blk_cleanup); 466 467 while (v && (cp = *v)) { 468 if (*cp == '%') { 469 pp = pfind(cp); 470 if (kill3(- pp->p_jobid, SIGMIGRATE, new_site) < 0) { 471 xprintf("%S: %s\n", cp, strerror(errno)); 472 err1++; 473 } 474 } 475 else if (!(Isdigit(*cp) || *cp == '-')) 476 stderror(ERR_NAME | ERR_JOBARGS); 477 else { 478 pid = atoi(short2str(cp)); 479 if (migratepid(pid, new_site) == -1) 480 err1++; 481 } 482 v++; 483 } 484 cleanup_until(globbed); 485 } 486 487 done: 488 cleanup_until(&pchild_disabled); 489 if (err1) 490 stderror(ERR_SILENT); 491 } 492 493 #endif /* TCF */ 494 495 /*** 496 *** CRAY ddmode <velo@sesun3.epfl.ch> (Martin Ouwehand EPFL-SIC/SE) 497 ***/ 498 #if defined(_CRAY) && !defined(_CRAYMPP) 499 void 500 dodmmode(Char **v, struct command *c) 501 { 502 Char *cp = v[1]; 503 504 USE(c); 505 506 if ( !cp ) { 507 int mode; 508 509 mode = dmmode(0); 510 dmmode(mode); 511 xprintf("%d\n",mode); 512 } 513 else { 514 if (cp[1] != '\0') 515 stderror(ERR_NAME | ERR_STRING, 516 CGETS(23, 30, "Too many arguments")); 517 else 518 switch(*cp) { 519 case '0': 520 dmmode(0); 521 break; 522 case '1': 523 dmmode(1); 524 break; 525 default: 526 stderror(ERR_NAME | ERR_STRING, 527 CGETS(23, 31, "Invalid argument")); 528 } 529 } 530 } 531 #endif /* _CRAY && !_CRAYMPP */ 532 533 534 /*** 535 *** CONVEX Warps. 536 ***/ 537 538 #ifdef WARP 539 /* 540 * handle the funky warping of symlinks 541 */ 542 #include <warpdb.h> 543 #include <sys/warp.h> 544 545 static jmp_buf sigsys_buf; 546 547 static void 548 catch_sigsys(void) 549 { 550 sigset_t set; 551 sigemptyset(&set, SIGSYS); 552 (void)sigprocmask(SIG_UNBLOCK, &set, NULL); 553 longjmp(sigsys_buf, 1); 554 } 555 556 557 /*ARGSUSED*/ 558 void 559 dowarp(Char **v, struct command *c) 560 { 561 int warp, oldwarp; 562 struct warpent *we; 563 volatile struct sigaction old_sigsys_handler; 564 char *newwarp; 565 566 if (setjmp(sigsys_buf)) { 567 sigaction(SIGSYS, &old_sigsys_handler, NULL); 568 stderror(ERR_NAME | ERR_STRING, 569 CGETS(23, 8, "You're trapped in a universe you never made")); 570 return; 571 } 572 sigaction(SIGSYS, NULL, &old_sigsys_handler); 573 signal(SIGSYS, catch_sigsys); 574 575 warp = getwarp(); 576 577 v++; 578 if (*v == 0) { /* display warp value */ 579 if (warp < 0) 580 stderror(ERR_NAME | ERR_STRING, CGETS(23, 9, "Getwarp failed")); 581 we = getwarpbyvalue(warp); 582 if (we) 583 printf("%s\n", we->w_name); 584 else 585 printf("%d\n", warp); 586 } 587 else { /* set warp value */ 588 oldwarp = warp; 589 newwarp = short2str(*v); 590 if (Isdigit(*v[0])) 591 warp = atoi(newwarp); 592 else { 593 we = getwarpbyname(newwarp); 594 if (we) 595 warp = we->w_value; 596 else 597 warp = -1; 598 } 599 if ((warp < 0) || (warp >= WARP_MAXLINK)) 600 stderror(ERR_NAME | ERR_STRING, CGETS(23, 10, "Invalid warp")); 601 if ((setwarp(warp) < 0) || (getwarp() != warp)) { 602 (void) setwarp(oldwarp); 603 stderror(ERR_NAME | ERR_STRING, CGETS(23, 11, "Setwarp failed")); 604 } 605 } 606 sigaction(SIGSYS, &old_sigsys_handler, NULL); 607 } 608 #endif /* WARP */ 609 610 /*** 611 *** Masscomp or HCX 612 ***/ 613 /* Added, DAS DEC-90. */ 614 #if defined(masscomp) || defined(_CX_UX) 615 static void 616 setuniverse_cleanup(void *xbuf) 617 { 618 char *buf; 619 620 buf = xbuf; 621 setuniverse(buf); 622 } 623 624 /*ARGSUSED*/ 625 void 626 douniverse(Char **v, struct command *c) 627 { 628 Char *cp = v[1]; 629 Char *cp2; /* dunno how many elements v comes in with */ 630 char ubuf[100]; 631 632 if (cp == 0) { 633 (void) getuniverse(ubuf); 634 xprintf("%s\n", ubuf); 635 } 636 else { 637 cp2 = v[2]; 638 if (cp2 == 0) { 639 if (*cp == '\0' || setuniverse(short2str(cp)) != 0) 640 stderror(ERR_NAME | ERR_STRING, CGETS(23, 12, "Illegal universe")); 641 } 642 else { 643 (void) getuniverse(ubuf); 644 if (*cp == '\0' || setuniverse(short2str(cp)) != 0) 645 stderror(ERR_NAME | ERR_STRING, CGETS(23, 12, "Illegal universe")); 646 cleanup_push(ubuf, setuniverse_cleanup); 647 if (setintr) { 648 pintr_disabled++; 649 cleanup_push(&pintr_disabled, disabled_cleanup); 650 } 651 lshift(v, 2); 652 if (setintr) 653 cleanup_until(&pintr_disabled); 654 reexecute(c); 655 cleanup_until(ubuf); 656 } 657 } 658 } 659 #endif /* masscomp || _CX_UX */ 660 661 /*** 662 *** BS2000/OSD POSIX (Fujitsu Siemens Computers) 663 ***/ 664 #if defined(_OSD_POSIX) 665 static int 666 bs2upcase(char *str) 667 { 668 enum { outside = ' ', singlequote='\'', doublequote='"'} string = outside; 669 670 char *white; 671 672 for (white = str + strlen(str) - 1; isspace(*white) && white > str; --white) 673 *white = '\0'; 674 675 for (; *str != '\0'; ++str) 676 { 677 if (string == outside) 678 { 679 *str = toupper (*str); 680 } 681 if (*str == '\'') 682 { 683 if (string == outside) 684 string = singlequote; 685 else if (string != doublequote) 686 string = outside; 687 } 688 else if (*str == '"') 689 { 690 if (string == outside) 691 string = doublequote; 692 else if (string != singlequote) 693 string = outside; 694 } 695 } 696 if (string != outside) 697 { 698 stderror(ERR_NAME | ERR_UNMATCHED, (Char) string); 699 return 1; 700 } 701 return 0; 702 } 703 static int 704 bs2cmdlist(char *str) 705 { 706 char *str_beg = NULL; 707 int ret = 0; 708 709 enum { outside = ' ', singlequote='\'', doublequote='"'} string = outside; 710 711 while (*str != '\0') 712 { 713 while (isspace(*str)) 714 ++str; 715 716 if (*str == '\0') 717 break; 718 719 str_beg = str; 720 721 for (; *str != '\0'; ++str) 722 { 723 if (string == outside && *str == ';') /* End of command */ 724 { 725 *str++ = '\0'; 726 break; /* continue with next command */ 727 } 728 if (*str == '\'') 729 { 730 if (string == outside) 731 string = singlequote; 732 else if (string != doublequote) 733 string = outside; 734 } 735 else if (*str == '"') 736 { 737 if (string == outside) 738 string = doublequote; 739 else if (string != singlequote) 740 string = outside; 741 } 742 } 743 if (strlen(str_beg) != 0) 744 { 745 ret = bs2system(str_beg); 746 flush(); 747 if (ret != 0 /*&& !option.err_ignore*/) 748 break; /* do not continue after errors */ 749 } 750 } 751 752 if (string != outside) 753 { 754 stderror(ERR_NAME | ERR_UNMATCHED, (Char) string); 755 return -1; 756 } 757 758 return ret; 759 } 760 /*ARGSUSED*/ 761 void 762 dobs2cmd(Char **v, struct command *c) 763 { 764 Char *cp, **globbed; 765 int i = 0, len = 0; 766 char *cmd = NULL; 767 int pvec[2]; 768 struct command faket; 769 Char *fakecom[2]; 770 char tibuf[BUFSIZE]; 771 int icnt, old_pintr_disabled; 772 static const Char STRbs2cmd[] = { 'b','s','2','c','m','d','\0' }; 773 774 v++; 775 if (setintr) 776 pintr_push_enable(&old_pintr_disabled); 777 v = glob_all_or_error(v); 778 if (setintr) 779 cleanup_until(&old_pintr_disabled); 780 globbed = v; 781 cleanup_push(globbed, blk_cleanup); 782 783 /* First round: count the string lengths */ 784 for (i=0; v[i]; ++i) { 785 len += Strlen(v[i]) + (v[i+1] != NULL); 786 } 787 788 cmd = xmalloc(len+1); /* 1 for the final '\0' *//* FIXME: memory leak? */ 789 790 /* 2nd round: fill cmd buffer */ 791 i = 0; 792 while ((cp = *v++) != 0) { 793 int c; 794 while (c = *cp++) 795 cmd[i++] = (char)c; 796 if (*v) 797 cmd[i++] = ' '; 798 } 799 cmd[i] = '\0'; 800 801 /* Make upper case */ 802 bs2upcase(cmd); 803 804 faket.t_dtyp = NODE_COMMAND; 805 faket.t_dflg = F_BACKQ|F_STDERR; 806 faket.t_dlef = 0; 807 faket.t_drit = 0; 808 faket.t_dspr = 0; 809 faket.t_dcom = fakecom; 810 fakecom[0] = (Char *)STRbs2cmd; 811 fakecom[1] = 0; 812 813 mypipe(pvec); 814 cleanup_push(&pvec[0], open_cleanup); 815 cleanup_push(&pvec[1], open_cleanup); 816 if (pfork(&faket, -1) == 0) { 817 sigset_t set; 818 /* child */ 819 xclose(pvec[0]); 820 (void) dmove(pvec[1], 1); 821 (void) dmove(SHDIAG, 2); 822 initdesc(); 823 sigemptyset(&set); 824 sigaddset(&set, SIGINT); 825 (void)sigprocmask(SIG_UNBLOCK, &set, NULL); 826 #ifdef SIGTSTP 827 signal(SIGTSTP, SIG_IGN); 828 #endif 829 #ifdef SIGTTIN 830 signal(SIGTTIN, SIG_IGN); 831 #endif 832 #ifdef SIGTTOU 833 signal(SIGTTOU, SIG_IGN); 834 #endif 835 xexit(bs2cmdlist(cmd)); 836 } 837 cleanup_until(&pvec[1]); 838 for(;;) { 839 int old_pintr_disabled; 840 841 if (setintr) 842 pintr_push_enable(&old_pintr_disabled); 843 icnt = xread(pvec[0], tibuf, sizeof(tibuf)); 844 if (setintr) 845 cleanup_until(&old_pintr_disabled); 846 if (icnt <= 0) 847 break; 848 for (i = 0; i < icnt; i++) 849 xputchar((unsigned char) tibuf[i]); 850 } 851 cleanup_until(&pvec[0]); 852 pwait(); 853 854 flush(); 855 856 cleanup_until(globbed); 857 } 858 #endif /* _OSD_POSIX */ 859 860 #if defined(_CX_UX) 861 static void 862 setuniverse_cleanup(void *xbuf) 863 { 864 char *buf; 865 866 buf = xbuf; 867 setuniverse(buf); 868 } 869 870 /*ARGSUSED*/ 871 void 872 doatt(Char **v, struct command *c) 873 { 874 Char *cp = v[1]; 875 char ubuf[100]; 876 877 if (cp == 0) 878 (void) setuniverse("att"); 879 else { 880 (void) getuniverse(ubuf); 881 (void) setuniverse("att"); 882 cleanup_push(ubuf, setuniverse_cleanup); 883 if (setintr) { 884 pintr_disabled++; 885 cleanup_push(&pintr_disabled, disabled_cleanup); 886 } 887 lshift(v, 1); 888 if (setintr) 889 cleanup_until(&pintr_disabled); 890 reexecute(c); 891 cleanup_until(ubuf); 892 } 893 } 894 895 /*ARGSUSED*/ 896 void 897 doucb(Char **v, struct command *c) 898 { 899 Char *cp = v[1]; 900 char ubuf[100]; 901 902 if (cp == 0) 903 (void) setuniverse("ucb"); 904 else { 905 (void) getuniverse(ubuf); 906 (void) setuniverse("ucb"); 907 cleanup_push(ubuf, setuniverse_cleanup); 908 if (setintr) { 909 pintr_disabled++; 910 cleanup_push(&pintr_disabled, disabled_cleanup); 911 } 912 lshift(v, 1); 913 if (setintr) 914 cleanup_until(&pintr_disabled); 915 reexecute(c); 916 cleanup_until(ubuf); 917 } 918 } 919 #endif /* _CX_UX */ 920 921 #ifdef _SEQUENT_ 922 /* 923 * Compute the difference in process stats. 924 */ 925 void 926 pr_stat_sub(struct process_stats *p2, struct process_stats *p1, 927 struct process_stats *pr) 928 { 929 pr->ps_utime.tv_sec = p2->ps_utime.tv_sec - p1->ps_utime.tv_sec; 930 pr->ps_utime.tv_usec = p2->ps_utime.tv_usec - p1->ps_utime.tv_usec; 931 if (pr->ps_utime.tv_usec < 0) { 932 pr->ps_utime.tv_sec -= 1; 933 pr->ps_utime.tv_usec += 1000000; 934 } 935 pr->ps_stime.tv_sec = p2->ps_stime.tv_sec - p1->ps_stime.tv_sec; 936 pr->ps_stime.tv_usec = p2->ps_stime.tv_usec - p1->ps_stime.tv_usec; 937 if (pr->ps_stime.tv_usec < 0) { 938 pr->ps_stime.tv_sec -= 1; 939 pr->ps_stime.tv_usec += 1000000; 940 } 941 942 pr->ps_maxrss = p2->ps_maxrss - p1->ps_maxrss; 943 pr->ps_pagein = p2->ps_pagein - p1->ps_pagein; 944 pr->ps_reclaim = p2->ps_reclaim - p1->ps_reclaim; 945 pr->ps_zerofill = p2->ps_zerofill - p1->ps_zerofill; 946 pr->ps_pffincr = p2->ps_pffincr - p1->ps_pffincr; 947 pr->ps_pffdecr = p2->ps_pffdecr - p1->ps_pffdecr; 948 pr->ps_swap = p2->ps_swap - p1->ps_swap; 949 pr->ps_syscall = p2->ps_syscall - p1->ps_syscall; 950 pr->ps_volcsw = p2->ps_volcsw - p1->ps_volcsw; 951 pr->ps_involcsw = p2->ps_involcsw - p1->ps_involcsw; 952 pr->ps_signal = p2->ps_signal - p1->ps_signal; 953 pr->ps_lread = p2->ps_lread - p1->ps_lread; 954 pr->ps_lwrite = p2->ps_lwrite - p1->ps_lwrite; 955 pr->ps_bread = p2->ps_bread - p1->ps_bread; 956 pr->ps_bwrite = p2->ps_bwrite - p1->ps_bwrite; 957 pr->ps_phread = p2->ps_phread - p1->ps_phread; 958 pr->ps_phwrite = p2->ps_phwrite - p1->ps_phwrite; 959 } 960 961 #endif /* _SEQUENT_ */ 962 963 964 #ifndef HAVE_MEMSET 965 /* This is a replacement for a missing memset function */ 966 void *xmemset(void *loc, int value, size_t len) 967 { 968 char *ptr = loc; 969 970 while (len--) 971 *ptr++ = value; 972 return loc; 973 } 974 #endif /* !HAVE_MEMSET */ 975 976 977 #ifndef HAVE_MEMMOVE 978 /* memmove(): 979 * This is the ANSI form of bcopy() with the arguments backwards... 980 * Unlike memcpy(), it handles overlaps between source and 981 * destination memory 982 */ 983 void * 984 xmemmove(void *vdst, const void *vsrc, size_t len) 985 { 986 const char *src = vsrc; 987 char *dst = vdst; 988 989 if (src == dst) 990 return vdst; 991 992 if (src > dst) { 993 while (len--) 994 *dst++ = *src++; 995 } 996 else { 997 src += len; 998 dst += len; 999 while (len--) 1000 *--dst = *--src; 1001 } 1002 return vdst; 1003 } 1004 #endif /* HAVE_MEMMOVE */ 1005 1006 1007 #ifndef WINNT_NATIVE 1008 #ifdef NEEDtcgetpgrp 1009 pid_t 1010 xtcgetpgrp(int fd) 1011 { 1012 int pgrp; 1013 1014 /* ioctl will handle setting errno correctly. */ 1015 if (ioctl(fd, TIOCGPGRP, (ioctl_t) & pgrp) < 0) 1016 return (-1); 1017 return (pgrp); 1018 } 1019 1020 /* 1021 * XXX: tcsetpgrp is not a macro any more cause on some systems, 1022 * pid_t is a short, but the ioctl() takes a pointer to int (pyr) 1023 * Thanks to Simon Day (simon@pharaoh.cyborg.bt.co.uk) for pointing 1024 * this out. 1025 */ 1026 int 1027 xtcsetpgrp(int fd, int pgrp) 1028 { 1029 return ioctl(fd, TIOCSPGRP, (ioctl_t) &pgrp); 1030 } 1031 1032 #endif /* NEEDtcgetpgrp */ 1033 #endif /* WINNT_NATIVE */ 1034 1035 1036 #ifdef YPBUGS 1037 void 1038 fix_yp_bugs(void) 1039 { 1040 char *mydomain; 1041 1042 extern int yp_get_default_domain (char **); 1043 /* 1044 * PWP: The previous version assumed that yp domain was the same as the 1045 * internet name domain. This isn't allways true. (Thanks to Mat Landau 1046 * <mlandau@bbn.com> for the original version of this.) 1047 */ 1048 if (yp_get_default_domain(&mydomain) == 0) { /* if we got a name */ 1049 extern void yp_unbind (const char *); 1050 1051 yp_unbind(mydomain); 1052 } 1053 } 1054 1055 #endif /* YPBUGS */ 1056 1057 #ifdef STRCOLLBUG 1058 void 1059 fix_strcoll_bug(void) 1060 { 1061 #if defined(NLS) && defined(HAVE_STRCOLL) 1062 /* 1063 * SunOS4 checks the file descriptor from openlocale() for <= 0 1064 * instead of == -1. Someone should tell sun that file descriptor 0 1065 * is valid! Our portable hack: open one so we call it with 0 used... 1066 * We have to call this routine every time the locale changes... 1067 * 1068 * Of course it also tries to free the constant locale "C" it initially 1069 * had allocated, with the sequence 1070 * > setenv LANG "fr" 1071 * > ls^D 1072 * > unsetenv LANG 1073 * But we are smarter than that and just print a warning message. 1074 */ 1075 int fd = -1; 1076 static char *root = "/"; 1077 1078 if (!didfds) 1079 fd = xopen(root, O_RDONLY|O_LARGEFILE); 1080 1081 (void) strcoll(root, root); 1082 1083 if (fd != -1) 1084 xclose(fd); 1085 #endif 1086 } 1087 #endif /* STRCOLLBUG */ 1088 1089 1090 #ifdef OREO 1091 #include <compat.h> 1092 #endif /* OREO */ 1093 1094 void 1095 osinit(void) 1096 { 1097 #ifdef OREO 1098 set42sig(); 1099 setcompat(getcompat() & ~COMPAT_EXEC); 1100 signal(SIGIO, SIG_IGN); /* ignore SIGIO */ 1101 #endif /* OREO */ 1102 1103 #ifdef aiws 1104 { 1105 struct sigstack inst; 1106 inst.ss_sp = xmalloc(4192) + 4192; 1107 inst.ss_onstack = 0; 1108 sigstack(&inst, NULL); 1109 } 1110 #endif /* aiws */ 1111 1112 #ifdef apollo 1113 (void) isapad(); 1114 #endif 1115 1116 #ifdef _SX 1117 /* 1118 * kill(SIGCONT) problems, don't know what this syscall does 1119 * [schott@rzg.mpg.de] 1120 */ 1121 syscall(151, getpid(), getpid()); 1122 #endif /* _SX */ 1123 } 1124 1125 #ifndef HAVE_STRERROR 1126 extern int sys_nerr; 1127 extern char *sys_errlist[]; 1128 char * 1129 xstrerror(int i) 1130 { 1131 if (i >= 0 && i < sys_nerr) { 1132 return sys_errlist[i]; 1133 } else { 1134 static char *errbuf; /* = NULL; */ 1135 1136 xfree(errbuf); 1137 errbuf = xasprintf(CGETS(23, 13, "Unknown Error: %d"), i); 1138 return errbuf; 1139 } 1140 } 1141 #endif /* !HAVE_STRERROR */ 1142 1143 #ifndef HAVE_GETHOSTNAME 1144 # if !defined(_MINIX) && !defined(__EMX__) && !defined(WINNT_NATIVE) 1145 # include <sys/utsname.h> 1146 # endif /* !_MINIX && !__EMX__ && !WINNT_NATIVE */ 1147 1148 int 1149 xgethostname(char *name, int namlen) 1150 { 1151 # if !defined(_MINIX) && !defined(__EMX__) && !defined(WINNT_NATIVE) 1152 int i, retval; 1153 struct utsname uts; 1154 1155 retval = uname(&uts); 1156 1157 # ifdef DEBUG 1158 xprintf(CGETS(23, 14, "sysname: %s\n"), uts.sysname); 1159 xprintf(CGETS(23, 15, "nodename: %s\n"), uts.nodename); 1160 xprintf(CGETS(23, 16, "release: %s\n"), uts.release); 1161 xprintf(CGETS(23, 17, "version: %s\n"), uts.version); 1162 xprintf(CGETS(23, 18, "machine: %s\n"), uts.machine); 1163 # endif /* DEBUG */ 1164 i = strlen(uts.nodename) + 1; 1165 (void) strncpy(name, uts.nodename, i < namlen ? i : namlen); 1166 1167 return retval; 1168 # else /* !_MINIX && !__EMX__ */ 1169 if (namlen > 0) { 1170 # ifdef __EMX__ 1171 (void) strncpy(name, "OS/2", namlen); 1172 # else /* _MINIX */ 1173 (void) strncpy(name, "minix", namlen); 1174 # endif /* __EMX__ */ 1175 name[namlen-1] = '\0'; 1176 } 1177 return(0); 1178 #endif /* _MINIX && !__EMX__ */ 1179 } /* end xgethostname */ 1180 #endif /* !HAVE_GETHOSTNAME */ 1181 1182 #ifndef HAVE_NICE 1183 # if defined(_MINIX) && defined(NICE) 1184 # undef _POSIX_SOURCE /* redefined in <lib.h> */ 1185 # undef _MINIX /* redefined in <lib.h> */ 1186 # undef HZ /* redefined in <minix/const.h> */ 1187 # include <lib.h> 1188 # endif /* _MINIX && NICE */ 1189 int 1190 xnice(int incr) 1191 { 1192 #if defined(_MINIX) && defined(NICE) 1193 return callm1(MM, NICE, incr, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR); 1194 #else 1195 return /* incr ? 0 : */ 0; 1196 #endif /* _MINIX && NICE */ 1197 } /* end xnice */ 1198 #endif /* !HAVE_NICE */ 1199 1200 #ifndef HAVE_GETCWD 1201 static char *strnrcpy (char *, char *, size_t); 1202 1203 /* xgetcwd(): 1204 * Return the pathname of the current directory, or return 1205 * an error message in pathname. 1206 */ 1207 1208 # ifdef hp9000s500 1209 /* 1210 * From: Bernd Mohr <mohr@faui77.informatik.uni-erlangen.de> 1211 * I also ported the tcsh to the HP9000 Series 500. This computer 1212 * is a little bit different than the other HP 9000 computer. It has 1213 * a HP Chip instead of a Motorola CPU and it is no "real" UNIX. It runs 1214 * HP-UX which is emulated in top of a HP operating system. So, the last 1215 * supported version of HP-UX is 5.2 on the HP9000s500. This has two 1216 * consequences: it supports no job control and it has a filesystem 1217 * without "." and ".." !!! 1218 */ 1219 char * 1220 xgetcwd(char *pathname, size_t pathlen) 1221 { 1222 char pathbuf[MAXPATHLEN]; /* temporary pathname buffer */ 1223 char *pnptr = &pathbuf[(sizeof pathbuf)-1]; /* pathname pointer */ 1224 dev_t rdev; /* root device number */ 1225 DIR *dirp = NULL; /* directory stream */ 1226 ino_t rino; /* root inode number */ 1227 off_t rsize; /* root size */ 1228 struct direct *dir; /* directory entry struct */ 1229 struct stat d, dd; /* file status struct */ 1230 int serrno; 1231 1232 *pnptr = '\0'; 1233 (void) stat("/.", &d); 1234 rdev = d.st_dev; 1235 rino = d.st_ino; 1236 rsize = d.st_size; 1237 for (;;) { 1238 if (stat(".", &d) == -1) { 1239 (void) xsnprintf(pathname, pathlen, CGETS(23, 24, 1240 "getcwd: Cannot stat \".\" (%s)"), strerror(errno)); 1241 goto fail; 1242 } 1243 if (d.st_ino == rino && d.st_dev == rdev && d.st_size == rsize) 1244 break; /* reached root directory */ 1245 if ((dirp = opendir("..")) == NULL) { 1246 (void) xsnprintf(pathname, pathlen, CGETS(23, 19, 1247 "getcwd: Cannot open \"..\" (%s)"), strerror(errno)); 1248 goto fail; 1249 } 1250 if (chdir("..") == -1) { 1251 (void) xsnprintf(pathname, pathlen, CGETS(23, 20, 1252 "getcwd: Cannot chdir to \"..\" (%s)"), strerror(errno)); 1253 goto fail; 1254 } 1255 do { 1256 if ((dir = readdir(dirp)) == NULL) { 1257 (void) xsnprintf(pathname, pathlen, 1258 CGETS(23, 21, "getcwd: Read error in \"..\" (%s)"), 1259 strerror(errno)); 1260 goto fail; 1261 } 1262 if (stat(dir->d_name, &dd) == -1) { 1263 (void) xsnprintf(pathname, pathlen, 1264 CGETS(23, 25, "getcwd: Cannot stat directory \"%s\" (%s)"), 1265 dir->d_name, strerror(errno)); 1266 goto fail; 1267 } 1268 } while (dd.st_ino != d.st_ino || 1269 dd.st_dev != d.st_dev || 1270 dd.st_size != d.st_size); 1271 closedir(dirp); 1272 dirp = NULL; 1273 pnptr = strnrcpy(dirp->d_name, pnptr, pnptr - pathbuf); 1274 pnptr = strnrcpy("/", pnptr, pnptr - pathbuf); 1275 } 1276 1277 if (*pnptr == '\0') /* current dir == root dir */ 1278 (void) strncpy(pathname, "/", pathlen); 1279 else { 1280 (void) strncpy(pathname, pnptr, pathlen); 1281 pathname[pathlen - 1] = '\0'; 1282 if (chdir(pnptr) == -1) { 1283 (void) xsnprintf(pathname, MAXPATHLEN, CGETS(23, 22, 1284 "getcwd: Cannot change back to \".\" (%s)"), 1285 strerror(errno)); 1286 return NULL; 1287 } 1288 } 1289 return pathname; 1290 1291 fail: 1292 serrno = errno; 1293 (void) chdir(strnrcpy(".", pnptr, pnptr - pathbuf)); 1294 errno = serrno; 1295 return NULL; 1296 } 1297 1298 # else /* ! hp9000s500 */ 1299 1300 1301 char * 1302 xgetcwd(char *pathname, size_t pathlen) 1303 { 1304 DIR *dp; 1305 struct dirent *d; 1306 1307 struct stat st_root, st_cur, st_next, st_dotdot; 1308 char pathbuf[MAXPATHLEN], nextpathbuf[MAXPATHLEN * 2]; 1309 char *pathptr, *nextpathptr, *cur_name_add; 1310 int save_errno = 0; 1311 1312 /* find the inode of root */ 1313 if (stat("/", &st_root) == -1) { 1314 (void) xsnprintf(pathname, pathlen, CGETS(23, 23, 1315 "getcwd: Cannot stat \"/\" (%s)"), 1316 strerror(errno)); 1317 return NULL; 1318 } 1319 pathbuf[MAXPATHLEN - 1] = '\0'; 1320 pathptr = &pathbuf[MAXPATHLEN - 1]; 1321 nextpathbuf[MAXPATHLEN - 1] = '\0'; 1322 cur_name_add = nextpathptr = &nextpathbuf[MAXPATHLEN - 1]; 1323 1324 /* find the inode of the current directory */ 1325 if (lstat(".", &st_cur) == -1) { 1326 (void) xsnprintf(pathname, pathlen, CGETS(23, 24, 1327 "getcwd: Cannot stat \".\" (%s)"), 1328 strerror(errno)); 1329 return NULL; 1330 } 1331 nextpathptr = strnrcpy(nextpathptr, "../", nextpathptr - nextpathbuf); 1332 1333 /* Descend to root */ 1334 for (;;) { 1335 1336 /* look if we found root yet */ 1337 if (st_cur.st_ino == st_root.st_ino && 1338 DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) { 1339 (void) strncpy(pathname, *pathptr != '/' ? "/" : pathptr, pathlen); 1340 pathname[pathlen - 1] = '\0'; 1341 return pathname; 1342 } 1343 1344 /* open the parent directory */ 1345 if (stat(nextpathptr, &st_dotdot) == -1) { 1346 (void) xsnprintf(pathname, pathlen, CGETS(23, 25, 1347 "getcwd: Cannot stat directory \"%s\" (%s)"), 1348 nextpathptr, strerror(errno)); 1349 return NULL; 1350 } 1351 if ((dp = opendir(nextpathptr)) == NULL) { 1352 (void) xsnprintf(pathname, pathlen, CGETS(23, 26, 1353 "getcwd: Cannot open directory \"%s\" (%s)"), 1354 nextpathptr, strerror(errno)); 1355 return NULL; 1356 } 1357 1358 /* look in the parent for the entry with the same inode */ 1359 if (DEV_DEV_COMPARE(st_dotdot.st_dev, st_cur.st_dev)) { 1360 /* Parent has same device. No need to stat every member */ 1361 for (d = readdir(dp); d != NULL; d = readdir(dp)) { 1362 #ifdef __clipper__ 1363 if (((unsigned long)d->d_ino & 0xffff) == st_cur.st_ino) 1364 break; 1365 #else 1366 if (d->d_ino == st_cur.st_ino) 1367 break; 1368 #endif 1369 } 1370 } 1371 else { 1372 /* 1373 * Parent has a different device. This is a mount point so we 1374 * need to stat every member 1375 */ 1376 for (d = readdir(dp); d != NULL; d = readdir(dp)) { 1377 if (ISDOT(d->d_name) || ISDOTDOT(d->d_name)) 1378 continue; 1379 (void)strncpy(cur_name_add, d->d_name, 1380 (size_t) (&nextpathbuf[sizeof(nextpathbuf) - 1] - cur_name_add)); 1381 if (lstat(nextpathptr, &st_next) == -1) { 1382 /* 1383 * We might not be able to stat() some path components 1384 * if we are using afs, but this is not an error as 1385 * long as we find the one we need; we also save the 1386 * first error to report it if we don't finally succeed. 1387 */ 1388 if (save_errno == 0) 1389 save_errno = errno; 1390 continue; 1391 } 1392 /* check if we found it yet */ 1393 if (st_next.st_ino == st_cur.st_ino && 1394 DEV_DEV_COMPARE(st_next.st_dev, st_cur.st_dev)) 1395 break; 1396 } 1397 } 1398 if (d == NULL) { 1399 (void) xsnprintf(pathname, pathlen, CGETS(23, 27, 1400 "getcwd: Cannot find \".\" in \"..\" (%s)"), 1401 strerror(save_errno ? save_errno : ENOENT)); 1402 closedir(dp); 1403 return NULL; 1404 } 1405 else 1406 save_errno = 0; 1407 st_cur = st_dotdot; 1408 pathptr = strnrcpy(pathptr, d->d_name, pathptr - pathbuf); 1409 pathptr = strnrcpy(pathptr, "/", pathptr - pathbuf); 1410 nextpathptr = strnrcpy(nextpathptr, "../", nextpathptr - nextpathbuf); 1411 *cur_name_add = '\0'; 1412 closedir(dp); 1413 } 1414 } /* end getcwd */ 1415 # endif /* hp9000s500 */ 1416 1417 /* strnrcpy(): 1418 * Like strncpy, going backwards and returning the new pointer 1419 */ 1420 static char * 1421 strnrcpy(char *ptr, char *str, size_t siz) 1422 { 1423 int len = strlen(str); 1424 if (siz == 0) 1425 return ptr; 1426 1427 while (len && siz--) 1428 *--ptr = str[--len]; 1429 1430 return (ptr); 1431 } /* end strnrcpy */ 1432 #endif /* !HAVE_GETCWD */ 1433 1434 #ifdef apollo 1435 /*** 1436 *** Domain/OS 1437 ***/ 1438 #include <apollo/base.h> 1439 #include <apollo/loader.h> 1440 #include <apollo/error.h> 1441 1442 1443 static char * 1444 apperr(status_$t *st) 1445 { 1446 static char *buf; /* = NULL */ 1447 short e_subl, e_modl, e_codel; 1448 error_$string_t e_sub, e_mod, e_code; 1449 1450 error_$get_text(*st, e_sub, &e_subl, e_mod, &e_modl, e_code, &e_codel); 1451 e_sub[e_subl] = '\0'; 1452 e_code[e_codel] = '\0'; 1453 e_mod[e_modl] = '\0'; 1454 xfree(buf); 1455 buf = xasprintf("%s (%s/%s)", e_code, e_sub, e_mod); 1456 1457 return(buf); 1458 } 1459 1460 static int 1461 llib(Char *s) 1462 { 1463 short len = Strlen(s); 1464 status_$t st; 1465 char *t; 1466 1467 loader_$inlib(t = short2str(s), len, &st); 1468 if (st.all != status_$ok) 1469 stderror(ERR_SYSTEM, t, apperr(&st)); 1470 } 1471 1472 /*ARGSUSED*/ 1473 void 1474 doinlib(Char **v, struct command *c) 1475 { 1476 Char **globbed; 1477 1478 setname(short2str(*v++)); 1479 v = glob_all_or_error(v); 1480 globbed = v; 1481 cleanup_push(globbed, blk_cleanup); 1482 1483 while (v && *v) 1484 llib(*v++); 1485 cleanup_until(globbed); 1486 } 1487 1488 int 1489 getv(Char *v) 1490 { 1491 if (eq(v, STRbsd43)) 1492 return(1); 1493 else if (eq(v, STRsys53)) 1494 return(0); 1495 else 1496 stderror(ERR_NAME | ERR_SYSTEM, short2str(v), 1497 CGETS(23, 28, "Invalid system type")); 1498 /*NOTREACHED*/ 1499 return(0); 1500 } 1501 1502 /*ARGSUSED*/ 1503 void 1504 dover(Char **v, struct command *c) 1505 { 1506 Char *p; 1507 1508 setname(short2str(*v++)); 1509 if (!*v) { 1510 if (!(p = tgetenv(STRSYSTYPE))) 1511 stderror(ERR_NAME | ERR_STRING, 1512 CGETS(23, 29, "System type is not set")); 1513 xprintf("%S\n", p); 1514 } 1515 else { 1516 tsetenv(STRSYSTYPE, getv(*v) ? STRbsd43 : STRsys53); 1517 dohash(NULL, NULL); 1518 } 1519 } 1520 1521 /* 1522 * Many thanks to rees@citi.umich.edu (Jim Rees) and 1523 * mathys@ssdt-tempe.sps.mot.com (Yves Mathys) 1524 * For figuring out how to do this... I could have never done 1525 * it without their help. 1526 */ 1527 typedef short enum { 1528 name_$wdir_type, 1529 name_$ndir_type, 1530 name_$node_dir_type, 1531 } name_$dir_type_t; 1532 1533 /*ARGSUSED*/ 1534 void 1535 dorootnode(Char **v, struct command *c) 1536 { 1537 name_$dir_type_t dirtype = name_$node_dir_type; 1538 uid_$t uid; 1539 status_$t st; 1540 char *name; 1541 short namelen; 1542 1543 setname(short2str(*v++)); 1544 1545 name = short2str(*v); 1546 namelen = strlen(name); 1547 1548 name_$resolve(name, &namelen, &uid, &st); 1549 if (st.all != status_$ok) 1550 stderror(ERR_SYSTEM, name, apperr(&st)); 1551 namelen = 0; 1552 name_$set_diru(&uid, "", &namelen, &dirtype, &st); 1553 if (st.all != status_$ok) 1554 stderror(ERR_SYSTEM, name, apperr(&st)); 1555 dohash(NULL, NULL); 1556 } 1557 1558 int 1559 isapad(void) 1560 { 1561 static int res = -1; 1562 static status_$t st; 1563 1564 if (res == -1) { 1565 int strm; 1566 if (isatty(0)) 1567 strm = 0; 1568 if (isatty(1)) 1569 strm = 1; 1570 if (isatty(2)) 1571 strm = 2; 1572 else { 1573 res = 0; 1574 st.all = status_$ok; 1575 return(res); 1576 } 1577 res = stream_$isavt(&strm, &st); 1578 res = res ? 1 : 0; 1579 } 1580 else { 1581 if (st.all != status_$ok) 1582 stderror(ERR_SYSTEM, "stream_$isavt", apperr(&st)); 1583 } 1584 return(res); 1585 } 1586 #endif 1587