fix comments filter

This commit is contained in:
HuangYi 2022-01-10 15:52:14 +08:00
parent 596d01fd55
commit c3f885a5b6
No known key found for this signature in database
GPG key ID: 58776091521E8B17

View file

@ -10,17 +10,15 @@ let
stripLines = initialLines: foldl' (acc: f: f acc) initialLines [
# Strip comments
(lines: map
(l:
let
m = match "(.*)( )?//.*" l;
hasComment = m != null;
in
stripStr (if hasComment then elemAt m 0 else l))
(l: stripStr (elemAt (splitString "//" l) 0))
lines)
# Strip leading tabs characters
(lines: map (l: elemAt (match "(\t)?(.*)" l) 1) lines)
# Strip comment lines
(filter (l: match "[ \t]*//.*" l != null))
# Filter empty lines
(filter (l: l != ""))
];