FEAT: using system/options/log to specify system log verbosity in central place

(this is WIP as codecs and schemes are still using not centralized traces)

Author: Oldes

src/boot/sysobj.r

@@ -145,6 +145,15 @@ options: context [  ; Options supplied to REBOL during startup
 	default-suffix: %.reb ; Used by IMPORT if no suffix is provided
 	file-types: []
 	result-types: none
+
+	; verbosity of logs per service (codecs, schemes)
+	; 0 = nothing; 1 = info; 2 = more; 3 = debug
+	log: make object! [
+		http:
+		tls:
+		zip:
+		tar: 1
+	]
 ]
 
 script: context [

src/mezz/sys-codec.r

@@ -113,13 +113,16 @@ log: func [
 	/info
 	/more
 	/debug
+	/local level
 ][
+	level: select system/options/log id
+	if any [none? level level <= 0] [exit]
 	if block? msg [msg: form reduce :msg]
 	case [
-		info  [ print ajoin [" ^[[1;33m[" id "] ^[[36m" msg "^[[0m"]]
-		more  [ print ajoin [" ^[[33m[" id "] ^[[0;36m" msg "^[[0m"]]
-		debug [ print ajoin [" ^[[33m[" id "] ^[[0;32m" msg "^[[0m"]]
-		true  [ print ajoin [" ^[[33m[" id "] " msg "^[[0m"]]
+		info  [ if level > 0 [print ajoin [" ^[[1;33m[" id "] ^[[36m" msg "^[[0m"]]]
+		more  [ if level > 1 [print ajoin [" ^[[33m[" id "] ^[[0;36m" msg "^[[0m"]]]
+		debug [ if level > 2 [print ajoin [" ^[[33m[" id "] ^[[0;32m" msg "^[[0m"]]]
+		true  [ if level > 0 [print ajoin [" ^[[33m[" id "] " msg "^[[0m"]]]
 	]
 ]