sfe.c File Reference

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

Include dependency graph for sfe.c:

Go to the source code of this file.

Functions

integer e_rsfe (Void)
int c_sfe (cilist *a)
integer e_wsfe (Void)

Variables

char * f__fmtbuf


Function Documentation

int c_sfe ( cilist a  ) 

Definition at line 21 of file sfe.c.

References a, err, f__curunit, f__units, fk_open(), FMT, MXUNIT, NULL, p, and SEQ.

00023 {       unit *p;
00024         f__curunit = p = &f__units[a->ciunit];
00025         if(a->ciunit >= MXUNIT || a->ciunit<0)
00026                 err(a->cierr,101,"startio");
00027         if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
00028         if(!p->ufmt) err(a->cierr,102,"sfe")
00029         return(0);
00030 }

Here is the call graph for this function:

integer e_rsfe ( Void   ) 

Definition at line 10 of file sfe.c.

References en_fio(), n, and NULL.

Referenced by bfrdr().

00011 {       int n;
00012         n=en_fio();
00013         f__fmtbuf=NULL;
00014         return(n);
00015 }

Here is the call graph for this function:

Here is the caller graph for this function:

integer e_wsfe ( Void   ) 

Definition at line 31 of file sfe.c.

References cilist::cierr, en_fio(), err, errno, f__cf, f__elist, n, and NULL.

Referenced by writef4().

00032 {
00033         int n = en_fio();
00034         f__fmtbuf = NULL;
00035 #ifdef ALWAYS_FLUSH
00036         if (!n && fflush(f__cf))
00037                 err(f__elist->cierr, errno, "write end");
00038 #endif
00039         return n;
00040 }

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

char* f__fmtbuf

Definition at line 27 of file err.c.

Referenced by c_dfe(), c_le(), c_si(), do_fio(), e_rsfi(), e_wsfi(), op_gen(), rd_ed(), rd_ned(), s_rdfe(), s_rsfe(), s_wdfe(), s_wsfe(), w_ed(), and w_ned().


Generated on Sun Mar 4 15:05:37 2007 for Scilab [trunk] by  doxygen 1.5.1