00001 #include "f2c.h" 00002 #include "fio.h" 00003 #include "lio.h" 00004 #ifdef __cplusplus 00005 extern "C" { 00006 #endif 00007 extern char *f__icptr; 00008 extern char *f__icend; 00009 extern icilist *f__svic; 00010 extern int f__icnum; 00011 #ifdef KR_headers 00012 extern void z_putc(); 00013 #else 00014 extern void z_putc(int); 00015 #endif 00016 00017 static int 00018 z_wSL(Void) 00019 { 00020 while(f__recpos < f__svic->icirlen) 00021 z_putc(' '); 00022 return z_rnew(); 00023 } 00024 00025 static void 00026 #ifdef KR_headers 00027 c_liw(a) icilist *a; 00028 #else 00029 c_liw(icilist *a) 00030 #endif 00031 { 00032 f__reading = 0; 00033 f__external = 0; 00034 f__formatted = 1; 00035 f__putn = z_putc; 00036 L_len = a->icirlen; 00037 f__donewrec = z_wSL; 00038 f__svic = a; 00039 f__icnum = f__recpos = 0; 00040 f__cursor = 0; 00041 f__cf = 0; 00042 f__curunit = 0; 00043 f__icptr = a->iciunit; 00044 f__icend = f__icptr + a->icirlen*a->icirnum; 00045 f__elist = (cilist *)a; 00046 } 00047 00048 integer 00049 #ifdef KR_headers 00050 s_wsni(a) icilist *a; 00051 #else 00052 s_wsni(icilist *a) 00053 #endif 00054 { 00055 cilist ca; 00056 00057 c_liw(a); 00058 ca.cifmt = a->icifmt; 00059 x_wsne(&ca); 00060 z_wSL(); 00061 return 0; 00062 } 00063 00064 integer 00065 #ifdef KR_headers 00066 s_wsli(a) icilist *a; 00067 #else 00068 s_wsli(icilist *a) 00069 #endif 00070 { 00071 f__lioproc = l_write; 00072 c_liw(a); 00073 return(0); 00074 } 00075 00076 integer e_wsli(Void) 00077 { 00078 z_wSL(); 00079 return(0); 00080 } 00081 #ifdef __cplusplus 00082 } 00083 #endif