subroutinesummary_itemprivate
subroutine summary_item(site, id, b)
Write a short entry for entity id.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| site | type(site_t) | in | the site | |
| id | integer | in | the entity | |
| b | type(buffer_t) | inout | the HTML |
Calls
Source
Show the code
subroutine summary_item(site, id, b)
type(site_t), intent(in) :: site !! the site
integer, intent(in) :: id !! the entity
type(buffer_t), intent(inout) :: b !! the HTML
associate (e => site%p%list%box(id)%e)
call add(b, '<div class="item" id="')
call anchor(site, id, b)
call add(b, '"><h3>')
call link_to(site, id, e%name, b)
call procedure_badges(e, b)
if (allocated(e%permission)) then
if (e%permission /= 'public') call badge(e%permission, b)
end if
call add(b, '</h3>'//achar(10))
select case (e%kind)
case (E_SUBROUTINE, E_FUNCTION, E_MODPROC)
call signature(site, id, b)
end select
if (allocated(e%summary)) call add(b, e%summary)
call add(b, achar(10)//'</div>'//achar(10))
end associate
end subroutine summary_item