[cli] add some semver nonsense

closes #5719

Makefile.version_extra

@@ -5,7 +5,7 @@
 all: ;
 
 ifneq ($(ADD_REVISION),0)
-	$(info let version_extra = Some "(git build $(BRANCH) @ $(COMMIT_SHA))")
+	$(info let version_extra = Some ("git build $(BRANCH)","$(COMMIT_SHA)"))
 else
 	$(info let version_extra = None)
 endif

src/compiler/server.ml

@@ -28,7 +28,16 @@ type context = {
 }
 
 let s_version =
-	Printf.sprintf "%d.%d.%d%s" version_major version_minor version_revision (match Version.version_extra with None -> "" | Some v -> " " ^ v)
+	let pre,build = match Version.version_extra with
+		| None -> "",""
+		| Some(_,build) ->
+			let pre = match version_pre with
+				| None -> ""
+				| Some pre -> "-" ^ pre
+			in
+			pre,"+" ^ build
+	in
+	Printf.sprintf "%d.%d.%d%s%s" version_major version_minor version_revision pre build
 
 let default_flush ctx = match ctx.com.json_out with
 	| None ->

src/context/display/displayJson.ml

@@ -158,7 +158,14 @@ let parse_input com input report_times pre_compilation did_something =
 			| "initialize" ->
 				supports_resolve := get_opt_param (fun () -> get_bool_param "supportsResolve") false;
 				f_result (JObject [
-					"capabilities",get_capabilities()
+					"capabilities",get_capabilities();
+					"version",jobject [
+						"major",jint version_major;
+						"minor",jint version_minor;
+						"patch",jint version_revision;
+						"pre",(match version_pre with None -> jnull | Some pre -> jstring pre);
+						"build",(match Version.version_extra with None -> jnull | Some(_,build) -> jstring build);
+					]
 				])
 			| "display/completionItem/resolve" ->
 				let i = get_int_param "index" in

src/core/globals.ml

@@ -27,6 +27,7 @@ let version = 4000
 let version_major = version / 1000
 let version_minor = (version mod 1000) / 100
 let version_revision = (version mod 100)
+let version_pre = Some "preview.3"
 
 let macro_platform = ref Neko