subroutinepage_directoriesprivate

subroutine page_directories(directory, pages)
    character(len=*), intent(in) :: directory   !! the output directory
    type(page_t), intent(in) :: pages(:)        !! the pages
    integer :: k, at, status

    do k = 1, size(pages)
        at = last_separator(pages(k)%path)
        if (at > 0) call make_directory(directory//'/page/'//pages(k)%path(:at - 1), status)
    end do
end subroutine page_directories