Eric Coissac
8e6449bec6
Former-commit-id: bcaea43df50e65508d23bacd9713f4ae02df6ac4 Former-commit-id: d968b9af53164c3dc40483f5b643ffa9390068d0
357 lines
10 KiB
Bash
Executable File
357 lines
10 KiB
Bash
Executable File
#!/bin/bash
|
|
#
|
|
#
|
|
#
|
|
# Annotate Organelle
|
|
#
|
|
#========================================================================================
|
|
#
|
|
#
|
|
#========================================================================================
|
|
|
|
# -- CAUTION -- Works as long as the script
|
|
# is not called through a symlink
|
|
THIS_DIR="$(dirname ${BASH_SOURCE[0]})"
|
|
source "${THIS_DIR}/scripts/bash_init.sh"
|
|
|
|
|
|
#
|
|
# Management of options
|
|
#
|
|
|
|
taxid="no"
|
|
normalization="yes"
|
|
irdetection="yes"
|
|
cdsdetection="yes"
|
|
trnadetection="yes"
|
|
rrnadetection="yes"
|
|
organism="no"
|
|
types="chloro"
|
|
partial=0
|
|
minlength=0
|
|
|
|
function usage {
|
|
echo "Usage:" ;
|
|
echo " $1 "'[-t|--ncbi-taxid ###] [-n|--no-normalization] \'
|
|
echo ' [-i|--no-ir-detection] [-h|--help] \ '
|
|
echo ' [-o|--organism <organism_name>] \ '
|
|
echo ' [-c|--chloroplast|-r|--nuclear-rdna|-m|--mitochondrion] <FASTAFILE>'
|
|
echo
|
|
echo "Options:"
|
|
echo ' -t ### | --ncbi-taxid ###'
|
|
echo ' ### represents the ncbi taxid associated to the sequence'
|
|
echo
|
|
echo ' -i | --no-ir-detection'
|
|
echo ' Does not look for inverted repeats in the plastid genome'
|
|
echo
|
|
echo ' -o | --organism <organism_name>'
|
|
echo ' Allows for specifiying the organism name in the embl generated file'
|
|
echo ' Spaces have to be substituted by underscore ex : Abies_alba'
|
|
echo
|
|
echo ' -c | --chloroplast'
|
|
echo ' Selects for the annotation of a chloroplast genome'
|
|
echo ' This is the default mode'
|
|
echo
|
|
echo ' -r | --nuclear-rdna'
|
|
echo ' Selects for the annotation of the rDNA nuclear cistron'
|
|
echo
|
|
echo ' -m | --mitochondrion'
|
|
echo ' Selects for the annotation of an animal mitochondrion genome'
|
|
echo
|
|
echo ' -p | --partial'
|
|
echo ' Indicates that the genome sequence is partial and therefore in several contigs'
|
|
echo
|
|
echo ' -l | --min-length'
|
|
echo ' Indicates for partial mode the minimum length of contig to annotate'
|
|
exit $2
|
|
}
|
|
|
|
|
|
function fastaIterator() {
|
|
$AwkCmd '/^>/ {if (seq) printf("%s\f",seq); seq=""} \
|
|
{if (seq) seq=seq"\n"; seq=seq $1} \
|
|
END {print seq}' "$1"
|
|
}
|
|
|
|
# options may be followed by one colon to indicate they have a required argument
|
|
if ! options=$(getopt -o t:o:icrmhpl:CTR -l ncbi-taxid:,organism,no-ir-detection,chloroplast,nuclear-rdna,mitochondrion,partial,min-length:,help,no-cds,no-trna,no-rrna -- "$@")
|
|
then
|
|
# something went wrong, getopt will put out an error message for us
|
|
usage $0 1
|
|
fi
|
|
|
|
eval set -- "$options"
|
|
|
|
while [ $# -gt 0 ]
|
|
do
|
|
case $1 in
|
|
-t|--ncbi-taxid) taxid="$2" ; shift ;;
|
|
-i|--no-ir-detection) irdetection="no" ;;
|
|
-o|--organism) organism="$2" ; shift ;;
|
|
-c|--chloroplast) types="chloro" ;;
|
|
-r|--nuclear-rdna) types="nucrdna" ;;
|
|
-m|--mitochondrion) types="mito" ;;
|
|
-p|--partial) partial="1" ;;
|
|
-l|--min-length) minlength="$2" ; shift ;;
|
|
-h|--help) usage $0 0;;
|
|
-C|--no-cds) cdsdetection="no";;
|
|
-T|--no-trna) trnadetection="no";;
|
|
-R|--no-rrna) rrnadetection="no";;
|
|
(--) shift; break;;
|
|
(-*) echo "$0: error - unrecognized option $1" 1>&2; exit 1;;
|
|
(*) break;;
|
|
esac
|
|
shift
|
|
done
|
|
|
|
loginfo "Annotating mode.....: $types"
|
|
loginfo "IR detection mode...: $irdetection"
|
|
loginfo "Organism............: $organism"
|
|
loginfo "Partial mode........: $partial"
|
|
loginfo "Minimum length......: $minlength"
|
|
|
|
|
|
#############################
|
|
|
|
pushTmpDir ORG.organnot
|
|
|
|
|
|
if [[ ! "$1" =~ ^/ ]]; then
|
|
QUERY="${CALL_DIR}/$1"
|
|
else
|
|
QUERY="$1"
|
|
fi
|
|
|
|
|
|
RESULTS=$(basename ${QUERY/.*/})
|
|
LOG="${CALL_DIR}/${RESULTS}.log"
|
|
|
|
|
|
rm -f ${LOG}
|
|
openLogFile ${LOG}
|
|
|
|
IFS=$'\f'
|
|
|
|
for sequence in $(fastaIterator "${QUERY}") ; do
|
|
unset IFS
|
|
if [[ ! -z "${sequence}" ]] ; then
|
|
echo "${sequence}" > toannotate.fasta
|
|
sl=$(seqlength "toannotate.fasta")
|
|
|
|
if (( sl >= minlength )) ; then
|
|
|
|
seqid=$($AwkCmd '(NR==1) {print substr($1,2,1000)}' toannotate.fasta)
|
|
|
|
case "$types" in
|
|
chloro)
|
|
loginfo "Annotating a plant chloroplast genome..."
|
|
|
|
if [[ "$irdetection" == "yes" ]] && (( partial == 0 )) ; then
|
|
|
|
loginfo "Normalizing the structure of the Chloroplast sequence..."
|
|
loginfo " LSC + IRB + SSC + IRA"
|
|
${PROG_DIR}/detectors/normalize/bin/go_normalize.sh toannotate.fasta > "${RESULTS}.norm.fasta"
|
|
loginfo "Done."
|
|
|
|
loginfo "Annotating the Inverted repeats and Single copies (LSC and SSC)..."
|
|
${PROG_DIR}/detectors/ir/bin/go_ir.sh "${RESULTS}.norm.fasta" > "${RESULTS}.annot"
|
|
loginfo "Done."
|
|
|
|
else
|
|
loginfo "No normalization of the structure of the Chloroplast sequence..."
|
|
cat toannotate.fasta > "${RESULTS}.norm.fasta"
|
|
rm -f "${RESULTS}.annot"
|
|
touch "${RESULTS}.annot"
|
|
fi
|
|
|
|
if [[ "$trnadetection" == "yes" ]] ; then
|
|
loginfo "Annotating the tRNA..."
|
|
${PROG_DIR}/detectors/trna/bin/go_trna.sh "${RESULTS}.norm.fasta" >> "${RESULTS}.annot"
|
|
loginfo "Done."
|
|
fi
|
|
|
|
if [[ "$rrnadetection" == "yes" ]] ; then
|
|
loginfo "Annotating the rRNA genes..."
|
|
${PROG_DIR}/detectors/rrna/bin/go_rrna.sh "${RESULTS}.norm.fasta" >> "${RESULTS}.annot"
|
|
loginfo "Done."
|
|
fi
|
|
|
|
if [[ "$cdsdetection" == "yes" ]] ; then
|
|
loginfo "Annotating the CDS..."
|
|
tcsh -f ${PROG_DIR}/detectors/cds/bin/go_cds.csh "${RESULTS}.norm.fasta" >> "${RESULTS}.annot"
|
|
loginfo "Done."
|
|
fi
|
|
|
|
if (( partial == 0 )) ; then
|
|
topology="circular"
|
|
defline="plastid, complete genome"
|
|
else
|
|
topology="linear"
|
|
defline="plastid, partial sequence"
|
|
fi
|
|
;;
|
|
|
|
nucrdna)
|
|
loginfo "Annotating a plant rDNA cistron..."
|
|
|
|
loginfo "Normalizing the structure of the cistron sequence..."
|
|
${PROG_DIR}/detectors/normalizerdna/bin/go_normalizerdna.sh toannotate.fasta > "${RESULTS}.norm.fasta"
|
|
loginfo "Done."
|
|
|
|
loginfo "Annotating the rRNA genes..."
|
|
${PROG_DIR}/detectors/nucrrna/bin/go_nucrrna.sh "${RESULTS}.norm.fasta" > "${RESULTS}.annot"
|
|
loginfo "Done."
|
|
|
|
topology="linear"
|
|
defline="18S rRNA gene, ITS1, 5.8S rRNA gene, ITS2 and 28S rRNA gene"
|
|
;;
|
|
|
|
mito)
|
|
loginfo "Annotating an animal mitochondrial genome..."
|
|
logerror "Not yet implemented"
|
|
|
|
if (( partial == 0 )) ; then
|
|
topology="circular"
|
|
defline="mitochondrion, complete genome"
|
|
else
|
|
topology="linear"
|
|
defline="mitochondrion, partial sequence"
|
|
fi
|
|
|
|
exit 1
|
|
;;
|
|
|
|
*)
|
|
usage $0 1;;
|
|
esac
|
|
|
|
if [[ "${organism}" == "no" ]]; then
|
|
organism="{organism}"
|
|
else
|
|
organism="$(echo ${organism} | tr '_' ' ')"
|
|
fi
|
|
|
|
sl=$(seqlength "${RESULTS}.norm.fasta")
|
|
|
|
loginfo "Printing minimal header..."
|
|
echo "ID ${seqid}; ${seqid}; ${topology}; genomic DNA; XXX; XXX; ${sl} BP."
|
|
echo "XX"
|
|
echo "AC ${seqid};"
|
|
echo "DE ${organism} ${defline}."
|
|
echo "XX"
|
|
loginfo "Done."
|
|
|
|
loginfo "Printing annotations header..."
|
|
echo "FH Key Location/Qualifiers"
|
|
loginfo "Done."
|
|
|
|
loginfo "Printing the source feature"
|
|
echo "FT source 1..${sl}"
|
|
|
|
if [[ "${organism}" != "{organism}" ]] ; then
|
|
echo "FT /organism=\"${organism}\""
|
|
fi
|
|
|
|
case "${types}" in
|
|
chloro)
|
|
echo "FT /organelle=\"plastid:chloroplast\""
|
|
;;
|
|
mito)
|
|
echo "FT /organelle=\"mitochondrion\""
|
|
;;
|
|
*)
|
|
loginfo "Nuclear sequence"
|
|
;;
|
|
esac
|
|
|
|
echo "FT /mol_type=\"genomic DNA\""
|
|
|
|
if [[ "${taxid}" != "no" ]] ; then
|
|
echo "FT /db_xref=\"taxon:${taxid}\""
|
|
fi
|
|
|
|
# echo "FT /country=\"Poland: Bialowieza Forest\""
|
|
loginfo "Done."
|
|
|
|
loginfo "Ordering annotations..."
|
|
$AwkCmd '(entry && /^.....(misc|repeat|rRNA|tRNA|gene|source)/) { \
|
|
print pos,entry } \
|
|
/^.....(misc|repeat|rRNA|tRNA|gene|source)/ { \
|
|
match($3,"[0-9][0-9]*"); \
|
|
pos=substr($3,RSTART,RLENGTH)*1000 + 1; \
|
|
entry=$0; \
|
|
next} \
|
|
{ entry=entry "@" $0} \
|
|
END {print pos,entry}' "${RESULTS}.annot" | \
|
|
sort -nk1 |\
|
|
$AwkCmd '{ \
|
|
match($0,"^[0-9]* ");\
|
|
line=substr($0,RLENGTH+1);\
|
|
gsub("@","\n",line); \
|
|
print line}'
|
|
loginfo "Done."
|
|
|
|
|
|
|
|
loginfo "Closing annotations table..."
|
|
echo "XX"
|
|
loginfo "Done."
|
|
|
|
loginfo "Computing statistics on nucleotide usage..."
|
|
$AwkCmd '! /^>/ { \
|
|
seq=toupper($0); \
|
|
gsub(" ","",seq); \
|
|
lseq=length(seq); \
|
|
for (i=0; i < lseq; i++) { \
|
|
freq[substr(seq,i,1)]++}\
|
|
} \
|
|
END { \
|
|
other=0; \
|
|
for (i in freq) { \
|
|
if (i!="A" && i!="C" && i!="G" && i!="T") {\
|
|
other+=freq[i] \
|
|
} \
|
|
}; \
|
|
print "SQ Sequence "\
|
|
(freq["A"]+freq["C"]+freq["G"]+freq["T"]+other) \
|
|
" BP; "\
|
|
freq["A"]" A; "\
|
|
freq["C"]" C; "\
|
|
freq["G"]" G; "\
|
|
freq["T"]" T; "\
|
|
other" other;" \
|
|
}' "${RESULTS}.norm.fasta"
|
|
loginfo "Done."
|
|
|
|
loginfo "Reformating sequences..."
|
|
lines=$(wc -l "${RESULTS}.norm.fasta" | $AwkCmd '{print $1}')
|
|
|
|
loginfo "Sequence length $(seqlength ${RESULTS}.norm.fasta)"
|
|
loginfo "lines $lines"
|
|
formatfasta "${RESULTS}.norm.fasta" | \
|
|
$AwkCmd -v lines=$lines ' \
|
|
! /^>/ { \
|
|
seq=tolower($0); \
|
|
gsub(" ","",seq); \
|
|
printf(" ") ;\
|
|
for (i=0; i < 6; i++) { \
|
|
f=substr(seq,i * 10 + 1, 10); \
|
|
pos+=length(f); \
|
|
f = f substr(" ",1,10-length(f)); \
|
|
printf("%s ",f) \
|
|
}; \
|
|
printf(" %6d\n",pos) \
|
|
}'
|
|
loginfo "Done."
|
|
|
|
loginfo "Closing sequence part..."
|
|
echo "//"
|
|
loginfo "Done."
|
|
fi # End of the minimum length condition
|
|
fi # End of not empty sequence condition
|
|
|
|
IFS=$'\f'
|
|
done # End of the loop over the sequences
|
|
popTmpDir
|
|
|