3a_asm: FIX: tabs/blanks only zeilen werden akzeptiert

diff --git a/3a_asm/Main.hs b/3a_asm/Main.hs
index 3470e0d2777c2d5fa3258f579bf8ad7e9708ad8b..b894fa16da6fca0ef049139d813cc024ea31fba2 100644 (file)
--- a/3a_asm/Main.hs
+++ b/3a_asm/Main.hs
@@ -165,7 +165,7 @@ testDTF input =
 parseDTFLine :: [DictElem] -> Parser DTF
 parseDTFLine dict = foldl1 (<|>) (fmap (\x -> try (x dict)) lineFormats) <* char '\n'
 
-lineFormats = [lf_define, lf_sdata, lf_stext, lf_org, lf_data, lf_ifill, lf_ascii, lf_comment, lf_toparse, lf_label]
+lineFormats = [lf_define, lf_sdata, lf_stext, lf_org, lf_data, lf_ifill, lf_ascii, lf_comment, lf_toparse, lf_label, lf_nothing]
 
 -- helper
 parseIdent :: Parser String
@@ -232,6 +232,10 @@ lf_comment _ = do
        comment <- parseComment
        return $ DTF_Comment comment
 
+lf_nothing _ = do
+       wtf <- parseMySpaces
+       return $ DTF_Comment wtf
+
 lf_label _ = do
        l <- parseLabel
        comment <- try(parseComment) <|> parseMySpaces

diff --git a/3a_asm/notes b/3a_asm/notes
index c1cdc8a262f6697eee0179539d77be3d4ed4fe41..0ef411df61227a291559d7a0e154a6ba0d7f8b1e 100644 (file)
--- a/3a_asm/notes
+++ b/3a_asm/notes
@@ -1,6 +1,5 @@
 BUGS:
 - parsers2/eval: kann nur "0-1" und ned "-1" auswerten
-- parsers1: fail bei zeile mit tab/blanks only
 - parsers2/eval: aufloesen von zwei labels x und y funktioniert nicht, wenn x ein
   echter prefix von y ist (longest input match anyone?)
 - parsers2/eval: klammern bei ausdruecken (und zwar im asm, ned expr selbst...)