extracted all signals from irssi codebase, uniqed and sorted: complete-signal-list.txt

1 files changed, 24 insertions, 0 deletions

diff --git a/docs/sigextract.pl b/docs/sigextract.pl
new file mode 100755
index 0000000..cc6f8bb
--- /dev/null
+++ b/docs/sigextract.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my $file = shift // 'allsigs.txt';
+
+open my $fh, $file or die "couldn't open $file: $!";
+my $sigs = {};
+
+while (my $line = <$fh>) {
+    chomp $line;
+    if ($line =~ m/"(\w+(?:\s+\w+)*)"/) {
+        #print "Found signal: $1\n";
+        $sigs->{$1}++;
+    }
+}
+
+close $fh;
+
+my @signals = keys %$sigs;
+
+print join("\n", sort @signals);
+print "\n";