Wish IDE State and Code Bundle JSONs

'Non-UI application (console / server application)
#Region Project Attributes
    #CommandLineArgs:
    #MergeLibraries: True
#End Region

'comment these lines:
'#JavaCompilerPath: 8, C:\Program Files\Java\jdk1.8.0_211\bin\javac.exe
'#CustomBuildAction: 2, %COMSPEC%, /c copy /Y "%PROJECT%\Objects\%PROJECT_NAME%.jar" "%B4X%\CodeBundle2.jar"
'#CustomBuildAction: 2, %COMSPEC%, /c copy /Y "%PROJECT%\Objects\%PROJECT_NAME%.jar" "%B4X%\..\..\..\..\B4A\B4A\bin\Debug\CodeBundle2.jar"
'#CustomBuildAction: 2, %COMSPEC%, /c copy /Y "%PROJECT%\Objects\%PROJECT_NAME%.jar" "%B4X%\..\..\..\..\B4R\B4R\bin\Debug\CodeBundle2.jar"
'#CustomBuildAction: 2, %COMSPEC%, /c copy /Y "%PROJECT%\Objects\%PROJECT_NAME%.jar" "%B4X%\..\..\..\..\B4i\B4i\bin\Debug\CodeBundle2.jar"
Sub Process_Globals
    Private CodeBundleVersion As Float = 2.00
    Private SchemaVersion As Float = 1.00
    Private ProjectFile As String

Private Sub ReadModule(ModulePath As String) As CodeModule
    'If ModulePath.StartsWith("|relative|") Then
    '    ModulePath = File.Combine(ProjectDir, ModulePath.SubString("|relative|".Length))
    'Else If ModulePath.StartsWith("|absolute|") Then
    '    ModulePath = ModulePath.SubString("|absolute|".Length)
    'Else
        ModulePath = File.Combine(ProjectDir, ModulePath)
    'End If
    Dim cm As CodeModule = ReadFile(ModulePath & ".bas")
    cm.Clazz = ParseModule(cm)
    Return cm
End Sub

Private Sub FindProjectModules(MainFile As String) As Map
    Dim result As Map = CreateMap()
    Dim ProjectDir As String = File.GetFileParent(MainFile)
    Dim lines As List = File.ReadList(MainFile, "")
    For Each line As String In lines
        If line = "@EndOfDesignText@" Then Exit
        Dim m As Matcher = Regex.Matcher("([^=]*)=(.*)", line)
        m.Find
        Dim key As String = m.Group(1)
        Dim value As String = m.Group(2)
        If key.StartsWith("Module") Then
            Dim path As String = DecodeModulePath(ProjectDir, value)
            Dim ModuleName As String = File.GetName(path)
            result.Put(ModuleName, path & ".bas")
        End If
    Next
    Return result
End Sub

Private Sub DecodeModulePath(ProjectDir As String, ModulePath As String) As String
    If ModulePath.StartsWith("|relative|") Then
        ModulePath = File.Combine(ProjectDir, ModulePath.SubString("|relative|".Length))
    Else If ModulePath.StartsWith("|absolute|") Then
        ModulePath = ModulePath.SubString("|absolute|".Length)
    Else
        ModulePath = File.Combine(ProjectDir, ModulePath)
    End If
    Return ModulePath
End Sub

Dim modules As Map = FindProjectModules("C:\Users\H\Documents\B4X\SimpleMediaManager\B4i\SimpleMediaManager.b4i")
For Each module As String In modules.Keys
    Dim Path As String = modules.Get(module)
    Log(module & ": " & Path & ", " & File.Exists(Path, ""))
Next