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

This commit is contained in:
aarne
2014-12-08 10:18:57 +00:00
parent 2b3b2282f5
commit 77ecefafbb
7 changed files with 29 additions and 8 deletions

View File

@@ -1,11 +1,13 @@
concrete ChunkFre of Chunk = CatFre, ExtensionsFre [VPS,VPI] **
ChunkFunctor - [SSlash_Chunk]
ChunkFunctor - [AP_Chunk, SSlash_Chunk]
with (Syntax = SyntaxFre), (Extensions = ExtensionsFre) **
open
SyntaxFre, (E = ExtensionsFre), Prelude,
ResFre, PhonoFre, CommonRomance, (P = ParadigmsFre) in {
lin
AP_Chunk ap = {s = ap.s ! AF (Masc | Fem) (Sg | Pl)} ;
SSlash_Chunk s = mkUtt <lin S {s = s.s ! {g = Masc ; n = Sg}} : S> ;
lin