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
@pt::grammar::peg
    start := (Expression)
    rules
        AddOp :: <value> :=
            /
                '-'
                '+'
        Digit :: <value> :=
            /
                '0'
                '1'
                '2'
                '3'
                '4'
                '5'
                '6'
                '7'
                '8'
                '9'
        Expression :: <value> :=
            /
                (Function)
                /
                    x
                        '\('
                        (Expression)
                        '\)'
                    x
                        (Factor)
                        *
                            x
                                (MulOp)
                                (Factor)
        Factor :: <value> :=
            x
                (Term)
                *
                    x
                        (AddOp)
                        (Term)
        Function :: <value> :=
            (Sinus)
        MulOp :: <value> :=
            /
                '*'
                '/'
        Number :: <value> :=
            x
                ?
                    (Sign)
                +
                    (Digit)
        Sign :: <value> :=
            /
                '-'
                '+'
        Sinus :: <value> :=
            x
                's'
                'i'
                'n'
                '\('
                (Expression)
                '\)'
        Term :: <value> :=
            (Number)
@
