#!/usr/bin/perl -s

use warnings;
use strict;

our $l;

use Conclave::Utils::ISplitter;
use File::ShareDir ':ALL';
use File::Basename;

my $d = shift;
unless ($d or $l) {
  print "Usage: conc-isplitter-dicts [-l] <dict>\n\nOptions:\n",
    "  -l -- list available dictionaries\n",
  exit;
}

if ($l) {
  my $dir = dist_dir('Conclave-Utils');
  my @files = glob "$dir/dicts/*.csv";
  print basename($_),"\n" foreach (@files);
}
if ($d) {
  $d .= '.csv' unless ($d =~ m/\.csv$/);
  my $file = dist_file('Conclave-Utils', "dicts/$d");
  open F, '<', $file;
  print while (<F>);
  close F;
}