# this works as a bash include
#
#COMM SeqLab::SeqFormat - Experiment format I/O
#COMM - all details of Experiment format
#
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use SeqLab::SeqFormat;
    my ($fin,$fout) = @ARGV;
    if (! -r($fin)) {
      printf STDERR "ERROR: input file %s does not exist\n", $fin;
    }
    my $pSeq=&SeqentryPopExper($fin);
    &SeqExperExpandSeqattrib($pSeq);
    open(OUT,">$fout");
    print OUT &SeqentryToExper($pSeq);
    close(OUT);
  ' -- "$dircode" "$dirtest"/${setstamp}_seq.exp "$dirtest"/${setstamp}_out  \
  2>&1
diff "$dirtest"/${setstamp}_seq.exp "$dirtest"/${setstamp}_out

echo ---
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use SeqLab::SeqFormat;
    my ($fin,$fout) = @ARGV;
    if (! -r($fin)) {
      printf STDERR "ERROR: input file %s does not exist\n", $fin;
    }
    my $pSeq=&SeqentryPopExper($fin);
    &SeqExperExpandSeqattrib($pSeq);
    $pSeq->{ON_expand}[330]=0;
    open(OUT,">$fout");
    print OUT &SeqentryToExper($pSeq);
    close(OUT);
  ' -- "$dircode" "$dirtest"/${setstamp}_seq.exp "$dirtest"/${setstamp}_out  \
  2>&1
diff "$dirtest"/${setstamp}_seq.exp "$dirtest"/${setstamp}_out

# tidy up
rm "$dirtest"/${setstamp}_out
