blob: 530e38d761d21641b7a816cc42e607389f03ee6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use autodie;
my @keys;
open(my $fh, '<', 'src/keyevents.c');
while (my $line = <$fh>) {
chomp($line);
if ($line =~ qr{
if \s \( \! strcmp \( action , \s " (?<key> [^"]+ ) " \)\) }x) {
push(@keys, $+{key});
}
}
close($fh);
say join("\n", sort @keys);
|
