FEAT: Including quoted-printable codec

Author: Oldes

make/rebol3.nest

@@ -728,6 +728,7 @@ include-codec-plist:         [mezz-lib-files:  %mezz/codec-plist.reb        ]
 include-codec-swf:           [mezz-lib-files:  %mezz/codec-swf.reb          ]
 include-codec-wav:           [mezz-lib-files:  %mezz/codec-wav.reb          ]
 include-codec-unixtime:      [mezz-lib-files:  %mezz/codec-unixtime.reb     ]
+include-codec-quoted-printable: [mezz-lib-files: %mezz/codec-quoted-printable.reb]
 ; mezzanines:
 include-mezz-ansi:           [mezz-lib-files:  %mezz/mezz-ansi.reb          ]
 include-mezz-date:           [mezz-lib-files:  %mezz/mezz-date.reb          ]
@@ -768,6 +769,7 @@ include-rebol-core: [
 	:include-codec-gzip
 	:include-codec-zip
 	:include-codec-tar
+	:include-codec-quoted-printable
 
 	config: INCLUDE_SHA224
 	config: INCLUDE_SHA384

src/boot/sysobj.reb

@@ -58,6 +58,7 @@ catalog: object [
 		; chars which does not have to be url-encoded:
 		uri:           #[bitset! #{000000005BFFFFF5FFFFFFE17FFFFFE2}] ;A-Z a-z 0-9 !#$&'()*+,-./:;=?@_~
 		uri-component: #[bitset! #{0000000041E6FFC07FFFFFE17FFFFFE2}] ;A-Z a-z 0-9 !'()*-._~
+		quoted-printable: #[bitset! #{FFFFFFFFFFFFFFFBFFFFFFFFFFFFFFFF}]
 	]
 	checksums: [adler32 crc24 crc32 tcp md4 md5 sha1 sha224 sha256 sha384 sha512 ripemd160]
 	compressions: [gzip deflate zlib lzma crush]
@@ -116,6 +117,7 @@ modules: object [
 	plist:         https://raw.githubusercontent.com/Oldes/Rebol3/master/src/mezz/codec-plist.reb
 	bbcode:        https://raw.githubusercontent.com/Oldes/Rebol3/master/src/mezz/codec-bbcode.reb
 	html-entities: https://raw.githubusercontent.com/Oldes/Rebol3/master/src/mezz/codec-html-entities.reb
+	quoted-printable: https://raw.githubusercontent.com/Oldes/Rebol3/master/src/mezz/codec-quoted-printable.reb
 	;; and..
 	window: none ;- internal extension for gui (on Windows so far!)
 ]

src/mezz/codec-quoted-printable.reb

@@ -0,0 +1,49 @@
+REBOL [
+	Name:    quoted-printable
+	Type:    module
+	;Options: [delay]
+	Version: 1.0.0
+	Title:   "Codec: quoted-printable encoding"
+	Author:  "Oldes"
+	Rights:  "Copyright (C) 2022 Oldes. All rights reserved."
+	License: "BSD-3"
+	Test:    %tests/units/codec-test.r3
+	Specification: https://en.wikipedia.org/wiki/Quoted-printable
+]
+
+register-codec [
+	name: 'quoted-printable
+	type: 'text
+	title: "quoted-printable encoding"
+	
+	decode: function [
+		"Decodes quoted-printable data"
+		data [binary! any-string!]
+	][
+		output: either binary? data [ copy data ][ to binary! data ]
+		; remove soft line breaks
+		parse output [any [to #"=" remove [#"=" [LF | CR LF]] | skip] to end]
+		to data dehex/escape output #"="
+	]
+
+	encode: function/with [
+		"Encodes data using quoted-printable encoding"
+		data [binary! any-string!]
+	][
+		output: enhex/escape/except to binary! data #"=" :quoted-printable
+		assert [number? :max-line-length]
+
+		if 0 < length: to integer! max-line-length - 1 [
+			; limit line length to 76 chars
+			parse output [any [
+				; skip max-line-length - 1 chars
+				length skip
+				; insert =CRLF if there is not end yet
+				[end | 1 skip end | insert #{3D0D0A}]
+			]]
+		]
+		to data output
+	] system/catalog/bitsets
+	
+	max-line-length: 76
+]

src/tests/units/codecs-test.r3

@@ -577,6 +577,50 @@ if find codecs 'html-entities [
 	===end-group===
 ]
 
+try [import 'quoted-printable]
+if find codecs 'quoted-printable [
+	was-length: :codecs/quoted-printable/max-line-length
+	===start-group=== "Quoted-Printable codec"
+	--test-- "encode Quoted-Printable"
+		--assert (encode 'quoted-printable "Holčička") == "Hol=C4=8Di=C4=8Dka"
+		--assert (encode 'quoted-printable @Holčička ) == @Hol=C4=8Di=C4=8Dka
+		--assert (encode 'quoted-printable %Holčička ) == %Hol=C4=8Di=C4=8Dka
+		--assert (encode 'quoted-printable #{486F6CC48D69C48D6B61}) == #{486F6C3D43343D3844693D43343D38446B61}
+	--test-- "decode Quoted-Printable"
+		--assert (decode 'quoted-printable "Hol=C4=8Di=C4=8Dka") == "Holčička"
+		--assert (decode 'quoted-printable @Hol=C4=8Di=C4=8Dka ) == @Holčička
+		--assert (decode 'quoted-printable %Hol=C4=8Di=C4=8Dka ) == %Holčička
+		--assert (decode 'quoted-printable #{486F6C3D43343D3844693D43343D38446B61}) == #{486F6CC48D69C48D6B61}
+
+	--test-- "multiline Quoted-Printable"
+		codecs/quoted-printable/max-line-length: 76
+		text-encoded: {J'interdis aux marchands de vanter trop leurs marchandises. Car ils se font=^M
+ vite p=C3=A9dagogues et t'enseignent comme but ce qui n'est par essence qu=^M
+'un moyen, et te trompant ainsi sur la route =C3=A0 suivre les voil=C3=^M
+=A0 bient=C3=B4t qui te d=C3=A9gradent, car si leur musique est vulgaire il=^M
+s te fabriquent pour te la vendre une =C3=A2me vulgaire.^M
+   =E2=80=94=E2=80=89Antoine de Saint-Exup=C3=A9ry, Citadelle (1948)}
+   		text-expected: {J'interdis aux marchands de vanter trop leurs marchandises. Car ils se font vite pédagogues et t'enseignent comme but ce qui n'est par essence qu'un moyen, et te trompant ainsi sur la route à suivre les voilà bientôt qui te dégradent, car si leur musique est vulgaire ils te fabriquent pour te la vendre une âme vulgaire.^M
+   — Antoine de Saint-Exupéry, Citadelle (1948)}
+
+		--assert text-expected == decode 'quoted-printable text-encoded  
+		--assert text-expected == decode 'quoted-printable encode 'quoted-printable text-expected
+		
+	--test-- "encode with line length limit"
+		codecs/quoted-printable/max-line-length: 4
+		--assert "a" = encode 'quoted-printable "a"
+		--assert "ab" = encode 'quoted-printable "ab"
+		--assert "abc" = encode 'quoted-printable "abc"
+		--assert "abcd" = encode 'quoted-printable "abcd"
+		--assert "abc=^M^/de" = encode 'quoted-printable "abcde"
+		--assert "abc=^M^/def" = encode 'quoted-printable "abcdef"
+		--assert "abc=^M^/defg" = encode 'quoted-printable "abcdefg"
+
+	===end-group===
+	codecs/quoted-printable/max-line-length: :was-length
+]
+
+
 try [import 'plist]
 if find codecs 'plist [
 	===start-group=== "PLIST codec"