Use origin instead of source

User defined source can still be called 'source' I guess?

src/compiler/compiler.ml

@@ -617,4 +617,4 @@ module HighLevel = struct
 		in
 		let code = loop args in
 		comm.exit code
-end
+end

src/core/define.ml

@@ -35,7 +35,7 @@ let get_define_key d =
 	match (infos d) with (s,_,_) -> s
 
 let get_documentation d =
-	let t, (doc,flags), src = infos d in
+	let t, (doc,flags), origin = infos d in
 	let params = ref [] and pfs = ref [] in
 	List.iter (function
 		| HasParam s -> params := s :: !params
@@ -46,12 +46,12 @@ let get_documentation d =
 		| [] -> ""
 		| l -> "<" ^ String.concat ">, <" l ^ "> "
 	) in
-	let source = match src with
+	let origin = match origin with
 		| UserDefined Some s -> " (from " ^ s ^ ")"
 		| Compiler | UserDefined None -> ""
 	in
 	let pfs = platform_list_help (List.rev !pfs) in
-	(String.concat "-" (ExtString.String.nsplit t "_")), params ^ doc ^ pfs ^ source
+	(String.concat "-" (ExtString.String.nsplit t "_")), params ^ doc ^ pfs ^ origin
 
 let get_documentation_list() =
 	let m = ref 0 in

src/core/display/completionItem.ml

@@ -759,7 +759,7 @@ let to_json ctx index item =
 		]
 		| ITMetadata meta ->
 			let open Meta in
-			let name,(doc,params),src = Meta.get_info meta in
+			let name,(doc,params),origin = Meta.get_info meta in
 			let name = "@" ^ name in
 			let usage_to_string = function
 				| TClass -> "TClass"
@@ -773,7 +773,7 @@ let to_json ctx index item =
 				| TTypeParameter -> "TTypeParameter"
 				| TVariable -> "TVariable"
 			in
-			let source = match src with
+			let origin = match origin with
 				| Compiler -> Some "haxe compiler"
 				| UserDefined s -> s
 			in
@@ -794,7 +794,7 @@ let to_json ctx index item =
 				"targets",jlist jstring targets;
 				"internal",jbool internal;
 				"links",jlist jstring links;
-				"source",jopt jstring source;
+				"origin",jopt jstring origin;
 			]
 		| ITKeyword kwd ->"Keyword",jobject [
 			"name",jstring (s_keyword kwd)
@@ -833,4 +833,4 @@ let to_json ctx index item =
 			| Some t ->
 				("type",CompletionType.to_json ctx (snd t)) :: jindex
 		)
-	)
+	)

src/core/meta.ml

@@ -18,7 +18,7 @@ type user_meta = {
 
 let user_meta : (string, user_meta) Hashtbl.t = Hashtbl.create 0
 
-type meta_source =
+type meta_origin =
 	| Compiler
 	| UserDefined of string option
 
@@ -56,7 +56,7 @@ let from_string s =
 	| _ -> Custom s
 
 let get_documentation d =
-	let t, (doc,flags), src = get_info d in
+	let t, (doc,flags), origin = get_info d in
 	if not (List.mem UsedInternally flags) then begin
 		let params = ref [] and used = ref [] and pfs = ref [] in
 		List.iter (function
@@ -71,12 +71,12 @@ let get_documentation d =
 			| l -> "(<" ^ String.concat ">, <" l ^ ">) "
 		) in
 		let pfs = platform_list_help (List.rev !pfs) in
-		let source = match src with
+		let origin = match origin with
 			| UserDefined Some s -> " (from " ^ s ^ ")"
 			| Compiler | UserDefined None -> ""
 		in
 		let str = "@" ^ t in
-		Some (str,params ^ doc ^ pfs ^ source)
+		Some (str,params ^ doc ^ pfs ^ origin)
 	end else
 		None
 
@@ -121,4 +121,4 @@ let get_user_documentation_list () =
 
 let copy_from_to m src dst =
 	try (get m src) :: dst
-	with Not_found -> dst
+	with Not_found -> dst

std/haxe/display/Display.hx

@@ -294,6 +294,7 @@ typedef Metadata = {
 	var parameters:Array<String>;
 	var platforms:Array<Platform>;
 	var targets:Array<MetadataTarget>;
+	var origin:String;
 	var internal:Bool;
 	var ?links:Array<String>;
 }