msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-10-28 11:46:37 +00:00
parent df474d7b2e
commit c207052e6b
2 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
resource-0.6/abstract/TestHTML.gf Normal file
View File

@@ -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;
} ;

16
resource-0.6/russian/TestHTMLrus.gf Normal file
View File

@@ -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= "<body> " ++"Это тело" ++ " </body>"};
head = {s= "<head> " ++ "Это голова \" ++ " </head>"};
htmlText x y = {s= " <html> "++ x.s ++ " " ++ y.s ++ " </html>"};
};