diff options
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 |