create_tag_flat Function

  1. foxy_xml_tag.f90
  2. foxy_xml_tag
  3. create_tag_flat

private pure function create_tag_flat(name, attribute, attributes, attributes_stream, sanitize_attributes_value, content, indent, is_content_indented, is_self_closing) result(tag)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: name

Tag name.
character(len=*), intent(in), optional :: attribute(1:)

Attribute name/value pair [1:2].
character(len=*), intent(in), optional :: attributes(1:,1:)

Attributes list of name/value pairs [1:2,1:].
character(len=*), intent(in), optional :: attributes_stream

Attributes list of name/value pairs as single stream.
logical, intent(in), optional :: sanitize_attributes_value

Sanitize attributes value.
character(len=*), intent(in), optional :: content

Tag value.
integer(kind=I4P), intent(in), optional :: indent

Number of indent-white-spaces.
logical, intent(in), optional :: is_content_indented

Activate content indentation.
logical, intent(in), optional :: is_self_closing

The tag is self closing.

Return Value type(xml_tag)

XML tag.

Description

Return an instance of xml tag.

Attributes are passed by array.

Called By

proc~~create_tag_flat~~CalledByGraph proc~create_tag_flat create_tag_flat interface~xml_tag xml_tag interface~xml_tag->proc~create_tag_flat program~create_tag create_tag program~create_tag->interface~xml_tag program~add_attributes add_attributes program~add_attributes->interface~xml_tag program~delete_attributes delete_attributes program~delete_attributes->interface~xml_tag program~indent_tag indent_tag program~indent_tag->interface~xml_tag program~delete_content delete_content program~delete_content->interface~xml_tag program~add_tag add_tag program~add_tag->interface~xml_tag program~write_tag write_tag program~write_tag->interface~xml_tag
Help

Source Code

  pure function create_tag_flat(name, attribute, attributes, attributes_stream, sanitize_attributes_value, content, indent, &
                                is_content_indented, is_self_closing) result(tag)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Return an instance of xml tag.
  !<
  !< Attributes are passed by array.
  !---------------------------------------------------------------------------------------------------------------------------------
  character(*), intent(in)           :: name                      !< Tag name.
  character(*), intent(in), optional :: attribute(1:)             !< Attribute name/value pair [1:2].
  character(*), intent(in), optional :: attributes(1:,1:)         !< Attributes list of name/value pairs [1:2,1:].
  character(*), intent(in), optional :: attributes_stream         !< Attributes list of name/value pairs as single stream.
  logical,      intent(in), optional :: sanitize_attributes_value !< Sanitize attributes value.
  character(*), intent(in), optional :: content                   !< Tag value.
  integer(I4P), intent(in), optional :: indent                    !< Number of indent-white-spaces.
  logical,      intent(in), optional :: is_content_indented       !< Activate content indentation.
  logical,      intent(in), optional :: is_self_closing           !< The tag is self closing.
  type(xml_tag)                      :: tag                       !< XML tag.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  call tag%set(name=name, attribute=attribute, attributes=attributes, attributes_stream=attributes_stream, &
               sanitize_attributes_value=sanitize_attributes_value, content=content,                       &
               indent=indent, is_content_indented=is_content_indented, is_self_closing=is_self_closing)
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction create_tag_flat