X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=utils%2Fsplitstockholm.pl;h=a924c2d808da16bcffd69d5074c5e4a7485e26a5;hb=99bfb1a08e5ceb3a3c990bb49dcd7433a0880558;hp=8bffeb5f29ef81daf245d959553bec9ad3d00b25;hpb=a45774ee31d9f35d4eff46d54d7deab719afb092;p=jalview.git

diff --git a/utils/splitstockholm.pl b/utils/splitstockholm.pl
index 8bffeb5..a924c2d 100644
--- a/utils/splitstockholm.pl
+++ b/utils/splitstockholm.pl
@@ -1,47 +1,49 @@
-#*******************************************************************************
-# Jalview - A Sequence Alignment Editor and Viewer (Version 2.7)
-# Copyright (C) 2011 J Procter, AM Waterhouse, G Barton, M Clamp, S Searle
-#
+#!/usr/bin/perl
+##
+# Jalview - A Sequence Alignment Editor and Viewer ($$Version-Rel$$)
+# Copyright (C) $$Year-Rel$$ The Jalview Authors
+# 
 # This file is part of Jalview.
-#
+# 
 # Jalview is free software: you can redistribute it and/or
 # modify it under the terms of the GNU General Public License 
 # as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
-#
+#  
 # Jalview is distributed in the hope that it will be useful, but 
 # WITHOUT ANY WARRANTY; without even the implied warranty 
 # of MERCHANTABILITY or FITNESS FOR A PARTICULAR 
 # PURPOSE.  See the GNU General Public License for more details.
-#
+# 
 # You should have received a copy of the GNU General Public License along with Jalview.  If not, see <http://www.gnu.org/licenses/>.
-#*******************************************************************************
-#!/usr/bin/perl
-# Splits a concatenated set of Stockholm Files into several individual files.
-
-use strict;
-use FileHandle;
-my $ac;
-my $lns="";
-my $fh;
-while (<>) {
-    if ($_=~m!^//!) {
-	$fh->print("//\n");
-	$fh->close();
-	$ac = undef;
-	$lns = "";
-    } else {
-	if ($_=~/GF\s+AC\s+([0-9.RPF]+)/) { 
-	    $ac=$1; 
-	    ($fh=new FileHandle)->open(">$ac.stk") or die("Couldn't open file '$ac.stk'"); 
-	    $lns=~/^. STOCKHOLM 1.0/ or $fh->print("# STOCKHOLM 1.0\n");
-	};
-	if (defined($fh)) {
-	    if (defined $lns) { 
-		$fh->print($lns); $lns=undef; }
-	    
-	    $fh->print($_);
-	} else {
-	    $lns .= $_;
-	}
-    }
-}
+# The Jalview Authors are detailed in the 'AUTHORS' file.
+##
+ 
+# Splits a concatenated set of Stockholm Files into several individual files.
+
+use strict;
+use FileHandle;
+my $ac;
+my $lns="";
+my $fh;
+while (<>) {
+    if ($_=~m!^//!) {
+	$fh->print("//\n");
+	$fh->close();
+	$ac = undef;
+	$lns = "";
+    } else {
+	if ($_=~/GF\s+AC\s+([0-9.RPF]+)/) { 
+	    $ac=$1; 
+	    ($fh=new FileHandle)->open(">$ac.stk") or die("Couldn't open file '$ac.stk'"); 
+	    $lns=~/^. STOCKHOLM 1.0/ or $fh->print("# STOCKHOLM 1.0\n");
+	};
+	if (defined($fh)) {
+	    if (defined $lns) { 
+		$fh->print($lns); $lns=undef; }
+	    
+	    $fh->print($_);
+	} else {
+	    $lns .= $_;
+	}
+    }
+}