|
Last change
on this file since 81 was 2, checked in by bird, 23 years ago |
|
Initial revision
|
-
Property cvs2svn:cvs-rev
set to
1.1
-
Property svn:eol-style
set to
native
-
Property svn:executable
set to
*
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | #include "config.h"
|
|---|
| 2 | #include "f2c.h"
|
|---|
| 3 | #include "fio.h"
|
|---|
| 4 | #include "lio.h"
|
|---|
| 5 | extern char *f__icptr;
|
|---|
| 6 | extern char *f__icend;
|
|---|
| 7 | extern icilist *f__svic;
|
|---|
| 8 | extern int f__icnum;
|
|---|
| 9 | #ifdef KR_headers
|
|---|
| 10 | extern void z_putc();
|
|---|
| 11 | #else
|
|---|
| 12 | extern void z_putc(int);
|
|---|
| 13 | #endif
|
|---|
| 14 |
|
|---|
| 15 | static int
|
|---|
| 16 | z_wSL(Void)
|
|---|
| 17 | {
|
|---|
| 18 | while(f__recpos < f__svic->icirlen)
|
|---|
| 19 | z_putc(' ');
|
|---|
| 20 | return z_rnew();
|
|---|
| 21 | }
|
|---|
| 22 |
|
|---|
| 23 | static void
|
|---|
| 24 | #ifdef KR_headers
|
|---|
| 25 | c_liw(a) icilist *a;
|
|---|
| 26 | #else
|
|---|
| 27 | c_liw(icilist *a)
|
|---|
| 28 | #endif
|
|---|
| 29 | {
|
|---|
| 30 | f__reading = 0;
|
|---|
| 31 | f__external = 0;
|
|---|
| 32 | f__formatted = 1;
|
|---|
| 33 | f__putn = z_putc;
|
|---|
| 34 | L_len = a->icirlen;
|
|---|
| 35 | f__donewrec = z_wSL;
|
|---|
| 36 | f__svic = a;
|
|---|
| 37 | f__icnum = f__recpos = 0;
|
|---|
| 38 | f__cursor = 0;
|
|---|
| 39 | f__cf = 0;
|
|---|
| 40 | f__curunit = 0;
|
|---|
| 41 | f__icptr = a->iciunit;
|
|---|
| 42 | f__icend = f__icptr + a->icirlen*a->icirnum;
|
|---|
| 43 | f__elist = (cilist *)a;
|
|---|
| 44 | }
|
|---|
| 45 |
|
|---|
| 46 | integer
|
|---|
| 47 | #ifdef KR_headers
|
|---|
| 48 | s_wsni(a) icilist *a;
|
|---|
| 49 | #else
|
|---|
| 50 | s_wsni(icilist *a)
|
|---|
| 51 | #endif
|
|---|
| 52 | {
|
|---|
| 53 | cilist ca;
|
|---|
| 54 |
|
|---|
| 55 | if(f__init != 1) f_init();
|
|---|
| 56 | f__init = 3;
|
|---|
| 57 | c_liw(a);
|
|---|
| 58 | ca.cifmt = a->icifmt;
|
|---|
| 59 | x_wsne(&ca);
|
|---|
| 60 | z_wSL();
|
|---|
| 61 | return 0;
|
|---|
| 62 | }
|
|---|
| 63 |
|
|---|
| 64 | integer
|
|---|
| 65 | #ifdef KR_headers
|
|---|
| 66 | s_wsli(a) icilist *a;
|
|---|
| 67 | #else
|
|---|
| 68 | s_wsli(icilist *a)
|
|---|
| 69 | #endif
|
|---|
| 70 | {
|
|---|
| 71 | if(f__init != 1) f_init();
|
|---|
| 72 | f__init = 3;
|
|---|
| 73 | f__lioproc = l_write;
|
|---|
| 74 | c_liw(a);
|
|---|
| 75 | return(0);
|
|---|
| 76 | }
|
|---|
| 77 |
|
|---|
| 78 | integer e_wsli(Void)
|
|---|
| 79 | {
|
|---|
| 80 | f__init = 1;
|
|---|
| 81 | z_wSL();
|
|---|
| 82 | return(0);
|
|---|
| 83 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
