Return to close.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / functions

Annotation of 43BSD/contrib/icon/functions/close.c, revision 1.1

1.1     ! root        1: #include "../h/rt.h"
        !             2: 
        !             3: /*
        !             4:  * close(f) - close file f.
        !             5:  */
        !             6: 
        !             7: Xclose(nargs, arg1, arg0)
        !             8: int nargs;
        !             9: struct descrip arg1, arg0;
        !            10:    {
        !            11:    register int i;
        !            12: 
        !            13:    /*
        !            14:     * f must be a file.
        !            15:     */
        !            16:    DeRef(arg1)
        !            17:    if (QUAL(arg1) || TYPE(arg1) != T_FILE)
        !            18:       runerr(105, &arg1);
        !            19: 
        !            20:    /*
        !            21:     * If f has a buffer associated with it, "free" it.
        !            22:     */
        !            23:    for (i = 0; i < numbufs; i++) {
        !            24:       if (bufused[i] == BLKLOC(arg1)->file.fd) {
        !            25:          bufused[i] = NULL;
        !            26:          break;
        !            27:          }
        !            28:       }
        !            29: 
        !            30:    /*
        !            31:     * Close f, using fclose or pclose as appropriate.
        !            32:     */
        !            33:    if (BLKLOC(arg1)->file.status & FS_PIPE)
        !            34:       pclose(BLKLOC(arg1)->file.fd);
        !            35:    else
        !            36:       fclose(BLKLOC(arg1)->file.fd);
        !            37:    BLKLOC(arg1)->file.status = 0;
        !            38:    
        !            39:    /*
        !            40:     * Return the closed file.
        !            41:     */
        !            42:    arg0 = arg1;
        !            43:    }
        !            44: 
        !            45: Procblock(close,1)

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