binmode( STDOUT, ':utf8' );
binmode( STDERR, ':utf8' );
-my( $tfile, $sfile, $delete, $list, $dsn ) =
- ( undef, undef, undef, 0, 'dbi:SQLite:dbname=db/traditions.db' );
+my( $tfile, $format, $sfile, $delete, $list, $dsn ) =
+ ( undef, 'Self', undef, undef, 0, 'dbi:SQLite:dbname=db/traditions.db' );
GetOptions(
't|tradition=s' => \$tfile,
+ 'f|format=s' => \$format,
's|stemma=s' => \$sfile,
'l|list' => \$list,
'd|delete=s' => \$delete,
if( $tfile ) {
print STDERR "Reading tradition from $tfile\n";
$tradition = Text::Tradition->new(
- 'input' => 'Self',
+ 'input' => $format,
'file' => $tfile,
'linear' => 1,
);
if( $tradition && $sfile ) {
- $stemma = $tradition->add_stemma( $sfile );
+ $stemma = $tradition->add_stemma( dotfile => $sfile );
warn "Did not get stemma from $sfile\n" unless $stemma;
}
print STDERR "...collation has " . scalar( $c->readings ) . " readings\n";
print STDERR "...collation has " . scalar( $c->paths ) . " paths\n";
print STDERR "...collation has " . scalar( $c->relationships ) . " relationship links\n";
- my $s = $t->stemma;
- if( $s ) {
+ foreach my $s ( $t->stemmata ) {
print STDERR "...associated stemma has graph " . $s->graph . "\n";
}
}