*! hrcomptab Version 1.0.0  2026/10/20
*! Compatibility wrapper for comptab rate-frame composition
*! Author: Timothy P Copeland, Karolinska Institutet
*! Program class: rclass

program define hrcomptab, rclass
    version 17.0
    local _orig_varabbrev = c(varabbrev)
    set varabbrev off

    capture noisily {
        syntax anything(name=rateframe), *
        * macval(): options are forwarded as typed (title() and footnote()
        * text is never expanded a second time).
        capture noisily comptab, rateframe(`rateframe') `macval(options)'
        local _sub_rc = _rc
        * return add runs on the error path too, and must: comptab posts its
        * analytical results before a failed export sets the return code, and
        * the package contract is that the payload still reaches the caller.
        * Pinned by "hrcomptab preserves r() after export failure" in
        * qa/test_package_adversarial.do.
        return add
        if `_sub_rc' exit `_sub_rc'
    }
    local rc = _rc
    set varabbrev `_orig_varabbrev'
    if `rc' exit `rc'
end