Added support for option -record for "end element". When specified

[idzebra-moved-to-github.git] / tab / sgml.flt

diff --git a/tab/sgml.flt b/tab/sgml.flt
index 83ad5dd..43a9d02 100644 (file)
--- a/tab/sgml.flt
+++ b/tab/sgml.flt
@@ -1,8 +1,8 @@
-# $Id: sgml.flt,v 1.4 1997-11-06 11:41:01 adam Exp $
+# $Id: sgml.flt,v 1.5 1998-10-15 13:11:46 adam Exp $
 BEGIN  /\n*</  BODY    />\n*/  { begin record $2 }
 /\n*<[Vv][Aa][Rr][ ]+/  /[^ >]+/   /[ ]+/  /[^ >]+/  /[ ]+/ /[^ >]+/ /[ ]*>/ {
                                   begin variant $1 $3 $5
                                 }
 /\n*</         BODY    />\n*/  { begin element $1 }
-/\n*<\//       BODY    />\n*/  { end element }
+/\n*<\//       BODY    />\n*/  { end element -record }
 /[ \n\t]+/                     { data " " }