ascii_t Derived Type

type, public :: ascii_t


Components

Type Visibility Attributes Name Initial
integer(kind=int64), public :: a(0:ASCII_SIZE-1) = 0_int64

Type-Bound Procedures

generic, public :: add => ascii__add_character_range, ascii__add_character_char, ascii__add_character_codepoint

  • private pure subroutine ascii__add_character_range(self, min_cp, max_cp)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(inout) :: self
    integer(kind=int32), intent(in) :: min_cp
    integer(kind=int32), intent(in) :: max_cp

  • private pure subroutine ascii__add_character_char(self, chara)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(inout) :: self
    character(len=1), intent(in) :: chara

  • private pure subroutine ascii__add_character_codepoint(self, cp)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(inout) :: self
    integer(kind=int32), intent(in) :: cp

procedure, public :: ascii2seg

  • private pure subroutine ascii2seg(self, segments)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(in) :: self
    type(segment_t), intent(inout), allocatable :: segments(:)

procedure, public :: ascii__add_character_char

  • private pure subroutine ascii__add_character_char(self, chara)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(inout) :: self
    character(len=1), intent(in) :: chara

procedure, public :: ascii__add_character_codepoint

  • private pure subroutine ascii__add_character_codepoint(self, cp)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(inout) :: self
    integer(kind=int32), intent(in) :: cp

procedure, public :: ascii__add_character_range

  • private pure subroutine ascii__add_character_range(self, min_cp, max_cp)

    Arguments

    Type IntentOptional Attributes Name
    class(ascii_t), intent(inout) :: self
    integer(kind=int32), intent(in) :: min_cp
    integer(kind=int32), intent(in) :: max_cp

Source Code

   type, public :: ascii_t
      integer(int64) :: a(0:ASCII_SIZE-1) = 0_int64
   contains
      procedure :: ascii__add_character_range, ascii__add_character_char, ascii__add_character_codepoint
      generic :: add => ascii__add_character_range, ascii__add_character_char, ascii__add_character_codepoint
      procedure :: ascii2seg
   end type ascii_t