diff --git a/resource-0.6/abstract/TestHTML.gf b/resource-0.6/abstract/TestHTML.gf new file mode 100644 index 00000000..356f71d7 --- /dev/null +++ b/resource-0.6/abstract/TestHTML.gf @@ -0,0 +1,12 @@ +abstract TestHTML = Structural ** { + +-- a random sample of lexicon to test resource grammar with + +cat HTMLdoc; HTMLtag; + +fun + htmlText: HTMLtag -> HTMLtag -> HTMLdoc; + head, body: HTMLtag; + +} ; + diff --git a/resource-0.6/russian/TestHTMLrus.gf b/resource-0.6/russian/TestHTMLrus.gf new file mode 100644 index 00000000..8ccf8a87 --- /dev/null +++ b/resource-0.6/russian/TestHTMLrus.gf @@ -0,0 +1,16 @@ +-- 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= " " ++"Это тело" ++ " "}; + head = {s= " " ++ "Это голова \" ++ " "}; + htmlText x y = {s= " "++ x.s ++ " " ++ y.s ++ " "}; + +};