%__tcl_path ^(%{_datadir}|%{_libdir})/tcl[[:digit:]]+\\.[[:digit:]]+/.+

%__tcl_requires() %{lua:
    -- Match buildroot paths of the form
    --    /PATH/OF/BUILDROOT/usr/lib(64)/tclMAJOR.MINOR/ and
    --    /PATH/OF/BUILDROOT/usr/share/tclMAJOR.MINOR/
    -- generating a line of the form:
    --    tcl(abi) = MAJOR.MINOR
    local path = rpm.expand('%1')
    local datadir = rpm.expand('%_datadir')
    local libdir = rpm.expand('%_libdir')
    for i, dir in ipairs({datadir, libdir}) do
        if path:match(dir .. '/tcl%d+%.%d+/.*') then
            local requires = path:gsub('.*' .. dir .. '/tcl(%d+%.%d+)/.*', 'tcl(abi) = %1')
            print(requires)
            break
        end
    end
}