FEAT: added PKIX as a basic codec

Author: Oldes

src/mezz/mezz-crypt.r

@@ -79,4 +79,25 @@ import module [
 			]
 		]
 	]
+
+	register-codec object [
+		name:  'PKIX
+		title: "Public-Key Infrastructure (X.509)"
+		suffixes: [%.pem %.ssh]
+		decode: function[data [string! binary!]][
+			load-PKIX data
+		]
+		identify: function[data [string! binary!]][
+			rl_label: [
+				[
+					"---- BEGIN " any ch_label "----" |
+					"-----BEGIN " any ch_label "-----"
+				] opt cr lf
+				|
+				some ch_pretext rl_label
+			]
+			parse/all data [rl_label to end]
+    	]
+    ]
+
 ] ;- end of module

src/tests/units/files/dhparam2048.pem

@@ -0,0 +1,8 @@
+-----BEGIN DH PARAMETERS-----
+MIIBCAKCAQEAhR9gLa+RbIUY+u3qZHRwTfw4Q0VoJOv4FK3et9HQNSvZmmUqzcG/
+t3v3TPD3NRsLTh7hrvQcWFR7dsgqLFjqrMvthcRXsLYOxsT9ERL3nMPloEItggRG
+9hk3RzGFYb9nx56RXDJ3Nh+/pYfG3Ab+3gt+V/7Ato+Ws61lHVQmQ1cBUvkdjy4i
+uIm5vr91VVgMc8Bi9PvhsPhjU4f9LQIykiY7+nsJpbgNdlU55Db8/Atc3PnL11z/
+xXjmnj1QBjWymkz5LDEMJYCkMcFGwiToL6+jYjAkG1GpU6Jt4C5Z00E4LERy/jCi
+geGoH8yNQvldeqw5lTcNpaWWB2+ROqUj0wIBAg==
+-----END DH PARAMETERS-----

src/tests/units/mezz-crypt-test.r3

@@ -190,6 +190,14 @@ sY29ouezv4Xz2PuMch5VGPP+CDqzCM4loWgV
 	--assert block? Load-PKIX pkix
 	--assert binary? Load-PKIX/binary pkix
 
+;-- Using codecs
+
+--test-- "Load PKIX data from file using PKIX codec"
+
+	--assert block? pkix: load %units/files/dhparam2048.pem
+	--assert "DH PARAMETERS" = pkix/label
+	--assert binary? pkix/binary
+
 
 ===end-group===