diff options
| -rw-r--r-- | dune-project | 4 | ||||
| -rw-r--r-- | src/dune | 3 | ||||
| -rw-r--r-- | src/pages.ml | 2 | ||||
| -rw-r--r-- | src/ucs.ml | 2 | ||||
| -rw-r--r-- | src/version.ml | 21 | ||||
| -rw-r--r-- | src/version.mli | 18 |
6 files changed, 47 insertions, 3 deletions
diff --git a/dune-project b/dune-project index 170a0b0..9fe70b1 100644 --- a/dune-project +++ b/dune-project @@ -1,3 +1,5 @@ (lang dune 2.0) (name ucs) -(version 0.1.1) + +(package + (name ucs)) @@ -1,9 +1,12 @@ (executable (name ucs) + (package ucs) + (public_name ucs) (libraries astring calendar cmdliner cohttp-lwt-unix + dune-build-info ezjsonm json-data-encoding lwt.unix diff --git a/src/pages.ml b/src/pages.ml index d343ef2..a031599 100644 --- a/src/pages.ml +++ b/src/pages.ml @@ -31,7 +31,7 @@ let common content = <article>|} ^ content ^ {| </article> <footer> - <p>(c) 2020 – Alban Gruin – µCS 0.1.1 « CANIS MINOR »</p> + <p>(c) 2020 – Alban Gruin – µCS |} ^ Version.version () ^ {| « CANIS MINOR »</p> </footer> </body> </html> @@ -65,6 +65,6 @@ let () = calendar to ICS files, on the fly." and exits = Term.default_exits in Term.(const run $ base_url $ celcat_url $ port $ socket), - Term.info "ucs" ~version:"0.1.1" ~doc ~exits in + Term.info "ucs" ~version:(Version.version ()) ~doc ~exits in CalendarLib.Time_Zone.(change Local); Term.(exit @@ eval cmd) diff --git a/src/version.ml b/src/version.ml new file mode 100644 index 0000000..033b60f --- /dev/null +++ b/src/version.ml @@ -0,0 +1,21 @@ +(* + * Copyright (C) 2020 Alban Gruin + * + * ucs is free software: you can redistribute it and/or modify + * it under the terms of the GNU Affero General Public License as published + * by the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * ucs is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Affero General Public License for more details. + * + * You should have received a copy of the GNU Affero General Public License + * along with ucs. If not, see <http://www.gnu.org/licenses/>. + *) + +let version () = + match Build_info.V1.version () with + | Some v -> Build_info.V1.Version.to_string v + | None -> "dev" diff --git a/src/version.mli b/src/version.mli new file mode 100644 index 0000000..a37df45 --- /dev/null +++ b/src/version.mli @@ -0,0 +1,18 @@ +(* + * Copyright (C) 2020 Alban Gruin + * + * ucs is free software: you can redistribute it and/or modify + * it under the terms of the GNU Affero General Public License as published + * by the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * ucs is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Affero General Public License for more details. + * + * You should have received a copy of the GNU Affero General Public License + * along with ucs. If not, see <http://www.gnu.org/licenses/>. + *) + +val version : unit -> string |