entry_label Function

private pure function entry_label(entry) result(label)

The left-hand column of one help line.

Arguments

Type IntentOptional Attributes Name
type(entry_t), intent(in) :: entry

Return Value character(len=:), allocatable


Called by

proc~~entry_label~~CalledByGraph proc~entry_label entry_label proc~cli_help_text cli_t%cli_help_text proc~cli_help_text->proc~entry_label

Source Code

   pure function entry_label(entry) result(label)
      !! The left-hand column of one help line.
      type(entry_t), intent(in) :: entry
      character(len=:), allocatable :: label

      if (entry%kind == KIND_POSITIONAL) then
         label = char(entry%name)
      else if (len(char(entry%short)) > 0) then
         label = "-"//char(entry%short)//", --"//char(entry%name)
      else
         label = "    --"//char(entry%name)
      end if
   end function entry_label