From bf58fc823d4d25c75c028a7ff225513721c4d824 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Jul 2015 13:55:06 +0200
Subject: [PATCH] latin: code39 bar code row (unicode)

Use U+200A hair space, U+2758 light bar, and U+2759 medium bar
to represent 3 widths of 6 columns (restricted to 2 wide and 3 narrow bars
(2 nCr 5 = 10) with 1 dividing space (4 positions) for 40 characters).
---
 latin.plp           | 1 +
 writing-latn.inc.pl | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/latin.plp b/latin.plp
index e6ef7a2..c930dce 100644
--- a/latin.plp
+++ b/latin.plp
@@ -51,6 +51,7 @@ my %scriptname = (
 	taps     => 'Tap simplified',
 	ics      => 'Maritime flags', # International Code of Signals
 	sem      => 'Flag semaphore',
+	code39   => 'Code 39', # ISO/IEC 16388
 	rm4scc   => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
 );
 
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 70a479a..eebe155 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,6 +148,11 @@ sem => [
 		24 25 26 27 34  35 47 56 57 36  67
 	)
 ],
+code39 => [map { tr/012/ ❘❙/r } qw{
+	211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
+	211102 121102 221101 112102 212101 122101 111202 211201 121201 112201
+	201112 102112 202111 101212 201211 102211
+}],
 rm4scc => [
 	map { sprintf
 		'<svg width="20" height="20" viewBox="0 0 8 6">'
-- 
2.30.0