From a0f71913f070a5313318b2cfddec99542194329f Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Mon, 8 Jan 1996 19:15:54 +0000
Subject: [PATCH] New input filters that works!

---
 tab/news.flt |   16 ++++++++++------
 tab/sgml.flt |   10 +++++-----
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/tab/news.flt b/tab/news.flt
index c158166..6ac67b4 100644
--- a/tab/news.flt
+++ b/tab/news.flt
@@ -1,6 +1,10 @@
-# $Id: news.flt,v 1.3 1996-01-08 09:10:54 adam Exp $
-%tagset wais
-/From:/		BODY	/\n/	{b name d $1 e}
-/\nSubject:/	BODY	/\n/	{b title d $1 e}
-/\nDate:/	BODY	/\n/	{b dateOfLastModification d $1 e}
-/\n/		/(\n|.)*/	{b Body f $1 e}
+# $Id: news.flt,v 1.4 1996-01-08 19:15:54 adam Exp $
+BEGIN				{ begin record wais }
+/^From:/	BODY	/$/	{ data -element name $1 }
+/^Subject:/	BODY	/$/	{ data -element title $1 }
+/^Date:/	BODY	/$/	{ data -element dateOfLastModification $1 }
+/^$/		BODY END	{
+					begin element Body 
+					data -text $1
+					end record
+				}
diff --git a/tab/sgml.flt b/tab/sgml.flt
index cb6862b..3225f56 100644
--- a/tab/sgml.flt
+++ b/tab/sgml.flt
@@ -1,5 +1,5 @@
-# $Id: sgml.flt,v 1.2 1995-12-15 17:19:40 adam Exp $
-%tagset gils
-\n*<		[^>]+	>\n*	{b $1}
-\n*</		[^>]*	>\n*	{e}
-[ \n\t]+			{d { }}
+# $Id: sgml.flt,v 1.3 1996-01-08 19:15:54 adam Exp $
+BEGIN	/\n*</	BODY	/>\n*/	{ begin record $2 }
+/\n*</		BODY	/>\n*/	{ begin element $1 }
+/\n*<\//	BODY	/>\n*/	{ end element }
+/[ \n\t]+/			{ data " " }
-- 
1.7.10.4