b3d5357287
It's not consistent with `split` but people seem okay with that. Also make some examples nicer.
133 lines
4.3 KiB
Elm
133 lines
4.3 KiB
Elm
module Regex where
|
|
{-| A library for working with regular expressions. It uses [the
|
|
same kind of regular expressions accepted by JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions).
|
|
|
|
# Create
|
|
@docs pattern, caseInsensitive, escape
|
|
|
|
# Match
|
|
@docs Match
|
|
|
|
# Find and Replace
|
|
@docs contains, find, findAll, replace, replaceAll
|
|
|
|
# Split
|
|
@docs split, splitN
|
|
|
|
-}
|
|
|
|
import Maybe (Maybe)
|
|
import Native.Regex
|
|
|
|
data Regex = Regex
|
|
|
|
{-| Escape all special characters. So `pattern (escape "$$$")`
|
|
will match exactly `"$$$"` even though `$` is a special character.
|
|
-}
|
|
escape : String -> String
|
|
escape = Native.Regex.escape
|
|
|
|
{-| Create a Regex that matches patterns [as specified in JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Writing_a_Regular_Expression_Pattern).
|
|
Be careful to escape backslashes properly!
|
|
-}
|
|
pattern : String -> Regex
|
|
pattern = Native.Regex.pattern
|
|
|
|
|
|
{-| Make a pattern case insensitive -}
|
|
caseInsensitive : Regex -> Regex
|
|
caseInsensitive = Native.Regex.caseInsensitive
|
|
|
|
{-| Check to see if a Regex is contained in a string.
|
|
|
|
```haskell
|
|
contains (pattern "123") "12345" == True
|
|
contains (pattern "b+") "aabbcc" == True
|
|
|
|
contains (pattern "789") "12345" == False
|
|
contains (pattern "z+") "aabbcc" == False
|
|
```
|
|
-}
|
|
contains : Regex -> String -> Bool
|
|
contains = Native.Regex.contains
|
|
|
|
{-| A `Match` represents all of the details about a particular match in a string.
|
|
Here are details on each field:
|
|
|
|
* `match` — the full string of the match.
|
|
* `submatches` — a pattern might have [subpatterns, surrounded by
|
|
parentheses](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Using_Parenthesized_Substring_Matches).
|
|
If there are N subpatterns, there will be N elements in the `submatches` list.
|
|
Each submatch in this list is a `Maybe` because not all subpatterns may trigger.
|
|
For example, `(pattern "(a+)|(b+)")` will either match many `a`’s or
|
|
many `b`’s, but never both.
|
|
* `index` — the index of the match in the original string.
|
|
* `number` — if you find many matches, you can think of each one
|
|
as being labeled with a `number` starting at one. So the first time you
|
|
find a match, that is match `number` one. Second time is match `number` two.
|
|
This is useful when paired with `replaceAll` if replacement is dependent on how
|
|
many times a pattern has appeared before.
|
|
-}
|
|
type Match = { match : String, submatches : [Maybe String], index : Int, number : Int }
|
|
|
|
{-| Find all of the matches in a string:
|
|
|
|
```haskell
|
|
words = findAll (pattern "\\w+") "hello world"
|
|
|
|
map .match words == ["hello","world"]
|
|
map .index words == [0,6]
|
|
|
|
places = findAll (pattern "[oi]n a (\\w+)") "I am on a boat in a lake."
|
|
|
|
map .match places== ["on a boat", "in a lake"]
|
|
map .submatches places == [ [Just "boat"], [Just "lake"] ]
|
|
```
|
|
-}
|
|
findAll : Regex -> String -> [Match]
|
|
findAll = Native.Regex.findAll
|
|
|
|
{-| Same as `findAll`, but `find` will quit searching after the *n<sup>th</sup>* match.
|
|
That means the resulting list has maximum length N, but *it can be shorter*
|
|
if there are not that many matches in the given string.
|
|
-}
|
|
find : Int -> Regex -> String -> [Match]
|
|
find = Native.Regex.find
|
|
|
|
{-| Replace all matches. The function from `Match` to `String` lets
|
|
you use the details of a specific match when making replacements.
|
|
|
|
```haskell
|
|
devowel = replaceAll (pattern "[aeiou]") (\_ -> "")
|
|
|
|
devowel "The quick brown fox" == "Th qck brwn fx"
|
|
|
|
reverseWords = replaceAll (pattern "\\w+") (\{match} -> String.reverse match)
|
|
|
|
reverseWords "deliver mined parts" == "reviled denim strap"
|
|
```
|
|
-}
|
|
replaceAll : Regex -> (Match -> String) -> String -> String
|
|
replaceAll = Native.Regex.replaceAll
|
|
|
|
{-| Same as `replaceAll`, but `replace` will quit after the *n<sup>th</sup>* match.-}
|
|
replace : Int -> Regex -> (Match -> String) -> String -> String
|
|
replace = Native.Regex.replace
|
|
|
|
{-| Split a string, using the regex as the separator.
|
|
|
|
```haskell
|
|
split (pattern " *, *") "a ,b, c,d" == ["a","b","c","d"]
|
|
```
|
|
-}
|
|
split : Regex -> String -> [String]
|
|
split = Native.Regex.split
|
|
|
|
{-| Same as `split` but stops after the *n<sup>th</sup>* match.
|
|
|
|
```haskell
|
|
splitN 1 (pattern ": *") "tom: 99,90,85" == ["tom","99,90,85"]
|
|
```
|
|
-}
|
|
splitN : Int -> Regex -> String -> [String]
|
|
splitN = Native.Regex.splitN
|