CHANGE: better information in system/build/os about build on Linux

Author: Oldes

make/pre-make.r3

@@ -151,6 +151,7 @@ arch: any [
 	all [word? spec/target-arch   spec/target-arch]
 ]
 os:  any [
+	select get-os-info 'ID
 	all [word? spec/os spec/os]
 	select #(
 		Macintosh: macos
@@ -182,9 +183,9 @@ abi: any [
 		reactos: pe
 		beos:    pe
 		linux:   elf
-		alpine:  musl
-	) os
-]    
+		;alpine:  musl
+	) spec/os
+]
 
 product:  any [spec/product 'Core]
 configs:  unique any [spec/config copy []]

make/tools/utils.reb

@@ -140,3 +140,27 @@ get-libc-version: function[][
 	ver
 ]
 
+get-os-info: function[
+	"Tries to collect information about hosting Linux operating system"
+][
+	tmp: copy  ""
+	out: copy #()
+	key: charset [#"A"-#"Z" #"_"]
+	enl: system/catalog/bitsets/crlf
+	whs: system/catalog/bitsets/whitespace
+	try [
+		call/output/shell/wait "cat /etc/*-release" :tmp
+		parse tmp [
+			any [
+				copy k: some key #"=" copy v: to enl some whs (
+					try [v: transcode/one v]
+					try [parse v ["http" to end (v: as url! v)]]
+					put out to word! k v
+				)
+				|  thru enl
+			]
+		]
+	]
+	out
+]
+