14 lines
316 B
Text
14 lines
316 B
Text
prog: ignore(spaces)
|
|
loop: parse(line)\loop parse(( = {*} ));
|
|
line: ( name | * = {} | seqns );
|
|
name: <>> ignore(none) smark string(nonl) scopy *
|
|
( [f>0?] = {} | = {*} ) [f=0]
|
|
= { 1 2 <: > };
|
|
seqns: smark string(nonl) scopy * [f=0];
|
|
|
|
none: <<>>;
|
|
nonl: !<<
|
|
>>;
|
|
spaces: << >>;
|
|
|
|
f: 1;
|