mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
implemented compound nounds which work like adverbs
This commit is contained in:
@@ -30,11 +30,11 @@ lin ACitizen p cit =
|
|||||||
let noun : N
|
let noun : N
|
||||||
= case p.name.a.gn of {
|
= case p.name.a.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;
|
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}
|
||||||
} ;
|
} ;
|
||||||
R.GPl => lin N {s = \\nf => cit.s1 ! R.Masc ! nf;
|
R.GPl => lin N {s = \\nf => cit.s1 ! R.Masc ! nf;
|
||||||
rel = cit.s2.s;
|
rel = cit.s2.s; relPost = False;
|
||||||
g = R.AMasc R.Human
|
g = R.AMasc R.Human
|
||||||
}
|
}
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user