charset: persistent data of unicode cell include

[sheet.git] / charset-encoding.inc.pl

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index b40d75a2661871ff776613da8a82115e742a4d15..6e4647780af002ea8992d4ae4c805894adf9c974 100644 (file)
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -133,6 +133,7 @@ use utf8;
        'maccyrillic'  => {inherit => ['MacRoman' => '80']},
        'machebrew'    => {
                inherit => ['iso-8859-8' => '80', 'MacRoman' => '80-8F+A0'], # ignore partial ascii
        'maccyrillic'  => {inherit => ['MacRoman' => '80']},
        'machebrew'    => {
                inherit => ['iso-8859-8' => '80', 'MacRoman' => '80-8F+A0'], # ignore partial ascii

+               varchar => 1,

                replace => {
                        # strip private use characters for unneeded roundtrip
                        0xDE => chr(0x5C7), # qamats qatan
                replace => {
                        # strip private use characters for unneeded roundtrip
                        0xDE => chr(0x5C7), # qamats qatan


@@ -144,6 +145,7 @@ use utf8;
        'macfarsi'     => {inherit => ['MacArabic' => 'B0-BF', 'MacRoman' => '80']},
        'macthai'      => {
                inherit => ['iso-8859-11' => '80-9F+D0'],
        'macfarsi'     => {inherit => ['MacArabic' => 'B0-BF', 'MacRoman' => '80']},
        'macthai'      => {
                inherit => ['iso-8859-11' => '80-9F+D0'],

+               varchar => 1,

                replace => {
                        # strip appended private use characters for unneeded roundtrip
                        0x83 => "\x{E48}", 0x88 => "\x{E48}", 0x98 => "\x{E48}",
                replace => {
                        # strip appended private use characters for unneeded roundtrip
                        0x83 => "\x{E48}", 0x88 => "\x{E48}", 0x98 => "\x{E48}",


@@ -186,8 +188,9 @@ use utf8;
        }},
        u              => {setup => sub {
                my $row = shift;
        }},
        u              => {setup => sub {
                my $row = shift;

-               $row->{cell} = do 'charset-unicode.inc.pl'
+               state $celldata = do 'charset-unicode.inc.pl'

                        or Alert('Table data could not be read', $@ || $!);
                        or Alert('Table data could not be read', $@ || $!);

+               $row->{cell} = $celldata;

 
                $row->{endpoint} ||= 0x1FFF;
                $row->{set} = 'Unicode ' . (
 
                $row->{endpoint} ||= 0x1FFF;
                $row->{set} = 'Unicode ' . (