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

4
src/chunk/ChunkFunctor.gf
View File

@@ -1,4 +1,4 @@
incomplete concrete ChunkFunctor of Chunk = Cat, Extensions [VPS,VPI] **
incomplete concrete ChunkFunctor of Chunk = Cat, Symbol [Symb], Extensions [VPS,VPI] **
open
Syntax, Extensions,
Prelude in {
@@ -29,6 +29,7 @@ lin
---- CN_Pl_Gen_Chunk cn = ss (cn.s ! Pl ! Gen) ;
---- CN_Sg_Gen_Chunk cn = ss (cn.s ! Sg ! Gen) ;
Conj_Chunk conj = ss conj.s2 ; ----
Det_Chunk det = mkUtt (Syntax.mkNP det) ;
IAdv_Chunk iadv = iadv ;
IP_Chunk ip = mkUtt ip ;
NP_Nom_Chunk np = mkUtt np ;
@@ -64,6 +65,7 @@ lin
UseVC t p vc = E.MkVPS t p (mkVP vc) ;
Symb_Chunk s = lin Utt s ;
fullstop_Chunk = ss "." ;
exclmark_Chunk = ss "!" ;