subroutinespecific_linkprivate
subroutine specific_link(list, id, text, b)
Write a link to specific procedure id, further down the page.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| list | type(entity_list_t) | in | the entities | |
| id | integer | in | the procedure | |
| text | character(len=*) | in | the text, as HTML | |
| b | type(buffer_t) | inout | the HTML |
Calls
Source
Show the code
subroutine specific_link(list, id, text, b)
type(entity_list_t), intent(in) :: list !! the entities
integer, intent(in) :: id !! the procedure
character(len=*), intent(in) :: text !! the text, as HTML
type(buffer_t), intent(inout) :: b !! the HTML
call add(b, '<a href="#')
call entity_anchor(list, id, b)
call add(b, '" title="')
call html_escape(list%box(id)%e%name, b, .true.)
call add(b, '">'//text//'</a>')
end subroutine specific_link