From 3dc58f9d385fca8428d996f687edc2652c3b265d Mon Sep 17 00:00:00 2001 From: John Whitington Date: Fri, 19 Jul 2024 14:04:47 +0100 Subject: [PATCH] Allow minor_minor_version --- cpdfcommand.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/cpdfcommand.ml b/cpdfcommand.ml index a30ad91..9beac03 100644 --- a/cpdfcommand.ml +++ b/cpdfcommand.ml @@ -2,7 +2,8 @@ let demo = false let noncomp = false let major_version = 2 -let minor_version = 8 +let minor_version = 7 +let minor_minor_version = 1 let version_date = "(1st August 2024)" open Pdfutil @@ -2846,7 +2847,7 @@ and specs = and usage_msg = "Syntax: cpdf [] [-o ]\n\n\ This is a copyrighted, commercial program, and may NOT be freely copied.\n\n\ -Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ " " ^ version_date ^ "\n\n\ +Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ "." ^ string_of_int minor_minor_version ^ " " ^ version_date ^ "\n\n\ To buy, visit https://www.coherentpdf.com/\n\n\ Input names are distinguished by containing a '.' and may be\n\ followed by a page range specification, for instance \"1,2,3\"\n\ @@ -3474,7 +3475,7 @@ let go () = match args.op with | Some Version -> flprint - ("cpdf Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ " " ^ version_date ^ "\n") + ("cpdf Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ "." ^ string_of_int minor_minor_version ^ " " ^ version_date ^ "\n") | None | Some Merge -> begin match args.out, args.inputs with | _, (_::_ as inputs) ->