[scpubgit/stemmatology.git] / lib / Text / Tradition.pm

#!/usr/bin/env perl

package Text::Tradition;

use Text::Tradition::Witness;
use Text::Tradition::Collation;
use Moose;

has 'collation' => (
		    is => 'ro',
		    isa => 'Text::Tradition::Collation',
		    );

has 'witnesses' => (
		    traits => ['Array'],
		    is => 'rw',
		    isa => 'ArrayRef[Text::Tradition::Witness]',
		    handles => {
			all_options    => 'elements',
			add_option     => 'push',
			map_options    => 'map',
			option_count   => 'count',
			sorted_options => 'sort',
		    },
		    );

around BUILDARGS => sub {
    my $orig = shift;
    my $class = shift;

    # Now @_ contains the original constructor args.  Make a
    # collation argument and a witnesses argument.
    my %init_args = @_;
    my %member_objects = { 'collation' => undef,
			   'witnesses' => [] };

    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
	# collator.
	my $autosigil = 0;
	foreach my $wit ( %{$init_args{'witnesses'}} ) {
	    # Each item in the list is either a string or an arrayref.
	    # If it's a string, it is a filename; if it's an arrayref,
	    # it is a tuple of 'sigil, file'.  Handle either case.
	    my $args;
	    if( ref( $wit ) eq 'ARRAY' ) {
		$args = { 'sigil' => $wit->[0],
			  'file' => $wit->[1] };
	    } else {
		$args = { 'sigil' => chr( $autosigil+65 ),
			  'file' => $wit };
		$autosigil++;
	    }
	    push( @{$member_objects{'witnesses'}},
		  Text::Tradition::Witness->new( $args ) );
	    # Now how to collate these?
	}
    } else {
	$member_objects{'collation'} = 
	    Text::Tradition::Collation->new( %init_args );
	@{$member_objects{'witnesses'}} = 
	    $member_objects->{'collation'}->create_witnesses();
    }

    return $class->$orig( %member_objects );
};

# The user will usually be instantiating a Tradition object, and
# examining its collation.  The information about the tradition can
# come via several routes:
# - graphML from CollateX or elsewhere, standalone
# - TEI parallel segmentation
# - Leuven-style spreadsheet of variants, converted to CSV, plus base text
# - apparatus pulled from CTE, plus base text
# From this we should be able to get basic witness information.
# 
# Alternatively the user can just give us the uncollated texts.  Then
# instead of passing a collation, s/he is passing a set of witnesses
# from which we will generate a collation.  Those witnesses can be in
# plaintext or in TEI with certain constraints adopted.

# So the constructor for a tradition needs to take one of these infosets,
# and construct the collation and the witness objects.

no Moose;
__PACKAGE__->meta->make_immutable;
Commit	Line	Data
dd3b58b0	1	#!/usr/bin/env perl
	2
	3	package Text::Tradition;
	4
c5104dc0	5	use Text::Tradition::Witness;
c5104dc0	6	use Text::Tradition::Collation;
dd3b58b0	7	use Moose;
	8
	9	has 'collation' => (
	10	is => 'ro',
	11	isa => 'Text::Tradition::Collation',
dd3b58b0	12	);
	13
	14	has 'witnesses' => (
	15	traits => ['Array'],
	16	is => 'rw',
	17	isa => 'ArrayRef[Text::Tradition::Witness]',
	18	handles => {
	19	all_options => 'elements',
	20	add_option => 'push',
	21	map_options => 'map',
	22	option_count => 'count',
	23	sorted_options => 'sort',
	24	},
	25	);
	26
c5104dc0	27	around BUILDARGS => sub {
	28	my $orig = shift;
	29	my $class = shift;
	30
	31	# Now @_ contains the original constructor args. Make a
	32	# collation argument and a witnesses argument.
	33	my %init_args = @_;
	34	my %member_objects = { 'collation' => undef,
	35	'witnesses' => [] };
	36
	37	if( exists $init_args{'witnesses'} ) {
	38	# We got passed an uncollated list of witnesses. Make a
	39	# witness object for each witness, and then send them to the
	40	# collator.
	41	my $autosigil = 0;
	42	foreach my $wit ( %{$init_args{'witnesses'}} ) {
	43	# Each item in the list is either a string or an arrayref.
	44	# If it's a string, it is a filename; if it's an arrayref,
	45	# it is a tuple of 'sigil, file'. Handle either case.
	46	my $args;
	47	if( ref( $wit ) eq 'ARRAY' ) {
	48	$args = { 'sigil' => $wit->[0],
	49	'file' => $wit->[1] };
	50	} else {
	51	$args = { 'sigil' => chr( $autosigil+65 ),
	52	'file' => $wit };
	53	$autosigil++;
	54	}
	55	push( @{$member_objects{'witnesses'}},
	56	Text::Tradition::Witness->new( $args ) );
	57	# Now how to collate these?
	58	}
	59	} else {
	60	$member_objects{'collation'} =
	61	Text::Tradition::Collation->new( %init_args );
	62	@{$member_objects{'witnesses'}} =
	63	$member_objects->{'collation'}->create_witnesses();
	64	}
	65
	66	return $class->$orig( %member_objects );
	67	};
	68
dd3b58b0	69	# The user will usually be instantiating a Tradition object, and
	70	# examining its collation. The information about the tradition can
	71	# come via several routes:
	72	# - graphML from CollateX or elsewhere, standalone
	73	# - TEI parallel segmentation
	74	# - Leuven-style spreadsheet of variants, converted to CSV, plus base text
	75	# - apparatus pulled from CTE, plus base text
	76	# From this we should be able to get basic witness information.
	77	#
	78	# Alternatively the user can just give us the uncollated texts. Then
	79	# instead of passing a collation, s/he is passing a set of witnesses
	80	# from which we will generate a collation. Those witnesses can be in
	81	# plaintext or in TEI with certain constraints adopted.
	82
	83	# So the constructor for a tradition needs to take one of these infosets,
	84	# and construct the collation and the witness objects.
	85
	86	no Moose;
	87	__PACKAGE__->meta->make_immutable;