X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Ftibdoc.g;fp=tests%2Ftibdoc.g;h=88ee6f8fd170e661f4f7adf723aa524ba7454e89;hp=ed71ad3e948aac8aabadf903326d4a89cbd82b7b;hb=eec21f64634c3a76436a263254fc890b56b5b34d;hpb=d324d5d52c6602d69d333a6d786fc37177e4252c diff --git a/tests/tibdoc.g b/tests/tibdoc.g index ed71ad3..88ee6f8 100644 --- a/tests/tibdoc.g +++ b/tests/tibdoc.g @@ -115,8 +115,8 @@ styled = Underline:: "__" text "__" block = { text } -link = Link:: text:({ text }) "->" href:(url|email) - > Link:: text:alphanum++ !ws "->" href:(url|email) +link = LinkText:: text:({ text }) "->" href:(url|email) + > LinkChars:: text:alphanum++ !ws "->" href:(url|email) structured = command & "\\" !([a-zA-Z0-9]++) block? > glyph @@ -141,8 +141,15 @@ urlc = [a-zA-Z0-9;/?:&=$\-_.+@] urlv = urlc | [%] urlchar = urlc | urlescape:: "%" [0-9] [0-9] -url = "mailto" ":" email -> ~urlv - > URL:: method:method "://" login:url_login? host:host port:(":" nums)? path:("/" urlpath)? -> ~urlv +url = Mailto:: "mailto" ":" email -> ~urlv + > URL:: + method:method + "://" + login:url_login? + host:host + port:(":" nums)? + path:("/" urlpath)? + -> ~urlv url_login = Login:: username:username password:(":" password) "@" method = [+\-.a-z0-9]+ domain = (part +/ ".") -> ~"." @@ -163,7 +170,7 @@ word = alphanum++ | quoted quoted = "\"" ((~[\"\\] | escaped)+) "\"" - | "":: "\"\"" + | "\"\"":: "\"\"" escaped = lf:: "\\n" | cr:: "\\r" | "\\" ~[nr] @@ -172,7 +179,6 @@ escaped = lf:: "\\n" // Chars /////////////////////////////////////////////////////////////// alpha = [a-zA-Z] -//num = [0-9] alphanum = [a-zA-Z0-9] sym = ~[a-zA-Z0-9\ \r\n=\">]