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

added an experimental version of TranslateDut, and documentation steps.t2t on how it was built

Browse Source
This commit is contained in:
aarne
2014-04-11 07:48:26 +00:00
parent ea40bc151b
commit 7363598913
8 changed files with 887 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
lib/src/chunk/ChunkDut.gf Normal file
View File

@@ -0,0 +1,43 @@
concrete ChunkDut of Chunk = CatDut
---- , ExtensionsDut
**
ChunkFunctor - [UseVC, VPS_Chunk, emptyNP, VPI_Chunk]
with (Syntax = SyntaxDut), (Extensions = ExtensionsDut)
**
open
SyntaxDut, (E = ExtensionsDut), Prelude,
ResDut, (P = ParadigmsDut) in {
oper
emptyNP = SyntaxDut.mkNP (P.mkPN []) ;
----lin
---- NP_Acc_Chunk np = ss (np.s ! NPC Acc) ;
---- NP_Gen_Chunk np = ss (np.s ! NPC Gen) ;
---- VPI_Chunk vpi = {s = vpi.s ! (True | False)} ;
lin
copula_inf_Chunk = ss "zijn" ;
refl_SgP1_Chunk = ss "mij zelf" ;
refl_SgP2_Chunk = ss "jij zelf" ;
refl_SgP3_Chunk = ss "zij zelf" ;
refl_PlP1_Chunk = ss "ons zelf" ;
refl_PlP2_Chunk = ss "jullie zelf" ;
refl_PlP3_Chunk = ss "zij zelf" ;
neg_Chunk = ss "niet" ;
copula_Chunk = ss "is" ;
copula_neg_Chunk = ss "is niet" ;
past_copula_Chunk = ss "was" ;
past_copula_neg_Chunk = ss "was niet" ;
future_Chunk = ss "zal" ;
future_neg_Chunk = ss "zal niet" ;
cond_Chunk = ss "zou" ;
cond_neg_Chunk = ss "zou niet" ;
perfect_Chunk = ss "heeft" ;
perfect_neg_Chunk = ss "heeft niet" ;
past_perfect_Chunk = ss "had" ;
past_perfect_neg_Chunk = ss "had niet" ;
}

6
lib/src/chunk/ChunkFunctor.gf
View File

@@ -24,7 +24,7 @@ lin
S_Chunk s = mkUtt s ;
SSlash_Chunk s = mkUtt <lin S s : S> ;
QS_Chunk qs = mkUtt qs ;
CN_Pl_Chunk cn = mkUtt (mkNP aPl_Det cn) ;
CN_Pl_Chunk cn = mkUtt (Syntax.mkNP aPl_Det cn) ;
CN_Sg_Chunk cn = mkUtt cn ;
---- CN_Pl_Gen_Chunk cn = ss (cn.s ! Pl ! Gen) ;
---- CN_Sg_Gen_Chunk cn = ss (cn.s ! Sg ! Gen) ;
@@ -34,11 +34,11 @@ lin
NP_Nom_Chunk np = mkUtt np ;
---- NP_Acc_Chunk np = ss (np.s ! NPAcc) ;
---- NP_Gen_Chunk np = ss (np.s ! NCase Gen) | ss (np.s ! NPNomPoss) ;
Numeral_Nom_Chunk num = mkUtt (mkNP (mkDet num)) ;
Numeral_Nom_Chunk num = mkUtt (Syntax.mkNP (Syntax.mkDet num)) ;
---- Numeral_Gen_Chunk num = ss (num.s ! NCard ! Gen) ;
---- Ord_Nom_Chunk ord = ss (ord.s ! Nom) ;
---- Ord_Gen_Chunk ord = ss (ord.s ! Gen) ;
Predet_Chunk predet = mkUtt (mkNP predet emptyNP) ;
Predet_Chunk predet = mkUtt (Syntax.mkNP predet emptyNP) ;
Prep_Chunk prep = mkAdv prep emptyNP ; ----
---- RP_Nom_Chunk rp = ss (rp.s ! RC Neutr (NCase Nom)) ;
---- RP_Acc_Chunk rp = ss (rp.s ! RPrep Masc) ; ----