functionis_tablepureprivate

pure logical function is_table(block)
    character(len=*), intent(in) :: block   !! the chunk
    integer :: a, b

    is_table = .false.
    a = index(block, NL)
    if (a == 0) return
    if (index(block(:a - 1), '|') == 0) return
    b = index(block(a + 1:), NL)
    b = merge(len(block), a + b - 1, b == 0)
    if (b <= a) return
    is_table = verify(block(a + 1:b), '|:- ') == 0 .and. index(block(a + 1:b), '-') > 0
end function is_table