Imports System.Collections.Generic
Imports System.Text.RegularExpressions

Public Class JobConfigParser
    Private Shared JobOptionsRegex As New Regex("(?<enabled>True|False)\|(?<cron>[\w\d\s,\?*-/]*)(?:\|(?<args>(?:\w*::[^,\n]+,?)*))?")
    Private Shared JobArgumentsRegex As New Regex("(?:(?:\w+::[^,\n]+,?)?)+")
    Private Const ARGS_ITEM_DELIMITER As String = ","
    Private Const ARGS_KEYVALUE_DELIMITER As String = "::"
    Private Const ARGS_LIST_DELIMITER As String = "|"

    ''' <summary>
    ''' Parse a job config string. ex: True|0 0/3 * * * ?|Arg1::Foo,Arg2::Bar
    ''' </summary>
    ''' <param name="ConfigString"></param>
    ''' <returns>A populated JobConfig object</returns>
    Public Shared Function ParseConfig(ConfigString As String) As JobConfig
        If JobOptionsRegex.IsMatch(ConfigString) Then
            Dim oMatches = JobOptionsRegex.Matches(ConfigString)
            Dim oOptions As New JobConfig

            Dim oSplitOptions As String() = ConfigString.Split(ARGS_LIST_DELIMITER)

            If oSplitOptions.Length = 3 Then
                oOptions.Enabled = CBool(oSplitOptions(0))
                oOptions.CronExpression = oSplitOptions(1)
                oOptions.Arguments = ParseOptionalArguments(oSplitOptions(2))
            ElseIf oSplitOptions.Length = 2 Then
                oOptions.Enabled = CBool(oSplitOptions(0))
                oOptions.CronExpression = oSplitOptions(1)
                oOptions.Arguments = New Dictionary(Of String, String)
            Else
                Throw New ArgumentException("Config Malformed")
            End If

            Return oOptions
        Else
            Throw New ArgumentException("Config Malformed")
        End If
    End Function

    Private Shared Function ParseOptionalArguments(ArgsString As String) As Dictionary(Of String, String)
        Dim oArgsDictionary As New Dictionary(Of String, String)

        If JobArgumentsRegex.IsMatch(ArgsString) Then
            Dim oArgs As String() = ArgsString.Split(ARGS_ITEM_DELIMITER)

            For Each oArg In oArgs
                Dim oDelimiter As String() = New String() {ARGS_KEYVALUE_DELIMITER}
                Dim oArgSplit = oArg.Split(oDelimiter, StringSplitOptions.RemoveEmptyEntries)
                Regex.Split(oArg, "::")

                If oArgSplit.Length = 2 Then
                    oArgsDictionary.Add(oArgSplit(0), oArgSplit(1))
                Else
                    Throw New ArgumentException("Config Malformed")
                End If
            Next
        End If

        Return oArgsDictionary
    End Function
End Class