summaryrefslogtreecommitdiff
path: root/scripts/lskeys.pl
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);