subroutineread_sourceprivate

subroutine read_source(s, path, raw, text)
    type(settings_t), intent(in) :: s                   !! the settings
    character(len=*), intent(in) :: path                !! the file
    character(len=:), allocatable, intent(out) :: raw   !! the file as it is
    character(len=:), allocatable, intent(out) :: text  !! the text to parse
    character(len=:), allocatable :: msg
    integer :: ios

    call load_source(s, path, raw, text, ios, msg)
    if (ios /= 0) then
        call warn('could not read '//path//': '//msg)
        text = ''
        raw = ''
    end if
end subroutine read_source