Revision f08278a9791dde81ae75262dbec6b1176972cad5 authored by Arvid Jakobsson on 07 May 2020, 12:29:54 UTC, committed by Pierre Boutillier on 07 May 2020, 21:25:25 UTC
1 parent 5c5a959
Raw File
print_version.ml
#!ocaml

(* Ensure that this script can be run from the root directory. *)
#directory "src/lib_version"

(* Ensure that this script can be run from the scripts directory. *)
#directory "../src/lib_version"

#use "version.ml"

let () =
  let arg = if Array.length Sys.argv > 1 then Sys.argv.(1) else "" in
  match arg with
    | "--major" ->
        print_endline (string_of_int current.major)
    | "--minor" ->
        print_endline (string_of_int current.minor)
    | "--additional-info" ->
        print_endline (string_of_additional_info current.additional_info)
    | "--full" | "" ->
        print_endline current_string
    | _ ->
        prerr_endline ("invalid argument: " ^ arg);
        exit 1
back to top