module BackendTask.Internal.Glob exposing
    ( Glob(..)
    , extractMatches
    , run
    , toPattern
    )

import List.Extra
import Time


{-| -}
type Glob a
    = Glob String (Maybe FileStats -> String -> List String -> ( a, List String ))


type alias FileStats =
    { fullPath : String
    , sizeInBytes : Int
    , lastContentChange : Time.Posix
    , lastAccess : Time.Posix
    , lastFileChange : Time.Posix
    , createdAt : Time.Posix
    , isDirectory : Bool
    }


run : Maybe FileStats -> String -> List String -> Glob a -> { match : a, pattern : String }
run fileStats rawInput captures (Glob pattern applyCapture) =
    { match =
        captures
            |> List.reverse
            |> applyCapture fileStats rawInput
            |> Tuple.first
    , pattern = pattern
    }


{-| -}
toPattern : Glob a -> String
toPattern (Glob pattern _) =
    pattern


{-| -}
extractMatches : a -> List ( String, a ) -> String -> List a
extractMatches defaultValue list string =
    extractMatchesHelp defaultValue list string []


extractMatchesHelp : a -> List ( String, a ) -> String -> List a -> List a
extractMatchesHelp defaultValue list string soFar =
    if string == "" then
        List.reverse soFar

    else
        let
            ( matchedValue, updatedString ) =
                List.Extra.findMap
                    (\( literalString, value ) ->
                        if string |> String.startsWith literalString then
                            Just ( value, string |> String.dropLeft (String.length literalString) )

                        else
                            Nothing
                    )
                    list
                    |> Maybe.withDefault ( defaultValue, "" )
        in
        extractMatchesHelp defaultValue list updatedString (matchedValue :: soFar)