X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/38c0f94fbc07d23581704b72a7e6d3cbe4dfa96c..1b2d8f7fa043a5fe5887153533c49acdc218c5e3:/charset-encoding.inc.pl

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index b534510..f4a9f26 100644
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -218,7 +218,7 @@ use utf8;
 	'cp1026'       => {inherit => ['cp37' => '40']},
 	'cp875'        => {inherit => ['cp37' => '30']},
 
-	legacy     => [qw( cp437 ATASCII PETSCII MSX ZX-Spectrum )],
+	legacy     => [qw( cp437 ATASCII PETSCII MSX ZX-Spectrum ANSEL )],
 	'petscii'      => {inherit => ['' => '40-7F+A0-BF'], setup => sub {
 		$_[0]->{table} = [(map {chr} 0 .. 0x3F), qw(
 			@ a b c d e f g h i j k l m n o p q r s t u v w x y z [ £ ] ↑ ←
@@ -262,6 +262,36 @@ use utf8;
 			0xF7 => 'œ',
 		},
 	},
+	'ansel'        => {
+		note => '+GEDCOM',
+		inherit => ['' => 'A0-CF+E0-FE'],
+		setup => sub {
+			$_[0]->{table} = [
+				(undef) x 0xA0,
+				undef, qw( Ł Ø Đ Þ Æ Œ ʹ · ♭ ®    ±          Ơ Ư ʾ ), undef,
+				qw( ʿ      ł ø đ þ æ œ ʺ ı £ ð ), undef, qw( ơ ư ), undef, undef,
+				qw( °      ℓ ℗ © ♯ ¿ ¡ ), (undef) x 0x19,
+				(map {$_ && chr}
+					0x309, 0x300, 0x0301, 0x0302, 0x0303, 0x304, 0x306, 0x307,
+					0x308, 0x30C, 0x030A, 0xFE20, 0xFE21, 0x315, 0x30B, 0x310,
+					0x327, 0x328, 0x0323, 0x0324, 0x0325, 0x333, 0x332, 0x326,
+					0x31C, 0x32E, 0xFE22, 0xFE23, undef,  undef, 0x313, undef,
+				),
+			];
+		},
+		replace => {
+			# GEDCOM extensions
+			0xBE => '□',
+			0xBF => '■',
+			0xCD => 'e', # endowment?
+			0xCE => 'o', # ordinance?
+			0xCF => 'ß',
+			0xFC => "\x{338}",
+			# MARC21 extensions
+			0xC7 => 'ß',
+			0xC8 => '€',
+		},
+	},
 
 	''             => {setup => sub {
 		my $row = shift;