File Coverage

blib/lib/Regexp/CharClasses/Thai.pm

Criterion	Covered	Total	%
statement	232	232	100.0
branch			n/a
condition			n/a
subroutine	223	223	100.0
pod	42	218	19.2
total	497	673	73.8

package Regexp::CharClasses::Thai;

# Regexp::CharClasses::Thai is designed to enable detailed
# regular expressions, with the ability to identify important
# characteristics of Thai alphabetic characters, digits and symbols.
#
# Copyright (C) 2023  Erik Mundall
#
# This program is free software: you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation, either version 3 of
# the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see: https://www.gnu.org/licenses/.


use 5.008003;
use strict;
use warnings;
use utf8;
use Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = (

    classes =>
        [ qw(InThai InThaiAlpha InThaiWord InThaiCons InThaiHCons
        InThaiMCons InThaiLCons InThaiVowel InThaiPreVowel
        InThaiPostVowel InThaiCompVowel InThaiDigit InThaiTone
        InThaiMute InThaiPunct InThaiCurrency InThaiFinCons
        InThaiDualCons InThaiDualC1 InThaiDualC2 InThaiConsVowel

        IsThai IsThaiAlpha IsThaiWord IsThaiCons IsThaiHCons
        IsThaiMCons IsThaiLCons IsThaiVowel IsThaiPreVowel
        IsThaiPostVowel IsThaiCompVowel IsThaiDigit IsThaiTone
        IsThaiMute IsThaiPunct IsThaiCurrency IsThaiFinCons
        IsThaiDualCons IsThaiDualC1 IsThaiDualC2 IsThaiConsVowel) ],

    characters =>
        [ qw(InKokai InKhokhai InKhokhuat InKhokhwai InKhokhon
        InKhorakhang InNgongu InChochan InChoching InChochang InSoso
        InShochoe InYoying InDochada InTopatak InThothan InThonangmontho
        InThophuthao InNonen InDodek InTotao InThothung InThothahan
        InThothong InNonu InBobaimai InPopla InPhophung InFofa InPhophan
        InFofan InPhosamphao InMoma InYoyak InRorua InRu InLoling InLu
        InWowaen InSosala InSorusi InSosua InHohip InLochula InOang
        InHonokhuk InPaiyannoi InSaraa InMaihanakat InSaraaa InSaraam
        InSarai InSaraii InSaraue InSarauee InSarau InSarauu InPhinthu
        InBaht InSarae InSaraae InSarao InSaraaimaimuan InSaraaimaimalai
        InLakkhangyao InMaiyamok InMaitaikhu InMaiek InMaitho InMaitri
        InMaichattawa InThanthakhat InGaran InNikhahit InYamakkan
        InFongman InThZero InThOne InThTwo InThThree InThFour InThFive
        InThSix InThSeven InThEight InThNine InAngkhankhu InKhomut

        IsKokai IsKhokhai IsKhokhuat IsKhokhwai IsKhokhon
        IsKhorakhang IsNgongu IsChochan IsChoching IsChochang IsSoso
        IsShochoe IsYoying IsDochada IsTopatak IsThothan IsThonangmontho
        IsThophuthao IsNonen IsDodek IsTotao IsThothung IsThothahan
        IsThothong IsNonu IsBobaimai IsPopla IsPhophung IsFofa IsPhophan
        IsFofan IsPhosamphao IsMoma IsYoyak IsRorua IsRu IsLoling IsLu
        IsWowaen IsSosala IsSorusi IsSosua IsHohip IsLochula IsOang
        IsHonokhuk IsPaiyannoi IsSaraa IsMaihanakat IsSaraaa IsSaraam
        IsSarai IsSaraii IsSaraue IsSarauee IsSarau IsSarauu IsPhinthu
        IsBaht IsSarae IsSaraae IsSarao IsSaraaimaimuan IsSaraaimaimalai
        IsLakkhangyao IsMaiyamok IsMaitaikhu IsMaiek IsMaitho IsMaitri
        IsMaichattawa IsThanthakhat IsGaran IsNikhahit IsYamakkan
        IsFongman IsThZero IsThOne IsThTwo IsThThree IsThFour IsThFive
        IsThSix IsThSeven IsThEight IsThNine IsAngkhankhu IsKhomut) ],

);
# add all the other tags to the ":all" class,
# deleting duplicates
 {
   my %seen;
   push @{$EXPORT_TAGS{all}},
     grep {!$seen{$_}++} @{$EXPORT_TAGS{$_}} foreach keys %EXPORT_TAGS;
 }

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = ( @{ $EXPORT_TAGS{'classes'} } );

our $VERSION = '1.01';

#--------------------------------------------------------------
#	ALL THAI UNICODE CHARACTERS IN THIS MODULE
#	FOLLOW THE UNICODE CODEPOINTS DETAILED HERE:
#	http://www.unicode.org/charts/PDF/U0E00.pdf
#--------------------------------------------------------------


#--------------------------------------------------------------
#	CREATE FUNCTIONALITY FOR SHOWING CONTENTS OF EACH CLASS
#--------------------------------------------------------------

my %char_class_dispatch = (
        InThai          => \&InThai,
        InThaiCons      => \&InThaiCons,
        InThaiHCons     => \&InThaiHCons,
        InThaiMCons     => \&InThaiMCons,
        InThaiLCons     => \&InThaiLCons,
        InThaiFinCons   => \&InThaiFinCons,
        InThaiDualCons  => \&InThaiDualCons,
        InThaiDualC1    => \&InThaiDualC1,
        InThaiDualC2    => \&InThaiDualC2,
        InThaiConsVowel => \&InThaiConsVowel,
        InThaiAlpha     => \&InThaiAlpha,
        InThaiWord      => \&InThaiWord,
        InThaiTone      => \&InThaiTone,
        InThaiMute      => \&InThaiMute,
        InThaiPunct     => \&InThaiPunct,
        InThaiCurrency  => \&InThaiCurrency,
        InThaiDigit     => \&InThaiDigit,
        InThaiVowel     => \&InThaiVowel,
        InThaiCompVowel => \&InThaiCompVowel,
        InThaiPreVowel  => \&InThaiPreVowel,
        InThaiPostVowel => \&InThaiPostVowel,
    );


# IMPORTANT NOTE: ALL CHARACTER CLASSES IN THIS PACKAGE ARE
#                 SPELLED OUT IN THEIR ENTIRETY, RATHER THAN
#                 REPRESENTING EACH RANGE VIA OMISSION OF THE
#                 INTERVENING CODEPOINTS.  THIS IS BOTH FOR
#                 EASIER READABILITY WHEN SEARCHING FOR A
#                 PARTICULAR CODEPOINT TO SEE IN WHICH CLASSES
#                 IT MAY BE FOUND, AND ALSO TO FACILITATE THE
#                 ABILITY TO IDENTIFY ALL THE CHARACTERS
#                 GROUPED IN A CLASS (MORE ON THIS IN POD).

#--------------------------------------------------------------
#	Start with the "Is..." versions
#--------------------------------------------------------------

sub IsThai { #INCLUDES ENTIRE UNICODE CODEBLOCK FOR THAI
    return join "\n",
         '0E01', '0E02', '0E03', '0E04', '0E05', '0E06', '0E07',
 '0E08', '0E09', '0E0A', '0E0B', '0E0C', '0E0D', '0E0E', '0E0F',
 '0E10', '0E11', '0E12', '0E13', '0E14', '0E15', '0E16', '0E17',
 '0E18', '0E19', '0E1A', '0E1B', '0E1C', '0E1D', '0E1E', '0E1F',
 '0E20', '0E21', '0E22', '0E23', '0E24', '0E25', '0E26', '0E27',
 '0E28', '0E29', '0E2A', '0E2B', '0E2C', '0E2D', '0E2E', '0E2F',
 '0E30', '0E31', '0E32', '0E33', '0E34', '0E35', '0E36', '0E37',
 '0E38', '0E39', '0E3A', '0E3B', '0E3C', '0E3D', '0E3E', '0E3F',
 '0E40', '0E41', '0E42', '0E43', '0E44', '0E45', '0E46', '0E47',
 '0E48', '0E49', '0E4A', '0E4B', '0E4C', '0E4D', '0E4E', '0E4F',
 '0E50', '0E51', '0E52', '0E53', '0E54', '0E55', '0E56', '0E57',
 '0E58', '0E59', '0E5A', '0E5B', '0E5C', '0E5D', '0E5E', '0E5F',
 '0E60', '0E61', '0E62', '0E63', '0E64', '0E65', '0E66', '0E67',
 '0E68', '0E69', '0E6A', '0E6B', '0E6C', '0E6D', '0E6E', '0E6F',
 '0E70', '0E71', '0E72', '0E73', '0E74', '0E75', '0E76', '0E77',
 '0E78', '0E79', '0E7A', '0E7B', '0E7C', '0E7D', '0E7E', '0E7F',
}

sub IsThaiCons { #THAI CONSONANTS
# ก ข ฃ ค ฅ ฆ ง จ ฉ ช ซ ฌ ญ ฎ ฏ ฐ ฑ ฒ ณ ด ต ถ ท
# ธ น บ ป ผ ฝ พ ฟ ภ ม ย ร ฤ ล ฦ ว ศ ษ ส ห ฬ อ ฮ
#NOTE: Most consider 0E24 and 0E26 (ฤ ฦ), included,
#      as vowels, but they act/function as consonants
#      and are listed among the consonants in the
#      official Unicode character chart for Thai.
#      See https://en.wiktionary.org/wiki/%E0%B8%A4
#      Thai: https://th.wikipedia.org/wiki/%E0%B8%A4
    return join "\n",
         '0E01', '0E02', '0E03', '0E04', '0E05', '0E06', '0E07',
 '0E08', '0E09', '0E0A', '0E0B', '0E0C', '0E0D', '0E0E', '0E0F',
 '0E10', '0E11', '0E12', '0E13', '0E14', '0E15', '0E16', '0E17',
 '0E18', '0E19', '0E1A', '0E1B', '0E1C', '0E1D', '0E1E', '0E1F',
 '0E20', '0E21', '0E22', '0E23', '0E24', '0E25', '0E26', '0E27',
 '0E28', '0E29', '0E2A', '0E2B', '0E2C', '0E2D', '0E2E',
}

sub IsThaiHCons { #THAI HIGH-CLASS CONSONANTS
# ข ฃ ฉ ฐ ถ ผ ฝ ศ ษ ส ห
    return join "\n",
 '0E02', '0E03', '0E09', '0E10', '0E16', '0E1C', '0E1D', '0E28',
 '0E29', '0E2A', '0E2B',
}

sub IsThaiMCons { #THAI MID-CLASS CONSONANTS
# ก จ ฎ ฏ ด ต บ ป อ
    return join "\n",
 '0E01', '0E08', '0E0E', '0E0F', '0E14', '0E15', '0E1A', '0E1B',
 '0E2D',
}

sub IsThaiLCons { #THAI LOW-CLASS CONSONANTS
# ค ฅ ฆ ง ช ซ ฌ ญ ฑ ฒ ณ ท ธ น พ ฟ ภ ม ย ร ฤ ล ฦ ว ฬ ฮ
#NOTE: The included ฤ and ฦ are usually classed as vowels, but
#when they function as consonants they would be in this class.
    return join "\n",
 '0E04', '0E05', '0E06', '0E07', '0E0A', '0E0B', '0E0C', '0E0D',
 '0E11', '0E12', '0E13', '0E17', '0E18', '0E19', '0E1E', '0E1F',
 '0E20', '0E21', '0E22', '0E23', '0E24', '0E25', '0E26', '0E27',
 '0E2C', '0E2E',
}

sub IsThaiFinCons { #THAI SYLLABLE-ENDING CONSONANTS (FINAL)
#ALL CONSONANTS EXCEPT THESE:  ฉ ซ ผ ฝ ห ฮ ห อ ฮ
#NOTE: Certain others (ย ว อ) may be at the end of a syllable,
#      but as a vowel; so are not included here.  These consonants
#      may not, but can, be at the end of a syllable; useful for
#      some regular expressions.
    return join "\n",
 '0E01', '0E02', '0E03', '0E04', '0E05', '0E06', '0E07', '0E08',
 '0E0A', '0E0C', '0E0D', '0E0E', '0E0F', '0E10', '0E11', '0E12',
 '0E13', '0E14', '0E15', '0E16', '0E17', '0E18', '0E19', '0E1A',
 '0E1B', '0E1E', '0E1F', '0E20', '0E21', '0E23', '0E24', '0E25',
 '0E26', '0E28', '0E29', '0E2A', '0E2C',
}

sub IsThaiDualCons {
# BECAUSE EACH \p{...} CHARACTER DEFINED CAN BE ONLY A SINGLE
# CHARACTER, AND NOT A CHARACTER CLUSTER, THIS CHAR CLASS, AND
# THE TWO WHICH FOLLOW IT, ARE CONSIDERED EXPERIMENTAL AND OF
# LIMITED USEFULNESS.
#
# NON-EXHAUSTIVE LIST OF EXAMPLES (INITIAL CONSONANT CLUSTERS)
# กว กล กร ขร ขล ขว คร คล คว ตร ปร ปล บร บล ดร ผล พร พล ทร สร จร ซร
# [and with sonorant consonants] หม หน หล หย หง หว หญ อย
    return join "\n",
  '0E01', '0E02', '0E04', '0E07', '0E08', '0E0B', '0E0D', '0E14',
  '0E15', '0E17', '0E19', '0E1A', '0E1B', '0E1C', '0E1E', '0E21',
  '0E22', '0E23', '0E25', '0E27', '0E2A', '0E2B', '0E2D',
}

sub IsThaiDualC1 { #INITIAL CONSONANTS OF DUAL-CONSONANT LIST
#ก ข ค จ ซ ด ต ท บ ป ผ พ ส ห อ
    return join "\n",
  '0E01', '0E02', '0E04', '0E08', '0E0B', '0E14', '0E15', '0E17',
  '0E1A', '0E1B', '0E1C', '0E1E', '0E2A', '0E2B', '0E2D',
}

sub IsThaiDualC2 { #SECOND CONSONANTS OF DUAL-CONSONANT LIST
#ง ญ น ม ย ร ล ว
    return join "\n",
 '0E07', '0E0D', '0E19', '0E21', '0E22', '0E23', '0E25', '0E27',
}

sub IsThaiConsVowel { #THAI CONSONANTS WHICH CAN ALSO BE VOWELS
#NOTE: Thais consider 0E33 to be only a vowel, and it can never
#      function as only a consonant (it must always have a
#      vowel component), so it is NOT included here: but it is
#      actually a vowel-consonant combination, phonetically,
#      finishing with the "m" sound.  This class addresses only
#      Thai characters which can be either consonant or vowel,
#      but not both at the same time. The 0E23 is only a vowel if
#      it is doubled--but this doubling cannot be determined when
#      examining an individual code point, so it is included here
#      for thoroughness.
# ย ร ฤ ฦ ว อ
    return join "\n",
 '0E22', '0E23', '0E24', '0E26', '0E27', '0E2D',
}

sub IsThaiAlpha { #THAI ALPHABETIC CHARACTERS
#Thai consonants + vowels only
    return join "\n",
         '0E01', '0E02', '0E03', '0E04', '0E05', '0E06', '0E07',
 '0E08', '0E09', '0E0A', '0E0B', '0E0C', '0E0D', '0E0E', '0E0F',
 '0E10', '0E11', '0E12', '0E13', '0E14', '0E15', '0E16', '0E17',
 '0E18', '0E19', '0E1A', '0E1B', '0E1C', '0E1D', '0E1E', '0E1F',
 '0E20', '0E21', '0E22', '0E23', '0E24', '0E25', '0E26', '0E27',
 '0E28', '0E29', '0E2A', '0E2B', '0E2C', '0E2D', '0E2E', '0E30',
 '0E31', '0E32', '0E33', '0E34', '0E35', '0E36', '0E37', '0E38',
 '0E39', '0E3A', '0E40', '0E41', '0E42', '0E43', '0E44', '0E45',
 '0E47', '0E4D',
}

sub IsThaiWord { #THAI WORD CHARACTERS
#Thai consonants + vowels + tone marks/diacritics
#but not including punctuation, digits, etc., i.e.
#specifically characters used in Thai words
    return join "\n",
         '0E01', '0E02', '0E03', '0E04', '0E05', '0E06', '0E07',
 '0E08', '0E09', '0E0A', '0E0B', '0E0C', '0E0D', '0E0E', '0E0F',
 '0E10', '0E11', '0E12', '0E13', '0E14', '0E15', '0E16', '0E17',
 '0E18', '0E19', '0E1A', '0E1B', '0E1C', '0E1D', '0E1E', '0E1F',
 '0E20', '0E21', '0E22', '0E23', '0E24', '0E25', '0E26', '0E27',
 '0E28', '0E29', '0E2A', '0E2B', '0E2C', '0E2D', '0E2E', '0E30',
 '0E31', '0E32', '0E33', '0E34', '0E35', '0E36', '0E37', '0E38',
 '0E39', '0E3A', '0E40', '0E41', '0E42', '0E43', '0E44', '0E45',
 '0E47', '0E48', '0E49', '0E4A', '0E4B', '0E4C', '0E4D', '0E4E',
}

sub IsThaiTone { #THAI TONE MARKS
# ่ ้ ๊ ๋
    return join "\n",
 '0E48', '0E49', '0E4A', '0E4B',
}

sub IsThaiMute { #THAI MUTE CHARACTER (THANTHAKHAT/GARAN)
#A special tone mark which silences consonants: ์
    return join "\n",
 '0E4C',
}

sub IsThaiPunct { #THAI PUNCTUATION
# ฯ ๆ ๏ ๚ ๛
    return join "\n",
 '0E2F', '0E46', '0E4F', '0E5A', '0E5B',
}

sub IsThaiCurrency { #BAHT SIGN
# ฿
    return join "\n",
 '0E3F',
}

sub IsThaiDigit { #THAI DIGITS
# ๐ ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙
    return join "\n",
 '0E50', '0E51', '0E52', '0E53', '0E54',
 '0E55', '0E56', '0E57', '0E58', '0E59',
}

sub IsThaiVowel { #THAI VOWELS
#NOTE: 0E4D combines with a consonant but may not be considered a vowel
#      0E47 looks/acts like a tone mark, but is actually a form of sara-a
#      which is used in place of sara-a (0E30) when the syllable terminates
#      in a consonant
# ย ฤ ฦ ว อ ะ ั า ํา ิ ี ึ ื ุ ู ฺ เ แ โ ใ ไ ๅ ็ ํ
    return join "\n",
 '0E22', '0E24', '0E26', '0E27', '0E2D', '0E30', '0E31', '0E32',
 '0E33', '0E34', '0E35', '0E36', '0E37', '0E38', '0E39', '0E3A',
 '0E40', '0E41', '0E42', '0E43', '0E44', '0E45', '0E47', '0E4D',
}

sub IsThaiCompVowel { #VOWELS COMPOSITED/COMPILED VERTICALLY WITH CONSONANT
#NOTE: 0E4D combines with a consonant but may not be considered a vowel
#NOTE: 0E33 is a partially-combining vowel but also occupies its own space
# ั  ิ ี ึ ื ุ  ู  ็ ํ
    return join "\n",
 '0E31', '0E34', '0E35', '0E36', '0E37', '0E38', '0E39', '0E3A',
 '0E47', '0E4D',
}

sub IsThaiPreVowel { #VOWELS PRECEDING CONSONANT
# เ แ โ ใ ไ
    return join "\n",
 '0E40', '0E41', '0E42', '0E43', '0E44',
}

sub IsThaiPostVowel { #VOWELS AFTER CONSONANT
#NOTE: Consonants which act as vowels also appear after their
#      consonants but are not included here.
#NOTE: Thais consider 0E33 to be only a vowel, so it is included
#      here, but it is actually a vowel-consonant combination,
#      phonetically, finishing with the "m" sound.
# ะ า ํา ๅ
    return join "\n",
 '0E30', '0E32', '0E33', '0E45',
}

#--------------------------------------------------------------
#	Alias the "In..." forms (same as above)
#--------------------------------------------------------------

sub InThai          { &IsThai          }
sub InThaiCons      { &IsThaiCons      }
sub InThaiHCons     { &IsThaiHCons     }
sub InThaiMCons     { &IsThaiMCons     }
sub InThaiLCons     { &IsThaiLCons     }
sub InThaiFinCons   { &IsThaiFinCons   }
sub InThaiDualCons  { &IsThaiDualCons  }
sub InThaiDualC1    { &IsThaiDualC1    }
sub InThaiDualC2    { &IsThaiDualC2    }
sub InThaiConsVowel { &IsThaiConsVowel }
sub InThaiAlpha     { &IsThaiAlpha     }
sub InThaiWord      { &IsThaiWord      }
sub InThaiTone      { &IsThaiTone      }
sub InThaiMute      { &IsThaiMute      }
sub InThaiPunct     { &IsThaiPunct     }
sub InThaiCurrency  { &IsThaiCurrency  }
sub InThaiDigit     { &IsThaiDigit     }
sub InThaiVowel     { &IsThaiVowel     }
sub InThaiCompVowel { &IsThaiCompVowel }
sub InThaiPreVowel  { &IsThaiPreVowel  }
sub InThaiPostVowel { &IsThaiPostVowel }


#--------------------------------------------------------------
#	Provide spelled-out forms of the individual characters
#--------------------------------------------------------------
sub IsKokai          { return '0E01' }     # ก - THAI CHARACTER KO KAI
sub IsKhokhai        { return '0E02' }     # ข - THAI CHARACTER KHO KHAI
sub IsKhokhuat       { return '0E03' }     # ฃ - THAI CHARACTER KHO KHUAT
sub IsKhokhwai       { return '0E04' }     # ค - THAI CHARACTER KHO KHWAI
sub IsKhokhon        { return '0E05' }     # ฅ - THAI CHARACTER KHO KHON
sub IsKhorakhang     { return '0E06' }     # ฆ - THAI CHARACTER KHO RAKHANG
sub IsNgongu         { return '0E07' }     # ง - THAI CHARACTER NGO NGU
sub IsChochan        { return '0E08' }     # จ - THAI CHARACTER CHO CHAN
sub IsChoching       { return '0E09' }     # ฉ - THAI CHARACTER CHO CHING
sub IsChochang       { return '0E0A' }     # ช - THAI CHARACTER CHO CHANG
sub IsSoso           { return '0E0B' }     # ซ - THAI CHARACTER SO SO
sub IsShochoe        { return '0E0C' }     # ฌ - THAI CHARACTER CHO CHOE
sub IsYoying         { return '0E0D' }     # ญ - THAI CHARACTER YO YING
sub IsDochada        { return '0E0E' }     # ฎ - THAI CHARACTER DO CHADA
sub IsTopatak        { return '0E0F' }     # ฏ - THAI CHARACTER TO PATAK
sub IsThothan        { return '0E10' }     # ฐ - THAI CHARACTER THO THAN
sub IsThonangmontho  { return '0E11' }     # ฑ - THAI CHARACTER THO NANGMONTHO
sub IsThophuthao     { return '0E12' }     # ฒ - THAI CHARACTER THO PHUTHAO
sub IsNonen          { return '0E13' }     # ณ - THAI CHARACTER NO NEN
sub IsDodek          { return '0E14' }     # ด - THAI CHARACTER DO DEK
sub IsTotao          { return '0E15' }     # ต - THAI CHARACTER TO TAO
sub IsThothung       { return '0E16' }     # ถ - THAI CHARACTER THO THUNG
sub IsThothahan      { return '0E17' }     # ท - THAI CHARACTER THO THAHAN
sub IsThothong       { return '0E18' }     # ธ - THAI CHARACTER THO THONG
sub IsNonu           { return '0E19' }     # น - THAI CHARACTER NO NU
sub IsBobaimai       { return '0E1A' }     # บ - THAI CHARACTER BO BAIMAI
sub IsPopla          { return '0E1B' }     # ป - THAI CHARACTER PO PLA
sub IsPhophung       { return '0E1C' }     # ผ - THAI CHARACTER PHO PHUNG
sub IsFofa           { return '0E1D' }     # ฝ - THAI CHARACTER FO FA
sub IsPhophan        { return '0E1E' }     # พ - THAI CHARACTER PHO PHAN
sub IsFofan          { return '0E1F' }     # ฟ - THAI CHARACTER FO FAN
sub IsPhosamphao     { return '0E20' }     # ภ - THAI CHARACTER PHO SAMPHAO
sub IsMoma           { return '0E21' }     # ม - THAI CHARACTER MO MA
sub IsYoyak          { return '0E22' }     # ย - THAI CHARACTER YO YAK
sub IsRorua          { return '0E23' }     # ร - THAI CHARACTER RO RUA
sub IsRu             { return '0E24' }     # ฤ - THAI CHARACTER RU
sub IsLoling         { return '0E25' }     # ล - THAI CHARACTER LO LING
sub IsLu             { return '0E26' }     # ฦ - THAI CHARACTER LU
sub IsWowaen         { return '0E27' }     # ว - THAI CHARACTER WO WAEN
sub IsSosala         { return '0E28' }     # ศ - THAI CHARACTER SO SALA
sub IsSorusi         { return '0E29' }     # ษ - THAI CHARACTER SO RUSI
sub IsSosua          { return '0E2A' }     # ส - THAI CHARACTER SO SUA
sub IsHohip          { return '0E2B' }     # ห - THAI CHARACTER HO HIP
sub IsLochula        { return '0E2C' }     # ฬ - THAI CHARACTER LO CHULA
sub IsOang           { return '0E2D' }     # อ - THAI CHARACTER O ANG
sub IsHonokhuk       { return '0E2E' }     # ฮ - THAI CHARACTER HO NOKHUK
sub IsPaiyannoi      { return '0E2F' }     # ฯ - THAI CHARACTER PAIYANNOI
sub IsSaraa          { return '0E30' }     # ะ - THAI CHARACTER SARA A
sub IsMaihanakat     { return '0E31' }     #  ั - THAI CHARACTER MAI HAN-AKAT
sub IsSaraaa         { return '0E32' }     # า - THAI CHARACTER SARA AA
sub IsSaraam         { return '0E33' }     # ำ - THAI CHARACTER SARA AM
sub IsSarai          { return '0E34' }     #  ิ - THAI CHARACTER SARA I
sub IsSaraii         { return '0E35' }     #  ี - THAI CHARACTER SARA II
sub IsSaraue         { return '0E36' }     #  ึ - THAI CHARACTER SARA UE
sub IsSarauee        { return '0E37' }     #  ื - THAI CHARACTER SARA UEE
sub IsSarau          { return '0E38' }     #  ุ - THAI CHARACTER SARA U
sub IsSarauu         { return '0E39' }     #  ู - THAI CHARACTER SARA UU
sub IsPhinthu        { return '0E3A' }     #  ฺ - THAI CHARACTER PHINTHU
sub IsBaht           { return '0E3F' }     # ฿ - THAI CURRENCY SYMBOL BAHT
sub IsSarae          { return '0E40' }     # เ - THAI CHARACTER SARA E
sub IsSaraae         { return '0E41' }     # แ - THAI CHARACTER SARA AE
sub IsSarao          { return '0E42' }     # โ - THAI CHARACTER SARA O
sub IsSaraaimaimuan  { return '0E43' }     # ใ - THAI CHARACTER SARA AI MAIMUAN
sub IsSaraaimaimalai { return '0E44' }     # ไ - THAI CHARACTER SARA AI MAIMALAI
sub IsLakkhangyao    { return '0E45' }     # ๅ - THAI CHARACTER LAKKHANGYAO
sub IsMaiyamok       { return '0E46' }     # ๆ - THAI CHARACTER MAIYAMOK
sub IsMaitaikhu      { return '0E47' }     #  ็ - THAI CHARACTER MAITAIKHU
sub IsMaiek          { return '0E48' }     #  ่ - THAI CHARACTER MAI EK
sub IsMaitho         { return '0E49' }     #  ้ - THAI CHARACTER MAI THO
sub IsMaitri         { return '0E4A' }     #  ๊ - THAI CHARACTER MAI TRI
sub IsMaichattawa    { return '0E4B' }     #  ๋ - THAI CHARACTER MAI CHATTAWA
sub IsThanthakhat    { return '0E4C' }     #  ์ - THAI CHARACTER THANTHAKHAT/GARAN
sub IsGaran          { return '0E4C' }     #  ์ - THAI CHARACTER THANTHAKHAT/GARAN
sub IsNikhahit       { return '0E4D' }     #  ํ - THAI CHARACTER NIKHAHIT
sub IsYamakkan       { return '0E4E' }     #  ๎ - THAI CHARACTER YAMAKKAN
sub IsFongman        { return '0E4F' }     # ๏ - THAI CHARACTER FONGMAN
sub IsThZero         { return '0E50' }     # ๐ - THAI DIGIT ZERO
sub IsThOne          { return '0E51' }     # ๑ - THAI DIGIT ONE
sub IsThTwo          { return '0E52' }     # ๒ - THAI DIGIT TWO
sub IsThThree        { return '0E53' }     # ๓ - THAI DIGIT THREE
sub IsThFour         { return '0E54' }     # ๔ - THAI DIGIT FOUR
sub IsThFive         { return '0E55' }     # ๕ - THAI DIGIT FIVE
sub IsThSix          { return '0E56' }     # ๖ - THAI DIGIT SIX
sub IsThSeven        { return '0E57' }     # ๗ - THAI DIGIT SEVEN
sub IsThEight        { return '0E58' }     # ๘ - THAI DIGIT EIGHT
sub IsThNine         { return '0E59' }     # ๙ - THAI DIGIT NINE
sub IsAngkhankhu     { return '0E5A' }     # ๚ - THAI CHARACTER ANGKHANKHU
sub IsKhomut         { return '0E5B' }     # ๛ - THAI CHARACTER KHOMUT

#--------------------------------------------------------------
#	Alias the spelled-out individual characters
#--------------------------------------------------------------

sub InKokai          { &IsKokai          }
sub InKhokhai        { &IsKhokhai        }
sub InKhokhuat       { &IsKhokhuat       }
sub InKhokhwai       { &IsKhokhwai       }
sub InKhokhon        { &IsKhokhon        }
sub InKhorakhang     { &IsKhorakhang     }
sub InNgongu         { &IsNgongu         }
sub InChochan        { &IsChochan        }
sub InChoching       { &IsChoching       }
sub InChochang       { &IsChochang       }
sub InSoso           { &IsSoso           }
sub InShochoe        { &IsShochoe        }
sub InYoying         { &IsYoying         }
sub InDochada        { &IsDochada        }
sub InTopatak        { &IsTopatak        }
sub InThothan        { &IsThothan        }
sub InThonangmontho  { &IsThonangmontho  }
sub InThophuthao     { &IsThophuthao     }
sub InNonen          { &IsNonen          }
sub InDodek          { &IsDodek          }
sub InTotao          { &IsTotao          }
sub InThothung       { &IsThothung       }
sub InThothahan      { &IsThothahan      }
sub InThothong       { &IsThothong       }
sub InNonu           { &IsNonu           }
sub InBobaimai       { &IsBobaimai       }
sub InPopla          { &IsPopla          }
sub InPhophung       { &IsPhophung       }
sub InFofa           { &IsFofa           }
sub InPhophan        { &IsPhophan        }
sub InFofan          { &IsFofan          }
sub InPhosamphao     { &IsPhosamphao     }
sub InMoma           { &IsMoma           }
sub InYoyak          { &IsYoyak          }
sub InRorua          { &IsRorua          }
sub InRu             { &IsRu             }
sub InLoling         { &IsLoling         }
sub InLu             { &IsLu             }
sub InWowaen         { &IsWowaen         }
sub InSosala         { &IsSosala         }
sub InSorusi         { &IsSorusi         }
sub InSosua          { &IsSosua          }
sub InHohip          { &IsHohip          }
sub InLochula        { &IsLochula        }
sub InOang           { &IsOang           }
sub InHonokhuk       { &IsHonokhuk       }
sub InPaiyannoi      { &IsPaiyannoi      }
sub InSaraa          { &IsSaraa          }
sub InMaihanakat     { &IsMaihanakat     }
sub InSaraaa         { &IsSaraaa         }
sub InSaraam         { &IsSaraam         }
sub InSarai          { &IsSarai          }
sub InSaraii         { &IsSaraii         }
sub InSaraue         { &IsSaraue         }
sub InSarauee        { &IsSarauee        }
sub InSarau          { &IsSarau          }
sub InSarauu         { &IsSarauu         }
sub InPhinthu        { &IsPhinthu        }
sub InBaht           { &IsBaht           }
sub InSarae          { &IsSarae          }
sub InSaraae         { &IsSaraae         }
sub InSarao          { &IsSarao          }
sub InSaraaimaimuan  { &IsSaraaimaimuan  }
sub InSaraaimaimalai { &IsSaraaimaimalai }
sub InLakkhangyao    { &IsLakkhangyao    }
sub InMaiyamok       { &IsMaiyamok       }
sub InMaitaikhu      { &IsMaitaikhu      }
sub InMaiek          { &IsMaiek          }
sub InMaitho         { &IsMaitho         }
sub InMaitri         { &IsMaitri         }
sub InMaichattawa    { &IsMaichattawa    }
sub InThanthakhat    { &IsThanthakhat    }
sub InGaran          { &IsGaran          }
sub InNikhahit       { &IsNikhahit       }
sub InYamakkan       { &IsYamakkan       }
sub InFongman        { &IsFongman        }
sub InThZero         { &IsThZero         }
sub InThOne          { &IsThOne          }
sub InThTwo          { &IsThTwo          }
sub InThThree        { &IsThThree        }
sub InThFour         { &IsThFour         }
sub InThFive         { &IsThFive         }
sub InThSix          { &IsThSix          }
sub InThSeven        { &IsThSeven        }
sub InThEight        { &IsThEight        }
sub InThNine         { &IsThNine         }
sub InAngkhankhu     { &IsAngkhankhu     }
sub InKhomut         { &IsKhomut         }




1;

__END__