#!/usr/bin/env perl

use File::Find;
use File::Basename qw/dirname/;
use 5.012;

my %all;
my $sourceDir = dirname(dirname($0)) . '/src/contents/ui';

sub processFile
{
    if (!/(\.qml|\.js)$/) {
        return;
    }
    open my $fh, '<', $_ or die "Cannot open $_: $!\n";
    while (<$fh>) {
        if (!/(icon\.name|iconName):/) {
            next;
        }
        chomp;
        s/.+?://;
        while (my $i = /("[^"]+"|'[^']+')/g) {
            my $name = substr $1, 1, -1;
            $all{$name} = 1;
        }
    }
    close $fh;
}

find(\&processFile, $sourceDir);

print "$_;" for sort keys %all;
