From: Tara L Andrews <tla@mit.edu>
Date: Sat, 29 Nov 2014 19:43:39 +0000 (+0100)
Subject: generate experimental adjacency list version of text
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87b00ae542a02a2a0d23342884122fe4944d09f6;p=scpubgit%2Fstemmatology.git

generate experimental adjacency list version of text
---

diff --git a/base/script/make_tradition.pl b/base/script/make_tradition.pl
index a393660..4ebfa39 100755
--- a/base/script/make_tradition.pl
+++ b/base/script/make_tradition.pl
@@ -55,13 +55,14 @@ $informat = 'Tabular' if $informat =~ /^tab$/i;
 $informat = 'CollateText' if $informat =~ /^stone$/i;
 $informat = 'Tabular' if $informat =~ /^xls/i;
 
-unless( $outformat =~ /^(graphml|svg|dot|stemma(svg)?|(c|t)sv|db)$/ ) {
-    help( "Output format must be one of db, graphml, svg, csv, tsv, stemma, or dot" );
+unless( $outformat =~ /^(graphml|svg|dot|adj(acency)?|stemma(svg)?|(c|t)sv|db)$/i ) {
+    help( "Output format must be one of db, graphml, svg, csv, tsv, stemma, adjacency, or dot" );
 }
+$outformat = 'adjacency_list' if $outformat =~ /^adj/i;
 
 if( $from || $to ) {
-	help( "Subgraphs only supported in GraphML, dot, or SVG format" ) 
-		unless $outformat =~ /^(graphml|dot|svg)$/;
+	help( "Subgraphs only supported in GraphML, dot, adjacency, or SVG format" ) 
+		unless $outformat =~ /^(graphml|dot|svg|adjacency_list)$/;
 }
 
 # Do we have a base if we need it?