write_tag Subroutine

  1. foxy_xml_tag.f90
  2. foxy_xml_tag
  3. write_tag

private subroutine write_tag(self, unit, is_indented, is_content_indented, form, end_record, only_start, only_content, only_end, iostat, iomsg)

Arguments

Type IntentOptional AttributesName
class(xml_tag), intent(in) :: self

XML tag.
integer(kind=I4P), intent(in) :: unit

File unit.
logical, intent(in), optional :: is_indented

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

Activate content indentation.
character(len=*), intent(in), optional :: form

Format.
character(len=*), intent(in), optional :: end_record

Ending record.
logical, intent(in), optional :: only_start

Write only start tag.
logical, intent(in), optional :: only_content

Write only content.
logical, intent(in), optional :: only_end

Write only end tag.
integer(kind=I4P), intent(out), optional :: iostat

IO status.
character(len=*), intent(out), optional :: iomsg

IO message.

Description

Write tag to unit file.


Variables

TypeVisibility AttributesNameInitial
type(string), public :: form_

Format.
type(string), public :: end_record_

Ending record.
integer(kind=I4P), public :: iostat_

IO status.
character(len=500), public :: iomsg_

IO message.

Source Code

  subroutine write_tag(self, unit, is_indented, is_content_indented, form, end_record, only_start, only_content, only_end, &
                       iostat, iomsg)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Write tag to unit file.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(xml_tag), intent(in)            :: self                !< XML tag.
  integer(I4P),   intent(in)            :: unit                !< File unit.
  logical,        intent(in),  optional :: is_indented         !< Activate content indentation.
  logical,        intent(in),  optional :: is_content_indented !< Activate content indentation.
  character(*),   intent(in),  optional :: form                !< Format.
  character(*),   intent(in),  optional :: end_record          !< Ending record.
  logical,        intent(in),  optional :: only_start          !< Write only start tag.
  logical,        intent(in),  optional :: only_content        !< Write only content.
  logical,        intent(in),  optional :: only_end            !< Write only end tag.
  integer(I4P),   intent(out), optional :: iostat              !< IO status.
  character(*),   intent(out), optional :: iomsg               !< IO message.
  type(string)                          :: form_               !< Format.
  type(string)                          :: end_record_         !< Ending record.
  integer(I4P)                          :: iostat_             !< IO status.
  character(500)                        :: iomsg_              !< IO message.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  form_ = 'UNFORMATTED'
  if (present(form)) then
    form_ = form
    form_ = form_%upper()
  endif
  end_record_ = '' ; if (present(end_record)) end_record_ = end_record
  select case(form_%chars())
  case('UNFORMATTED')
    write(unit=unit, iostat=iostat_, iomsg=iomsg_)self%stringify(is_indented=is_indented,                 &
                                                                 is_content_indented=is_content_indented, &
                                                                 only_start=only_start,                   &
                                                                 only_content=only_content,               &
                                                                 only_end=only_end)//end_record_
  case('FORMATTED')
    write(unit=unit, fmt='(A)', iostat=iostat_, iomsg=iomsg_)self%stringify(is_indented=is_indented,                 &
                                                                            is_content_indented=is_content_indented, &
                                                                            only_start=only_start,                   &
                                                                            only_content=only_content,               &
                                                                            only_end=only_end)//end_record_
  endselect
  if (present(iostat)) iostat = iostat_
  if (present(iomsg)) iomsg = iomsg_
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine write_tag