bmp_t Derived Type

type, public :: bmp_t


Components

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

Type-Bound Procedures

generic, public :: add => bmp__add_character_range, bmp__add_character_char, bmp__add_character_codepoint

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

    Arguments

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

  • private pure subroutine bmp__add_character_char(self, chara)

    Arguments

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

  • private pure subroutine bmp__add_character_codepoint(self, cp)

    Arguments

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

procedure, public :: bmp2seg

  • private pure subroutine bmp2seg(self, segments)

    Arguments

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

procedure, public :: bmp__add_character_char

  • private pure subroutine bmp__add_character_char(self, chara)

    Arguments

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

procedure, public :: bmp__add_character_codepoint

  • private pure subroutine bmp__add_character_codepoint(self, cp)

    Arguments

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

procedure, public :: bmp__add_character_range

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

    Arguments

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

Source Code

   type, public :: bmp_t
      integer(int64) :: b(0:BMP_SIZE-1) = 0_int64
         ! NOTE: 0-based index. 
         ! 65536 bits for Basic Multilingual Plane
   contains
      procedure :: bmp__add_character_range, bmp__add_character_char, bmp__add_character_codepoint
      generic :: add => bmp__add_character_range, bmp__add_character_char, bmp__add_character_codepoint
      procedure :: bmp2seg
   end type bmp_t