gen/wrapper.jl

# Script to parse HSL headers and generate Julia wrappers.
using HSL_jll
using Clang
using Clang.Generators
using JuliaFormatter

include("rewriter.jl")

function wrapper(name::String, headers::Vector{String}, optimized::Bool)

  @info "Wrapping $name"

  cd(@__DIR__)
  include_dir = joinpath(HSL_jll.artifact_dir, "include", "libhsl")
  options = load_options(joinpath(@__DIR__, "hsl.toml"))
  options["general"]["output_file_path"] = joinpath("..", "src", "C", "$(name).jl")

  if name != "libhsl"
    solver = split(name, "_")[2]
    optimized && (options["general"]["output_ignorelist"] = ["$(solver)realtype_[sdcz]_\$",
                                                             "$(solver)pkgtype_[sdcz]_\$",
                                                             "$(solver)pkgtype_[il]_\$",
                                                             "$(solver)_pkgtype_[il]_\$",
                                                             "$(solver)cntltype_[sdcz]_\$",
                                                             "$(solver)_control_[dczl]\$",
                                                             "$(solver)_info_[dczl]\$",
                                                             "$(solver)_[afs]info_d\$",
                                                             "$(solver)_solve_control_d\$"])
  end

  args = get_default_args()
  push!(args, "-I$include_dir")
  
  ctx = create_context(headers, args, options)
  build!(ctx)

  path = options["general"]["output_file_path"]

  (name != "libhsl") && format_file(path, YASStyle())
  rewrite!(path, name, optimized)
  return nothing
end

function hsl_headers(include::String, package::String, precisions::Vector{Char})
  headers = [joinpath(include, package) * precision * ".h" for precision in precisions]
  return headers
end

function main(name::String="all"; optimized::Bool=false)
  include = joinpath(HSL_jll.artifact_dir, "include", "libhsl")

  if name == "all" || name == "libhsl"
    wrapper("libhsl", [joinpath(include, "libhsl.h")], optimized)
  end

  if name == "all" || name == "hsl_ma48"
    precisions = ['s', 'd']
    wrapper("hsl_ma48", hsl_headers(include, "hsl_ma48", precisions), optimized)
  end

  if name == "all" || name == "hsl_ma57"
    precisions = ['s', 'd']
    wrapper("hsl_ma57", hsl_headers(include, "hsl_ma57", precisions), optimized)
  end

  if name == "all" || name == "hsl_ma77"
    precisions = ['s', 'd']
    wrapper("hsl_ma77", hsl_headers(include, "hsl_ma77", precisions), optimized)
  end

  if name == "all" || name == "hsl_ma86"
    precisions = ['s', 'd', 'c', 'z']
    wrapper("hsl_ma86", hsl_headers(include, "hsl_ma86", precisions), optimized)
  end

  if name == "all" || name == "hsl_ma87"
    precisions = ['s', 'd', 'c', 'z']
    wrapper("hsl_ma87", hsl_headers(include, "hsl_ma87", precisions), optimized)
  end

  if name == "all" || name == "hsl_ma97"
    precisions = ['s', 'd', 'c', 'z']
    wrapper("hsl_ma97", hsl_headers(include, "hsl_ma97", precisions), optimized)
  end

  if name == "all" || name == "hsl_mc64"
    precisions = ['s', 'd', 'c', 'z']
    wrapper("hsl_mc64", hsl_headers(include, "hsl_mc64", precisions), optimized)
  end

  if name == "all" || name == "hsl_mc68"
    precisions = ['i']
    wrapper("hsl_mc68", hsl_headers(include, "hsl_mc68", precisions), optimized)
  end

  if name == "all" || name == "hsl_mc69"
    precisions = ['s', 'd', 'c', 'z']
    wrapper("hsl_mc69", hsl_headers(include, "hsl_mc69", precisions), optimized)
  end

  if name == "all" || name == "hsl_mc78"
    precisions = ['i', 'l']
    wrapper("hsl_mc78", hsl_headers(include, "hsl_mc78", precisions), optimized)
  end

  if name == "all" || name == "hsl_mc79"
    precisions = ['i']
    wrapper("hsl_mc79", hsl_headers(include, "hsl_mc79", precisions), optimized)
  end

  if name == "all" || name == "hsl_mi20"
    precisions = ['s', 'd']
    wrapper("hsl_mi20", hsl_headers(include, "hsl_mi20", precisions), optimized)
  end

  if name == "all" || name == "hsl_mi28"
    precisions = ['s', 'd']
    wrapper("hsl_mi28", hsl_headers(include, "hsl_mi28", precisions), optimized)
  end
end

# If we want to use the file as a script with `julia wrapper.jl`
if abspath(PROGRAM_FILE) == @__FILE__
  main()
end