Fix character class parsing

Fixes #40
This commit is contained in:
Robert Hensing 2020-05-12 16:06:42 +02:00
parent 5196a46030
commit f27ecea068
2 changed files with 12 additions and 1 deletions

View file

@ -120,7 +120,7 @@ rec {
in in
concatStringsSep "" concatStringsSep ""
(map (rl: if isList rl then slightFix (elemAt rl 0) else f rl) (map (rl: if isList rl then slightFix (elemAt rl 0) else f rl)
(split "(\\[([^\\\\]|\\\\.)+])" r)); (split "(\\[([^]\\\\]|\\\\.)+])" r));
# regex -> regex # regex -> regex
handleSlashPrefix = l: handleSlashPrefix = l:

View file

@ -38,6 +38,14 @@ let
touch '6-hash/d' '6-hash/d#0' '6-hash/d\#1' '6-hash/d\\#2' touch '6-hash/d' '6-hash/d#0' '6-hash/d\#1' '6-hash/d\\#2'
touch '6-hash/z' '6-hash/z#0' '6-hash/z\#1' '6-hash/z\\#2' touch '6-hash/z' '6-hash/z#0' '6-hash/z\#1' '6-hash/z\\#2'
mkdir 7-brackets
touch '7-brackets/foo - Backup (0).rdl'
touch '7-brackets/foo - backup ([0]).rdl'
touch '7-brackets/foo - backup 0).rdl'
touch '7-brackets/foo - backup (0.rdl'
touch '7-brackets/foo - backup 0.rdl'
touch '7-brackets/foo - backup 0.rdl'
touches 9-expected {unfiltered,filtered-via-aux-{filter,ignore,filepath}} touches 9-expected {unfiltered,filtered-via-aux-{filter,ignore,filepath}}
touches 10-subdir-ignoring-itself/foo {foo,bar} touches 10-subdir-ignoring-itself/foo {foo,bar}
@ -95,6 +103,9 @@ let
6-hash/c*\\# 6-hash/c*\\#
6-hash/d*\\\# 6-hash/d*\\\#
6-hash/z* 6-hash/z*
# two bracketed classes in one rule
7-brackets/*- [Bb]ackup ([0-9]).rdl
''; '';
ignoresAux = "/9-expected/*filepath\n"; ignoresAux = "/9-expected/*filepath\n";