Mini Shell

#-*- perl -*-

package Unicode::LineBreak;

use constant { M => 4, D => 3, I => 2, P => 1,};
use constant { MANDATORY => M, DIRECT => D, INDIRECT => I, PROHIBITED => P,
               URGENT => 200,};

use constant { ALLOW_BEFORE => 2, PROHIBIT_BEFORE => 1,
               BREAK_BEFORE => 2, # deprecated.
               FLAGS => (2 | 1) };

use constant {
    AMBIGUOUS_CYRILLIC => [0x0401, 0x0410..0x044F, 0x0451, ],
    AMBIGUOUS_GREEK => [0x0391..0x03A9, 0x03B1..0x03C1, 0x03C3..0x03C9, ],
    AMBIGUOUS_LATIN => [0x00C6, 0x00D0, 0x00D8, 0x00DE, 0x00DF, 0x00E0, 
        0x00E1, 0x00E6, 0x00E8, 0x00E9, 0x00EA, 0x00EC, 0x00ED, 0x00F0, 
        0x00F2, 0x00F3, 0x00F8, 0x00F9, 0x00FA, 0x00FC, 0x00FE, 0x0101, 
        0x0111, 0x0113, 0x011B, 0x0126, 0x0127, 0x012B, 0x0131, 0x0132, 
        0x0133, 0x0138, 0x013F, 0x0140, 0x0141, 0x0142, 0x0144, 0x0148, 
        0x0149, 0x014A, 0x014B, 0x014D, 0x0152, 0x0153, 0x0166, 0x0167, 
        0x016B, 0x01CE, 0x01D0, 0x01D2, 0x01D4, 0x01D6, 0x01D8, 0x01DA, 
        0x01DC, 0x0251, 0x0261, ],
    IDEOGRAPHIC_ITERATION_MARKS => [0x3005, 0x303B, 0x309D, 0x309E, 0x30FD, 
        0x30FE, ],
    KANA_PROLONGED_SOUND_MARKS => [0x30FC, 0xFF70, ],
    KANA_SMALL_LETTERS => [0x3041, 0x3043, 0x3045, 0x3047, 0x3049, 0x3063, 
        0x3083, 0x3085, 0x3087, 0x308E, 
        0x3095, 0x3096, 
        0x30A1, 0x30A3, 0x30A5, 0x30A7, 0x30A9, 0x30C3, 
        0x30E3, 0x30E5, 0x30E7, 0x30EE, 
        0x30F5, 0x30F6, 
        0x31F0..0x31FF, 0xFF67..0xFF6F, ],
    MASU_MARK => [0x303C, ],
    QUESTIONABLE_NARROW_SIGNS => [0x00A2, 0x00A3, 0x00A5, 0x00A6, 0x00AC, 
        0x00AF, ],
};
use constant {
    AMBIGUOUS_ALPHABETICS => [
        @{AMBIGUOUS_CYRILLIC()}, @{AMBIGUOUS_GREEK()},
        @{AMBIGUOUS_LATIN()}, ],
    KANA_NONSTARTERS => [
        @{IDEOGRAPHIC_ITERATION_MARKS()}, @{KANA_PROLONGED_SOUND_MARKS()},
        @{KANA_SMALL_LETTERS()}, @{MASU_MARK()}, ]
};
use constant {
    BACKWORD_GUILLEMETS => [
        0x00AB, 0x2039, ],
    FORWARD_GUILLEMETS => [
        0x00BB, 0x203A, ],
    BACKWORD_QUOTES => [
        0x2018, 0x201C, ],
    FORWARD_QUOTES => [
        0x2019, 0x201D, ],
};
# obsoleted names.
use constant {
    LEFT_GUILLEMETS => BACKWORD_GUILLEMETS(),
    RIGHT_GUILLEMETS => FORWARD_GUILLEMETS(),
    LEFT_QUOTES => BACKWORD_QUOTES(),
    RIGHT_QUOTES => FORWARD_QUOTES(),
};

use constant {
    IDEOGRAPHIC_SPACE => [ 0x3000, ],
};

1;