Return to wlib.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bas

Annotation of researchv10no/cmd/basic/bas/wlib.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * endstr --- return a pointer to the end of a string
                      3:  */
                      4: 
                      5: char *endstr(s)
                      6: register char  *s;
                      7: {
                      8: 
                      9:        while (*s++)
                     10:                ;
                     11:        return (--s);
                     12: }
                     13: 
                     14: 
                     15: /*
                     16:  * move --- copy "length" bytes from "from" to "to"
                     17:  */
                     18: 
                     19: move(length, from, to)
                     20: register int   length;
                     21: register char  *from, *to;
                     22: {
                     23: 
                     24:        while (--length >= 0)
                     25:                *to++ = *from++;
                     26: }
                     27: 
                     28: 
                     29: /*
                     30:  * smartmove --- move "length" bytes from "from" to "to"; handle overlap
                     31:  */
                     32: 
                     33: smartmove(length, from, to)
                     34: register int   length;
                     35: register char  *from, *to;
                     36: {
                     37: 
                     38:        if (from < to && from + length > to) {
                     39:                from += length;
                     40:                to += length;
                     41:                while (--length >= 0)
                     42:                        *--to = *--from;
                     43:                }
                     44:        else
                     45:                while (--length >= 0)
                     46:                        *to++ = *from++;
                     47: }
                     48: 
                     49: 
                     50: #define        READ    0
                     51: #define        WRITE   1
                     52: 
                     53: int _outpid;           /* the child's process id */
                     54: 
                     55: /*
                     56:  * pipeout --- open an output pipe to the specified program
                     57:  */
                     58: 
                     59: pipeout(pgm, args)
                     60: char *pgm;
                     61: char *args;
                     62: {
                     63:        register int i;
                     64:        int pipedes[2];
                     65:        
                     66:        pipe(pipedes);
                     67:        if ((i = fork()) == 0) {
                     68:                close(READ);
                     69:                dup(pipedes[READ]);
                     70:                closeall();
                     71:                execv(pgm, &args);
                     72:                write(2, "no ", 3);
                     73:                write(2, pgm, strlen(pgm));
                     74:                write(2, "\n", 1);
                     75:                exit(1);
                     76:                }
                     77:        _outpid = i;
                     78:        close(pipedes[READ]);
                     79:        return(pipedes[WRITE]);
                     80: }
                     81: 
                     82: 
                     83: /*
                     84:  * clear --- write zeros to the specified block of memory
                     85:  */
                     86: 
                     87: clear(bp, len)
                     88: register char  *bp;
                     89: register int   len;
                     90: {
                     91:        register long   *lp;
                     92: 
                     93:        while (((unsigned)bp & (sizeof(long)-1)) && --len >= 0)
                     94:                *bp++ = 0;
                     95:        lp = (long *)bp;
                     96:        while (len >= sizeof(long)) {
                     97:                *lp++ = 0;
                     98:                len -= sizeof(long);
                     99:                }
                    100:        bp = (char *)lp;
                    101:        while (--len >= 0)
                    102:                *bp++ = 0;
                    103: }
                    104: 
                    105: 
                    106: /*
                    107:  * closeall --- close all open files (except stdin, stdout, stderr)
                    108:  */
                    109: 
                    110: closeall()
                    111: {
                    112:        extern errno;
                    113:        register int i;
                    114:        
                    115:        for (i=3; i<15; ++i)
                    116:                close(i);
                    117:        errno = 0;
                    118: }

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