# perl module

package mainscaf;
our(%maingrep);

BEGIN {

%maingrep = (
dana => '(scaffold_13340|scaffold_13337|scaffold_13266|scaffold_12916|scaffold_13417|scaffold_13117|scaffold_12911|scaffold_12943|scaffold_13248|scaffold_13335|scaffold_12929|scaffold_13047|scaffold_13334)', #" "
dere => '(scaffold_4929|scaffold_4784|scaffold_4845|scaffold_4690|scaffold_4770|scaffold_4820|scaffold_4644)', #" "
dgri => '(scaffold_15110|scaffold_15245|scaffold_15252|scaffold_14906|scaffold_15203|scaffold_14853|scaffold_15126|scaffold_15074|scaffold_14830|scaffold_15112|scaffold_15081)', #" "
dmoj => '(scaffold_6500|scaffold_6496|scaffold_6680|scaffold_6654|scaffold_6540|scaffold_6473|scaffold_6359|scaffold_6328|scaffold_6308)', #" "
dper => '(scaffold_0|scaffold_1|scaffold_2|scaffold_3|scaffold_4|scaffold_5|scaffold_6|scaffold_7|scaffold_8|scaffold_9|scaffold_10|scaffold_11|scaffold_12|scaffold_13|scaffold_14|scaffold_15|scaffold_16|scaffold_17|scaffold_18|scaffold_19|scaffold_20|scaffold_21|scaffold_22|scaffold_23|scaffold_24)', #" "
dsec => '(scaffold_0|scaffold_1|scaffold_2|scaffold_3|scaffold_4|scaffold_5|scaffold_6|scaffold_7|scaffold_8|scaffold_9|scaffold_10|scaffold_11|scaffold_12|scaffold_13|scaffold_14|scaffold_15|scaffold_16|scaffold_17|scaffold_18|scaffold_19)', #" "
dvir => '(scaffold_13049|scaffold_12875|scaffold_12963|scaffold_13047|scaffold_12970|scaffold_12855|scaffold_12928|scaffold_12723|scaffold_13042|scaffold_12822|scaffold_12726|scaffold_13246|scaffold_12823|scaffold_12932)', #" "
dwil => '(scaffold_181130|scaffold_180708|scaffold_181096|scaffold_181089|scaffold_180698|scaffold_180772|scaffold_180700|scaffold_180949|scaffold_181141|scaffold_181150|scaffold_180777|scaffold_181108|scaffold_180702|scaffold_180697|scaffold_180764|scaffold_180703|scaffold_180701|scaffold_181009|scaffold_181009|scaffold_180955|scaffold_180745|scaffold_180727|scaffold_180916|scaffold_180699)', #" "
dsim => '-(.*random|chrU)', #" -v "
dyak => '-(.*random|chrU)', #" -v "
dpse => '-(.*random|U|Unknown.*)', #" -v "
dmel => '-(.*random|U.*)',
dpulex => '#150',
## dpulex => scaffold # < 150
);

}

sub mainscaf {
  my($spp,$srcid)= @_;
  my $grep= $maingrep{$spp} || "";
  my $main=1;
  if ($grep && $srcid) {
    if($grep =~ s/^\-//) { $main= ($srcid =~ m/^$grep$/) ? 0 : 1; }
    elsif($grep =~ s/^\#//) { 
      my $nscaf= int($grep); my ($idn)= ($srcid =~ m/(\d+)/); 
      $main = ($idn > $nscaf) ? 0 : 1; 
      }
    else { $main = ($srcid =~ m/^$grep$/) ? 1 : 0; }
    }
  return $main;
}

1;