struct
(**************************************************************************) |
(* Copyright 2014, Sebastien Mondet <seb@mondet.org> *)
(* *)
(* Licensed under the Apache License, Version 2.0 (the "License"); *)
(* you may not use this file except in compliance with the License. *)
(* You may obtain a copy of the License at *)
(* *)
(* http://www.apache.org/licenses/LICENSE-2.0 *)
(* *)
(* Unless required by applicable law or agreed to in writing, software *)
(* distributed under the License is distributed on an "AS IS" BASIS, *)
(* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or *)
(* implied. See the License for the specific language governing *)
(* permissions and limitations under the License. *)
(**************************************************************************) |
open Common
(** Positions are 1-based *) |
type t = [
| `Chromosome of string
| `Chromosome_interval of string * int * int
| `Full
]
(** Make a filename-compliant string out of a region specification. *) |
let to_filename = function
| `Full -> "Full"
| `Chromosome s -> sprintf "%s" s
| `Chromosome_interval (s, b, e) -> sprintf "%s_%d-%d" s b e
let to_samtools_specification = function
| `Full -> None
| `Chromosome s -> Some s
| `Chromosome_interval (s, b, e) -> Some (sprintf "%s:%d-%d" s b e)
let to_samtools_option r =
match to_samtools_specification r with
| Some s -> sprintf "-r %s" s
| None -> ""
let to_gatk_option r =
match to_samtools_specification r with
| Some s -> sprintf "--intervals %s" s
| None -> ""
let parse_samtools s =
match String.split ~on:(`Character ':') s with
| [] -> assert false
| [one] -> `Chromosome one
| [one; two] ->
begin match String.split ~on:(`Character '-') two with
| [left; right] ->
begin match Int.of_string left, Int.of_string right with
| Some b, Some e -> `Chromosome_interval (one, b, e)
| _ -> failwithf "Cannot parse %S into 2 loci" two
end
| _ -> failwithf "Not one '-' in %S" two
end
| _ -> failwithf "Not one or zero ':' in %S" s
let cmdliner_term () =
let open Cmdliner in
Term.(
pure (function
| None -> `Full
| Some s -> parse_samtools s)
$ Arg.(
value & opt (some string) None
& info ["R"; "region"] ~docv:"REGION"
~doc:"Specify a region; using samtools' format"
)
)
end