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
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
Computing file changes ...