From e05584961b0c6aa3dbd33fc9d9d49902ddae8d00 Mon Sep 17 00:00:00 2001
From: root <>
Date: Sun, 8 Feb 2009 17:07:09 +0000
Subject: *** empty log message ***

---
 src/Makefile.am | 12 +++++++-----
 src/f-ftext.f   | 29 +++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 5 deletions(-)
 create mode 100644 src/f-ftext.f

diff --git a/src/Makefile.am b/src/Makefile.am
index a90a0c8..7ba2f98 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -8,6 +8,9 @@
 # $Id$
 #
 # $Log$
+# Revision 1.5  2009/02/08 17:07:09  root
+# *** empty log message ***
+#
 # Revision 1.4  2009/02/08 17:04:47  root
 # *** empty log message ***
 #
@@ -33,17 +36,16 @@ JWGSRCS=${SRCS}
 
 noinst_HEADERS= project.h prototypes.h jwg-tail.h ext_prototypes.h
 
-BUILT_SOURCES= fa-ftext.f
-
-fa-ftext.f:f-ftext.f
-	cp $< $@
 
 libjwg_a_SOURCES =  ${JWGSRCS} f-ftext.f
 libjwg_la_SOURCES = ${JWGSRCS} fa-ftext.f
 
 libjwg_a_CFLAGS = ${AM_CFLAGS}
 
-BUILT_SOURCES = version.h jwg.h
+BUILT_SOURCES = version.h jwg.h fa-ftext.f
+
+fa-ftext.f:f-ftext.f
+	cp $< $@
 
 lib_LIBRARIES=libjwg.a
 lib_LTLIBRARIES=libjwg.la
diff --git a/src/f-ftext.f b/src/f-ftext.f
new file mode 100644
index 0000000..f1de29d
--- /dev/null
+++ b/src/f-ftext.f
@@ -0,0 +1,29 @@
+	function jwg_open_textunit
+
+	integer jwg_priv_init_textlist*4
+
+	parameter (default_textunit=32767)
+
+	character textpipe*1024
+	integer textunit*4,setup*4
+
+
+	setup=jwg_priv_init_textlist
+
+C	Is all this gubbins working or do we need to fiddle?
+
+	if (setup.ne.0) then
+C
+C	this will check that the string is correctly passed
+C
+   	 textpipe='sanity check'
+
+	 call jwg_priv_setup_textpipe(textpipe)
+
+	 textunit=default_textunit
+	 open (file=textpipe,unit=textunit,action='write',status=old)
+
+	endif
+
+	jwg_open_textunit=textunit
+
-- 
cgit v1.2.3