#!/usr/bin/perl -s

use warnings;
use strict;

our $s;
our $h;
our $e;

use Conclave::Utils::ISplitter;

my $id = shift;
unless ($id) {
  print "Usage: conc-isplitter [-e] [-s] [-h] <id>\n\nOptions:\n",
    "  -s -- soft split\n",
      "  -h -- hard split\n";
  exit;
}

my $splitter = Conclave::Utils::ISplitter->new('programming');

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";
# FIXME
$str =~ s/\//,/g;
print $str;


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