mirror of
https://github.com/bqv/weechat-xmpp/
synced 2024-11-16 06:13:02 +00:00
81 lines
2.3 KiB
Perl
81 lines
2.3 KiB
Perl
#!/usr/bin/perl -l
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use LWP::Simple;
|
|
use Data::Dumper;
|
|
use JSON qw (decode_json);
|
|
use List::Util qw (max);
|
|
|
|
our ($json, @array);
|
|
|
|
$json = get('https://raw.githubusercontent.com/iamcal/emoji-data/master/emoji.json');
|
|
@array = @{ decode_json($json) };
|
|
|
|
my $maxtexts = max (map { 1 + @{$_} } (grep defined, map { $_->{'texts'} } @array));
|
|
my $maxnames = max (map { 1 + @{$_} } (grep defined, map { $_->{'short_names'} } @array));
|
|
|
|
print "
|
|
#include <stdlib.h>
|
|
|
|
#define MAX_TEXTS $maxtexts
|
|
#define MAX_NAMES $maxnames
|
|
|
|
struct t_slack_emoji_by_name {
|
|
const char *name;
|
|
const char *unicode;
|
|
const char *text_to;
|
|
const char *text_from[MAX_TEXTS];
|
|
};
|
|
|
|
struct t_slack_emoji_by_text {
|
|
const char *text;
|
|
const char *unicode;
|
|
const char *name_to;
|
|
const char *name_from[MAX_NAMES];
|
|
};
|
|
";
|
|
|
|
print "static struct t_slack_emoji_by_name slack_emoji_by_name[] =";
|
|
my $c = '{';
|
|
my %byname = map { my $o = $_; map {($_, $o)} @{$o->{'short_names'}} } @array;
|
|
my @sortedbyname = sort { $a cmp $b } keys %byname;
|
|
foreach my $name (@sortedbyname)
|
|
{
|
|
my $_0 = "\"$name\"";
|
|
my @_1 = split /-/, $byname{$name}->{'unified'};
|
|
my $_1 = "\"";
|
|
foreach my $codepoint (@_1) { $_1 .= "\\u$codepoint" };
|
|
$_1 .= "\"";
|
|
my $_2 = $byname{$name}->{'text'};
|
|
if (defined $_2) { $_2 = "\"$_2\"" } else { $_2 = "NULL" };
|
|
my $_3 = "{";
|
|
foreach my $text (@{$byname{$name}->{'texts'}}) { if (defined $text) { $_3 .= "\"$text\", " } };
|
|
$_3 .= "NULL}";
|
|
print "$c { $_0, $_1, $_2, $_3 }";
|
|
$c = ',';
|
|
}
|
|
print "};";
|
|
print "";
|
|
print "static struct t_slack_emoji_by_text slack_emoji_by_text[] =";
|
|
$c = '{';
|
|
my %bytext = map { my $o = $_; map {($_, $o)} @{$o->{'texts'}} } @array;
|
|
my @sortedbytext = sort { $a cmp $b } keys %bytext;
|
|
foreach my $text (@sortedbytext)
|
|
{
|
|
my $_0 = "\"$text\"";
|
|
my @_1 = split /-/, $bytext{$text}->{'unified'};
|
|
my $_1 = "\"";
|
|
foreach my $codepoint (@_1) { $_1 .= "\\u$codepoint" };
|
|
$_1 .= "\"";
|
|
my $_2 = $bytext{$text}->{'short_name'};
|
|
if (defined $_2) { $_2 = "\"$_2\"" } else { $_2 = "NULL" };
|
|
my $_3 = "{";
|
|
foreach my $name (@{$bytext{$text}->{'short_names'}}) { if (defined $name) { $_3 .= "\"$name\", " } };
|
|
$_3 .= "NULL}";
|
|
print "$c { $_0, $_1, $_2, $_3 }";
|
|
$c = ',';
|
|
}
|
|
print "};";
|