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

a majour refactoring to support clitic pronouns

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-04 13:01:06 +02:00
parent 00476ae386
commit 7bfd6199d6
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/phrasebook/SentencesBul.gf
View File

@@ -28,7 +28,7 @@ lin YouFamMale = mkPerson youSg_Pron ;
lin ACitizen p cit = lin ACitizen p cit =
let noun : N let noun : N
= case p.name.a.gn of { = case p.name.gn of {
R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf; R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf;
rel = cit.s2.s; relPost = False; rel = cit.s2.s; relPost = False;
g = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut} g = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut}

2
examples/phrasebook/WordsBul.gf
View File

@@ -142,7 +142,7 @@ concrete WordsBul of Words = SentencesBul **
ALike p item = mkCl p.name (dirV2 (actionV (mkV186 "харесвам") (mkV186 "харесам"))) item ; ALike p item = mkCl p.name (dirV2 (actionV (mkV186 "харесвам") (mkV186 "харесам"))) item ;
ALive p co = mkCl p.name (mkVP (mkVP (stateV (mkV160 "живея"))) (SyntaxBul.mkAdv in_Prep (mkNP co))) ; ALive p co = mkCl p.name (mkVP (mkVP (stateV (mkV160 "живея"))) (SyntaxBul.mkAdv in_Prep (mkNP co))) ;
ALove p q = mkCl p.name (dirV2 (actionV (mkV186 "обичам") (mkV152 "обикна"))) q.name ; ALove p q = mkCl p.name (dirV2 (actionV (mkV186 "обичам") (mkV152 "обикна"))) q.name ;
AMarried p = mkCl p.name (mkA076 (case p.name.a.gn of { AMarried p = mkCl p.name (mkA076 (case p.name.gn of {
R.GSg R.Fem => "омъжен" ; R.GSg R.Fem => "омъжен" ;
_ => "женен" _ => "женен"
})) ; })) ;