Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(string_t), | intent(in) | :: | project_name | |||
type(string_t), | intent(in) | :: | custom_prefix |
type(string_t) function module_prefix_template(project_name,custom_prefix) result(prefix)
type(string_t), intent(in) :: project_name
type(string_t), intent(in) :: custom_prefix
if (is_valid_module_prefix(custom_prefix)) then
prefix = string_t(trim(custom_prefix%s)//"_")
else
prefix = string_t(to_fortran_name(project_name%s)//"__")
end if
end function module_prefix_template