[tapx-dev] [commit] [100] - Added the version to the EBNF grammar.

[ovid at hexten.net]

Revision: 100
Author:   ovid
Date:     2007-03-10 12:15:50 +0000 (Sat, 10 Mar 2007)

Log Message:
-----------
- Added the version to the EBNF grammar.
- Tweaked the grammar slightly to make it more readable.

Modified Paths:
--------------
    trunk/lib/TAPx/Parser/Grammar.pm

Modified: trunk/lib/TAPx/Parser/Grammar.pm
===================================================================
--- trunk/lib/TAPx/Parser/Grammar.pm	2007-03-10 12:12:42 UTC (rev 99)
+++ trunk/lib/TAPx/Parser/Grammar.pm	2007-03-10 12:15:50 UTC (rev 100)
@@ -347,17 +347,12 @@
      Suggestions welcome.
  *)
  
- (* POSIX character classes and other terminals *)
- 
- digit              ::= [:digit:]
- character          ::= ([:print:] - "\n")
- positiveInteger    ::= ( digit - '0' ) {digit}
- nonNegativeInteger ::= digit {digit}
- 
- tap            ::= { comment | unknown } leading_plan lines 
+ 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"
@@ -388,6 +383,14 @@
 
  unknown        ::= { (character - "\n") }
 
+ (* POSIX character classes and other terminals *)
+ 
+ digit              ::= [:digit:]
+ character          ::= ([:print:] - "\n")
+ positiveInteger    ::= ( digit - '0' ) {digit}
+ nonNegativeInteger ::= digit {digit}
+ 
+
 =cut
 
 1;