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 | ); |
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"; |