Return to bsys.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/bsys.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     /////////////////////////////////////
                      4:  *     /////////////////////////////////////
                      5:  *     ////////////// bsys.c ///////////////
                      6:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      7:  *     ///// Fri Aug 24 17:26:01 1979 //////
                      8:  *     /////////////////////////////////////
                      9:  *     /////////////////////////////////////
                     10: 
                     11:  * Call system command from basic
                     12:  *
                     13:  */
                     14: /*   "@(#) bsys.c:  V 1.5  6/17/81" */
                     15: #include       "bas.h"
                     16: 
                     17: char   shpath[] = "/bin/sh";
                     18: char   shname[] = "sh";
                     19: extern char _string[];
                     20: bsys()
                     21: {
                     22: #ifdef RESTRICT
                     23:        printf("RESTRICTED SHELL '!' NOT FUNCTIONAL\n");
                     24:        return(-1);
                     25: #else
                     26:        callsys(expr);
                     27:        return(0);
                     28: #endif
                     29: }
                     30: /*
                     31:  *
                     32:  * SYSTEM CALL ROUTINE
                     33:  */
                     34: callsys(string)
                     35: char   string[];
                     36: {
                     37:        int t,status;
                     38: 
                     39:        if((t = fork()) == 0)
                     40:                if(execl(shpath,shname,"-c",string, 0) < 0)
                     41:                {
                     42:                        error(inst.thing.linno, 31);
                     43:                        printf("%s NOT FOUND\n",string);
                     44:                        exit(0);
                     45:                }
                     46:        if(t == -1) abt("t == -1 from fork");
                     47:        while(t != wait(&status))  ;
                     48:        return 0;
                     49: }
                     50: 
                     51: /*
                     52:  *
                     53:  * error abort
                     54:  */
                     55: abt(s)
                     56: char *s;
                     57: {
                     58:        printf("\nFailed to fork. %s\nReturn to interpreter\n", s);
                     59: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.