From c207052e6ba353d66b759eff4948e84a4d063b33 Mon Sep 17 00:00:00 2001 From: janna Date: Thu, 28 Oct 2004 11:46:37 +0000 Subject: [PATCH] *** empty log message *** --- resource-0.6/abstract/TestHTML.gf | 12 ++++++++++++ resource-0.6/russian/TestHTMLrus.gf | 16 ++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 resource-0.6/abstract/TestHTML.gf create mode 100644 resource-0.6/russian/TestHTMLrus.gf diff --git a/resource-0.6/abstract/TestHTML.gf b/resource-0.6/abstract/TestHTML.gf new file mode 100644 index 000000000..356f71d75 --- /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 000000000..8ccf8a87d --- /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 ++ " "}; + +};