diff options
author | Patrick Spek <p.spek@tyil.nl> | 2019-04-08 19:30:35 +0200 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2019-04-08 19:30:35 +0200 |
commit | 1bd1dff6d449ab221e191679fd8ec516b7cc1d4e (patch) | |
tree | dbb9afa885183300b40e7cd9c29dc892aa4635c3 /lib/URL/Grammar.pm6 |
Initial commit
Diffstat (limited to 'lib/URL/Grammar.pm6')
-rw-r--r-- | lib/URL/Grammar.pm6 | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/lib/URL/Grammar.pm6 b/lib/URL/Grammar.pm6 new file mode 100644 index 0000000..cc9f13c --- /dev/null +++ b/lib/URL/Grammar.pm6 @@ -0,0 +1,48 @@ +#! /usr/bin/env false + +use v6.d; + +unit grammar URL::Grammar; + +token TOP { + [ <scheme> ":" ]? + "//"? + [ <userinfo> "@" ]? + <host>? + <path>? + [ "?" <query> ]? + [ "#" <fragment> ]? +} + +token scheme { <[ a..z ]> <[ a..z 0..9 . + - ]>* } +token userinfo { <username> [ ":" <password> ] } +token username { <-[ : @ ]>+ } +token password { <-[ @ ]>+ } +token host { <hostname> [ ":" <port> ]? } +token hostname { [ <-[ / : # ? \h ]>+ | "[" <-[ \] ]>+ "]" ] } +token port { \d ** 1..5 } +token path { "/" <part=.path-part>* % "/" } +token path-part { <-[ / ? # ]>+ } +token query { <part=.query-part>* % "&" } +token query-part { <key=.query-part-key> "=" <value=.query-part-value> } +token query-part-key { <-[ = # & ]>+ } +token query-part-value { <-[ # & ]>+ } +token fragment { <-[ \s ]>+ } + +=begin pod + +=NAME URL::Grammar +=AUTHOR Patrick Spek <p.spek@tyil.work> +=VERSION 0.1.0 + +=head1 Synopsis + +=head1 Description + +=head1 Examples + +=head1 See also + +=end pod + +# vim: ft=perl6 noet |