functiondisplay_namepureprivate
pure character(len=display_length(e)) function display_name(e) result(name)
The base name of a file entity, or the name of another.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| e | type(entity_t) | in | the entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| name | character(len=display_length(e)) | private |
Calls
Source
Show the code
pure function display_name(e) result(name)
type(entity_t), intent(in) :: e !! the entity
character(len=display_length(e)) :: name
integer :: at
at = 0
if (e%kind == E_FILE) at = last_separator(e%name)
name = e%name(at + 1:)
end function display_name