added MarkupFin to wrap Finnish phrases in html tags and other markup

This commit is contained in:
Aarne Ranta
2019-08-23 16:58:30 +02:00
parent 11334b10d9
commit ac3975eefb
2 changed files with 17 additions and 3 deletions

View File

@@ -5,8 +5,7 @@ concrete LangFin of Lang =
LexiconFin
, ConstructionFin
, DocumentationFin --# notpresent
** {
flags startcat = Phr ; unlexer = text ; lexer = finnish ;
, MarkupFin - [stringMark]
** {
} ;

15
src/finnish/MarkupFin.gf Normal file
View File

@@ -0,0 +1,15 @@
--# -path=.:../abstract:../common
concrete MarkupFin of Markup = CatFin, MarkHTMLX ** {
lin
MarkupCN m cn = cn ** {s = \\nf => appMark m (cn.s ! nf)} ;
MarkupNP m np = np ** {s = \\c => appMark m (np.s ! c)} ;
MarkupAP m ap = ap ** {s = \\b,nf => appMark m (ap.s ! b ! nf)} ;
MarkupAdv m adv = {s = appMark m adv.s} ;
MarkupS m s = {s = appMark m s.s} ;
MarkupUtt m utt = {s = appMark m utt.s} ;
MarkupPhr m phr = {s = appMark m phr.s} ;
MarkupText m txt = {s = appMark m txt.s} ;
}