diff options
author | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2021-04-21 14:06:38 +0100 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2021-04-21 14:06:38 +0100 |
commit | e4290719f5e0db60fb0f70d1872dd37c973dbed8 (patch) | |
tree | 2d55ad46548f79cb72bb7d3f389639930134ce6f /baserefresh.pl | |
parent | Merge remote-tracking branch 'upstream/master' (diff) | |
parent | Merge branch 'emacsmode' (diff) | |
download | dotXCompose-e4290719f5e0db60fb0f70d1872dd37c973dbed8.tar.gz dotXCompose-e4290719f5e0db60fb0f70d1872dd37c973dbed8.tar.bz2 dotXCompose-e4290719f5e0db60fb0f70d1872dd37c973dbed8.zip |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'baserefresh.pl')
-rw-r--r-- | baserefresh.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/baserefresh.pl b/baserefresh.pl new file mode 100644 index 0000000..f684569 --- /dev/null +++ b/baserefresh.pl @@ -0,0 +1,27 @@ +#!/usr/bin/perl -n +my $last; + +# The whole "base" file format took shape kind of sloppily, just getting a +# list of likely-looking characters and all, which is why it's sort of a +# mess. It also didn't really have good ways of updating it with new +# emoji. This file is _part_ of such a solution: it takes in a "base" file +# and adds the "<MM>" line after just those "#-" lines which are not +# followed by a line that starts with "##" or with NO #-signs. + +BEGIN {binmode(STDOUT, ":utf8"); + binmode(STDIN, ":utf8"); +} + +while (/^#- /) { + $last = $_; + print; + $_ = <>; + if (/^[^#]/ or /^##/) { + last; + } + $last = substr($last, 3); + @_ = split /;/, $last; + printf qq(<MM> \{%s\} : "%s" U%s\t# %s\n), lc($_[1]),chr(hex($_[0])), $_[0], $_[1]; +} +print; + |