diff options
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; + |