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

more coverage of Chunk grammar, including a general fallback rule Symb_Chunk

Browse Source
This commit is contained in:
aarne
2014-12-08 10:18:57 +00:00
parent f3e9d73110
commit 7f95aff5f5
7 changed files with 29 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/chunk/ChunkEng.gf
View File

@@ -1,10 +1,18 @@
concrete ChunkEng of Chunk = CatEng, ExtensionsEng [VPS,VPI] **
ChunkFunctor with (Syntax = SyntaxEng), (Extensions = ExtensionsEng) **
concrete ChunkEng of Chunk = CatEng, SymbolEng [Symb], ExtensionsEng [VPS,VPI] **
ChunkFunctor - [Det_Chunk]
with (Syntax = SyntaxEng), (Extensions = ExtensionsEng) **
open
SyntaxEng, (E = ExtensionsEng), Prelude,
(R = ResEng), (P = ParadigmsEng) in {
lin
Det_Chunk det = lin Utt {
s = case det.n of {
R.Sg => det.s ;
R.Pl => det.sp ! R.NCase R.Nom
}
} ;
NP_Acc_Chunk np = ss (np.s ! R.NPAcc) ;
NP_Gen_Chunk np = ss (np.s ! R.NCase R.Gen) | ss (np.s ! R.NPNomPoss) ;