#!/usr/bin/perl

# gathered from meson introspect --targets
my @domains = qw(gnome-control-center-po help-gnome-control-center-po some-other-domain-po);

# passed in on the commandline
my @ignores = qw(some-other-domain-po);

# from meson introspect --projectinfo, another domain to ignore
my $help_domain = "help-gnome-control-center-po";
push @ignores, $help_domain;

# calculate @domains - @ignores
my %h_ignores = map { $_ => 1 } @ignores;
@domains = grep { not $h_ignores{$_} } @domains;

print join(" ", @domains) . "\n";
