X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=utils%2Fsplitstockholm.pl;h=a924c2d808da16bcffd69d5074c5e4a7485e26a5;hb=4bbd068738ed2e685f580ea1b65a7b11e32d3f3e;hp=5a316799843341f65f7b774ffcc5e556aa42c926;hpb=d5b4cbe96883e41b093080a1d9d1235341cd9df4;p=jalview.git

diff --git a/utils/splitstockholm.pl b/utils/splitstockholm.pl
index 5a31679..a924c2d 100644
--- a/utils/splitstockholm.pl
+++ b/utils/splitstockholm.pl
@@ -1,30 +1,49 @@
-#!/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 .= $_;
-	}
-    }
-}
+#!/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/>.
+# 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 .= $_;
+	}
+    }
+}