#!/usr/bin/perl
# PODNAME: id-splitter
# ABSTRACT: command line interface to Lingua::IdSplitter

use warnings;
use strict;

use Lingua::IdSplitter;
use Getopt::Long;

my ($s, $h, $e, @ds);
GetOptions(
    "soft"         => \$s,
    "hard"         => \$h,
    "explain"      => \$e,
    "dictionary=s" => \@ds,
  );

my $id = shift;

unless ($id) {
  print "Usage: conc-isplitter [-e] [-s] [-h] [-d <file>] <id>\n\nOptions:\n",
    "  -s -- soft split\n",
      "  -h -- hard split\n",
        "  -e -- explain\n",
          "  -d <file> -- include dictionaries\n";
  exit;
}

my @default_ds = qw/abbreviations acronyms/;
my $splitter = Lingua::IdSplitter->new(@ds, @default_ds);

my @result;
if ($h) {
  @result = $splitter->hard_split($id);
}
elsif ($s) {
  @result = $splitter->soft_split($id);
}
else {
  @result = $splitter->split($id);
}

# pretty print result
my @pp;
foreach (@result) {
  if ($_->{s} eq $_->{t}) {
    push @pp, $_->{t};
  }
  else {
    push @pp, "$_->{t}(<-$_->{s})";
  }
}
my $str = join(',', @pp) . "\n";
$str =~ s/\//,/g;  # FIXME -- dictionaries that use / as separator
print $str;


# print explain if requested
if ($e) {
  print $splitter->explain;
}