#!/usr/bin/perl -w

use strict;

my $file = $ARGV[0] or die "usage: $0 file\n";

open IN,$file or die "$! $file";

my @lines = grep !/^(DOMAK|\n|\r)/,<IN>;
open OUT,">$file.tmp";
print OUT @lines;

for my $name (qw(single_dom n_res_per_seg small_ins)){
    my $pass = "$name " .  `$name $file.tmp`;
    print "DOMAK $pass\n";
    unlink "$name.$file.tmp";
}
unlink "$file.tmp";
print "% Descriptors for the domains found by DOMAK:\n";
print @lines;
