summaryrefslogtreecommitdiffstats
path: root/libf2c/libI77/wsle.c
diff options
context:
space:
mode:
authorpeter <peter@FreeBSD.org>2008-06-01 00:03:21 +0000
committerpeter <peter@FreeBSD.org>2008-06-01 00:03:21 +0000
commita2be5f0c15218b0177d73b17d9bcb7589965d685 (patch)
treec9f0cd9c22378356a1716d32e13e70bc90f98b9c /libf2c/libI77/wsle.c
parent9e0f3cc19c9df1594c9cc36cfd8fddc83c52ad12 (diff)
downloadFreeBSD-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.c38
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);
+}
OpenPOWER on IntegriCloud