anchor.diff:      open FSharpAux.IO.SchemaReader.Attribute
       open BioContainer
       open BioContainerIO
  -     
  +
  +    ///Input file type for makeblastdb
  +    type MakeBlastDBInputType =
  +        ///fasta: for FASTA file(s)
  +        |Fasta
  +        ///blastdb: for BLAST database(s)
  +        |Blastdb
  +        ///asn1_txt: for Seq-entries in text ASN.1 format
  +        |Asn1Txt
  +        ///asn1_bin: for Seq-entries in binary ASN.1 format
  +        |ASN1Bin
  +
  +        static member make = function
  +            |Fasta      -> "fasta"
  +            |Blastdb    -> "blastdb"
  +            |Asn1Txt    -> "asn1_txt"
  +            |ASN1Bin    -> "asn1_bin"
  +
  +    ///Molecule type of input, values can be nucl or prot
       type DbType =
           | Protein 
           | Nucleotide
  
positive.code:             | Protein       -> "prot"
              | Nucleotide    -> "nucl"
  
  
      type MakeDbParams =
          | Input  of string
          | Output of string
          | DbType of DbType
          | MaskData of string
          | ParseSeqIds    
  
          static member makeCmdWith (m: MountInfo) = function
              | Input  (path)     -> ["-in"  ;(MountInfo.containerPathOf m path)]
              | Output (path)     -> ["-out" ;(MountInfo.containerPathOf m path)]
              | DbType (dbt)      -> ["-dbtype"; (DbType.make dbt)]
              | MaskData (path)   -> ["-mask_data"; (sprintf "%s.asnb") (MountInfo.containerPathOf m path)]
              | ParseSeqIds       -> ["-parse_seqids"] 
  
  
      type OutputType = 
  
negative.code:                 return res
          }
  
      let runMakeBlastDB (bcContext:BioContainer.BcContext) (opt:MakeBlastDbParams list) =
  
          runMakeBlastDBAsync bcContext opt
          |> Async.RunSynchronously
  