New input filters that works!

diff --git a/tab/news.flt b/tab/news.flt
index c158166..6ac67b4 100644 (file)
--- 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 (file)
--- 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 " " }