head	1.1;
access;
symbols
	tcllib-1-13:1.1;
locks; strict;
comment	@# @;


1.1
date	2010.03.26.05.07.25;	author andreas_kupries;	state Exp;
branches;
next	;


desc
@@


1.1
log
@
	* New module, 'pt' for ParserTools. Requires Tcl 8.5. Supercedes
	  grammar_peg, grammar_me, and page.
@
text
@PEG a_pe_grammar (Expression)

 AddOp      <- '-' / '+' ;
 Digit      <- '0' / '1' / '2' / '3' / '4' / '5' / '6' / '7' / '8' / '9' ;
 Expression <- Function / '(' Expression ')' / Factor (MulOp Factor)* ;
 Factor     <- Term (AddOp Term)* ;
 Function   <- Sinus ;
 MulOp      <- '*' / '/' ;
 Number     <- Sign? Digit+ ;
 Sign       <- '-' / '+' ;
 Sinus      <- 's' 'i' 'n' '(' Expression ')' ;
 Term       <- Number ;

END;
@
