source: proto/pabloj/trunk/input/test/pabloS/statements/while/while4.pablos @ 2834

Last change on this file since 2834 was 2834, checked in by ksherdy, 6 years ago

Migrated pablo to pabloj/trunk.

File size: 425 bytes
Line 
1function void Function(struct TagCallouts tagCallouts, struct Lex lex) {       
2
3        var stream starts_accum = 0;
4        var stream ends_accum = 0;     
5       
6        var stream cursor = pablo.ScanToFirst(lex.opener);
7       
8        while (cursor) {
9                starts_accum |= cursor;
10                cursor = pablo.ScanTo(cursor, lex.marker &~ cursor);
11                ends_accum |= cursor;
12                cursor = pablo.ScanTo(cursor, (lex.marker | lex.terminator) &~ cursor);
13                cursor = cursor & lex.marker;
14        }
15};
Note: See TracBrowser for help on using the repository browser.