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

MarkupRomance and Ita

Browse Source
This commit is contained in:
Aarne Ranta
2017-10-25 19:03:14 +02:00
parent 4da5677697
commit 63ea92ad04
2 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/italian/MarkupIta.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:../romance
concrete MarkupIta of Markup = CatIta, MarkHTMLX ** MarkupRomance with (ResRomance = ResIta) ;

21
src/romance/MarkupRomance.gf Normal file
View File

@@ -0,0 +1,21 @@
--# -path=.:../abstract:../common
incomplete concrete MarkupRomance of Markup = CatRomance, MarkHTMLX ** {
lin
MarkupCN m cn = cn ** {s = \\n => appMark m (cn.s ! n)} ;
MarkupNP m np = np ** {s = \\c => {
c1 = appMark m (np.s ! c).c1 ;
c2 = appMark m (np.s ! c).c2 ;
comp = appMark m (np.s ! c).comp ;
ton = appMark m (np.s ! c).ton
}
} ;
MarkupAP m ap = ap ** {s = \\a => appMark m (ap.s ! a)} ;
MarkupAdv m adv = {s = appMark m adv.s} ;
MarkupS m s = {s = \\md => appMark m (s.s ! md)} ;
MarkupUtt m utt = {s = appMark m utt.s} ;
MarkupPhr m phr = {s = appMark m phr.s} ;
MarkupText m txt = {s = appMark m txt.s} ;
}