diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2018-07-04 13:01:06 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2018-07-04 13:01:06 +0200 |
| commit | 7bfd6199d600f00233fb29806eed8e894644f439 (patch) | |
| tree | cbfef410a1c89119555f140f53ef9ce9d28170b0 | |
| parent | 00476ae38687fb7d33081130822cbd4e8f34cfd3 (diff) | |
a majour refactoring to support clitic pronouns
| -rw-r--r-- | examples/phrasebook/SentencesBul.gf | 2 | ||||
| -rw-r--r-- | examples/phrasebook/WordsBul.gf | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/examples/phrasebook/SentencesBul.gf b/examples/phrasebook/SentencesBul.gf index 12638fba5..113af0900 100644 --- a/examples/phrasebook/SentencesBul.gf +++ b/examples/phrasebook/SentencesBul.gf @@ -28,7 +28,7 @@ lin YouFamMale = mkPerson youSg_Pron ; lin ACitizen p cit = 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; rel = cit.s2.s; relPost = False; g = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut} diff --git a/examples/phrasebook/WordsBul.gf b/examples/phrasebook/WordsBul.gf index 18772fa7d..527b3604a 100644 --- a/examples/phrasebook/WordsBul.gf +++ b/examples/phrasebook/WordsBul.gf @@ -142,7 +142,7 @@ concrete WordsBul of Words = SentencesBul ** 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))) ; 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 => "омъжен" ; _ => "женен" })) ; |