Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (19 sloc) 0.567 kB
main[
rule addone : [ `x ] -> [ `x + 1 ];
strategy elem-to-code {
rule text-to-code : [ text(`txt) `next ] -> [ echo `txt; `next-code ]
where { `next-code := <elem-to-code> ![ `next ] };
rule hr-to-code : [ hr() `next ] -> [ echo "<hr/>"; `next-code ]
where { `next-code := <elem-to-code> ![ `next ] };
strategy single-to-code {
?[ `s(`a) ];
![ `s(`a) ignore ];
elem-to-code;
};
text-to-code <+ hr-to-code <+ single-to-code <+ ![ ]
};
];
strategy webdsl()[:webdsl-p] {
![ `webdsl-p ];
elem-to-code
};
Jump to Line
Something went wrong with that request. Please try again.