From: tla Date: Thu, 12 May 2011 14:06:39 +0000 (+0200) Subject: Start to switch to Moose X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd3b58b01da8319a3e3cc31e8f99a25be101cf05;p=scpubgit%2Fstemmatology.git Start to switch to Moose --- diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..701f043 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,12 @@ +#!/usr/bin/env perl + +use 5.010; +use inc::Module::Install; +author( 'Tara L Andrews ' ); +license( 'perl' ); +all_from( 'lib/Text/Tradition' ); +requires( 'perl' => '5.010' ); +requires( 'XML::LibXML' ); +requires( 'Graph::Easy' ); +requires( 'Text::CSV::Simple' ); +&WriteAll; diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm new file mode 100644 index 0000000..5f8d080 --- /dev/null +++ b/lib/Text/Tradition.pm @@ -0,0 +1,44 @@ +#!/usr/bin/env perl + +package Text::Tradition; + +use Moose; + +has 'collation' => ( + is => 'ro', + isa => 'Text::Tradition::Collation', + init_arg => undef, + ); + +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', + }, + ); + +# 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; diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm new file mode 100644 index 0000000..4bb96ca --- /dev/null +++ b/lib/Text/Tradition/Collation.pm @@ -0,0 +1,45 @@ +#!/usr/bin/env perl + +package Text::Tradition::Collation; +use Moose; + +has 'graph' => ( + is => 'ro', + isa => 'Text::Tradition::Graph', + ); + +# The graph is full of nodes, which have positions and equivalences. +# These have to be stored externally to the graph itself. +has 'positions' => ( + is => 'ro'; + isa => 'Text::Tradition::Graph::Position', + ); + +has 'equivalences' => ( + is => 'rw'; + isa => 'Text::Tradition::Graph::Equivalence', + ); + +# We need a way to access the parent object. +has 'tradition' => ( + is => 'ro', + isa => 'Text::Tradition', + ); + +# The collation can be created two ways: +# 1. Collate a set of witnesses (with CollateX I guess) and process +# the results as in 2. +# 2. Read a pre-prepared collation in one of a variety of formats, +# and make the graph from that. + +# The graph itself will (for now) be immutable, and the positions +# within the graph will also be immutable. We need to calculate those +# positions upon graph construction. The equivalences between graph +# nodes will be mutable, entirely determined by the user (or possibly +# by some semantic pre-processing provided by the user.) So the +# constructor should just make an empty equivalences object. The +# constructor will also need to make the witness objects, if we didn't +# come through option 1. + +no Moose; +__PACKAGE__->meta->make_immutable; diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm new file mode 100644 index 0000000..a647bc3 --- /dev/null +++ b/lib/Text/Tradition/Witness.pm @@ -0,0 +1,17 @@ +#!/usr/bin/env perl + +package Text::Tradition::Witness; +use Moose; + +has 'sigil' => ( + is => 'rw', + isa => 'Str', + ); + +has 'text' => ( + is => 'rw', + isa => 'Array', + ); + +no Moose; +__PACKAGE__->meta->make_immutable; diff --git a/script/make_svg.pl b/script/make_svg.pl new file mode 100644 index 0000000..334c075 --- /dev/null +++ b/script/make_svg.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use lib 'lib'; +use strict; +use warnings; +use Text::Tradition::Graph; + +# First: read the base. Make a graph, but also note which +# nodes represent line beginnings. + +open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]"; +my @lines = ; +close GRAPH; +my $graphml_str = join( '', @lines ); + +my $collation_graph = Text::Tradition::Graph->new( + 'GraphML' => $graphml_str, + ); + +print $collation_graph->as_svg(); +print STDERR "DONE\n"; diff --git a/script/svg_from_csv.pl b/script/svg_from_csv.pl new file mode 100644 index 0000000..c469bbe --- /dev/null +++ b/script/svg_from_csv.pl @@ -0,0 +1,14 @@ +#!/usr/bin/env perl + +use lib 'lib'; +use strict; +use warnings; +use Text::Tradition::Graph; + +my $collation_graph = Text::Tradition::Graph->new( + 'CSV' => $ARGV[0], + 'base' => $ARGV[1], + ); + +print $collation_graph->as_svg(); +print STDERR "Done\n";