GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

added tired_VP in Constructions

Browse Source
This commit is contained in:
krasimir
2016-07-04 21:15:00 +00:00
parent 348623db29
commit 10378917ff
22 changed files with 52 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/abstract/Construction.gf
View File

@@ -17,6 +17,7 @@ flags coding=utf8 ;
fun
hungry_VP : VP ; -- x is hungry / x a faim (Fre)
thirsty_VP : VP ; -- x is thirsty / x a soif (Fre)
tired_VP : VP ; -- x is tired / x estoy cansado (Spa)
has_age_VP : Card -> VP ; -- x is y years old / x a y ans (Fre)
have_name_Cl : NP -> NP -> Cl ; -- x's name is y / x s'appelle y (Fre)

2
lib/src/bulgarian/ConstructionBul.gf
View File

@@ -14,6 +14,8 @@ lincat
lin
hungry_VP = mkVP (mkA079 "гладен") ;
thirsty_VP = mkVP (mkA079 "жаден") ;
tired_VP = mkVP (mkA076 "уморен") ;
has_age_VP card = mkVP (SyntaxBul.mkAdv (mkPrep "на" R.Acc) (mkNP <lin Card card : Card> (mkN041 "година"))) ;
have_name_Cl x name = mkCl <lin NP x : NP> (dirV2 (medialV (actionV (mkV186 "казвам") (mkV156 "кажа")) R.Acc)) <lin NP name : NP> ;
how_old_QCl p = mkQCl (MorphoFunsBul.mkIAdv "на колко") (mkCl <lin NP p : NP> (mkNP a_Quant plNum (mkN041 "година"))) ;

4
lib/src/catalan/ConstructionCat.gf
View File

@@ -1,7 +1,7 @@
--# -path=alltenses:.:../abstract
concrete ConstructionCat of Construction = CatCat **
open SyntaxCat, SymbolicCat, ParadigmsCat,
open SyntaxCat, SymbolicCat, ParadigmsCat, BeschCat,
(L = LexiconCat), (E = ExtraCat), (I = IrregCat), (R = ResCat), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
@@ -10,6 +10,7 @@ flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "gana" feminine)) ; -- "fam" (val)
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "set" feminine)) ;
tired_VP = mkVP stateCopula (mkAP (mkA "cansat")) ;
has_age_VP card = mkVP have_V2 (mkNP <lin Card card : Card> L.year_N) ;
@@ -55,6 +56,7 @@ lincat
Year = NP ;
oper
noPrep : Prep = mkPrep [] ;
stateCopula = mkVA (mkV (estar_54 "estar")) ;
lin
weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi

2
lib/src/chinese/ConstructionChi.gf
View File

@@ -8,6 +8,8 @@ flags coding=utf8 ;
lin
hungry_VP = mkVP (mkV "饿") ;
thirsty_VP = mkVP (mkA "渴") ;
tired_VP = mkVP (mkV "累了") ;
has_age_VP card = mkVP (lin AdV card) (mkVP (mkV "岁")) ;
have_name_Cl x y = mkCl (lin NP x) (mkV2 (mkV "叫")) (lin NP y) ;

2
lib/src/dutch/ConstructionDut.gf
View File

@@ -8,6 +8,8 @@ concrete ConstructionDut of Construction = CatDut **
lin
hungry_VP = mkVP have_V2 (mkNP (mkN "honger")) ;
thirsty_VP = mkVP have_V2 (mkNP (mkN "dorst")) ;
tired_VP = mkVP (mkA "moe") ;
has_age_VP card = mkVP (mkNP <card : Card> L.year_N) ;
have_name_Cl x y = mkCl (lin NP x) (mkV2 I.heten_V) (lin NP y) ;

2
lib/src/english/ConstructionEng.gf
View File

@@ -7,6 +7,8 @@ concrete ConstructionEng of Construction = CatEng **
lin
hungry_VP = mkVP (mkA "hungry") ;
thirsty_VP = mkVP (mkA "thirsty") ;
tired_VP = mkVP (mkA "tired") ;
has_age_VP card = mkVP (mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> L.year_N))) L.old_A) ;
have_name_Cl x y = mkCl (mkNP (E.GenNP x) L.name_N) (lin NP y) ;

2
lib/src/estonian/ConstructionEst.gf
View File

@@ -7,6 +7,8 @@ flags coding=utf8 ;
lin
hungry_VP = mkVP have_V2 (lin NP (mkNP (mkPN "kõht tühi"))) ;
thirsty_VP = mkVP have_V2 (lin NP (mkNP (ParadigmsEst.mkN "janu"))) ;
tired_VP = mkVP (ParadigmsEst.mkA "väsinud") ;
has_age_VP card =
let n_years_AdA : AdA = lin AdA (mkUtt (lin NP (mkNP <lin Card card : Card> L.year_N)))
in mkVP (mkAP n_years_AdA L.old_A) ;

2
lib/src/finnish/ConstructionFin.gf
View File

@@ -7,6 +7,8 @@ flags coding=utf8 ;
lin
hungry_VP = mkVP have_V2 (lin NP (mkNP (ParadigmsFin.mkN "nälkä"))) ;
thirsty_VP = mkVP have_V2 (lin NP (mkNP (ParadigmsFin.mkN "jano"))) ;
tired_VP = mkVP (caseV partitive (mkV "väsyttää")) ;
has_age_VP card = mkVP (mkAP (lin AdA (mkUtt (lin NP (mkNP <lin Card card : Card> L.year_N)))) L.old_A) ;
have_name_Cl x y = mkCl (mkNP (E.GenNP x) L.name_N) (lin NP y) ;

2
lib/src/french/ConstructionFre.gf
View File

@@ -10,6 +10,8 @@ flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "faim")) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "soif")) ;
tired_VP = mkVP (mkA "fatigué") ;
has_age_VP card = mkVP have_V2 (mkNP <lin Card card : Card> L.year_N) ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "appeler"))) y ;

2
lib/src/german/ConstructionGer.gf
View File

@@ -9,6 +9,8 @@ flags coding=utf8 ;
lin
hungry_VP = mkVP (mkA "hungrig") ;
thirsty_VP = mkVP (mkA "durstig") ;
tired_VP = mkVP (mkA "müde") ;
has_age_VP card = mkVP (lin AP (mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> L.year_N))) L.old_A)) ;
have_name_Cl x y = mkCl (lin NP x) (mkV2 I.heißen_V) (lin NP y) ;

2
lib/src/italian/ConstructionIta.gf
View File

@@ -10,6 +10,8 @@ flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "fame")) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sete")) ;
tired_VP = mkVP (mkA "stanco") ;
has_age_VP card = mkVP have_V2 (mkNP <lin Card card : Card> L.year_N) ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "chiamare"))) y ;

2
lib/src/japanese/AllJpn.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../abstract:../prelude
--# -path=.:../abstract:../prelude:../api
concrete AllJpn of AllJpnAbs =
LangJpn,

7
lib/src/japanese/ConstructionJpn.gf Normal file
View File

@@ -0,0 +1,7 @@
concrete ConstructionJpn of Construction = CatJpn **
open SyntaxJpn, ParadigmsJpn in {
lin
tired_VP = mkVP (mkA "疲れている" "疲れた") ;
}

5
lib/src/japanese/LangJpn.gf
View File

@@ -1,8 +1,9 @@
--# -path=.:../abstract:../common
--# -path=.:../abstract:../common:../api
concrete LangJpn of Lang =
GrammarJpn,
LexiconJpn
LexiconJpn,
ConstructionJpn
,DocumentationJpn --# notpresent
;

2
lib/src/russian/AllRus.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../abstract:../common:../prelude
--# -path=.:../abstract:../common:../prelude:../api
concrete AllRus of AllRusAbs =
LangRus,

7
lib/src/russian/ConstructionRus.gf Normal file
View File

@@ -0,0 +1,7 @@
concrete ConstructionRus of Construction = CatRus **
open SyntaxRus, ParadigmsRus, ResRus in {
lin
tired_VP = mkVP (mkA "уставший" Rel) ;
}

1
lib/src/russian/LangRus.gf
View File

@@ -3,6 +3,7 @@
concrete LangRus of Lang =
GrammarRus,
LexiconRus,
ConstructionRus,
DocumentationRus
** {

5
lib/src/spanish/ConstructionSpa.gf
View File

@@ -1,7 +1,7 @@
--# -path=alltenses:.:../abstract
concrete ConstructionSpa of Construction = CatSpa **
open SyntaxSpa, SymbolicSpa, ParadigmsSpa,
open SyntaxSpa, SymbolicSpa, ParadigmsSpa, BeschSpa,
(L = LexiconSpa), (E = ExtraSpa), (I = IrregSpa), (R = ResSpa), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
@@ -10,6 +10,8 @@ flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "hambre" feminine)) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sed" feminine)) ;
tired_VP = mkVP stateCopula (mkAP (mkA "cansado")) ;
has_age_VP card = mkVP have_V2 (mkNP <lin Card card : Card> L.year_N) ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "llamar"))) y ;
@@ -53,6 +55,7 @@ lincat
Year = NP ;
oper
noPrep : Prep = mkPrep [] ;
stateCopula = mkVA (mkV (estar_2 "estar")) ;
lin
weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi

2
lib/src/swedish/ConstructionSwe.gf
View File

@@ -8,6 +8,8 @@ flags coding=utf8 ;
lin
hungry_VP = mkVP (mkA "hungrig") ;
thirsty_VP = mkVP (mkA "törstig") ;
tired_VP = mkVP (mkA "trött") ;
has_age_VP card = mkVP (lin AP (mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> L.year_N))) L.old_A)) ;
have_name_Cl x y = mkCl (lin NP x) (mkV2 (mkV "heta" "hette" "hetat")) (lin NP y) ;

2
lib/src/thai/ConstructionTha.gf
View File

@@ -8,6 +8,8 @@ flags coding=utf8 ;
lin
hungry_VP = mkVP (mkA (R.thword "หิว" "ข้าว")) ;
thirsty_VP = mkVP (mkA (R.thword "กระ" "หาย" "น้ำ")) ;
tired_VP = mkVP (mkA "เหนื่อย") ;
has_age_VP card = mkVP (mkNP (mkNP card L.year_N) (ParadigmsTha.mkAdv (R.thword "อา" "ยุ"))) ;
have_name_Cl x y = mkCl x (mkV2 "ชื่อ") y ;

2
lib/src/translator/TranslateJpn.gf
View File

@@ -20,7 +20,7 @@ concrete TranslateJpn of Translate =
QuestionJpn,
RelativeJpn,
IdiomJpn,
---- ConstructionJpn, ---- TODO
ConstructionJpn,
DocumentationJpn, ---- TODO
ChunkJpn,

2
lib/src/translator/TranslateRus.gf
View File

@@ -20,7 +20,7 @@ concrete TranslateRus of Translate =
QuestionRus,
RelativeRus,
IdiomRus,
--ConstructionRus,
ConstructionRus,
DocumentationRus,
ChunkRus,