functioninherited_permissionpureprivate
pure character(len=permission_length(list,id)) function inherited_permission(list, id) result(permission)
The permission of what is declared now in id.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| list | type(entity_list_t) | in | the entities | |
| id | integer | in | the entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| permission | character(len=permission_length(list,id)) | private |
Source
Show the code
pure function inherited_permission(list, id) result(permission)
type(entity_list_t), intent(in) :: list !! the entities
integer, intent(in) :: id !! the entity
character(len=permission_length(list, id)) :: permission
if (allocated(list%box(id)%e%child_permission)) then
permission = list%box(id)%e%child_permission
else
permission = 'public'
end if
end function inherited_permission