From afd6b8fc9ecfddde91dde0dc8954b079beccbc5a Mon Sep 17 00:00:00 2001
From: Andrey Chernykh <andrei.chernykh@gmail.com>
Date: Thu, 23 Nov 2023 14:15:41 +0100
Subject: [PATCH] [cp869] euro sign support is added

---
 mappings/MICSFT/PC/CP869.TXT | 4 ++--
 src/cp869.erl                | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/mappings/MICSFT/PC/CP869.TXT b/mappings/MICSFT/PC/CP869.TXT
index 3cd3f77..0cc5a2f 100644
--- a/mappings/MICSFT/PC/CP869.TXT
+++ b/mappings/MICSFT/PC/CP869.TXT
@@ -5,7 +5,7 @@
 #    Table format:  Format A
 #    Date:          04/24/96
 #    Contact: Shawn.Steele@microsoft.com
-#                   
+#
 #    General notes: none
 #
 #    Format: Three tab-separated columns
@@ -150,7 +150,7 @@
 0x84		#UNDEFINED
 0x85		#UNDEFINED
 0x86	0x0386	#GREEK CAPITAL LETTER ALPHA WITH TONOS
-0x87		#UNDEFINED
+0x87  0x20ac  #EURO SIGN
 0x88	0x00b7	#MIDDLE DOT
 0x89	0x00ac	#NOT SIGN
 0x8a	0x00a6	#BROKEN BAR
diff --git a/src/cp869.erl b/src/cp869.erl
index 3407f75..789bcc3 100644
--- a/src/cp869.erl
+++ b/src/cp869.erl
@@ -6,6 +6,7 @@
 
 %% Public functions
 to_unicode(16#86) -> 16#0386;
+to_unicode(16#87) -> 16#20ac;
 to_unicode(16#88) -> 16#00b7;
 to_unicode(16#89) -> 16#00ac;
 to_unicode(16#8a) -> 16#00a6;
@@ -129,6 +130,7 @@ to_unicode(Bin) when is_binary(Bin) -> bin_to_unicode(Bin, <<>>);
 to_unicode(Other) -> Other.
 
 from_unicode(16#0386) -> 16#86;
+from_unicode(16#20ac) -> 16#87;
 from_unicode(16#00b7) -> 16#88;
 from_unicode(16#00ac) -> 16#89;
 from_unicode(16#00a6) -> 16#8a;