added \r remove hack to genbank/embl parsers

[biopieces.git] / code_ruby / lib / maasha / embl.rb

diff --git a/code_ruby/lib/maasha/embl.rb b/code_ruby/lib/maasha/embl.rb
index d08dce56e97d5e02392491bd49f18d4150d234ac..6d9d6b5e0bd5ef6278d1754698edbfacb2f9cc7c 100644 (file)
--- a/code_ruby/lib/maasha/embl.rb
+++ b/code_ruby/lib/maasha/embl.rb
@@ -68,7 +68,7 @@ class EMBL < Filesys
 
     block.chomp!("//" + $/ )
 
-    entry = block.split $/
+    entry = block.tr("\r", "\n").split $/
 
     return nil if entry.empty?
 
@@ -87,7 +87,7 @@ class EMBL < Filesys
 
     seq = @entry[j + 1 .. i].join.delete(" 0123456789")
 
-    Seq.new(nil, seq, "dna") if seq
+    Seq.new(nil, seq, :dna) if seq
   end
 
   # Method to get the base keys from EMBL entry and return these