X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Ftibdoc.g;h=9cff5567ea03b41a8190ed14f829cec7afab764d;hp=1ea798de924f49c5bfea84a3a0fe0f0a98f4acd0;hb=7fbee73b4dd985cb5b217ed297710c00fd9d7004;hpb=242a8711e98cbd3ed6d05271bf910fde38e9be9a diff --git a/tests/tibdoc.g b/tests/tibdoc.g index 1ea798d..9cff556 100644 --- a/tests/tibdoc.g +++ b/tests/tibdoc.g @@ -46,7 +46,7 @@ SectionHeaderBody ::= "=" SectionHeaderBody "=" kv ::= word "=" text /ws => kv1 -num !::= [0-9]++ +num !::= [0-9]++ => "stringify" Paragraph ::= { "\"\"" ws text } => "blockquote" > { "*" " " ws text } => "ul" > { "#" " " ws text } => "ol" @@ -61,7 +61,7 @@ item ::= pre > structured > styled > "\"" text "\"" => quoted - > [a-zA-Z0-9]++ + > alphanum++ => "stringify" > symbol symbol ::= symbolx & sym++ @@ -88,8 +88,8 @@ glyph ::= "(r)" | "(c)" | "(tm)" // euro symbol? // only gets parsed once urlpath ::= urlchar* -username ::= [a-zA-Z0-9;/?:&=$\-_.+]++ -password ::= [a-zA-Z0-9;/?:&=$\-_.+]++ +username ::= [a-zA-Z0-9;/?:&=$\-_.+]++ => "stringify" +password ::= [a-zA-Z0-9;/?:&=$\-_.+]++ => "stringify" urlchar ::= [a-zA-Z0-9;/?:&=$\-_.+@] | "%" [0-9] [0-9] => "%" url ::= "mailto" ":" email @@ -99,7 +99,7 @@ method ::= [+\-.a-z0-9]+ port ::= [0-9]+ domain ::= part +/ "." -part ::= [a-zA-Z0-9\-]++ // interesting use of boolean grammars +part ::= [a-zA-Z0-9\-]++ => "stringify" // interesting use of boolean grammars // &~ ([\-0-9] ~[]* | ~[]* [\-0-9]) email ::= username "@" host => email @@ -110,7 +110,7 @@ host ::= [0-9]+ "." [0-9]+ "." [0-9]+ "." [0-9]+ => "ip" // Tokens /////////////////////////////////////////////////////////////////// -word ::= alphanum++ +word ::= alphanum++ => "stringify" | quoted quoted ::= "\"" ((~[\"\\] | escaped)+) "\""