diff --git a/lib/src/chunk/ChunkCat.gf b/lib/src/chunk/ChunkCat.gf new file mode 100644 index 000000000..c8e7f8d39 --- /dev/null +++ b/lib/src/chunk/ChunkCat.gf @@ -0,0 +1,54 @@ +concrete ChunkCat of Chunk = CatCat, ExtensionsCat [VPS,VPI] ** + ChunkFunctor - [SSlash_Chunk] + with (Syntax = SyntaxCat), (Extensions = ExtensionsCat) ** + open + SyntaxCat, (E = ExtensionsCat), Prelude, + ResCat, CommonRomance, (P = ParadigmsCat) in { + +lin + SSlash_Chunk s = mkUtt ; + +lin + NP_Acc_Chunk np = ss (np.s ! Acc).ton ; + NP_Gen_Chunk np = ss (np.s ! genitive).comp ; + + VPI_Chunk vpi = vpi ; + +oper + emptyNP = mkNP (P.mkPN []) ; + +lin + copula_inf_Chunk = ss "ser" ; + + refl_SgP1_Chunk = ss "yo mismo" ; + refl_SgP2_Chunk = ss "tu mismo" ; + refl_SgP3_Chunk = ss "ello mismo" ; + refl_PlP1_Chunk = ss "nosotros mismos" ; + refl_PlP2_Chunk = ss "vosotros mismos" ; + refl_PlP3_Chunk = ss "ellos mismos" ; + neg_Chunk = ss "no" ; + copula_Chunk = ss "es" ; + copula_neg_Chunk = ss "no es" ; + past_copula_Chunk = ss "era" ; + past_copula_neg_Chunk = ss "no era" ; + future_Chunk = ss "va" ; ---- + future_neg_Chunk = ss "no va" ; ---- + cond_Chunk = ss "iría" ; ---- + cond_neg_Chunk = ss "no iría" ; ---- + perfect_Chunk = ss "ha" ; + perfect_neg_Chunk = ss "no ha" ; + past_perfect_Chunk = ss "había" ; + past_perfect_neg_Chunk = ss "no había" ; + + fullstop_Chunk = ss "." ; + exclmark_Chunk = ss "!" ; + questmark_Chunk = ss "?" ; + comma_Chunk = ss "," ; + colon_Chunk = ss ":" ; + semicolon_Chunk = ss ";" ; + quote_Chunk = ss "\"" ; + lpar_Chunk = ss "(" ; + rpar_Chunk = ss ")" ; + dash_Chunk = ss "-" ; + +} \ No newline at end of file