Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(xml_tag), | intent(in) | :: | self | XML tag. |
||
logical, | intent(in), | optional | :: | is_indented | Flag to check if tag is indented. |
The start tag string.
Return <tag_name...>
start tag.
pure function start_tag(self, is_indented) result(tag_)
!---------------------------------------------------------------------------------------------------------------------------------
!< Return `<tag_name...>` start tag.
!---------------------------------------------------------------------------------------------------------------------------------
class(xml_tag), intent(in) :: self !< XML tag.
logical, intent(in), optional :: is_indented !< Flag to check if tag is indented.
character(len=:), allocatable :: tag_ !< The start tag string.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
tag_ = tag_//'<'//self%tag_name
if (self%attributes_number>0) tag_ = tag_//' '//self%attributes()
tag_ = tag_//'>'
if (present(is_indented)) then
if (is_indented) tag_ = repeat(' ', self%indent)//tag_
endif
!---------------------------------------------------------------------------------------------------------------------------------
endfunction start_tag