FEAT: using Gavin F. MacKenzie's parse-xml+ script as a XML codec

Oldes · Oldes · commit 6ff6d7d9ac95 · 2018-11-19T21:36:43.000+01:00
It's based on script downloaded from http://www.rebol.org/view-script.r?script=xml-parse.r I was using this script for years in my Rebol2 environment, so I think I can include it in R3 too.. so far I never had time to review it, but I believe, it could be improved and also there are some TODO notes inside the original script.
diff --git a/src/mezz/base-defs.r b/src/mezz/base-defs.r
@@ -56,7 +56,7 @@ foreach [codec handler] system/codecs [
 			type: 'image!
 			suffixes: select [
 				text [%.txt]
-				markup [%.html %.htm %.xml %.xsl %.wml %.sgml %.asp %.php %.cgi]
+				markup [%.html %.htm %.xsl %.wml %.sgml %.asp %.php %.cgi]
 			] codec
 		]
 		; Media-types block format: [.abc .def type ...]
diff --git a/src/mezz/boot-files.r b/src/mezz/boot-files.r
@@ -52,6 +52,7 @@ REBOL [
 	%codec-der.r
 	%codec-crt.r
 	%codec-gzip.r
+	%codec-xml.r
 ]
 
 ;-- protocols:
diff --git a/src/mezz/codec-xml.r b/src/mezz/codec-xml.r

Original file line number	Diff line number	Diff line change
`@@ -56,7 +56,7 @@ foreach [codec handler] system/codecs [`
`56`	`56`	`type: 'image!`
`57`	`57`	`suffixes: select [`
`58`	`58`	`text [%.txt]`
`59`		`- markup [%.html %.htm %.xml %.xsl %.wml %.sgml %.asp %.php %.cgi]`
	`59`	`+ markup [%.html %.htm %.xsl %.wml %.sgml %.asp %.php %.cgi]`
`60`	`60`	`] codec`
`61`	`61`	`]`
`62`	`62`	`; Media-types block format: [.abc .def type ...]`
Original file line number	Diff line number	Diff line change
`@@ -52,6 +52,7 @@ REBOL [`
`52`	`52`	`%codec-der.r`
`53`	`53`	`%codec-crt.r`
`54`	`54`	`%codec-gzip.r`
	`55`	`+ %codec-xml.r`
`55`	`56`	`]`
`56`	`57`
`57`	`58`	`;-- protocols:`