/
url.lua
118 lines (103 loc) · 4.95 KB
/
url.lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
-- ***************************************************************
--
-- Copyright 2016 by Sean Conner. All Rights Reserved.
--
-- This library is free software; you can redistribute it and/or modify it
-- under the terms of the GNU Lesser General Public License as published by
-- the Free Software Foundation; either version 3 of the License, or (at your
-- option) any later version.
--
-- This library is distributed in the hope that it will be useful, but
-- WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
-- License for more details.
--
-- You should have received a copy of the GNU Lesser General Public License
-- along with this library; if not, see <http://www.gnu.org/licenses/>.
--
-- Comments, questions and criticisms can be sent to: sean@conman.org
--
-- ********************************************************************
-- luacheck: ignore 611
--
-- NOTE: This is temporary as I test this version of URL parsing.
-- This file may become the org.comman.parsers.url module
-- at one point, but for now, I'm doing some testing.
-- ********************************************************************
local ip = require "org.conman.parsers.ip-text"
local abnf = require "org.conman.parsers.abnf"
local lpeg = require "lpeg"
local re = require "re"
-- ************************************************************************
-- RFC-3986 RFC-6874 RFC-7320
-- ************************************************************************
local G = --[[ lpeg/re ]] [[
URI_reference <- {| URI / relative_ref |}
URI <- scheme ':' hier_part ('?' query)? ('#' fragment)?
scheme <- {:scheme: 'https' :} {:port: %p443 :}
/ {:scheme: 'http' :} {:port: %p80 :}
/ {:scheme: 'ftp' :} {:port: %p21 :}
/ {:scheme: 'gemini' :} {:port: %p1965 :}
/ {:scheme: 'file' :}
/ {:scheme: %ALPHA (%ALPHA / %DIGIT / '+' / '-' / '.')* :}
hier_part <- '//' authority {:path: path_abempty :}
/ {:path: path_absolute :}
/ {:path: path_rootless :}
/ {:path: path_empty :}
relative_ref <- relative_part ('?' query)? ('#' fragment)?
relative_part <- '//' authority {:path: path_abempty :}
/ {:path: path_absolute :}
/ {:path: path_noscheme :}
/ {:path: path_empty :}
authority <- (userinfo '@')? host (':' port)?
userinfo <- {:user: {~ (unreserved / %pct_encoded / sub_delims / ':')* ~} :}
host <- {:host: IP_literal / %IPv4address / reg_name :}
port <- {:port: %DIGIT+ -> tonumber :}
IP_literal <- '[' ( IPv6addrz / %IPv6address / IPvFuture) ']' -- RFC-6874
IPvFuture <- { 'v' %HEXDIG+ '.' (unreserved / sub_delims / ':')+ }
ZoneID <- {~ (unreserved / %pct_encoded)+ ~} -- RFC-6874
IPv6addrz <- {~ %IPv6address '%25' -> '%%' ZoneID ~} -- RFC-6874
reg_name <- {~ (unreserved / %pct_encoded / sub_delims)* ~}
path <- path_abempty -- begins with '/' or is empty
/ path_absolute -- begins with '/' but not '//'
/ path_noscheme -- begins with a non-colon segment
/ path_rootless -- begins with a segment
/ path_empty
path_abempty <- {~ ( '/' segment)* ~}
path_absolute <- {~ '/' (segment_nz ('/' segment)* )? ~}
path_noscheme <- {~ segment_nz_nc ('/' segment)* ~}
path_rootless <- {~ segment_nz ('/' segment)* ~}
path_empty <- { }
segment <- pchar*
segment_nz <- pchar+
segment_nz_nc <- (unreserved / %pct_encoded / sub_delims / '@')+
pchar <- unreserved / %pct_encoded / sub_delims / '@' / ':'
query <- {:query: { (pchar / '/' / '?')* } :}
fragment <- {:fragment: {~ (pchar / '/' / '?')* ~} :}
reserved <- gen_delims / sub_delims
gen_delims <- ':' / '/' / '?' / '#' / '[' / ']' / '@'
sub_delims <- '!' / '$' / '&' / "'" / '(' / ')'
/ '*' / '+' / ',' / ';' / '='
unreserved <- %ALPHA / %DIGIT / '-' / '.' / '_' / '~'
]]
-- *********************************************************************
local pct_encoded = (lpeg.P"%" * abnf.HEXDIG * abnf.HEXDIG)
/ function(capture)
local n = tonumber(capture:sub(2,-1),16)
return string.char(n)
end
local R =
{
HEXDIG = abnf.HEXDIG,
ALPHA = abnf.ALPHA,
DIGIT = abnf.DIGIT,
p443 = lpeg.Cc( 443),
p80 = lpeg.Cc( 80),
p21 = lpeg.Cc( 21),
p1965 = lpeg.Cc(1965),
tonumber = tonumber,
IPv4address = ip.IPv4,
IPv6address = ip.IPv6,
pct_encoded = pct_encoded,
}
return re.compile(G,R)