projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
87fe9c3
)
[project @ 1998-02-02 16:39:17 by simonm]
author
simonm
<unknown>
Mon, 2 Feb 1998 16:39:17 +0000
(16:39 +0000)
committer
simonm
<unknown>
Mon, 2 Feb 1998 16:39:17 +0000
(16:39 +0000)
Remove comments of the '%... \n' variety.
glafp-utils/sgmlverb/sgmlverb.lex
patch
|
blob
|
history
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 (">"); }