FEAT: less strict to-date conversion

Author: Oldes

src/boot/sysobj.reb

@@ -56,6 +56,7 @@ catalog: object [
 		alpha:         #[bitset! #{00000000000000007FFFFFE07FFFFFE0}] ;A-Z a-z
 		alpha-numeric: #[bitset! #{000000000000FFC07FFFFFE07FFFFFE0}] ;A-Z a-z 0-9
 		hex-digits:    #[bitset! #{000000000000FFC07E0000007E}]       ;A-F a-f 0-9
+		plus-minus:    #[bitset! #{000000000014}]                     ;charset "+-"
 		; 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 !'()*-._~

src/mezz/mezz-date.reb

@@ -49,30 +49,25 @@ to-idate: func [
 	]
 ]
 
-to-date: wrap [
-	digit: charset [#"0" - #"9"]
-	alpha: charset [#"a" - #"z" #"A" - #"Z"]
-	function [
-		"Converts to date! value."
-		value [any-type!] "May be also a standard Internet date string/binary"
-		/utc "Returns the date with UTC zone"
-	][
-		if all [
-			any [string? value binary? value]
-			parse value [
-				5 skip
-				copy day:   1 2 digit space
-				copy month:   3 alpha space
-				copy year:  1 4 digit space
-				copy time: to space space
-				copy zone: to end
-			]
-		][
-			if zone = "GMT" [zone: "+0"]
-			value: to string! rejoin [day "-" month "-" year "/" time zone]
+to-date: function/with [
+	"Converts to date! value."
+	value [any-type!] "May be also a standard Internet date string/binary"
+	/utc "Returns the date with UTC zone"
+][
+	if all [
+		any [string? value binary? value]
+		parse value [
+			5 skip
+			 copy day:   1 2 numeric sp
+			 copy month:   3 alpha   sp
+			 copy year:  1 4 numeric sp
+			 copy time: to sp sp
+			[copy zone: [plus-minus 4 numeric] | no-case "GMT" (zone: "+0")]
+			to end ; ignore the rest (like comments in mime fields)!
 		]
-		
-		if all [value: to date! value  utc] [ value/timezone: 0 ]
-		value
+	][
+		value: to string! rejoin [day "-" month "-" year "/" time any [zone ""]]
 	]
-]
+	if all [value: to date! value  utc] [ value/timezone: 0 ]
+	value
+] system/catalog/bitsets

src/tests/units/date-test.r3

@@ -325,6 +325,7 @@ Rebol [
 		--assert 28-Mar-2019/0:00 = to-date to-binary "Thu, 28 Mar 2019 00:00:00 +0000"
 		--assert 4-Apr-2019/19:41:46 = to-date "Thu, 04 Apr 2019 19:41:46 GMT"
 		--assert 1-Apr-2019/21:50:04 = to-date "Mon, 1 Apr 2019 21:50:04 GMT"
+		--assert 30-Jul-2013/2:17:58-7:00 = to-date "Tue, 30 Jul 2013 02:17:58 -0700 (PDT)"
 
 
 ===end-group===