earley-csg/csb_example.txt at master · dannyroberts/earley-csg · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
TOP  = _ ({double}) _;

IP   = {N255}\.{N255}\.{N255}\.{N255};
.N255 = (\d+@x)(x=int(x))[x>=0][x<=255]($x);

until = $( ( (. @ x)[x[0]!=arg] )* ) (. @ x)[x[0]=arg];

xml = \< _ $({word} @ head) (\s+ {setting})* _ \>
      {text}?({xml}+ {text})*{xml}*
      \<\/ _ ({word} @ tail) [head=tail] _ \>;
setting = $({word}) _ \= _ ($({word})|\"$(((.@cstr)[cstr!="\""])*)\");
text = $(((. @ cstr)[cstr!="\<"][cstr!="\>"])*);
.word = (\a | \_)(\w | \_)*;

.rexp =
 [arg=()] {rexp 1} |
 [arg<=1] {alt} |
 [arg<=2] {cat} |
 [arg<=3] {uny} |
 [arg<=4] ({eps} | {c} | {paren});
alt = {rexp 2} (\| {rexp 2})+;
cat = {rexp 3} {rexp 3}+;
uny = {rexp 4}$(\*|\+|\?);
eps = \(\);
c = $(\w|\.|\\.);
.paren = \({rexp}\);

test = (123@x)(x=int(x))($x);

double = (.*\s)?(.*@x)\s(.*\s)?(.*@y)[x=y] (\s .*)($x);
double2 = (.*\s)?(.* @ x)\s(.*\s)?{copy x}(\s .*)?;
copy = (i=0) ((.@c)[arg[i]=(c[0])](i=i+1)($c))*[i=len(arg)];