Return to fpipe.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / lisp

Annotation of 40BSD/cmd/lisp/fpipe.c, revision 1.1.1.1

1.1       root        1: static char *sccsid = "@(#)fpipe.c     34.2 10/18/80";
                      2: 
                      3: #include "global.h"
                      4: #include <signal.h>
                      5: FILE *_dofpip(iodes)
                      6: int iodes;
                      7: {
                      8:        register FILE *p;
                      9: 
                     10:        for(p=_iob; (p->_flag&(_IOWRT|_IOREAD))!=0; p++)
                     11:                if (p >= _iob+_NFILE)
                     12:                        return(NULL);
                     13:        p->_file = iodes;
                     14:        p->_cnt = 0;
                     15:        p->_base = p->_ptr = NULL;
                     16:        return(p);
                     17: }
                     18: 
                     19: FILE * fpipe(info)
                     20: FILE *info[2];
                     21: {
                     22:        register FILE *p;
                     23:        int descrips[2];
                     24: 
                     25:        if(0 > pipe(descrips)) return( (FILE *) -1);
                     26: 
                     27:        if(NULL==(p = _dofpip(descrips[0]))) return( (FILE *) -1);
                     28:        p->_flag = (_IONBF|_IOREAD);
                     29:        info[0] = p;
                     30: 
                     31:        if(NULL==(p = _dofpip(descrips[1]))) return( (FILE *) -1);
                     32:        p->_flag = _IOWRT;
                     33:        info[1] = p;
                     34:        return((FILE *) 2); /*indicate sucess*/
                     35: }
                     36: #ifndef VMS
                     37: /*C library -- write
                     38:   nwritten = write(file, buffer, count);
                     39:   nwritten == -1 means error
                     40: */
                     41: write(file, buffer, count)
                     42: char *buffer;
                     43: {
                     44:        register lispval handy;
                     45:        int retval;
                     46:        if((file != 1) || (Vcntlw->a.clb == nil)) goto top;
                     47:        /* since ^w is non nil, we do not want to print to the terminal,
                     48:           but we must be sure to return a correct value from the write
                     49:           in case there is no write to ptport
                     50:        */
                     51:        asm(" movl 12(ap),-4(fp) ") /* retval = count  */
                     52:        goto skipit;
                     53: 
                     54: top:
                     55: 
                     56: asm("  .set    write,4 ");
                     57: asm("  chmk    $write  ");
                     58: asm("  bcc     noerror ");
                     59: asm("  jmp     cerror  ");
                     60: asm("noerror:          ");
                     61: asm("  movl    r0,-4(fp)");
                     62: 
                     63: skipit:
                     64:     if(file==1) {
                     65:        handy = Vptport->a.clb;
                     66:        if(handy!=nil && TYPE(handy)==PORT && handy->p->_file!=1) {
                     67:                fflush(handy->p);
                     68:                file = handy->p->_file;
                     69:                goto top;
                     70:        }
                     71:     }
                     72:     return(retval);
                     73: }
                     74: 
                     75: /*
                     76: # C library -- read
                     77: 
                     78: # nread = read(file, buffer, count);
                     79: #
                     80: # nread ==0 means eof; nread == -1 means error
                     81: */
                     82: read(file,buffer,count)
                     83: {
                     84: asm("  .set    read,3 ");
                     85: asm("  .set    eintr,4  ");  /* from /usr/include/errno.h */
                     86: again:
                     87: asm("  chmk    $read ");
                     88: asm("  bcs     error ");
                     89: asm("  ret ");
                     90: asm("error: ");
                     91: asm("  cmpl    r0,$eintr ");
                     92: asm("  jeql    intseen ");
                     93: asm("  jmp     cerror ");
                     94: asm(" intseen: ");
                     95:        if(sigintcnt > 0) sigcall(SIGINT);
                     96:        goto again;
                     97: }
                     98: #endif

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