A table

From: Tara L Andrews Date: Tue, 24 May 2011 13:48:33 +0000 (+0200) Subject: move scripts where they belong X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f5e51a5d2ba317f670a5a2eedd10d34b9d51c91;p=scpubgit%2Fstemmatology.git move scripts where they belong --- diff --git a/script/svg_from_csv.pl b/script/svg_from_csv.pl index 40fa7f5..7a154c4 100644 --- a/script/svg_from_csv.pl +++ b/script/svg_from_csv.pl @@ -1,14 +1,42 @@ -#!/usr/bin/env perl +#!/usr/bin/perl use lib 'lib'; use strict; use warnings; use Text::Tradition; -my $collation_graph = Text::Tradition->new( - 'CSV' => $ARGV[0], - 'base' => $ARGV[1], - ); +# First: read the base. Make a graph, but also note which +# nodes represent line beginnings. + +my $tradition = Text::Tradition->new( + 'CSV' => $ARGV[0], + 'base' => $ARGV[1], + ); + + +print $tradition->collation->as_svg(); +print STDERR "DONE\n"; +__END__ +my $rows = 0; +my $matrix = []; +foreach my $pos ( $collation_graph->{'positions'}->all ) { + my @p_nodes = $collation_graph->{'positions'}->nodes_at_position( $pos ); + $rows = scalar @p_nodes + if $rows < scalar @p_nodes; + push( @$matrix, \@p_nodes ); +} +print "A table\n"; +foreach my $i ( 0 .. $rows-1 ) { + print "\t\n"; + foreach my $col( @$matrix ) { + my $str = ''; + if( $col->[$i] ) { + $str = $collation_graph->node( $col->[$i] )->label; + } + printf( "\t\t\n", $str ); + } + print "\t\n"; +} +print "

\n"; + -print $collation_graph->as_svg(); -print STDERR "Done\n"; diff --git a/script/svg_from_graphml.pl b/script/svg_from_graphml.pl new file mode 100644 index 0000000..a98cde4 --- /dev/null +++ b/script/svg_from_graphml.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use lib 'lib'; +use strict; +use warnings; +use Text::Tradition; + +# 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 $tradition = Text::Tradition->new( + 'GraphML' => $graphml_str, + ); + +print $tradition->collation->as_svg(); +print STDERR "DONE\n";