parse_bm.jl

# ── Phase 2: Base Modelica parsing with BaseModelica.jl ───────────────────────

import BaseModelica
import Logging

"""
    run_parse(bm_path, model_dir, model) → (success, time, error, ode_prob)

Parse a Base Modelica `.bmo` file with BaseModelica.jl and create an
`ODEProblem` from the `Experiment` annotation.
Writes a `<model>_parsing.log` file in `model_dir`.
Returns `nothing` as the fourth element on failure.
"""
function run_parse(bm_path::String, model_dir::String,
                   model::String)::Tuple{Bool,Float64,String,Any}
    parse_success = false
    parse_time    = 0.0
    parse_error   = ""
    ode_prob      = nothing

    isdir(model_dir) || mkpath(model_dir)
    log_file    = open(joinpath(model_dir, "$(model)_parsing.log"), "w")
    stdout_pipe = Pipe()
    println(log_file, "Model:   $model")
    logger = Logging.SimpleLogger(log_file, Logging.Debug)
    t0 = time()
    try
        # create_odeproblem returns an ODEProblem using the Experiment
        # annotation for StartTime/StopTime/Tolerance/Interval.
        # Redirect Julia log output to the log file and stdout/stderr to a
        # buffer so they can be appended after the summary lines.
        ode_prob      = redirect_stdout(stdout_pipe) do
            redirect_stderr(stdout_pipe) do
                Logging.with_logger(logger) do
                    BaseModelica.create_odeproblem(bm_path)
                end
            end
        end
        parse_time    = time() - t0
        parse_success = true
    catch e
        parse_time  = time() - t0
        parse_error = sprint(showerror, e, catch_backtrace())
    end
    close(stdout_pipe.in)
    captured = read(stdout_pipe.out, String)
    println(log_file, "Time:    $(round(parse_time; digits=3)) s")
    println(log_file, "Success: $parse_success")
    isempty(captured) || print(log_file, "\n--- Parser output ---\n", captured)
    isempty(parse_error) || println(log_file, "\n--- Error ---\n$parse_error")
    close(log_file)

    return parse_success, parse_time, parse_error, ode_prob
end