text: // ==========================================================================
  //                 SeqAn - The Library for Sequence Analysis
  // ==========================================================================
  // Copyright (c) 2006-2013, Knut Reinert, FU Berlin
  // All rights reserved.
  //
  // Redistribution and use in source and binary forms, with or without
  // modification, are permitted provided that the following conditions are met:
  //
  //     * Redistributions of source code must retain the above copyright
  //       notice, this list of conditions and the following disclaimer.
  //     * Redistributions in binary form must reproduce the above copyright
  //       notice, this list of conditions and the following disclaimer in the
  //       documentation and/or other materials provided with the distribution.
  //     * Neither the name of Knut Reinert or the FU Berlin nor the names of
  //       its contributors may be used to endorse or promote products derived
  //       from this software without specific prior written permission.
  //
  // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  // ARE DISCLAIMED. IN NO EVENT SHALL KNUT REINERT OR THE FU BERLIN BE LIABLE
  // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  // LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  // OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
  // DAMAGE.
  //
  // ==========================================================================
  // Author: David Weese <david.weese@fu-berlin.de>
  // ==========================================================================
  
  #ifndef SEQAN_HEADER_STORE_IO_H
  #define SEQAN_HEADER_STORE_IO_H
  
  #include <seqan/misc/misc_parsing.h>
  
  /* IOREV
   *
   * _doc_
   *
   *
   * if this file is about the amos file format why isn't it named accordingly?
   *
   * altogether it is unclear why sequence io is in file/ but store io is in
   * store/
   *
   */
  
  
  
  namespace SEQAN_NAMESPACE_MAIN
  {
  
  //////////////////////////////////////////////////////////////////////////////
  // File tags
  //////////////////////////////////////////////////////////////////////////////
  
  //////////////////////////////////////////////////////////////////////////////
  
  /**
  .Tag.File Format.tag.Amos message file:
  	Amos message file.
  ..include:seqan/store.h
  */
  struct TagAmos_;
  typedef Tag<TagAmos_> const Amos;
  
  
  //////////////////////////////////////////////////////////////////////////////
  // Auxillary functions
  //////////////////////////////////////////////////////////////////////////////
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#getClrRange
   * @brief Get the "clear" range of a read alignment.
   *
   * The clear range of a read alignment is the range of the part of the alignmetn that is not clipped.
   *
   * @signature void getClrRange(store, alignEl, begClr, endClr);
   *
   * @param[in]  store    The FragmentStore to work on.
   * @param[in]  alignEl  The @link AlignedReadStoreElement @endlink to work on.
   * @param[out] begClr   Begin of the clear range.
   * @param[out] endClr   End of the clear range.
   */
  
  
  /**
  .Function.getClrRange
  ..cat:Fragment Store
  ..summary:Get the "clear" range of a read alignment.
  ..remarks:The clear range of a read alignment is the range of the part of the alignment that is not clipped.
  ..signature:getClrRange(fragStore, alignEl, begClr, endClr)
  ..param.fragStore:Fragment Store to work on.
  ...type:Class.FragmentStore
  ..param.alignEl:Read alignment element.
  ...type:Class.AlignedReadStoreElement
  ..param.begClr:Start of the clear range.
  ..param.endClr:End of the clear range.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig, typename TPos, typename TGapAnchor, typename TSpecAlign, typename TBeginClr, typename TEndClr>
  inline void
  getClrRange(FragmentStore<TSpec, TConfig> const& fragStore,
  			AlignedReadStoreElement<TPos, TGapAnchor, TSpecAlign> const& alignEl,
  			TBeginClr& begClr,		// Out-parameter: left / begin position of the clear range
  			TEndClr& endClr)		// Out-parameter: right / end position of the clear range
  {
  	typedef FragmentStore<TSpec, TConfig> TFragmentStore;
  	typedef typename Size<TFragmentStore>::Type TSize;
  	typedef typename Iterator<String<TGapAnchor> const, Standard>::Type TGapIter;
  	
  	TSize lenRead = length(fragStore.readSeqStore[alignEl.readId]);
  	TGapIter itGap = begin(alignEl.gaps, Standard());
  	TGapIter itGapEnd = end(alignEl.gaps, Standard());
  	
  	// Any gaps or clipped characters?
  	if (itGap == itGapEnd) {
  		begClr = 0;
  		endClr = lenRead;
  	} else {
  		// Begin clear range
  		begClr = (itGap->gapPos == 0) ? itGap->seqPos : 0;
  		// End clear range
  		--itGapEnd;
  		if (static_cast<TSize>(itGapEnd->seqPos) != lenRead) endClr = lenRead;
  		else {
  			int diff = (itGap != itGapEnd) ? (*(itGapEnd - 1)).gapPos - (*(itGapEnd-1)).seqPos : 0;
  			int newDiff = itGapEnd->gapPos - itGapEnd->seqPos;
  			endClr = (newDiff < diff) ? lenRead - (diff - newDiff) : lenRead;	
  		}
  	}
  
  	// For reverse reads adapt clear ranges
  	if (alignEl.beginPos > alignEl.endPos) {
  		TBeginClr tmp = begClr;
  		begClr = lenRead - endClr;
  		endClr = lenRead - tmp;
  	}
  }
  
  
  
  //////////////////////////////////////////////////////////////////////////////
  // Read / Write of AMOS message files (*.afg)
  //////////////////////////////////////////////////////////////////////////////
  
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#read
   * @brief Read the contents of a FragmentStore from a file.
   *
   * @signature int read(file, store, tag);
   *
   * @param[in,out] file  The @link StreamConcept @endlink to read from.
   * @param[in,out] store The FragmentStore to append to.
   * @param[in]     tag   The format to read from.  Can be Amos or Sam.
   *
   * @return int 0 in the case of success, non-0 value in case of errors.
   */
  
  /**
  .Function.read
  ..cat:Fragment Store
  ..signature:read(file, fragStore, tag)
  ..param.fragStore:A fragment store. Currently @Tag.File Format.tag.Amos message file@ and @Tag.File Format.tag.Sam@ formats are supported.
  ...type:Class.FragmentStore
  ..param.tag.type:Tag.File Format.tag.Amos message file
  ..returns:An $int$ value with a status code. $0$ on success, a non-$0$ value on failure.
  ..include:seqan/store.h
  */
  
  template<typename TFile, typename TSpec, typename TConfig>
  inline int
  read(TFile & file,
  	 FragmentStore<TSpec, TConfig>& fragStore,
  	 Amos)
  {
  	// Basic types
  	typedef FragmentStore<TSpec, TConfig> TFragmentStore;
  	typedef typename Id<TFragmentStore>::Type TId;
  	typedef typename Size<TFragmentStore>::Type TSize;
  	//typedef typename Value<TFile>::Type TValue;
  	typedef typename TFragmentStore::TReadSeq TReadSeq;
  
  	// All fragment store element types
  	typedef typename Value<typename TFragmentStore::TContigStore>::Type TContigElement;
  	typedef typename Value<typename TFragmentStore::TLibraryStore>::Type TLibraryStoreElement;
  	typedef typename Value<typename TFragmentStore::TMatePairStore>::Type TMatePairElement;
  	typedef typename Value<typename TFragmentStore::TReadStore>::Type TReadStoreElement;
  	typedef typename Value<typename TFragmentStore::TAlignedReadStore>::Type TAlignedElement;
  
  	// All maps to mirror file ids to our ids
  	typedef std::map<TId, TSize> TIdMap;
  	// The following maps the library/fragment/read id from AMOS into the fragment store's ids.
  	TIdMap libIdMap;
  	TIdMap frgIdMap;
  	TIdMap readIdMap;
  	// For all paired reads (inferred from FRG), a mapping from the AMOS read id to the paired match id of the one
  	// alignment read from the AMOS file.  Note that this has the assumption that there is only one alignment per read
  	// in the AMOS file.
  	TIdMap readToPairMatchId;
  	// The id of the next pair match.
  	unsigned nextPairMatchId = 0;
  
      RecordReader<TFile, SinglePass<> > reader(file);
  
  	// Parse the file and convert the internal ids
      if (atEnd(reader))
          return 1;
  
      while (!atEnd(reader))
      {
  		// New block?
  		if (value(reader) == '{')
          {
              goNext(reader);
  			String<char> blockIdentifier;
              if (readAlphaNums(blockIdentifier, reader) != 0)
                  return 1;
              if (skipLine(reader) != 0)
                  return 1;
  
  			// Library block
  			if (blockIdentifier == "LIB")
              {
                  // The LIB block contains the mean template length/insert size and standard deviation thereof.  Besides
                  // the numeric id and (iid) a (external) name of the library (eid).
  				TLibraryStoreElement libEl;
  				TId _id = 0;
  				String<char> fieldIdentifier;
  				String<char> eid;
  				while (!atEnd(reader) && value(reader) != '}')
                  {
  					clear(fieldIdentifier);
                      if (readAlphaNums(fieldIdentifier, reader) != 0)
                          return 1;
  					if (fieldIdentifier == "iid")
                      {
                          goNext(reader);
                          CharString buffer;
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(_id, buffer))
                              return 1;
  					}
                      else if (fieldIdentifier == "eid")
                      {
                          goNext(reader);
                          if (readUntilOneOf(eid, reader, '\n', '\r') != 0)
                              return 1;
  					}
                      else if (fieldIdentifier == "mea" || fieldIdentifier == "std")
                      {
                          goNext(reader);
                          CharString buffer;
                          if (readFloat(buffer, reader) != 0)
                              return 1;
                          if (fieldIdentifier == "mea" && !lexicalCast2(libEl.mean, buffer))
                              return 1;
                          if (fieldIdentifier == "std" && !lexicalCast2(libEl.std, buffer))
                              return 1;
  					}
                      // Always skip over the remainder of the line.
                      if (skipLine(reader) != 0)
                          return 1;
  				}
  
                  // Skip '}'.
                  if (!atEnd(reader))
                  {
                      SEQAN_ASSERT_EQ(value(reader), '}');
                      goNext(reader);
                  }
  
                  // Insert library information into the fragmentstore.
  				libIdMap.insert(std::make_pair(_id, length(fragStore.libraryStore)));
  				appendValue(fragStore.libraryStore, libEl, Generous() );
  				appendValue(fragStore.libraryNameStore, eid, Generous() );
  			}
              else if (blockIdentifier == "FRG")
              {
                  // The FRG block contains the parent library (lib), links to the paired sequencing reads (rds), internal
                  // id (iid) and external id (eid).
  				TMatePairElement matePairEl;
  				TId _id = 0;
  				String<char> fieldIdentifier;
  				String<char> eid;
                  CharString buffer;
  				bool foundRds = false;
  				while (!atEnd(reader) && value(reader) != '}')
                  {
  					clear(fieldIdentifier);
                      if (readAlphaNums(fieldIdentifier, reader) != 0)
                          return 1;
  					if (fieldIdentifier == "iid")
                      {
                          goNext(reader);
                          clear(buffer);
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(_id, buffer))
                              return 1;
  					}
                      else if (fieldIdentifier == "eid")
                      {
                          goNext(reader);
                          if (readUntilOneOf(eid, reader, '\n', '\r') != 0)
                              return 1;
  					}
                      else if (fieldIdentifier == "lib")
                      {
                          goNext(reader);
                          clear(buffer);
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(matePairEl.libId, buffer))
                              return 1;
  					}
                      else if (fieldIdentifier == "rds")
                      {
                          goNext(reader);
  						foundRds = true;
                          clear(buffer);
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(matePairEl.readId[0], buffer))
                              return 1;
                          goNext(reader);
                          clear(buffer);
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(matePairEl.readId[1], buffer))
                              return 1;
  
  						// Store mapping to pair match id.
  						readToPairMatchId[matePairEl.readId[0]] = nextPairMatchId;
  						readToPairMatchId[matePairEl.readId[1]] = nextPairMatchId;
  						nextPairMatchId += 1;
                      }
                      // Always skip over the remainder of the line.
                      if (skipLine(reader) != 0)
                          return 1;
  				}
  
                  // Skip '}'.
                  if (!atEnd(reader))
                  {
                      SEQAN_ASSERT_EQ(value(reader), '}');
                      goNext(reader);
                  }
  
  				// Only insert valid mate pairs
  				if (foundRds) {
  					frgIdMap.insert(std::make_pair(_id, length(fragStore.matePairStore)));
  					appendValue(fragStore.matePairStore, matePairEl, Generous() );
  					appendValue(fragStore.matePairNameStore, eid, Generous() );
  				}
  			}
              else if (blockIdentifier == "RED")  // Read block.
              {
  				TId _id = 0;
  				String<char> fieldIdentifier;
  				String<char> eid;
  				String<char> qual;
                  CharString buffer;
  				// If matePairId is not updated, this yields to a singleton read below.
  				TId matePairId = TReadStoreElement::INVALID_ID;
  				TReadSeq seq;
                  while (!atEnd(reader) && value(reader) != '}')
                  {
  					clear(fieldIdentifier);
                      if (readAlphaNums(fieldIdentifier, reader) != 0)
                          return 1;
  					if (fieldIdentifier == "iid")
                      {
                          goNext(reader);
                          clear(buffer);
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(_id, buffer))
                              return 1;
  					}
                      else if (fieldIdentifier == "eid")
                      {
                          goNext(reader);
                          if (readUntilOneOf(eid, reader, '\n', '\r') != 0)
                              return 1;
  					}
                      else if (fieldIdentifier == "frg")
                      {
                          goNext(reader);
                          clear(buffer);
                          if (readDigits(buffer, reader) != 0)
                              return 1;
                          if (!lexicalCast2(matePairId, buffer))
                              return 1;
                      }
                      else if (fieldIdentifier == "seq")
                      {
                          goNext(reader);
                          clear(seq);
                          if (skipWhitespaces(reader) != 0)
                              return 1;
                          while (!atEnd(reader) && value(reader) != '.')
                          {
                              if (readLetters(seq, reader) != 0)
                                  return 1;
                              if (skipWhitespaces(reader) != 0)
                                  return 1;
                          }
                          // Skip '.'.
                          if (!atEnd(reader))
                          {
                              SEQAN_ASSERT_EQ(value(reader), '.');
                              goNext(reader);
                          }
                      }
                      else if (fieldIdentifier == "qlt")
                      {
                          // TODO(holtgrew): Problematic if . part of qualities, need to count chars.
                          goNext(reader);
                          clear(qual);
                          for (; !atEnd(reader) && value(reader) != '.'; goNext(reader))
                              if (isgraph(value(reader)))
                                  appendValue(qual, value(reader));
                      }
                      // Always skip over the remainder of the line.
                      if (skipLine(reader) != 0)
                          return 1;
  				}
  				// Set quality
  				assignQualities(seq, qual);
  
                  // Skip '}'.
                  if (!atEnd(reader))
                  {
                      SEQAN_ASSERT_EQ(value(reader), '}');
                      goNext(reader);
                  }
  
  				// Insert the read
  				readIdMap.insert(std::make_pair(_id, length(fragStore.readStore)));
  				appendRead(fragStore, seq, matePairId);
  				appendValue(fragStore.readNameStore, eid, Generous() );
  			}
              else if (blockIdentifier == "CTG")  // Contig block
              {
  				TContigElement contigEl;
  				TSize fromAligned = length(fragStore.alignedReadStore);
  				// TId _id = 0;
  				String<char> fieldIdentifier;
  				String<char> eid;
  				String<char> contigSeq;
  				String<char> contigQual;
                  String<char> buffer;
  				while (!atEnd(reader) && value(reader) != '}')
                  {
  					// Are we entering a TLE block
  					if (value(reader) == '{')
                      {
                          goNext(reader);
  						TAlignedElement alignEl;
  						String<char> fdIdentifier;
  						typedef typename TFragmentStore::TContigPos TContigPos;
  						TContigPos offsetPos = 0;
  						TContigPos clr1 = 0;
  						TContigPos clr2 = 0;
  						String<TContigPos> gaps;
  						while (!atEnd(reader) && value(reader) != '}')
                          {
  							clear(fdIdentifier);
                              if (readAlphaNums(fdIdentifier, reader) != 0)
                                  return 1;
  							if (fdIdentifier == "src")
                              {
                                  goNext(reader);
                                  clear(buffer);
                                  if (readDigits(buffer, reader) != 0)
                                      return 1;
                                  if (!lexicalCast2(alignEl.readId, buffer))
                                      return 1;
  							} else if (fdIdentifier == "off") {
                                  goNext(reader);
                                  if (atEnd(reader))
                                      return 1;
                                  if (value(reader) == '-')
                                  {
                                      offsetPos = 0;
                                  }
                                  else
                                  {
                                      clear(buffer);
                                      if (readDigits(buffer, reader) != 0)
                                          return 1;
                                      if (!lexicalCast2(offsetPos, buffer))
                                          return 1;
                                  }
  							}
                              else if (fdIdentifier == "clr")
                              {
                                  goNext(reader);
                                  clear(buffer);
                                  if (readDigits(buffer, reader) != 0)
                                      return 1;
                                  if (!lexicalCast2(clr1, buffer))
                                      return 1;
                                  goNext(reader);
                                  clear(buffer);
                                  if (readDigits(buffer, reader) != 0)
                                      return 1;
                                  if (!lexicalCast2(clr2, buffer))
                                      return 1;
  							}
                              else if (fdIdentifier == "gap")
                              {
                                  goNext(reader);
                                  if (skipWhitespaces(reader) != 0)
                                      return 1;
                                  for (; !atEnd(reader) && value(reader) != '.'; goNext(reader))
                                  {
                                      if (!isspace(value(reader)))
                                      {
                                          clear(buffer);
                                          if (readDigits(buffer, reader) != 0)
                                              return 1;
                                          TSize nextGap;
                                          if (!lexicalCast2(nextGap, buffer))
                                              return 1;
  										appendValue(gaps, nextGap);
                                      }
                                  }
  
                                  // Skip '.'.
                                  if (!atEnd(reader))
                                  {
                                      SEQAN_ASSERT_EQ(value(reader), '.');
                                      goNext(reader);
                                  }
  							}
                              // Always skip over the remainder of the line.
                              if (skipLine(reader) != 0)
                                  return 1;
  						}
                          if (!atEnd(reader) && skipLine(reader) != 0)
                              return 1;
  
  						// Get the length of the read
  						TId readId = (readIdMap.find(alignEl.readId))->second;
  						TSize lenRead = length(value(fragStore.readSeqStore, readId));
  
  						// Create the gap anchors
  						typedef typename TFragmentStore::TContigGapAnchor TContigGapAnchor;
  						int offset = 0;
  						if ((clr1 < clr2) && (clr1>0)) offset = clr1;
  						else if ((clr1 > clr2) && (clr1 < static_cast<TContigPos>(lenRead))) offset = lenRead - clr1;
  						int diff = -1 * (int) (offset);
  						// Clipped begin
  						if (offset != 0) appendValue(alignEl.gaps, TContigGapAnchor(offset, 0), Generous() );
  						// Internal gaps
  						typedef typename Iterator<String<TContigPos>, Standard>::Type TPosIter;
  						TPosIter posIt = begin(gaps, Standard());
  						TPosIter posItEnd = end(gaps, Standard());
  						TContigPos lastGap = 0;
  						TSize gapLen = 0;
  						TSize totalGapLen = 0;
  						for(;posIt!=posItEnd; goNext(posIt)) {
  							if (gapLen == 0) {
  								++gapLen; ++totalGapLen;
  								++diff;
  								lastGap = value(posIt);
  							}
  							else if (lastGap == value(posIt)) {
  								++gapLen; ++totalGapLen;
  								++diff;
  							}
  							else {
  								appendValue(alignEl.gaps, TContigGapAnchor(offset + lastGap, offset + lastGap + diff), Generous() );
  								gapLen = 1; ++totalGapLen;
  								lastGap = value(posIt);
  								++diff;
  							}
  						}
  						if (gapLen > 0) appendValue(alignEl.gaps, TContigGapAnchor(offset + lastGap, offset + lastGap + diff), Generous() );
  						// Clipped end
  						if ((clr1 < clr2) && (clr2 < static_cast<TContigPos>(lenRead))) {
  							diff -= (lenRead - clr2);
  							appendValue(alignEl.gaps, TContigGapAnchor(lenRead, lenRead + diff), Generous() );
  						} else if ((clr1 > clr2) && (clr2 > 0)) {
  							diff -= clr2;
  							appendValue(alignEl.gaps, TContigGapAnchor(lenRead, lenRead + diff), Generous() );
  						}
  
  						// Set begin and end position
  						if (clr1 < clr2) {
  							alignEl.beginPos = offsetPos;
  							alignEl.endPos = offsetPos + totalGapLen + (clr2 - clr1);
  						} else {
  							alignEl.beginPos = offsetPos + totalGapLen + (clr1 - clr2);
  							alignEl.endPos = offsetPos;
  						}
  
  						// Append new align fragment, note: contigId must still be set
  						alignEl.id = length(fragStore.alignedReadStore);
  						appendValue(fragStore.alignedReadStore, alignEl, Generous() );
  					}
                      else
                      {
                          // String<char> buffer;
  						clear(fieldIdentifier);
                          if (readAlphaNums(fieldIdentifier, reader) != 0)
                              return 1;
  						if (fieldIdentifier == "iid")
                          {
                              // goNext(reader);
                              // clear(buffer);
                              // if (readDigits(buffer, reader) != 0)
                              //     return 1;
                              // if (!lexicalCast2(_id, buffer))
                              //     return 1;
  						}
                          else if (fieldIdentifier == "eid")
                          {
                              goNext(reader);
                              if (readUntilOneOf(eid, reader, '\n', '\r') != 0)
                                  return 1;
  						}
                          else if (fieldIdentifier == "seq")
                          {
                              goNext(reader);
                              if (skipWhitespaces(reader) != 0)
                                  return 1;
                              while (!atEnd(reader) && value(reader) != '.')
                              {
                                  if (readLetters(contigSeq, reader) != 0)
                                      return 1;
                                  if (skipWhitespaces(reader) != 0)
                                      return 1;
                              }
                              // Skip '.'.
                              if (!atEnd(reader))
                              {
                                  SEQAN_ASSERT_EQ(value(reader), '.');
                                  goNext(reader);
                              }
  						}
                          else if (fieldIdentifier == "qlt")
                          {
                              goNext(reader);
                              // TODO(holtgrew): Problematic if . part of qualities, need to count chars.
                              clear(contigQual);
                              for (; !atEnd(reader) && value(reader) != '.'; goNext(reader))
                                  if (isgraph(value(reader)))
                                      appendValue(contigQual, value(reader));
  						}
                          // Always skip over the remainder of the line.
                          if (skipLine(reader) != 0)
                              return 1;
  					}
  				}
  
  				// Create the gap anchors
  				char gapChar = gapValue<char>();
  				typedef typename Iterator<String<char> >::Type TStringIter;
  				TStringIter seqIt = begin(contigSeq);
  				TStringIter seqItEnd = end(contigSeq);
  				TStringIter qualIt = begin(contigQual);
  				typedef typename TFragmentStore::TReadPos TPos;
  				typedef typename TFragmentStore::TContigGapAnchor TContigGapAnchor;
  				TPos ungappedPos = 0;
  				TPos gappedPos = 0;
  				bool gapOpen = false;
  				for(;seqIt != seqItEnd; goNext(seqIt), goNext(qualIt), ++gappedPos) {
  					if (value(seqIt) == gapChar)
                      {
  					    gapOpen = true;
                      }
  					else
  					{
  						if (gapOpen)
  						{
  							appendValue(contigEl.gaps, TContigGapAnchor(ungappedPos, gappedPos), Generous() );
  							gapOpen = false;
  						}
  						Dna5Q letter = value(seqIt);
  						assignQualityValue(letter, value(qualIt));
  						appendValue(contigEl.seq, letter, Generous() );
  						++ungappedPos;
  					}
  				}
  				if (gapOpen)
  				    appendValue(contigEl.gaps, TContigGapAnchor(ungappedPos, gappedPos), Generous() );
  
  				// Set the contigId in all aligned reads
  				TSize toAligned = length(fragStore.alignedReadStore);
  				TId newContigId = length(fragStore.contigStore);
  				for (; fromAligned < toAligned; ++fromAligned)
  					fragStore.alignedReadStore[fromAligned].contigId = newContigId;
  
  				// Insert the contig
  				appendValue(fragStore.contigStore, contigEl, Generous() );
  				appendValue(fragStore.contigNameStore, eid, Generous() );
  			} else {
                  if (skipLine(reader) != 0)
                      return 1;
  			}
  		} else {
              if (skipLine(reader) != 0)
                  return 1;
  		}
  	}
  
  	// Renumber all ids
  	typedef typename TIdMap::const_iterator TIdMapIter;
  	typedef typename Iterator<typename TFragmentStore::TMatePairStore>::Type TMateIter;
  	TMateIter mateIt = begin(fragStore.matePairStore);
  	TMateIter mateItEnd = end(fragStore.matePairStore);
  	for(;mateIt != mateItEnd; goNext(mateIt)) {
  		if (mateIt->libId != TMatePairElement::INVALID_ID) {
  			TIdMapIter libIdPos = libIdMap.find(mateIt->libId);
  			if (libIdPos != libIdMap.end())
  			    mateIt->libId = libIdPos->second;
  			else
  			    mateIt->libId = TMatePairElement::INVALID_ID;
  		}
  		if (mateIt->readId[0] != TMatePairElement::INVALID_ID) {
  			TIdMapIter readIdPos = readIdMap.find(mateIt->readId[0]);
  			if (readIdPos != readIdMap.end())
  			    mateIt->readId[0] = readIdPos->second;
  			else
  			    mateIt->readId[0] = TMatePairElement::INVALID_ID;
  		}
  		if (mateIt->readId[1]!= TMatePairElement::INVALID_ID) {
  			TIdMapIter readIdPos = readIdMap.find(mateIt->readId[1]);
  			if (readIdPos != readIdMap.end())
  			    mateIt->readId[1] = readIdPos->second;
  			else
  			    mateIt->readId[0] = TMatePairElement::INVALID_ID;
  		}
  	}
  
  	// Copy data from frgIdMap into the matePairId members of the readStore.
  	typedef typename Iterator<typename TFragmentStore::TReadStore>::Type TReadIter;
  	TReadIter readIt = begin(fragStore.readStore);
  	TReadIter readItEnd = end(fragStore.readStore);
  	for (;readIt != readItEnd; goNext(readIt))
  	{
  		if (readIt->matePairId != TReadStoreElement::INVALID_ID)
  		{
  			TIdMapIter mateIdPos = frgIdMap.find(readIt->matePairId);
  			if (mateIdPos != frgIdMap.end())
  			    readIt->matePairId = mateIdPos->second;
  			else
  			    readIt->matePairId = TReadStoreElement::INVALID_ID;
  		}
  	}
  
  	// Copy data from readIdMap into the pairMatchId entries of the alignedReadStore.
  	typedef typename Iterator<typename TFragmentStore::TAlignedReadStore>::Type TAlignIter;
  	TAlignIter alignIt = begin(fragStore.alignedReadStore);
  	TAlignIter alignItEnd = end(fragStore.alignedReadStore);
  	for (;alignIt != alignItEnd; goNext(alignIt))
  	{
  		if (alignIt->readId != TAlignedElement::INVALID_ID)
  		{
  			TIdMapIter readIdPos = readIdMap.find(alignIt->readId);
  			if (readIdPos != readIdMap.end())
              {
                  //SEQAN_ASSERT(readToPairMatchId.find(alignIt->readId) != readToPairMatchId.end());
                  if (readToPairMatchId.find(alignIt->readId) != readToPairMatchId.end())
                      alignIt->pairMatchId = readToPairMatchId[alignIt->readId];
  			    alignIt->readId = readIdPos->second;
              }
  			else
              {
  			    alignIt->readId = TAlignedElement::INVALID_ID;
              }
  		}
  	}
  
      return 0;
  }
  
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#write
   * @brief Write the contents of a FragmentStore to a file.
   *
   * @signature int write(file, store, tag);
   *
   * @param[in,out] file  The @link StreamConcept @endlink to write to.
   * @param[in]     store The FragmentStore to write to the file.
   * @param[in]     tag   The format to write out.  Types: Sam or Amos.
   *
   * @return int 0 in case of success, 1 in case of errors.
   */
  
  /**
  .Function.write
  ..cat:Fragment Store
  ..signature:int write(file, fragStore, tag)
  ..param.fragStore:A fragment store.
  ...type:Class.FragmentStore
  ..param.tag.type:Tag.File Format.tag.Amos message file
  ..returns:An $int$ with the status code. $0$ on success, non-$0$ on errors.
  ..include:seqan/store.h
  */
  
  template<typename TFile, typename TSpec, typename TConfig>
  inline int
  write(TFile & target,
  	  FragmentStore<TSpec, TConfig>& fragStore,
  	  Amos)
  {
      // Basic types
      typedef FragmentStore<TSpec, TConfig> TFragmentStore;
      //typedef typename Id<TFragmentStore>::Type TId;
      typedef typename Size<TFragmentStore>::Type TSize;
      //typedef typename Value<TFile>::Type TValue;
  
      // All fragment store element types
      //typedef typename Value<typename TFragmentStore::TContigStore>::Type TContigElement;
      //typedef typename Value<typename TFragmentStore::TLibraryStore>::Type TLibraryStoreElement;
      typedef typename Value<typename TFragmentStore::TMatePairStore>::Type TMatePairElement;
      typedef typename Value<typename TFragmentStore::TReadStore>::Type TReadStoreElement;
      //typedef typename Value<typename TFragmentStore::TAlignedReadStore>::Type TAlignedElement;
  
      // Write Header
      String<char> temp = "{UNV\niid:1\neid:seqan\ncom:\nafg file created with SeqAn\n.\n}\n";
      if (streamWriteBlock(target, &temp[0], length(temp)) != length(temp))
          return 1;
  
      // Write Libraries
      typedef typename Iterator<typename TFragmentStore::TLibraryStore, Standard>::Type TLibIter;
      TLibIter libIt = begin(fragStore.libraryStore, Standard() );
      TLibIter libItEnd = end(fragStore.libraryStore, Standard() );
      bool noNamesPresent = (length(fragStore.libraryNameStore) == 0);
      for(TSize idCount = 0;libIt != libItEnd; goNext(libIt), ++idCount) {
          if (streamWriteBlock(target,"{LIB\n", 5) != 5)
              return 1;
          if (streamWriteBlock(target,"iid:", 4) != 4)
              return 1;
          if (streamPut(target, idCount + 1))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if (!noNamesPresent) {
              if (streamWriteBlock(target,"eid:", 4) != 4)
                  return 1;
              if (streamWriteBlock(target, &value(fragStore.libraryNameStore, idCount)[0], length(value(fragStore.libraryNameStore, idCount))) != length(value(fragStore.libraryNameStore, idCount)))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if (streamWriteBlock(target,"{DST\n", 5u) != 5u)
              return 1;
          if (streamWriteBlock(target,"mea:", 4u) != 4u)
              return 1;
          if (streamPut(target, libIt->mean))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if (streamWriteBlock(target,"std:", 4u) != 4u)
              return 1;
          if (streamPut(target, libIt->std))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if (streamWriteBlock(target,"}\n", 2u) != 2u)
              return 1;
          if (streamWriteBlock(target,"}\n", 2u) != 2u)
              return 1;
      }
  
      // Write Fragments / mate pairs
      typedef typename Iterator<typename TFragmentStore::TMatePairStore, Standard>::Type TMateIter;
      TMateIter mateIt = begin(fragStore.matePairStore, Standard() );
      TMateIter mateItEnd = end(fragStore.matePairStore, Standard() );
      noNamesPresent = (length(fragStore.matePairNameStore) == 0);
      for(TSize idCount = 0;mateIt != mateItEnd; goNext(mateIt), ++idCount) {
          if (streamWriteBlock(target,"{FRG\n", 5u) != 5u)
              return 1;
          if (streamWriteBlock(target,"iid:", 4u) != 4u)
              return 1;
          if (streamPut(target, idCount + 1))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if (!noNamesPresent) {
              if (streamWriteBlock(target,"eid:", 4u) != 4u)
                  return 1;
              if (streamWriteBlock(target, &value(fragStore.matePairNameStore, idCount)[0], length(value(fragStore.matePairNameStore, idCount))) != length(value(fragStore.matePairNameStore, idCount)))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if (streamWriteBlock(target,"lib:", 4u) != 4u)
              return 1;
          if (streamPut(target, mateIt->libId + 1))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if ((mateIt->readId[0] != TMatePairElement::INVALID_ID) && (mateIt->readId[1] != TMatePairElement::INVALID_ID)) {
              if (streamWriteBlock(target,"rds:", 4u) != 4u)
                  return 1;
              if (streamPut(target, mateIt->readId[0] + 1))
                  return 1;
              if (streamWriteChar(target, ','))
                  return 1;
              if (streamPut(target, mateIt->readId[1] + 1))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if (streamWriteBlock(target,"}\n", 2u) != 2u)
              return 1;
      }
  
      // Get clear ranges
      typedef Pair<typename TFragmentStore::TReadPos, typename TFragmentStore::TReadPos> TClrRange;
      String<TClrRange> clrRange;
      resize(clrRange, length(fragStore.readStore), TClrRange(0,0));
      typedef typename Iterator<typename TFragmentStore::TAlignedReadStore, Standard>::Type TAlignIter;
      TAlignIter alignIt = begin(fragStore.alignedReadStore, Standard() );
      TAlignIter alignItEnd = end(fragStore.alignedReadStore, Standard() );
      for(;alignIt != alignItEnd; goNext(alignIt)) {
          typename TFragmentStore::TReadPos begClr = 0;
          typename TFragmentStore::TReadPos endClr = 0;
          getClrRange(fragStore, value(alignIt), begClr, endClr);
          value(clrRange, alignIt->readId) = TClrRange(begClr, endClr);
      }
  
      // Write reads
      typedef typename Iterator<typename TFragmentStore::TReadStore, Standard>::Type TReadIter;
      TReadIter readIt = begin(fragStore.readStore, Standard() );
      TReadIter readItEnd = end(fragStore.readStore, Standard() );
      noNamesPresent = (length(fragStore.readNameStore) == 0);
      for(TSize idCount = 0;readIt != readItEnd; ++readIt, ++idCount) {
          // Skip reads without a name.
          if (length(value(fragStore.readNameStore, idCount)) == 0u)
              continue;
          if (streamWriteBlock(target,"{RED\n", 5u) != 5u)
              return 1;
          if (streamWriteBlock(target,"iid:", 4u) != 4u)
              return 1;
          if (streamPut(target, idCount + 1))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if (!noNamesPresent) {
              if (streamWriteBlock(target,"eid:", 4u) != 4u)
                  return 1;
              if (streamWriteBlock(target, &value(fragStore.readNameStore, idCount)[0], length(value(fragStore.readNameStore, idCount))) != length(value(fragStore.readNameStore, idCount)))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if (streamWriteBlock(target,"seq:\n", 5u) != 5u)
              return 1;
          typedef typename Iterator<typename TFragmentStore::TReadSeq const>::Type TSeqIter;
          TSeqIter seqIt = begin(value(fragStore.readSeqStore, idCount));
          TSeqIter seqItEnd = end(value(fragStore.readSeqStore, idCount));
          for(TSize k = 0;seqIt!=seqItEnd;goNext(seqIt), ++k) {
              if ((k % 60 == 0) && (k != 0))
                  if (streamWriteChar(target, '\n'))
                      return 1;
              if (streamWriteChar(target, getValue(seqIt)))
                      return 1;
          }
          if (streamWriteBlock(target, "\n.\n", 3u) != 3u)
              return 1;
          if (streamWriteBlock(target,"qlt:\n", 5u) != 5u)
              return 1;
          seqIt = begin(value(fragStore.readSeqStore, idCount));
          for(TSize k = 0;seqIt!=seqItEnd;goNext(seqIt), ++k) {
              if ((k % 60 == 0) && (k != 0))
                  streamWriteChar(target, '\n');
              Ascii c = ' ';
              convertQuality(c, getQualityValue(value(seqIt)));
              if (streamPut(target, c))
                  return 1;
          }
          if (streamWriteBlock(target, "\n.\n", 3u) != 3u)
              return 1;
          if (readIt->matePairId != TReadStoreElement::INVALID_ID) {
              if (streamWriteBlock(target,"frg:", 4u) != 4u)
                  return 1;
              if (streamPut(target, readIt->matePairId + 1))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if ((value(clrRange, idCount)).i1 != (value(clrRange, idCount)).i2) {
              if (streamWriteBlock(target,"clr:", 4u) != 4u)
                  return 1;
              if (streamPut(target, (value(clrRange, idCount)).i1))
                  return 1;
              if (streamWriteChar(target, ','))
                  return 1;
              if (streamPut(target, (value(clrRange, idCount)).i2))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if (streamWriteBlock(target,"}\n", 2u) != 2u)
              return 1;
      }
  
      // Sort aligned reads according to contigId
      sortAlignedReads(fragStore.alignedReadStore, SortContigId());
  
      // Write Contigs
      typedef typename Iterator<typename TFragmentStore::TContigStore, Standard>::Type TContigIter;
      TContigIter contigIt = begin(fragStore.contigStore, Standard() );
      TContigIter contigItEnd = end(fragStore.contigStore, Standard() );
      alignIt = begin(fragStore.alignedReadStore);
      alignItEnd = end(fragStore.alignedReadStore);
      noNamesPresent = (length(fragStore.contigNameStore) == 0);
      for(TSize idCount = 0;contigIt != contigItEnd; goNext(contigIt), ++idCount) {
          if (streamWriteBlock(target,"{CTG\n", 5u ) != 5u)
              return 1;
          if (streamWriteBlock(target,"iid:", 4u) != 4u)
              return 1;
          if (streamPut(target, idCount + 1))
              return 1;
          if (streamWriteChar(target, '\n'))
              return 1;
          if (!noNamesPresent) {
              if (streamWriteBlock(target,"eid:", 4u) != 4u)
                  return 1;
              if (streamWriteBlock(target, &value(fragStore.contigNameStore, idCount)[0], length(value(fragStore.contigNameStore, idCount))) != length(value(fragStore.contigNameStore, idCount)))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          String<char> qlt;
          if (streamWriteBlock(target,"seq:\n", 5u) != 5u)
              return 1;
          typedef typename Iterator<typename TFragmentStore::TContigSeq>::Type TContigIter;
          TContigIter seqContigIt = begin(contigIt->seq);
          TContigIter seqContigItEnd = end(contigIt->seq);
          typedef typename Iterator<String<typename TFragmentStore::TContigGapAnchor> >::Type TGapsIter;
          TGapsIter itGaps = begin(contigIt->gaps);
          TGapsIter itGapsEnd = end(contigIt->gaps);
          int diff = 0;
          char gapChar = gapValue<char>();
          typename TFragmentStore::TContigPos mySeqPos = 0;
          TSize k = 0;
          for(;itGaps != itGapsEnd; goNext(itGaps)) {
              while (mySeqPos < itGaps->seqPos) {
                  if ((k % 60 == 0) && (k != 0))
                      if (streamWriteChar(target, '\n'))
                          return 1;
                  ++k;
                  if (streamWriteChar(target, value(seqContigIt)))
                      return 1;
                  Ascii c = ' ';
                  convertQuality(c, getQualityValue(value(seqContigIt)));
                  appendValue(qlt, c, Generous() );
                  goNext(seqContigIt);++mySeqPos;
              }
              for(int i = 0; i < ((int) itGaps->gapPos - (int) itGaps->seqPos) - diff; ++i) {
                  if ((k % 60 == 0) && (k != 0))
                      streamWriteChar(target, '\n');
                  ++k;
                  if (streamWriteChar(target, gapChar))
                      return 1;
                  appendValue(qlt, '0', Generous() );
              }
              diff = (itGaps->gapPos - itGaps->seqPos);
          }
          for(;seqContigIt != seqContigItEnd; goNext(seqContigIt)) {
              if ((k % 60 == 0) && (k != 0))
                  streamWriteChar(target, '\n');
              ++k;
              if (streamWriteChar(target, value(seqContigIt)))
                  return 1;
              Ascii c = ' ';
              convertQuality(c, getQualityValue(value(seqContigIt)));
              appendValue(qlt, c, Generous() );
          }
          if (streamWriteBlock(target, "\n.\n", 3u ) != 3u)
              return 1;
          if (streamWriteBlock(target,"qlt:\n", 5u) != 5u)
              return 1;
          for(TSize k = 0;k<length(qlt); k+=60) {
              TSize endK = k + 60;
              if (endK > length(qlt))
                  endK = length(qlt);
              if (streamWriteBlock(target, &infix(qlt, k, endK)[0], length(infix(qlt, k, endK))) != length(infix(qlt, k, endK)))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
          }
          if (streamWriteBlock(target, ".\n", 2u) != 2u)
              return 1;
  
          while ((alignIt != alignItEnd) && (idCount < alignIt->contigId)) goNext(alignIt);
          for(;(alignIt != alignItEnd) && (idCount == alignIt->contigId); goNext(alignIt)) {
              if (streamWriteBlock(target,"{TLE\n", 5u) != 5u)
                  return 1;
              if (streamWriteBlock(target,"src:", 4u) != 4u)
                  return 1;
              if (streamPut(target, alignIt->readId + 1))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
              typedef typename Iterator<String<typename TFragmentStore::TReadGapAnchor> >::Type TReadGapsIter;
              TReadGapsIter itGaps = begin(alignIt->gaps);
              TReadGapsIter itGapsEnd = end(alignIt->gaps);
  
              // Create the gaps string and the clear ranges
              typename TFragmentStore::TReadPos lenRead = length(value(fragStore.readSeqStore, alignIt->readId));
              TSize clr1 = 0;
              TSize clr2 = lenRead;
              // Create first clear range
              if ((itGaps != itGapsEnd) && (itGaps->gapPos == 0)) clr1 = itGaps->seqPos;
              int diff = clr1;
              String<unsigned int> gaps;
              for(;itGaps != itGapsEnd; goNext(itGaps)) {
                  for(int i = 0; i< diff - ((int) itGaps->seqPos - (int) itGaps->gapPos); ++i) {
                      appendValue(gaps, itGaps->seqPos - clr1, Generous() );
                  }
                  // Clipped sequence
                  if (diff - ((int) itGaps->seqPos - (int) itGaps->gapPos) < 0) {
                      clr2 = lenRead + diff - ((int) itGaps->seqPos - (int) itGaps->gapPos);
                  }
                  diff = ((int) itGaps->seqPos - (int) itGaps->gapPos);
              }
              if (alignIt->beginPos > alignIt->endPos) {
                  clr1 = lenRead - clr1;
                  clr2 = lenRead - clr2;
              }
              if (streamWriteBlock(target,"off:", 4u) != 4u)
                  return 1;
              if (alignIt->beginPos < alignIt->endPos)
              {
                  if (streamPut(target, alignIt->beginPos))
                      return 1;
              }
              else
              {
                  streamPut(target, alignIt->endPos);
              }
              if (streamWriteChar(target, '\n'))
                  return 1;
              if (streamWriteBlock(target,"clr:", 4u) != 4u)
                  return 1;
              if (streamPut(target, clr1))
                  return 1;
              if (streamWriteChar(target, ','))
                  return 1;
              if (streamPut(target, clr2))
                  return 1;
              if (streamWriteChar(target, '\n'))
                  return 1;
              if (length(gaps)) {
                  if (streamWriteBlock(target,"gap:\n", 5u) != 5u)
                      return 1;
                  for(TSize z = 0;z<length(gaps); ++z) {
                      if (streamPut(target, value(gaps, z)))
                          return 1;
                      if (streamWriteChar(target, '\n'))
                          return 1;
                  }
                  if (streamWriteBlock(target, ".\n", 2u) != 2u)
                      return 1;
              }
              if (streamWriteBlock(target,"}\n", 2u) != 2u)
                  return 1;
          }
          if (streamWriteBlock(target,"}\n", 2u) != 2u)
              return 1;
      }
      return 0;
  }
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#writeContigs
   * @brief Write contigs from FragmentStore into a @link StreamConcept @endlink.
   *
   * @signature bool writeContigs(file, store, tag);
   *
   * @param[in,out] file  The @link StreamConcept @endlink to write to.
   * @param[in]     store The FragmentStore to write contigs of.
   * @param[in]     tag   A tag for the sequence format.
   *
   * @return bool true on success, false on errors.
   */ 
  
  /**
  .Function.writeContigs
  ..class:Class.FragmentStore
  ..summary:Write contigs from fragment store into file.
  ..cat:Fragment Store
  ..signature:writeContigs(file, store, tag)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.file:A file/stream.
  ..param.tag:Specify format to write, e.g. Fasta.
  ..returns:A $bool$ which is $true$ on success.
  ..include:seqan/store.h
  */
  template <typename TStream, typename TFSSpec, typename TFSConfig, typename TFormat>
  bool writeContigs(TStream & file, FragmentStore<TFSSpec, TFSConfig> & store, TFormat const &)
  {
  //IOREV _doc_
  	for (unsigned i = 0; i < length(store.contigNameStore); ++i)
  		write(file, store.contigStore[i].seq, store.contigNameStore[i], TFormat());
  	return true;
  }
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#loadContigs
   * @brief Load contigs into a FragmentStore.
   *
   * @signature bool loadContigs(store, fileName[, loadSeqs]);
   * @signature bool loadContigs(store, fileNameList[, loadSeqs]);
   *
   * @param[in,out] store        The FragmentStore to append the contigs to.
   * @param[in]     fileName     A @link CharString @endlink with the name of the file to load.
   * @param[in]     fileNameList A @link StringSet @endlink of @link CharString @endlink with a list of file names to
   *                             load.
   * @param[in]     loadSeqs     A <tt>bool</tt> indicating whether to load lazily.  If <tt>true</tt> then sequences are
   *                             loaded immediately.  If <tt>false</tt>, an emptycontig with a reference to the file is
   *                             created.  Its sequence can be loaded on demand by @link FragmentStore#lockContig
   *                             @endlink and @link FragmentStore#loadContig @endlink.
   *
   * @return bool true in case of success and false in case of error.
   */
  
  /**
  .Function.loadContigs
  ..class:Class.FragmentStore
  ..summary:Loads contigs into fragment store.
  ..cat:Fragment Store
  ..signature:loadContigs(store, fileName[, loadSeqs])
  ..signature:loadContigs(store, fileNameList[, loadSeqs])
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.fileName:A sequence file name.
  ...type:Shortcut.CharString
  ..param.fileNameList:A @Class.StringSet@ of sequence file names.
  ...type:Class.StringSet
  ..param.loadSeqs:If $true$, sequences are loaded immediately. 
  If $false$, an empty contig with a reference to the file is created. Its sequence can be loaded on-demand by @Function.lockContig@ or @Function.loadContig@.
  ...default:$true$
  ...type:nolink:bool
  ..returns:A $bool$ which is $true$ on success.
  ..include:seqan/store.h
  */
  
  template <typename TFSSpec, typename TFSConfig>
  bool loadContigs(FragmentStore<TFSSpec, TFSConfig> &store, StringSet<CharString> const &fileNameList, bool loadSeqs)
  {
  //IOREV _nodoc_ although there is dddoc, there is no entry in html-doc
  	typedef FragmentStore<TFSSpec, TFSConfig>			TFragmentStore;
  	typedef typename TFragmentStore::TContigStore		TContigStore;
  	typedef typename TFragmentStore::TContigFileStore	TContigFileStore;
  	typedef typename Value<TContigStore>::Type			TContig;
  	typedef typename Value<TContigFileStore>::Type		TContigFile;
  	
  	unsigned seqOfs = length(store.contigStore);
  	for (unsigned filecount = 0; filecount < length(fileNameList); ++filecount)
  	{
  		MultiSeqFile multiSeqFile;
  		if (!open(multiSeqFile.concat, toCString(fileNameList[filecount]), OPEN_RDONLY))
  			return false;
  
  		TContigFile contigFile;
  		guessFormat(multiSeqFile.concat, contigFile.format);		// guess file format
  		split(multiSeqFile, contigFile.format);						// divide into single sequences
  
  		contigFile.fileName = fileNameList[filecount];
  		contigFile.firstContigId = seqOfs;
  		appendValue(store.contigFileStore, contigFile, Generous());
  
  		unsigned seqCount = length(multiSeqFile);
  		resize(store.contigStore, seqOfs + seqCount, Generous());
  		resize(store.contigNameStore, seqOfs + seqCount, Generous());
  		for (unsigned i = 0; i < seqCount; ++i)
  		{
  			store.contigStore[seqOfs + i].usage = 0;
  			store.contigStore[seqOfs + i].fileBeginPos = beginPosition(multiSeqFile[i]);
  			store.contigStore[seqOfs + i].fileEndPos = endPosition(multiSeqFile[i]);
  			store.contigStore[seqOfs + i].fileId = length(store.contigFileStore) - 1;
  			if (loadSeqs)
  				assignSeq(store.contigStore[seqOfs + i].seq, multiSeqFile[i], contigFile.format);	// read Genome sequence
  			else
              {
                  typename TContig::TContigSeq emptySeq;
                  swap(store.contigStore[seqOfs + i].seq, emptySeq);
              }
  			assignCroppedSeqId(store.contigNameStore[seqOfs + i], multiSeqFile[i], contigFile.format);
  		}
  		seqOfs += seqCount;
  	}
  	reserve(store.contigStore, seqOfs, Exact());
  	return seqOfs > 0;
  }
  
  //////////////////////////////////////////////////////////////////////////////
  
  template <typename TFSSpec, typename TFSConfig>
  bool loadContigs(FragmentStore<TFSSpec, TFSConfig> &store, CharString const &fileName, bool loadSeqs)
  {
  	StringSet<CharString> fileNames;
  	appendValue(fileNames, fileName);
  	return loadContigs(store, fileNames, loadSeqs);
  }
  
  //////////////////////////////////////////////////////////////////////////////
  
  template <typename TFSSpec, typename TFSConfig, typename TFileNames>
  bool loadContigs(FragmentStore<TFSSpec, TFSConfig> &store, TFileNames const &fileNames)
  {
  	return loadContigs(store, fileNames, true);
  }
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#loadContig
   * @brief Manually load a contig sequence.
   *
   * @signature bool loadContig(store, contigId);
   *
   * @param[in,out] store    The FragmentStore to load the contig for.
   * @param[in]     contigId The id of the contig that was created earlier by @link FragmentStore#loadContigs @endlink.
   *
   * @return bool true on success, false on failure.
   */
  
  /**
  .Function.loadContig
  ..class:Class.FragmentStore
  ..summary:Manually loads a contig sequence.
  ..cat:Fragment Store
  ..signature:loadContig(store, contigId)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.contigId:Id of the contig which was created earlier by @Function.loadContigs@.
  ..returns:A $bool$ which is $true$ on success.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig, typename TId>
  bool loadContig(FragmentStore<TSpec, TConfig> &store, TId _id)
  {
  	typedef FragmentStore<TSpec, TConfig>				TFragmentStore;
  	typedef typename TFragmentStore::TContigStore		TContigStore;
  	typedef typename TFragmentStore::TContigFileStore	TContigFileStore;
  	typedef typename Value<TContigStore>::Type			TContig;
  	typedef typename Value<TContigFileStore>::Type		TContigFile;
  
  	if ((TId)length(store.contigStore) <= _id) return false;
  	TContig &contig = store.contigStore[_id];
  
  	if (contig.fileId >= length(store.contigFileStore)) return false;
  	
  	TContigFile &contigFile = store.contigFileStore[contig.fileId];
  	String<char, MMap<> > fileString(toCString(contigFile.fileName), OPEN_RDONLY);
  	assignSeq(contig.seq, infix(fileString, contig.fileBeginPos, contig.fileEndPos), contigFile.format);			// read Read sequence
  
  	return true;
  }
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#lockContig
   * @brief Locks a contig sequence from being removed.
   *
   * This function increases the contig usage counter by 1 and ensures that the contig sequence is loaded.
   *
   * @signature bool lockContig(store, contigId);
   *
   * @param[in,out] store    The FragmentStore to lock the contig for.
   * @param[in]     contigId The id of the contig that was created earlier by @link FragmentStore#loadContigs @endlink.
   *
   * @return bool true on success, false on failure.
   */
  
  /**
  .Function.lockContig
  ..summary:Locks a contig sequence from being removed.
  ..cat:Fragment Store
  ..signature:lockContig(store, contigId)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.contigId:Id of the contig which was created earlier by @Function.loadContigs@.
  ..returns:A $bool$ which is $true$ on success.
  ..remarks:This function increases the contig usage counter by 1 and ensures that the contig sequence is loaded.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig, typename TId>
  bool lockContig(FragmentStore<TSpec, TConfig> &store, TId _id)
  {
  	typedef FragmentStore<TSpec, TConfig>				TFragmentStore;
  	typedef typename TFragmentStore::TContigStore		TContigStore;
  	typedef typename Value<TContigStore>::Type			TContig;
  
  	if ((TId)length(store.contigStore) <= _id) return false;
  	TContig &contig = store.contigStore[_id];
  
  	if (contig.usage++ > 0 || !empty(contig.seq)) return true;
  	return loadContig(store, _id);
  }
  
  /*!
   * @fn FragmentStore#unlockContig
   * @brief Removes a previous contig lock.
   *
   * This function decreases the contig usage counter by 1.
   *
   * @signature bool unlockContig(store, contigId);
   *
   * @param[in,out] store    The FragmentStore to unlock the contig for.
   * @param[in]     contigId The id of the contig that was created earlier by @link FragmentStore#loadContigs @endlink.
   *
   * @return bool true on success, false on failure.
   */
  
  /**
  .Function.unlockContig
  ..summary:Removes a previous contig lock.
  ..cat:Fragment Store
  ..signature:unlockContig(store, contigId)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.contigId:Id of the contig which was created earlier by @Function.loadContigs@.
  ..returns:A $bool$ which is $true$ on success.
  ..remarks:This function decreases the contig usage counter by 1.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig, typename TId>
  bool unlockContig(FragmentStore<TSpec, TConfig> &store, TId _id)
  {
  	if ((TId)length(store.contigStore) <= _id) return false;
  	--store.contigStore[_id].usage;
  	return true;
  }
  
  /*!
   * @fn FragmentStore#unlockAndFreeContig
   * @brief Removes a previous contig lock and clears the sequence if no further lock exists.
   *
   * This function decreases the contig usage counter by 1 and frees the sequences' memory if the counter equals 0.
   *
   * @signature bool unlockContig(store, contigId);
   *
   * @param[in,out] store    The FragmentStore to unlock the contig for.
   * @param[in]     contigId The id of the contig that was created earlier by @link FragmentStore#loadContigs @endlink.
   *
   * @return bool true on success, false on failure.
   */
  
  /**
  .Function.unlockAndFreeContig
  ..summary:Removes a previous contig lock and clears sequence no further lock exist.
  ..cat:Fragment Store
  ..signature:unlockAndFreeContig(store, contigId)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.contigId:Id of the contig which was created earlier by @Function.loadContigs@.
  ..returns:A $bool$ which is $true$ on success.
  ..remarks:This function decreases contig usage counter by 1 and clears contig sequence if counter is 0.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig, typename TId>
  bool unlockAndFreeContig(FragmentStore<TSpec, TConfig> &store, TId _id)
  {
  	typedef FragmentStore<TSpec, TConfig>				TFragmentStore;
  	typedef typename TFragmentStore::TContigStore		TContigStore;
  	typedef typename Value<TContigStore>::Type			TContig;
  
  	if ((TId)length(store.contigStore) <= _id) return false;
  	TContig &contig = store.contigStore[_id];
  
  	if (--contig.usage == 0 && contig.fileId < length(store.contigFileStore))
  	{
          typename TContig::TContigSeq emptySeq;
          swap(contig.seq, emptySeq);
  		return true;
  	}
  	return false;
  }
  
  /*!
   * @fn FragmentStore#lockContigs
   * @brief Locks all contig sequences from being remove.
   *
   * @signature bool lockContigs(store);
   *
   * @param[in,out] store    The FragmentStore to lock the contigs for.
   *
   * @return bool true in case of success, false in case of errors.
   */
  
  /**
  .Function.lockContigs
  ..summary:Locks all contig sequences from being removed. 
  ..cat:Fragment Store
  ..signature:lockContigs(store)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..returns:A $bool$ which is $true$ on success.
  ..remarks:Calls @Function.lockContig@ for all contigs.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig>
  bool lockContigs(FragmentStore<TSpec, TConfig> &store)
  {
  	bool result = true;
  	for (unsigned _id = 0; _id < length(store.contigStore); ++_id)
  		result &= lockContig(store, _id);
  	return result;
  }
  
  /*!
   * @fn FragmentStore#unlockContigs
   * @brief Unlocks all contig sequences.
   *
   * @signature bool unlockContigs(store);
   *
   * @param[in,out] store    The FragmentStore to unlock the contigs for.
   *
   * @return bool true in case of success, false in case of errors.
   */
  
  /**
  .Function.unlockContigs
  ..summary:Removes a previous lock for all contigs.
  ..cat:Fragment Store
  ..signature:unlockContigs(store)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..returns:A $bool$ which is $true$ on success.
  ..remarks:Calls @Function.unlockContig@ for all contigs.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig>
  bool unlockContigs(FragmentStore<TSpec, TConfig> &store)
  {
  	bool result = true;
  	for (unsigned _id = 0; _id < length(store.contigStore); ++_id)
  		result &= unlockContig(store, _id);
  	return result;
  }
  
  /*!
   * @fn FragmentStore#unlockAndFreeContigs
   * @brief Unlocks all contig sequences and clears sequences without lock.
   *
   * @signature bool unlockAndFreeContigs(store);
   *
   * @param[in,out] store    The FragmentStore to unlock the contigs for.
   *
   * @return bool true in case of success, false in case of errors.
   */
  
  /**
  .Function.unlockAndFreeContigs
  ..summary:Removes a previous lock for all contigs and clears sequences without lock.
  ..cat:Fragment Store
  ..signature:unlockAndFreeContigs(store)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..returns:A $bool$ which is $true$ on success.
  ..remarks:Calls @Function.unlockAndFreeContigs@ for all contigs.
  ..include:seqan/store.h
  */
  
  template <typename TSpec, typename TConfig>
  bool unlockAndFreeContigs(FragmentStore<TSpec, TConfig> &store)
  {
  	bool result = true;
  	for (unsigned _id = 0; _id < length(store.contigStore); ++_id)
  		result &= unlockAndFreeContig(store, _id);
  	return result;
  }
  
  
  //////////////////////////////////////////////////////////////////////////////
  
  /*!
   * @fn FragmentStore#loadReads
   * @brief Loads reads into FragmentStore
   *
   * When two file names are given thent he files are expected to containt he same number of reads and reads with the same
   * index are assumed to be mate pairs.  Mate pairs are stored internally in an "interleaved mode": a read is read from
   * each file before reading the next one.
   *
   * @signature bool loadReads(store, fileName);
   * @signature bool loadReads(store, fileNameL, fileNameR);
   *
   * @param[in,out] store     The FragmentStore to append the reads to.
   * @param[in]     fileName  Path to single-end read file.
   * @param[in]     fileNameL Path to left read file in case of paired reads.
   * @param[in]     fileNameR Path to right read file in case of paired reads.
   *
   * @return bool true in case of success, false in case of errors.
   */
  
  /**
  .Function.loadReads
  ..class:Class.FragmentStore
  ..summary:Loads reads into fragment store.
  ..remarks:When two file names are given, the files are expected to contain the same number of reads and reads with the same index are assumed to be mate pairs.
  Mate pairs are stored internally in an "interleaved" mode, i.e. a read is read from each file before reading the next one.
  ..cat:Fragment Store
  ..signature:loadReads(store, fileName)
  ..signature:loadReads(store, fileNameL, fileNameR)
  ..param.store:The fragment store.
  ...type:Class.FragmentStore
  ..param.fileName:A sequence file name.
  ...type:Shortcut.CharString
  ..returns:A $bool$ which is $true$ on success.
  ..include:seqan/store.h
  */
  
  template <typename TFSSpec, typename TFSConfig, typename TFileName>
  bool loadReads(FragmentStore<TFSSpec, TFSConfig> &store, TFileName &fileName)
  {
  	MultiSeqFile multiSeqFile;
  	if (!open(multiSeqFile.concat, toCString(fileName), OPEN_RDONLY))
  		return false;
  
  	// guess file format and split into sequence fractions
  	AutoSeqFormat format;
  	guessFormat(multiSeqFile.concat, format);
  	split(multiSeqFile, format);
  
  	// reserve space in fragment store
  	unsigned seqOfs = length(store.readStore);
  	unsigned seqCount = length(multiSeqFile);
  	reserve(store.readStore, seqOfs + seqCount);
  	reserve(store.readSeqStore, seqOfs + seqCount);
  	reserve(store.readNameStore, seqOfs + seqCount);
  
  	// read sequences
  	String<Dna5Q> seq;
  	CharString qual;
  	CharString _id;
  
  	for (unsigned i = 0; i < seqCount; ++i)
  	{
  		assignSeq(seq, multiSeqFile[i], format);    // read sequence
  		assignQual(qual, multiSeqFile[i], format);  // read ascii quality values
  		assignSeqId(_id, multiSeqFile[i], format);  // read sequence id
  
  		// convert ascii to values from 0..62
  		// store dna and quality together in Dna5Q
  		// TODO: support different ASCII represenations of quality values
  		assignQualities(seq, qual);
  		appendRead(store, seq, _id);
  	}
      return true;
  }
  
  
  template <typename TFSSpec, typename TFSConfig, typename TFileName>
  bool loadReads(FragmentStore<TFSSpec, TFSConfig> & store, TFileName & fileNameL, TFileName & fileNameR)
  {
  	MultiSeqFile multiSeqFileL, multiSeqFileR;
  	if (!open(multiSeqFileL.concat, toCString(fileNameL), OPEN_RDONLY))
  		return false;
  	if (!open(multiSeqFileR.concat, toCString(fileNameR), OPEN_RDONLY))
  		return false;
  
  	// Guess file format and split into sequence fractions
  	AutoSeqFormat formatL, formatR;
  	guessFormat(multiSeqFileL.concat, formatL);
  	split(multiSeqFileL, formatL);
  	guessFormat(multiSeqFileR.concat, formatR);
  	split(multiSeqFileR, formatR);
  
      // Check that both files have the same number of reads
  	SEQAN_ASSERT_EQ(length(multiSeqFileL), length(multiSeqFileR));
  
  	// Reserve space in fragment store
  	unsigned seqOfs = length(store.readStore);
  	unsigned seqCountL = length(multiSeqFileL);
  	unsigned seqCountR = length(multiSeqFileR);
  	reserve(store.readStore, seqOfs + seqCountL + seqCountR);
  	reserve(store.readSeqStore, seqOfs + seqCountL + seqCountR);
  	reserve(store.readNameStore, seqOfs + seqCountL + seqCountR);
  
  	// Read in sequences
  	String<Dna5Q> seq[2];
  	CharString qual[2];
  	CharString _id[2];
  
  	for (unsigned i = 0; i < seqCountL; ++i) {
  		assignSeq(seq[0], multiSeqFileL[i], formatL);    // read sequence
  		assignQual(qual[0], multiSeqFileL[i], formatL);  // read ascii quality values
  		assignSeqId(_id[0], multiSeqFileL[i], formatL);  // read sequence id
  		assignSeq(seq[1], multiSeqFileR[i], formatR);    // read sequence
  		assignQual(qual[1], multiSeqFileR[i], formatR);  // read ascii quality values
  		assignSeqId(_id[1], multiSeqFileR[i], formatR);  // read sequence id
  
  		// convert ascii to values from 0..62
  		// store dna and quality together in Dna5Q
  		// TODO: support different ASCII represenations of quality values
  		for (int j = 0; j < 2; ++j)
  			assignQualities(seq[j], qual[j]);
  		
  		appendMatePair(store, seq[0], seq[1], _id[0], _id[1]);
  	}
  	return true;
  }
  
  }  // namespace SEQAN_NAMESPACE_MAIN
  
  #endif //#ifndef SEQAN_HEADER_...
  