Rebol Parsing Règle: comment corriger la règle pour séparer les paragraphes

Question

Je veux analyser les commandes de la série ci-dessous:

orders-series: {Wordpress Profiles 
    Blogger is a User 
    Admin is a Blogger 
    Author is a Blogger 
    Subscriber is a User 

    Blogger Role 
    Blogger Manage Posts 


    Admin Roles 
    Admin Manage Site 
    Manage Site Include Manage Users 
    Manage Site Include Manage Themes 
    Manage Site Include Manage Plugins 
    } 

    orders-block: copy [] 
    newline2: rejoin [newline newline] 
    rule: [ 
    [some [copy orders to newline2 (append orders-block orders) thru newline2]] 
    | copy orders to end (append orders-block orders) 
    ] 
    parse orders-series rule 
    write clipboard:// mold orders-block 

Je suis arrivé ce dans le presse papier

[{Wordpress Profiles 
Blogger is a User 
Admin is a Blogger 
Author is a Blogger 
Subscriber is a User} "Blogger Role^/Blogger Manage Posts"] 

alors que je voudrais obtenir ce

[{ 
    Wordpress Profiles 
    Blogger is a User 
    Admin is a Blogger 
    Author is a Blogger 
    Subscriber is a User 
    } 
    { 
    Blogger Role 
    Blogger Manage Posts 
    }  
    { 
    Admin Roles 
    Admin Manage Site 
    Manage Site Include Manage Users 
    Manage Site Include Manage Themes 
    Manage Site Include Manage Plugins 
    }] 

Comment modifier ma règle d'analyse?

Merci.

Answer 1

J'utilise une approche légèrement différente:

REBOL [] 

orders-series: {Wordpress Profiles 
    Blogger is a User 
    Admin is a Blogger 
    Author is a Blogger 
    Subscriber is a User 

    Blogger Role 
    Blogger Manage Posts 


    Admin Roles 
    Admin Manage Site 
    Manage Site Include Manage Users 
    Manage Site Include Manage Themes 
    Manage Site Include Manage Plugins 
} 

char-cr-lf: charset [ 
    #"^(00)" - #"^(09)" #"^(0B)" - #"^(0C)" #"^(0E)" - #"^(FF)" 
] 

an-order: [ 
    [ 
    some [ 
     some [char-cr-lf] newline 
    ] 
    ] 
] 

rule: [ 
    (orders-block: copy []) 
    [ 
    any [copy order an-order (append orders-block order) [ any newline | end]] 
    ] 
] 

parse orders-series rule 

Je soupçonne que est à la fois Doc et la solution de Henrik seraient déclenchés par le plus ligne vide entre Blogger Gérer les messages et les rôles d'administrateur.

Answer 2

Retirez simplement le | devant: | copie ...

Answer 3

Je pense que cela fonctionne aussi:

orders: [] 

parse orders-series [ 
    any [ 
     newline 
     | copy txt [to "^/^/" | to end] (append orders trim txt) "^/" 
    ] 
]