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      <- [0123456789] ;
 Expression <- Function / '(' Expression ')' / Factor (MulOp Factor)* ;
 Factor     <- Term (AddOp Term)* ;
 Function   <- Sinus ;
 MulOp      <- [*/] ;
 Number     <- Sign? Digit+ ;
 Sign       <- [-+] ;
 Sinus      <- 'sin(' Expression ')' ;
 Term       <- Number ;

END;
@
