package Text::Tradition;
+use Module::Load;
use Moose;
use Text::Tradition::Collation;
use Text::Tradition::Witness;
is => 'rw',
isa => 'ArrayRef[Text::Tradition::Witness]',
handles => {
- all_options => 'elements',
- add_option => 'push',
- map_options => 'map',
- option_count => 'count',
- sorted_options => 'sort',
+ all => 'elements',
+ add => 'push',
},
+ default => sub { [] },
+ );
+
+has 'name' => (
+ is => 'rw',
+ isa => 'Str',
+ default => 'Tradition',
);
sub BUILD {
my( $self, $init_args ) = @_;
- print STDERR "Calling tradition build\n";
- $DB::single = 1;
if( exists $init_args->{'witnesses'} ) {
# We got passed an uncollated list of witnesses. Make a
# witness object for each witness, and then send them to the
# TODO Now how to collate these?
}
} else {
- # Else we got passed args intended for the collator.
- $init_args->{'tradition'} = $self;
- $self->_save_collation( Text::Tradition::Collation->new( %$init_args ) );
- $self->witnesses( $self->collation->create_witnesses() );
+ # Else we need to parse some collation data. Make a Collation object
+ my $collation = Text::Tradition::Collation->new( %$init_args,
+ 'tradition' => $self );
+ $self->_save_collation( $collation );
+
+ # Call the appropriate parser on the given data
+ my @formats = grep { /^(Self|CollateX|CSV|CTE|TEI)$/ } keys( %$init_args );
+ my $format = shift( @formats );
+ unless( $format ) {
+ warn "No data given to create a collation; will initialize an empty one";
+ }
+ if( $format && $format =~ /^(CSV|CTE)$/ &&
+ !exists $init_args->{'base'} ) {
+ warn "Cannot make a collation from $format without a base text";
+ return;
+ }
+
+ # Starting point for all texts
+ my $last_node = $collation->add_reading( '#START#' );
+
+ # Now do the parsing.
+ my @sigla;
+ if( $format ) {
+ my @parseargs;
+ if( $format =~ /^(CSV|CTE)$/ ) {
+ $init_args->{'data'} = $init_args->{$format};
+ $init_args->{'format'} = $format;
+ $format = 'BaseText';
+ @parseargs = %$init_args;
+ } else {
+ @parseargs = ( $init_args->{ $format } );
+ }
+ my $mod = "Text::Tradition::Parser::$format";
+ load( $mod );
+ $mod->can('parse')->( $self, @parseargs );
+ }
+ }
+}
+
+sub witness {
+ my( $self, $sigil ) = @_;
+ my $requested_wit;
+ foreach my $wit ( @{$self->witnesses} ) {
+ $requested_wit = $wit if $wit->sigil eq $sigil;
}
+ # We depend on an undef return value for no such witness.
+ # warn "No such witness $sigil" unless $requested_wit;
+ return $requested_wit;
+}
+
+
+sub add_witness {
+ my $self = shift;
+ my $new_wit = Text::Tradition::Witness->new( @_ );
+ push( @{$self->witnesses}, $new_wit );
+ return $new_wit;
}
# The user will usually be instantiating a Tradition object, and