[project @ 1998-02-02 16:39:17 by simonm]

[ghc-hetmet.git] / glafp-utils / sgmlverb / sgmlverb.lex

diff --git a/glafp-utils/sgmlverb/sgmlverb.lex b/glafp-utils/sgmlverb/sgmlverb.lex
index c605200..daa20ae 100644 (file)
--- a/glafp-utils/sgmlverb/sgmlverb.lex
+++ b/glafp-utils/sgmlverb/sgmlverb.lex
@@ -14,6 +14,7 @@
 %START  NORM  VERB  VERBENV
 sp                     [ \t]*
 nl                     {sp}\n{sp}
+comment                 \%.*$
 miranda                        ([0-9]+(\-([0-9]+)?)?)?>
 %{
 #define PUSH           states[top++] =
@@ -27,6 +28,7 @@ miranda                       ([0-9]+(\-([0-9]+)?)?)?>
                        top = 0;
 <NORM>@@               { printf ("@"); }
 <NORM>@                        { printf ("<tt>"); PUSH NORM;  BEGIN VERB; }
+<NORM>{comment}         { }
 <VERB>@                        { printf ("</tt>");  POP; }
 <VERB>@@               { printf ("@"); }
 <VERB>\>               { printf ("&gt;"); }