Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
wsle.c
Go to the documentation of this file.00001 #include "f2c.h"
00002 #include "fio.h"
00003 #include "fmt.h"
00004 #include "lio.h"
00005
00006 #ifdef KR_headers
00007 integer s_wsle(a) cilist *a;
00008 #else
00009 integer s_wsle(cilist *a)
00010 #endif
00011 {
00012 int n;
00013 if(n=c_le(a)) return(n);
00014 f__reading=0;
00015 f__external=1;
00016 f__formatted=1;
00017 f__putn = t_putc;
00018 f__lioproc = l_write;
00019 L_len = LINE;
00020 f__donewrec = x_wSL;
00021 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
00022 err(a->cierr, errno, "list output start");
00023 return(0);
00024 }
00025
00026 integer e_wsle(Void)
00027 {
00028 t_putc('\n');
00029 f__recpos=0;
00030 #ifdef ALWAYS_FLUSH
00031 if (fflush(f__cf))
00032 err(f__elist->cierr, errno, "write end");
00033 #else
00034 if (f__cf == stdout)
00035 fflush(stdout);
00036 else if (f__cf == stderr)
00037 fflush(stderr);
00038 #endif
00039 return(0);
00040 }
