forked from GitHub/gf-core
17 lines
513 B
Plaintext
17 lines
513 B
Plaintext
-- use this path to read the grammar from the same directory
|
|
--# -path=.:../abstract:../../prelude
|
|
concrete TestHTMLrus of TestHTML = StructuralRus ** open SyntaxRus in {
|
|
|
|
flags
|
|
coding=utf8 ;
|
|
startcat=HTMLdoc ; lexer=text ; parser=chart ; unlexer=text ;
|
|
|
|
-- a random sample from the lexicon
|
|
|
|
lin
|
|
body = {s= "<body> " ++"Это тело" ++ " </body>"};
|
|
head = {s= "<head> " ++ "Это голова \\" ++ " </head>"};
|
|
htmlText x y = {s= " <html> "++ x.s ++ " " ++ y.s ++ " </html>"};
|
|
|
|
};
|