subroutineflush_textprivate

subroutine flush_text(c, text, first, last)
    type(fypp_t), intent(inout) :: c        !! the state
    character(len=*), intent(in) :: text    !! the text
    integer, intent(in) :: first            !! its start
    integer, intent(in) :: last             !! its end
    integer :: node

    if (last < first) return
    node = new_node(c, N_TEXT)
    c%nodes(node)%text = text(first:last)
    call append(c, node)
end subroutine flush_text