close.c File Reference

#include "f2c.h"
#include "fio.h"
#include "stdlib.h"

Include dependency graph for close.c:

Go to the source code of this file.

Functions
int	unlink (const char *)
integer	f_clos (cllist *a)
void	f_exit (void)
int	flush_ (void)

---

Function Documentation

integer f_clos

(

cllist *

a

)

Definition at line 30 of file close.c.

References a, b, Delete(), done, f__units, free(), MXUNIT, NULL, t_runc(), and unlink().

Referenced by f_exit(), and f_open().

{       unit *b;

        if(a->cunit >= MXUNIT) return(0);
        b= &f__units[a->cunit];
        if(b->ufd==NULL)
                goto done;
        if (b->uscrtch == 1)
                goto Delete;
        if (!a->csta)
                goto Keep;
        switch(*a->csta) {
                default:
                Keep:
                case 'k':
                case 'K':
                        if(b->uwrt == 1)
                                t_runc((alist *)a);
                        if(b->ufnm) {
                                fclose(b->ufd);
                                free(b->ufnm);
                                }
                        break;
                case 'd':
                case 'D':
                Delete:
                        fclose(b->ufd);
                        if(b->ufnm) {
                                unlink(b->ufnm); /*SYSDEP*/
                                free(b->ufnm);
                                }
                }
        b->ufd=NULL;
 done:
        b->uend=0;
        b->ufnm=NULL;
        return(0);
        }

Here is the call graph for this function:

Here is the caller graph for this function:

void f_exit

(

void

)

Definition at line 73 of file close.c.

References cllist::cerr, cllist::csta, cllist::cunit, f_clos(), i, MXUNIT, and NULL.

Referenced by exit_(), main(), s_1paus(), s_stop(), and sig_die().

{       int i;
        static cllist xx;
        if (!xx.cerr) {
                xx.cerr=1;
                xx.csta=NULL;
                for(i=0;i<MXUNIT;i++)
                {
                        xx.cunit=i;
                        (void) f_clos(&xx);
                }
        }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int flush_

(

void

)

Definition at line 91 of file close.c.

References f__units, i, MXUNIT, and NULL.

{       int i;
        for(i=0;i<MXUNIT;i++)
                if(f__units[i].ufd != NULL && f__units[i].uwrt)
                        fflush(f__units[i].ufd);
return 0;
}

int unlink

(

const char *

)

Referenced by dynload(), f_clos(), main(), Sci_Delsym(), and Un_link_all().

Here is the caller graph for this function:

---