00001 #include "f2c.h" 00002 #include "fio.h" 00003 #include "fmt.h" 00004 #include "lio.h" 00005 #include "string.h" 00006 #ifdef __cplusplus 00007 extern "C" { 00008 #endif 00009 00010 #ifdef KR_headers 00011 integer s_wsle(a) cilist *a; 00012 #else 00013 integer s_wsle(cilist *a) 00014 #endif 00015 { 00016 int n; 00017 if(n=c_le(a)) return(n); 00018 f__reading=0; 00019 f__external=1; 00020 f__formatted=1; 00021 f__putn = x_putc; 00022 f__lioproc = l_write; 00023 L_len = LINE; 00024 f__donewrec = x_wSL; 00025 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) 00026 err(a->cierr, errno, "list output start"); 00027 return(0); 00028 } 00029 00030 integer e_wsle(Void) 00031 { 00032 int n = f__putbuf('\n'); 00033 f__recpos=0; 00034 #ifdef ALWAYS_FLUSH 00035 if (!n && fflush(f__cf)) 00036 err(f__elist->cierr, errno, "write end"); 00037 #endif 00038 return(n); 00039 } 00040 #ifdef __cplusplus 00041 } 00042 #endif