[scpubgit/stemmatology.git] / script / svg_from_csv.pl

#!/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.

my $tradition = Text::Tradition->new(
    'CSV' => $ARGV[0],
    'base' => $ARGV[1],
    'linear' => 0,
    );


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 "<html><head><title>A table</title></head><body><table>\n";
foreach my $i ( 0 .. $rows-1 ) {
    print "\t<tr>\n";
    foreach my $col( @$matrix ) {
	my $str = '';
	if( $col->[$i] ) {
	    $str = $collation_graph->node( $col->[$i] )->label;
	}
	printf( "\t\t<td>%s</td>\n", $str );
    }
    print "\t</tr>\n";
}
print "</table></body></html>\n";
Commit	Line	Data
5f5e51a5	1	#!/usr/bin/perl
dd3b58b0	2
	3	use lib 'lib';
	4	use strict;
	5	use warnings;
e2902068	6	use Text::Tradition;
dd3b58b0	7
5f5e51a5	8	# First: read the base. Make a graph, but also note which
	9	# nodes represent line beginnings.
	10
	11	my $tradition = Text::Tradition->new(
	12	'CSV' => $ARGV[0],
	13	'base' => $ARGV[1],
15d2d3df	14	'linear' => 0,
5f5e51a5	15	);
5f5e51a5	16
dd3b58b0	17
1f563ac3	18	print $tradition->collation->as_svg();
5f5e51a5	19	print STDERR "DONE\n";
	20	__END__
	21	my $rows = 0;
	22	my $matrix = [];
	23	foreach my $pos ( $collation_graph->{'positions'}->all ) {
	24	my @p_nodes = $collation_graph->{'positions'}->nodes_at_position( $pos );
	25	$rows = scalar @p_nodes
	26	if $rows < scalar @p_nodes;
	27	push( @$matrix, \@p_nodes );
	28	}
	29	print "<html><head><title>A table</title></head><body><table>\n";
	30	foreach my $i ( 0 .. $rows-1 ) {
	31	print "\t<tr>\n";
	32	foreach my $col( @$matrix ) {
	33	my $str = '';
	34	if( $col->[$i] ) {
	35	$str = $collation_graph->node( $col->[$i] )->label;
	36	}
	37	printf( "\t\t<td>%s</td>\n", $str );
	38	}
	39	print "\t</tr>\n";
	40	}
	41	print "</table></body></html>\n";