steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

urls: allow + in protocols, e.g. git+https://

db4
Doug Coleman 2015-08-03 17:38:13 -07:00
parent 5c0d8c7e4f
commit d3a749d17a
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/urls/urls-tests.factor
View File

@ -275,3 +275,6 @@ urls [
} }
} }
[ URL" https://google.com/" url-addr ] unit-test [ URL" https://google.com/" url-addr ] unit-test
{ "git+https" }
[ URL" git+https://google.com/git/factor.git" >url protocol>> ] unit-test

2
basis/urls/urls.factor
View File

@ -43,7 +43,7 @@ M: url >url ;
EBNF: parse-url EBNF: parse-url
protocol = [a-z]+ => [[ url-decode ]] protocol = [a-z+]+ => [[ url-decode ]]
username = [^/:@#?]+ => [[ url-decode ]] username = [^/:@#?]+ => [[ url-decode ]]
password = [^/:@#?]+ => [[ url-decode ]] password = [^/:@#?]+ => [[ url-decode ]]
pathname = [^#?]+ => [[ url-decode ]] pathname = [^#?]+ => [[ url-decode ]]