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

#!/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 = <GRAPH>;
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";
Commit	Line	Data
dd3b58b0	1	#!/usr/bin/perl
	2
	3	use lib 'lib';
	4	use strict;
	5	use warnings;
	6	use Text::Tradition::Graph;
	7
	8	# First: read the base. Make a graph, but also note which
	9	# nodes represent line beginnings.
	10
	11	open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
	12	my @lines = <GRAPH>;
	13	close GRAPH;
	14	my $graphml_str = join( '', @lines );
	15
	16	my $collation_graph = Text::Tradition::Graph->new(
	17	'GraphML' => $graphml_str,
	18	);
	19
	20	print $collation_graph->as_svg();
	21	print STDERR "DONE\n";