home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / sh / args.c next >
Encoding:
C/C++ Source or Header  |  1979-01-12  |  2.2 KB  |  136 lines
  1. #
  2. /*
  3.  * UNIX shell
  4.  *
  5.  * S. R. Bourne
  6.  * Bell Telephone Laboratories
  7.  *
  8.  */
  9.  
  10. #include    "defs.h"
  11.  
  12. PROC STRING *copyargs();
  13. LOCAL DOLPTR    dolh;
  14.  
  15. CHAR    flagadr[10];
  16.  
  17. CHAR    flagchar[] = {
  18.     'x',    'n',    'v',    't',    's',    'i',    'e',    'r',    'k',    'u',    0
  19. };
  20. INT    flagval[]  = {
  21.     execpr,    noexec,    readpr,    oneflg,    stdflg,    intflg,    errflg,    rshflg,    keyflg,    setflg,    0
  22. };
  23.  
  24. /* ========    option handling    ======== */
  25.  
  26.  
  27. INT    options(argc,argv)
  28.     STRING        *argv;
  29.     INT        argc;
  30. {
  31.     REG STRING    cp;
  32.     REG STRING    *argp=argv;
  33.     REG STRING    flagc;
  34.     STRING        flagp;
  35.  
  36.     IF argc>1 ANDF *argp[1]=='-'
  37.     THEN    cp=argp[1];
  38.         flags &= ~(execpr|readpr);
  39.         WHILE *++cp
  40.         DO    flagc=flagchar;
  41.  
  42.             WHILE *flagc ANDF *flagc != *cp DO flagc++ OD
  43.             IF *cp == *flagc
  44.             THEN    flags |= flagval[flagc-flagchar];
  45.             ELIF *cp=='c' ANDF argc>2 ANDF comdiv==0
  46.             THEN    comdiv=argp[2];
  47.                 argp[1]=argp[0]; argp++; argc--;
  48.             ELSE    failed(argv[1],badopt);
  49.             FI
  50.         OD
  51.         argp[1]=argp[0]; argc--;
  52.     FI
  53.  
  54.     /* set up $- */
  55.     flagc=flagchar;
  56.     flagp=flagadr;
  57.     WHILE *flagc
  58.     DO IF flags&flagval[flagc-flagchar]
  59.        THEN *flagp++ = *flagc;
  60.        FI
  61.        flagc++;
  62.     OD
  63.     *flagp++=0;
  64.  
  65.     return(argc);
  66. }
  67.  
  68. VOID    setargs(argi)
  69.     STRING        argi[];
  70. {
  71.     /* count args */
  72.     REG STRING    *argp=argi;
  73.     REG INT        argn=0;
  74.  
  75.     WHILE Rcheat(*argp++)!=ENDARGS DO argn++ OD
  76.  
  77.     /* free old ones unless on for loop chain */
  78.     freeargs(dolh);
  79.     dolh=copyargs(argi,argn);    /* sets dolv */
  80.     assnum(&dolladr,dolc=argn-1);
  81. }
  82.  
  83. freeargs(blk)
  84.     DOLPTR        blk;
  85. {
  86.     REG STRING    *argp;
  87.     REG DOLPTR    argr=0;
  88.     REG DOLPTR    argblk;
  89.  
  90.     IF argblk=blk
  91.     THEN    argr = argblk->dolnxt;
  92.         IF (--argblk->doluse)==0
  93.         THEN    FOR argp=argblk->dolarg; Rcheat(*argp)!=ENDARGS; argp++
  94.             DO free(*argp) OD
  95.             free(argblk);
  96.         FI
  97.     FI
  98.     return(argr);
  99. }
  100.  
  101. LOCAL STRING *    copyargs(from, n)
  102.     STRING        from[];
  103. {
  104.     REG STRING *    np=alloc(sizeof(STRING*)*n+3*BYTESPERWORD);
  105.     REG STRING *    fp=from;
  106.     REG STRING *    pp=np;
  107.  
  108.     np->doluse=1;    /* use count */
  109.     np=np->dolarg;
  110.     dolv=np;
  111.  
  112.     WHILE n--
  113.     DO *np++ = make(*fp++) OD
  114.     *np++ = ENDARGS;
  115.     return(pp);
  116. }
  117.  
  118. clearup()
  119. {
  120.     /* force `for' $* lists to go away */
  121.     WHILE argfor=freeargs(argfor) DONE
  122.  
  123.     /* clean up io files */
  124.     WHILE pop() DONE
  125. }
  126.  
  127. DOLPTR    useargs()
  128. {
  129.     IF dolh
  130.     THEN    dolh->doluse++;
  131.         dolh->dolnxt=argfor;
  132.         return(argfor=dolh);
  133.     ELSE    return(0);
  134.     FI
  135. }
  136.