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

changed names of mkNP and mkCN in ParadigmsRus

Browse Source
This commit is contained in:
aarne
2007-12-07 08:35:39 +00:00
parent 5d1ad0badc
commit f7b3c218cf
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/resource-1.0/russian/ParadigmsRus.gf
View File

@@ -183,12 +183,6 @@ oper
mkPN : Str -> Gender -> Animacy -> PN ; -- "Иван", "Маша" mkPN : Str -> Gender -> Animacy -> PN ; -- "Иван", "Маша"
nounPN : N -> PN ; nounPN : N -> PN ;
-- On the top level, it is maybe $CN$ that is used rather than $N$, and
-- $NP$ rather than $PN$.
mkCN : N -> CN ;
mkNP : Str -> Gender -> Animacy -> NP ;
--2 Adjectives --2 Adjectives
@@ -517,9 +511,16 @@ regN = \ray ->
} ** {lock_PN =<>}; } ** {lock_PN =<>};
nounPN n = {s=\\c => n.s! SF Sg c; anim=n.anim; g=n.g; lock_PN=<>}; nounPN n = {s=\\c => n.s! SF Sg c; anim=n.anim; g=n.g; lock_PN=<>};
mkCN = UseN; -- On the top level, it is maybe $CN$ that is used rather than $N$, and
-- $NP$ rather than $PN$.
mkNP = \x,y,z -> UsePN (mkPN x y z) ; makeCN : N -> CN ;
makeNP : Str -> Gender -> Animacy -> NP ;
makeCN = UseN;
makeNP = \x,y,z -> UsePN (mkPN x y z) ;
-- Adjective definitions -- Adjective definitions
regA = \ray, comp -> regA = \ray, comp ->