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