Paste: slava

Author:	bug
Mode:	factor
Date:	Tue, 25 Nov 2008 01:38:16

Plain Text |

: 'av-pair' ( -- parser )
    [
        'space' ,
        'attr' ,
        'space' ,
            [ "=" token , 'space' , 'value' , ] seq* [ peek ] action
            epsilon [ drop f ] action
        2choice ,
        'space' ,
    ] seq*
    [ "=;" member? not ] satisfy repeat1 [ drop f ] action
    2choice ;

Annotation: change

Author:	doublec
Mode:	factor
Date:	Tue, 25 Nov 2008 01:52:12

Plain Text |

: 'av-pair' ( -- parser )
    [
        'space' ,
        'attr' ,
        [ 'space' , "=" token , 'space' , 'value' , ] seq* [ peek ] action optional
        'space' ,
    ] seq*
    [ "=;" member? not ] satisfy repeat1 [ drop f ] action
    2choice ;

New Annotation

Summary:
Author:
Mode:
Body: