From 985c78396272e460deb52c8729bd57a5706e404e Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Thu, 17 Mar 2016 21:21:56 -0400
Subject: Add some missed emoji, add conventions to interim, add sorter, add
 emoji.compose, even though it's derived.

---
 sort-interim.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 sort-interim.pl

(limited to 'sort-interim.pl')

diff --git a/sort-interim.pl b/sort-interim.pl
new file mode 100755
index 0000000..2bd2a31
--- /dev/null
+++ b/sort-interim.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+
+my $this;
+my %elts;
+
+sub process {
+    my $data = shift;
+    my $key;
+
+    $data =~ m@\s+(U[[:xdigit:]]+)\s+@;
+    $key=$1;
+    if ($elts{$key}) {
+	print STDERR "Warning: key $key found more than once.\n";
+    }
+    $elts{$key}=$data;
+}
+
+while (<>) {
+    if (/(?:###\+)?<MM>/) {
+	while (/(?:###\+)?<MM>/) {
+	    $this .= $_;
+	    $_ = <>;
+	}
+	process $this;
+	$this='';
+    }
+    $this .= $_;
+}
+
+for $k (sort keys %elts) {
+    print $elts{$k};
+}
-- 
cgit v1.2.3