jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-09-11 16:16:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Collect strings

Browse Source
This commit is contained in:
Jeroen Engels 2024-04-07 19:37:39 +02:00
parent bdf9173cd0
commit 67e94e484a
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/Review/FilePattern.elm
View File

@ -28,6 +28,7 @@ type FilePattern
type alias Summary =
{ includeExclude : List CompactFilePattern
, excludeFolders : List Glob
, strings : List { string : String, included : Bool }
}
@ -41,6 +42,7 @@ compact filePatterns =
compactBase filePatterns
{ includeExclude = []
, excludeFolders = []
, strings = []
}
@ -65,6 +67,7 @@ compactBase filePatterns accSummary =
compactBase rest
{ includeExclude = accSummary.includeExclude
, excludeFolders = pattern :: accSummary.excludeFolders
, strings = accSummary.strings
}
(InvalidGlob pattern) :: rest ->
@ -85,11 +88,12 @@ compactHelp filePatterns accGlobs included accSummary =
)
:: accSummary.includeExclude
, excludeFolders = accSummary.excludeFolders
, strings = accSummary.strings
}
(Include ( raw, pattern )) :: rest ->
if included then
compactHelp rest (pattern :: accGlobs) included accSummary
compactHelp rest (pattern :: accGlobs) included (addRawIncludeExclude raw included accSummary)
else
compactHelp rest
@ -97,6 +101,7 @@ compactHelp filePatterns accGlobs included accSummary =
True
{ includeExclude = CompactExclude accGlobs :: accSummary.includeExclude
, excludeFolders = accSummary.excludeFolders
, strings = { string = raw, included = included } :: accSummary.strings
}
(Exclude ( raw, pattern )) :: rest ->
@ -106,10 +111,11 @@ compactHelp filePatterns accGlobs included accSummary =
False
{ includeExclude = CompactInclude accGlobs :: accSummary.includeExclude
, excludeFolders = accSummary.excludeFolders
, strings = { string = raw, included = included } :: accSummary.strings
}
else
compactHelp rest (pattern :: accGlobs) included accSummary
compactHelp rest (pattern :: accGlobs) included (addRawIncludeExclude raw included accSummary)
(ExcludeFolder ( raw, pattern )) :: rest ->
compactHelp rest
@ -117,6 +123,7 @@ compactHelp filePatterns accGlobs included accSummary =
included
{ includeExclude = accSummary.includeExclude
, excludeFolders = pattern :: accSummary.excludeFolders
, strings = accSummary.strings
}
(InvalidGlob invalidGlobStr) :: rest ->
@ -136,6 +143,14 @@ compactErrors filePatterns accGlobStrings =
compactErrors rest accGlobStrings
addRawIncludeExclude : String -> Bool -> Summary -> Summary
addRawIncludeExclude string included summary =
{ includeExclude = summary.includeExclude
, excludeFolders = summary.excludeFolders
, strings = { string = string, included = included } :: summary.strings
}
include : String -> FilePattern
include globStr =
case Glob.fromString globStr of