subroutineset_listprivate

subroutine set_list(s, key, values)
    type(settings_t), intent(inout) :: s    !! the settings
    character(len=*), intent(in) :: key     !! the option
    type(string_t), intent(in) :: values(:) !! its values

    select case (key)
    case ('copy_subdir'); s%copy_subdir = values
    case ('display'); s%display = values
    case ('exclude'); s%exclude = values
    case ('exclude_dir'); s%exclude_dir = values
    case ('extensions'); s%extensions = values
    case ('extra_vartypes'); s%extra_vartypes = values
    case ('fixed_extensions'); s%fixed_extensions = values
    case ('fpp_extensions'); s%fpp_extensions = values
    case ('html_template_dir'); s%html_template_dir = values
    case ('include'); s%include = values
    case ('macro'); s%macro = values
    case ('md_extensions'); s%md_extensions = values
    case ('src_dir'); s%src_dir = values
    end select
end subroutine set_list