sequenceserver 2.0.0.rc2 → 2.0.0.rc7

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 164573dfee9002d6a1e164899e5d6f8a22696d7a13e3f6d48dd96a134673d8b3
-  data.tar.gz: 06fd8269f49b72a04d41d05903e7d7273e647d4e451047722d285840fecd207f
+  metadata.gz: 2f7be0b03d87a6322d843166c7cdcf1aea0236fdd82a932b9eeda936a43f4a53
+  data.tar.gz: eb13c9ab355e3424e979606273606c6334ee203b649126d9d2860cdbb7d76ee4
 SHA512:
-  metadata.gz: a3d66c251f7f5e3a96a45878001245a49c811e02bebeac271a350ec9b8e944e8066cabf55c8851bf4e4ce1d6e9cd86e3b76cce53bde7f6230afd3db4592a9175
-  data.tar.gz: 14cdb61bbfbf1fb316df829aaf2c602c0753db51174b5166bb8c4de646ac43a2f5a0023593e063cd12c05e3dcf4163df1f48551e190df12607206afa0593ae5a
+  metadata.gz: 9183f80e0a6909e9e88b4f0416eeaac5ef50e4d75777764f82278b9377bbd5720f34c82cca9aff446eeb735ab79ef69872b8b6e8feabca161b8e81b52e995e4f
+  data.tar.gz: 99375aca038464b785883f12922656d5733d6cf114c37f62b83bc1c222f371b0b491ced709e678b2c07e52d8bae479ee8cdabdbaf06f1f91add2074f1e8652e5

data/.dockerignore

@@ -0,0 +1 @@
+_site

data/Dockerfile

@@ -1,23 +1,25 @@
-FROM debian:stretch-backports
+FROM debian:buster-slim
 
 LABEL Description="Intuitive local web frontend for the BLAST bioinformatics tool"
 LABEL MailingList="https://groups.google.com/forum/#!forum/sequenceserver"
 LABEL Website="http://www.sequenceserver.com"
-LABEL Version="1.1.0 beta"
 
-RUN apt-get update  && apt-get install -y --no-install-recommends \
-        build-essential \
-        ruby ruby-dev \
-        curl wget \
-        gnupg \
-        git \
-        zlib1g-dev
+RUN apt-get update && apt-get install -y --no-install-recommends \
+        ruby ruby-dev build-essential curl gnupg git wget \
+        zlib1g-dev && rm -rf /var/lib/apt/lists/*
 
 VOLUME ["/db"]
 EXPOSE 4567
 
 COPY . /sequenceserver
 WORKDIR /sequenceserver
-RUN gem install bundler && bundle install --without=development
-RUN yes '' | bundle exec bin/sequenceserver -s
-ENTRYPOINT ["bundle", "exec", "bin/sequenceserver", "-d", "/db"]
+# Install bundler, then use bundler to install SequenceServer's dependencies,
+# and then use SequenceServer to install BLAST. In the last step, -s is used
+# so that SequenceServer will exit after writing configuration file instead
+# of starting up, while -d is used to suppress questions about database dir.
+RUN gem install bundler && \
+        bundle install --without=development && \
+        yes '' | bundle exec bin/sequenceserver -s -d spec/database/sample
+RUN touch ~/.sequenceserver/asked_to_join
+
+CMD ["bundle", "exec", "bin/sequenceserver", "-d", "/db"]

data/bin/sequenceserver

@@ -68,10 +68,6 @@ begin
         # of threads to use in config file.
         $ sequenceserver -s -n 16
 
-        # See if you have FASTA files in database dir that haven't
-        # been converted into BLAST database.
-        $ sequenceserver -u
-
         # Search for FASTA files in database dir that haven't been
         # converted into BLAST database yet, and convert them.
         $ sequenceserver -m
@@ -135,9 +131,6 @@ begin
     on 'l', 'list_databases',
        'List BLAST databases'
 
-    on 'u', 'list-unformatted-fastas',
-       'List unformatted FASTA files'
-
     on 'i', 'interactive',
        'Run SequenceServer in interactive mode'
 
@@ -285,8 +278,7 @@ begin
         fetch_option(:database_dir).value = response
         redo
       rescue SequenceServer::NO_BLAST_DATABASE_FOUND => e
-        unless list_databases? || list_unformatted_fastas? ||
-               make_blast_databases?
+        unless list_databases? || make_blast_databases?
 
           # Print error raised.
           puts
@@ -305,13 +297,13 @@ begin
           unless response =~ /^[n]$/i
             puts
             puts 'Searching ...'
-            if SequenceServer::Database.unformatted_fastas.empty?
-              puts "Couldn't find any FASTA files."
-              exit!
-            else
-              formatted = SequenceServer::Database.make_blast_databases
+            if SequenceServer.makeblastdb.scan
+              formatted = SequenceServer.makeblastdb.run
               exit! if formatted.empty? && !set?
               redo unless set?
+            else
+              puts "Couldn't find any FASTA files."
+              exit!
             end
           else
             exit! unless set?
@@ -361,22 +353,13 @@ begin
         exit
       end
 
-      if list_unformatted_fastas? || make_blast_databases?
-        unformatted_fastas = SequenceServer::Database.unformatted_fastas
-        if unformatted_fastas.empty?
+      if make_blast_databases?
+        if SequenceServer.makeblastdb.scan
+          SequenceServer.makeblastdb.run
+        else
           puts "All FASTA files in #{SequenceServer.config[:database_dir]} " \
                'are formatted.'
-          exit
         end
-      end
-
-      if list_unformatted_fastas?
-        puts unformatted_fastas
-        exit
-      end
-
-      if make_blast_databases?
-        SequenceServer::Database.make_blast_databases
         exit
       end
 

data/lib/sequenceserver.rb

@@ -4,8 +4,12 @@ require 'resolv'
 
 # Top level module / namespace.
 module SequenceServer
-  # Use a fixed minimum version of BLAST+
+  # The default version of BLAST that will be downloaded and configured for use.
   BLAST_VERSION = '2.10.0+'.freeze
+  # The minimum version of BLAST that SequenceServer is happy to run with. This
+  # is for compatiblity with older database formats. Users will download BLAST
+  # themselves.
+  MIN_BLAST_VERSION = '2.9.0+'.freeze
 
   # Default location of configuration file.
   DEFAULT_CONFIG_FILE = '~/.sequenceserver.conf'.freeze
@@ -20,6 +24,7 @@ module SequenceServer
   require 'sequenceserver/config'
   require 'sequenceserver/server'
   require 'sequenceserver/routes'
+  require 'sequenceserver/makeblastdb'
   require 'sequenceserver/job_remover'
   require 'sequenceserver/exceptions'
   require 'sequenceserver/sys'
@@ -53,6 +58,11 @@ module SequenceServer
                   end
     end
 
+    # MAKEBLASTDB service object.
+    def makeblastdb
+      @makeblastdb ||= MAKEBLASTDB.new(config[:database_dir])
+    end
+
     # SequenceServer initialisation routine.
     def init(config = {})
       # Use default config file if caller didn't specify one.
@@ -106,7 +116,6 @@ module SequenceServer
 
     # Run SequenceServer using WEBrick.
     def run
-      check_host
       Server.run(self)
     rescue Errno::EADDRINUSE
       puts "** Could not bind to port #{config[:port]}."
@@ -126,10 +135,17 @@ module SequenceServer
     def on_start
       puts '** SequenceServer is ready.'
       puts "   Go to #{server_url} in your browser and start BLASTing!"
-      puts '   To share your setup, please try one of the following: '
-      puts "     -  http://#{ip_address}:#{config[:port]}"
-      puts "     -  http://#{hostname}:#{config[:port]}" if hostname
-      puts '   Press CTRL+C to quit.'
+      if ip_address
+        puts '   To share your setup, try one of the following addresses. These'
+        puts '   may only work within your home, office, or university network.'
+        puts "     -  http://#{ip_address}:#{config[:port]}"
+        puts "     -  http://#{hostname}:#{config[:port]}" if hostname
+        puts '   To share your setup with anyone in the world, ask your IT team'
+        puts '   for a public IP address.'
+        puts '   To disable sharing, set :host: key in config file to 127.0.0.1'
+        puts '   and restart server.'
+      end
+      puts '   To terminate server, press CTRL+C'
       open_in_browser(server_url)
     end
 
@@ -204,16 +220,6 @@ module SequenceServer
       raise NUM_THREADS_INCORRECT
     end
 
-    # Check and warn user if host is 0.0.0.0 (default).
-    def check_host
-      # rubocop:disable Style/GuardClause
-      if config[:host] == '0.0.0.0'
-        logger.warn 'Will listen on all interfaces (0.0.0.0).' \
-                    ' Consider using 127.0.0.1 (--host option).'
-      end
-      # rubocop:enable Style/GuardClause
-    end
-
     def load_extension
       return unless config[:require]
 
@@ -234,7 +240,7 @@ module SequenceServer
       end
       version = out.split[1]
       fail BLAST_NOT_INSTALLED_OR_NOT_EXECUTABLE if version.empty?
-      fail BLAST_NOT_COMPATIBLE, version unless version == BLAST_VERSION
+      fail BLAST_NOT_COMPATIBLE, version unless is_compatible(version, MIN_BLAST_VERSION)
     end
 
     def server_url
@@ -243,13 +249,14 @@ module SequenceServer
       "http://#{host}:#{config[:port]}"
     end
 
-    # Returns a local ip adress
+    # Returns a local ip adress.
     def ip_address
-      Socket.ip_address_list.find { |ai| ai.ipv4? && !ai.ipv4_loopback? }.ip_address
+      addrinfo = Socket.ip_address_list.find { |ai| ai.ipv4? && !ai.ipv4_loopback? }
+      addrinfo.ip_address if addrinfo
     end
 
-    # Returns machine's hostname based on the local ip;
-    # If hostname cannot be determined then print nothing
+    # Returns machine's hostname based on the local ip. If hostname cannot be
+    # determined returns nil.
     def hostname
       Resolv.getname(ip_address) rescue nil
     end
@@ -285,5 +292,19 @@ module SequenceServer
     def command?(command)
       system("which #{command} > /dev/null 2>&1")
     end
+
+    # Returns true if the given version is higher than the minimum expected
+    # version string.
+    def is_compatible(given, expected)
+      # The speceship operator (<=>) below returns -1, 0, 1 depending on
+      # on whether the left operand is lower, same, or higher than the
+      # right operand. We want the left operand to be the same or higher.
+      (parse_version(given) <=> parse_version(expected)) >= 0
+    end
+
+    # Turn version string into an arrary of its component numbers.
+    def parse_version(version_string)
+      version_string.split('.').map(&:to_i)
+    end
   end
 end

data/lib/sequenceserver/blast/job.rb

@@ -65,6 +65,16 @@ module SequenceServer
           error = IO.foreach(stderr).grep(ERROR_LINE).join
           error = File.read(stderr) if error.empty?
           fail InputError, error
+        when 2
+          fail InputError, <<~MSG
+            BLAST signalled a problem with the databases that you searched.
+
+            Most likely one or more of your databases were created using an
+            older version of BLAST. Please consider recreating the databases
+            using BLAST #{BLAST_VERSION}.
+
+            As a temporary solution, you can try searching one database at a time.
+          MSG
         when 4
           # Out of memory. User can retry with a shorter search, so raising
           # InputError here instead of SystemError.
@@ -79,7 +89,7 @@ module SequenceServer
           # the job. This is a SystemError.
           fail SystemError, 'Ran out of disk space.'
         else
-          # I am not sure what the exit codes 2 & 3 means and we should note
+          # I am not sure what the exit codes 3 means and we should not
           # encounter exit code 5. The only other error that I know can happen
           # but is not yet handled is when BLAST+ binaries break such as after
           # macOS updates. So raise SystemError, include the exit status in the

data/lib/sequenceserver/database.rb

@@ -1,4 +1,3 @@
-require 'find'
 require 'open3'
 require 'digest/md5'
 require 'forwardable'
@@ -209,89 +208,6 @@ module SequenceServer
       end
       # rubocop:enable Metrics/AbcSize, Metrics/MethodLength
 
-      # Recursively scan `database_dir` for un-formatted FASTA and format them
-      # for use with BLAST+.
-      def make_blast_databases
-        unformatted_fastas.select do |file, sequence_type|
-          make_blast_database(file, sequence_type)
-        end
-      end
-
-      # Returns an Array of FASTA files that may require formatting, and the
-      # type of sequence contained in each FASTA.
-      #
-      #   > unformatted_fastas
-      #   => [['/foo/bar.fasta', :nulceotide], ...]
-      def unformatted_fastas
-        list = []
-        database_dir = config[:database_dir]
-        Find.find database_dir do |file|
-          next if File.directory? file
-          next if Database.include? file
-          next unless probably_fasta? file
-          sequence_type = guess_sequence_type_in_fasta file
-          if %i[protein nucleotide].include?(sequence_type)
-            list << [file, sequence_type]
-          end
-        end
-        list
-      end
-
-      # Create BLAST database, given FASTA file and sequence type in FASTA file.
-      def make_blast_database(file, type)
-        return unless make_blast_database? file, type
-        title = get_database_title(file)
-        taxid = fetch_tax_id
-        _make_blast_database(file, type, title, taxid)
-      end
-
-      def _make_blast_database(file, type, title, taxid, quiet = false)
-        cmd = 'makeblastdb -parse_seqids -hash_index ' \
-              "-in #{file} -dbtype #{type.to_s.slice(0, 4)} -title '#{title}'" \
-              " -taxid #{taxid}"
-        out, err = sys(cmd, path: config[:bin])
-        puts out, err unless quiet
-      end
-
-      # Show file path and guessed sequence type to the user and obtain a y/n
-      # response.
-      #
-      # Returns true if the user entered anything but 'n' or 'N'.
-      def make_blast_database?(file, type)
-        puts
-        puts
-        puts "FASTA file: #{file}"
-        puts "FASTA type: #{type}"
-        print 'Proceed? [y/n] (Default: y): '
-        response = STDIN.gets.to_s.strip
-        !response.match(/n/i)
-      end
-
-      # Generate a title for the given database and show it to the user for
-      # confirmation.
-      #
-      # Returns user input if any. Auto-generated title otherwise.
-      def get_database_title(path)
-        default = make_db_title(File.basename(path))
-        print "Enter a database title or will use '#{default}': "
-        from_user = STDIN.gets.to_s.strip
-        from_user.empty? && default || from_user
-      end
-
-      # Get taxid from the user. Returns user input or 0.
-      #
-      # Using 0 as taxid is equivalent to not setting taxid for the database
-      # that will be created.
-      def fetch_tax_id
-        default = 0
-        print 'Enter taxid (optional): '
-        user_response = STDIN.gets.strip
-        user_response.empty? && default || Integer(user_response)
-      rescue
-        puts 'taxid should be a number'
-        retry
-      end
-
       # Returns true if the database name appears to be a multi-part database
       # name.
       #
@@ -304,48 +220,6 @@ module SequenceServer
       def multipart_database_name?(db_name)
         !(db_name.match(%r{.+/\S+\.\d{2,3}$}).nil?)
       end
-
-      # Returns true if first character of the file is '>'.
-      def probably_fasta?(file)
-        File.read(file, 1) == '>'
-      end
-
-      # Suggests improved titles when generating database names from files
-      # for improved apperance and readability in web interface.
-      # For example:
-      # Cobs1.4.proteins.fasta -> Cobs 1.4 proteins
-      # S_invicta.xx.2.5.small.nucl.fa -> S invicta xx 2.5 small nucl
-      def make_db_title(db_name)
-        db_name.tr!('"', "'")
-        # removes .fasta like extension names
-        db_name.gsub!(File.extname(db_name), '')
-        # replaces _ with ' ',
-        db_name.gsub!(/(_)/, ' ')
-        # replaces '.' with ' ' when no numbers are on either side,
-        db_name.gsub!(/(\D)\.(?=\D)/, '\1 ')
-        # preserves version numbers
-        db_name.gsub!(/\W*(\d+([.-]\d+)+)\W*/, ' \1 ')
-        db_name
-      end
-
-      # Guess whether FASTA file contains protein or nucleotide sequences by
-      # sampling a few few characters of the file.
-      def guess_sequence_type_in_fasta(file)
-        sequences = sample_sequences(file)
-        sequence_types = sequences.map { |seq| Sequence.guess_type(seq) }
-        sequence_types = sequence_types.uniq.compact
-        (sequence_types.length == 1) && sequence_types.first
-      end
-
-      # Read first 1,048,576 characters of the file, split the read text on
-      # fasta def line pattern and return.
-      #
-      # If the given file is FASTA, returns Array of as many different
-      # sequences in the portion of the file read. Returns the portion
-      # of the file read wrapped in an Array otherwise.
-      def sample_sequences(file)
-        File.read(file, 1_048_576).split(/^>.+$/).delete_if(&:empty?)
-      end
     end
   end
 end

data/lib/sequenceserver/makeblastdb.rb

@@ -0,0 +1,243 @@
+require 'find'
+require 'forwardable'
+
+module SequenceServer
+  # Smart `makeblastdb` wrapper: recursively scans database directory determining
+  # which files need to be formatted or re-formatted.
+  #
+  # Example usage:
+  #
+  #   makeblastdb = MAKEBLASTDB.new(database_dir)
+  #   makeblastdb.scan && makeblastdb.run
+  #
+  class MAKEBLASTDB
+    # We want V5 databases created using -parse_seqids for proper function of
+    # SequenceServer. This means each database should be comprised of at least 9
+    # files with the following extensions. Databases created by us will have two
+    # additional files with the extensions nhd and nhi, or phd and phi, due to
+    # the use of -hash_index option. Finally, multipart databases will have one
+    # additional file with the extension nal or pal.
+    REQUIRED_EXTENSIONS = {
+      'nucleotide' => %w{ndb nhr nin nog nos not nsq ntf nto}.freeze,
+      'protein' => %w{pdb phr pin pog pos pot psq ptf pto}.freeze
+    }
+
+    extend Forwardable
+
+    def_delegators SequenceServer, :config, :sys
+
+    def initialize(database_dir)
+      @database_dir = database_dir
+    end
+
+    attr_reader :database_dir
+
+    # Scans the database directory to determine which FASTA files require
+    # formatting or re-formatting.
+    #
+    # Returns `true` if there are files to (re-)format, `false` otherwise.
+    def scan
+      # We need to know the list of formatted FASTAs as reported by blastdbcmd
+      # first. This is required to determine both unformatted FASTAs and those
+      # that require reformatting.
+      @formatted_fastas = []
+      determine_formatted_fastas
+
+      # Now determine FASTA files that are unformatted or require reformatting.
+      @fastas_to_format = []
+      determine_unformatted_fastas
+      determine_fastas_to_reformat
+
+      # Return true if there are files to be (re-)formatted or false otherwise.
+      !@fastas_to_format.empty?
+    end
+
+    # Runs makeblastdb on each file in `@fastas_to_format`. Will do nothing
+    # unless `#scan` has been run before.
+    def run
+      return unless @fastas_to_format || @fastas_to_format.empty?
+      @fastas_to_format.each do |path, title, type|
+        make_blast_database(path, title, type)
+      end
+    end
+
+    private
+
+    # Determines which FASTA files in the database directory are already
+    # formatted. Adds to @formatted_fastas.
+    def determine_formatted_fastas
+      blastdbcmd.each_line do |line|
+        path, title, type = line.split('	')
+        next if multipart_database_name?(path)
+        @formatted_fastas << [path, title, type.strip.downcase]
+      end
+    end
+
+    # Determines which FASTA files in the database directory require
+    # reformatting. Adds to @fastas_to_format.
+    def determine_fastas_to_reformat
+      @formatted_fastas.each do |path, title, type|
+        required_extensions = REQUIRED_EXTENSIONS[type]
+        exts = Dir["#{path}.*"].map { |p| p.split('.').last }.sort
+        next if (exts & required_extensions) == required_extensions
+
+        @fastas_to_format << [path, title, type]
+      end
+    end
+
+    # Determines which FASTA files in the database directory are
+    # unformatted. Adds to @fastas_to_format.
+    def determine_unformatted_fastas
+      Find.find(database_dir) do |path|
+        next if File.directory?(path)
+        next unless probably_fasta?(path)
+        next if @formatted_fastas.any? { |f| f[0] == path }
+
+        @fastas_to_format << [path,
+          make_db_title(File.basename(path)),
+          guess_sequence_type_in_fasta(path)]
+      end
+    end
+
+    # Runs `blastdbcmd` to determine formatted FASTA files in the database
+    # directory. Returns the output of `blastdbcmd`. This method is called
+    # by `determine_formatted_fastas`.
+    def blastdbcmd
+      cmd = "blastdbcmd -recursive -list #{database_dir}" \
+            ' -list_outfmt "%f	%t	%p"'
+      out, _ = sys(cmd, path: config[:bin])
+      out
+    end
+
+    # Create BLAST database, given FASTA file and sequence type in FASTA file.
+    def make_blast_database(file, title, type)
+      return unless make_blast_database? file, type
+      title = confirm_database_title(title)
+      taxid = fetch_tax_id
+      _make_blast_database(file, type, title, taxid)
+    end
+
+    def _make_blast_database(file, type, title, taxid)
+      extract_fasta(file) unless File.exist?(file)
+      cmd = "makeblastdb -parse_seqids -hash_index -in #{file} " \
+            "-dbtype #{type.to_s.slice(0, 4)} -title '#{title}'" \
+            " -taxid #{taxid}"
+      out, err = sys(cmd, path: config[:bin])
+      puts out.strip
+      puts err.strip
+    rescue CommandFailed => e
+      puts <<~MSG
+        Could not create BLAST database for: #{file}
+        Tried: #{cmd}
+        stdout: #{e.stdout}
+        stderr: #{e.stderr}
+      MSG
+      exit!
+    end
+
+    # Show file path and guessed sequence type to the user and obtain a y/n
+    # response.
+    #
+    # Returns true if the user entered anything but 'n' or 'N'.
+    def make_blast_database?(file, type)
+      puts
+      puts
+      puts "FASTA file to format/reformat: #{file}"
+      puts "FASTA type: #{type}"
+      print 'Proceed? [y/n] (Default: y): '
+      response = STDIN.gets.to_s.strip
+      !response.match(/n/i)
+    end
+
+    # Show the database title that we are going to use to the user for
+    # confirmation.
+    #
+    # Returns user input if any. Auto-determined title otherwise.
+    def confirm_database_title(default)
+      print "Enter a database title or will use '#{default}': "
+      from_user = STDIN.gets.to_s.strip
+      from_user.empty? && default || from_user
+    end
+
+    # Get taxid from the user. Returns user input or 0.
+    #
+    # Using 0 as taxid is equivalent to not setting taxid for the database
+    # that will be created.
+    def fetch_tax_id
+      default = 0
+      print 'Enter taxid (optional): '
+      user_response = STDIN.gets.strip
+      user_response.empty? && default || Integer(user_response)
+    rescue
+      puts 'taxid should be a number'
+      retry
+    end
+
+    # Extract FASTA file from BLAST database.
+    #
+    # Invoked while reformatting a BLAST database if the corresponding
+    # FASTA file does not exist.
+    def extract_fasta(db)
+      puts
+      puts 'Extracting sequences ...'
+      cmd = "blastdbcmd -entry all -db #{db}"
+      sys(cmd, stdout: db, path: config[:bin])
+    rescue CommandFailed => e
+      puts <<~MSG
+        Could not extract sequences from: #{db}
+        Tried: #{cmd}
+        stdout: #{e.stdout}
+        stderr: #{e.stderr}
+      MSG
+      exit!
+    end
+
+    # Returns true if the database name appears to be a multi-part database
+    # name.
+    def multipart_database_name?(db_name)
+      Database.multipart_database_name? db_name
+    end
+
+    # Returns true if first character of the file is '>'.
+    def probably_fasta?(file)
+      File.read(file, 1) == '>'
+    end
+
+    # Suggests improved titles when generating database names from files
+    # for improved apperance and readability in web interface.
+    # For example:
+    # Cobs1.4.proteins.fasta -> Cobs 1.4 proteins
+    # S_invicta.xx.2.5.small.nucl.fa -> S invicta xx 2.5 small nucl
+    def make_db_title(db_name)
+      db_name.tr!('"', "'")
+      # removes .fasta like extension names
+      db_name.gsub!(File.extname(db_name), '')
+      # replaces _ with ' ',
+      db_name.gsub!(/(_)/, ' ')
+      # replaces '.' with ' ' when no numbers are on either side,
+      db_name.gsub!(/(\D)\.(?=\D)/, '\1 ')
+      # preserves version numbers
+      db_name.gsub!(/\W*(\d+([.-]\d+)+)\W*/, ' \1 ')
+      db_name
+    end
+
+    # Guess whether FASTA file contains protein or nucleotide sequences by
+    # sampling a few few characters of the file.
+    def guess_sequence_type_in_fasta(file)
+      sequences = sample_sequences(file)
+      sequence_types = sequences.map { |seq| Sequence.guess_type(seq) }
+      sequence_types = sequence_types.uniq.compact
+      (sequence_types.length == 1) && sequence_types.first
+    end
+
+    # Read first 1,048,576 characters of the file, split the read text on
+    # fasta def line pattern and return.
+    #
+    # If the given file is FASTA, returns Array of as many different
+    # sequences in the portion of the file read. Returns the portion
+    # of the file read wrapped in an Array otherwise.
+    def sample_sequences(file)
+      File.read(file, 1_048_576).split(/^>.+$/).delete_if(&:empty?)
+    end
+  end
+end