Re: [tap] RFC Status?

[Ovid <[e-mail]>]

(Am I the last person on the planet who uses Yahoo! Mail? I use it because it's so much of a pain to change the damned thing, but it, again, corrupted the formatting on my mail message. Resending the grammar in hopes that it comes through OK this time)

tap            ::= version? { comment | unknown } leading_plan lines
                   |                                           lines trailing_plan {comment}
version        ::= 'TAP version ' positiveInteger {positiveInteger} "\n"

leading_plan   ::= plan skip_directive? "\n"

trailing_plan  ::= plan "\n"

plan           ::= '1..' nonNegativeInteger

line           ::= (comment | test | subtest | unknown | bailout ) "\n"
subtest        ::= ( '    ' version )? 
                   ( '    ' plan subtest_line { subtest_line }
                               | subtest_line { subtest_line } '    ' plan ) test
subtest_line   ::= '    ' line
test           ::= status positiveInteger? description? directive?
status         ::= 'not '? 'ok '

description    ::= (character - (digit | '#')) {character - '#'}

directive      ::= todo_directive | skip_directive

todo_directive ::= hash_mark 'TODO' ' ' {character}

skip_directive ::= hash_mark 'SKIP' ' ' {character}

comment        ::= hash_mark {character}

hash_mark      ::= '#' {' '}

bailout        ::= 'Bail out!' {character}

unknown        ::= { (character - "\n") }

(* POSIX character classes and other terminals *)

digit              ::= [:digit:]

character          ::= ([:print:] - "\n")
positiveInteger    ::= ( digit - '0' ) {digit}
nonNegativeInteger ::= digit {digit}

Best,
Ovid
--
IT consulting, training, international recruiting
       http://www.allaroundtheworld.fr/.
Buy my book! - http://bit.ly/beginning_perl
Live and work overseas - http://www.overseas-exile.com/