diff options
author | peter <peter@FreeBSD.org> | 2008-06-01 00:03:21 +0000 |
---|---|---|
committer | peter <peter@FreeBSD.org> | 2008-06-01 00:03:21 +0000 |
commit | a2be5f0c15218b0177d73b17d9bcb7589965d685 (patch) | |
tree | c9f0cd9c22378356a1716d32e13e70bc90f98b9c /libf2c/libI77/wsle.c | |
parent | 9e0f3cc19c9df1594c9cc36cfd8fddc83c52ad12 (diff) | |
download | FreeBSD-src-a2be5f0c15218b0177d73b17d9bcb7589965d685.zip FreeBSD-src-a2be5f0c15218b0177d73b17d9bcb7589965d685.tar.gz |
Reorganize the gcc vendor import work area. This flattens out a bunch
of unnecessary path components that are relics of cvs2svn.
(These are directory moves)
Diffstat (limited to 'libf2c/libI77/wsle.c')
-rw-r--r-- | libf2c/libI77/wsle.c | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/libf2c/libI77/wsle.c b/libf2c/libI77/wsle.c new file mode 100644 index 0000000..e9ef172 --- /dev/null +++ b/libf2c/libI77/wsle.c @@ -0,0 +1,38 @@ +#include "config.h" +#include "f2c.h" +#include "fio.h" +#include "fmt.h" +#include "lio.h" +#include "string.h" + +integer +s_wsle (cilist * a) +{ + int n; + if ((n = c_le (a))) + return (n); + f__reading = 0; + f__external = 1; + f__formatted = 1; + f__putn = x_putc; + f__lioproc = l_write; + L_len = LINE; + f__donewrec = x_wSL; + if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit)) + err (a->cierr, errno, "list output start"); + return (0); +} + +integer +e_wsle (void) +{ + int n; + f__init = 1; + n = f__putbuf ('\n'); + f__recpos = 0; +#ifdef ALWAYS_FLUSH + if (!n && fflush (f__cf)) + err (f__elist->cierr, errno, "write end"); +#endif + return (n); +} |