mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -06:00
15 lines
413 B
Plaintext
15 lines
413 B
Plaintext
--# -path=.:../common:../abstract
|
|
|
|
resource MakeStructuralUrd = open CatUrd, ParadigmsUrd, ResUrd, MorphoUrd, NounUrd, Prelude in {
|
|
|
|
oper
|
|
mkSubj : Str -> CatUrd.Subj = \x ->
|
|
lin Subj {s = x} ;
|
|
mkNP : Str -> Number -> ResUrd.NP = \s,n ->
|
|
MassNP (UseN (ParadigmsUrd.mkN s));
|
|
-- lin NP (regNP s n) ;
|
|
mkIDet : Str -> Number -> IDet = \s,n ->
|
|
lin IDet {s = \\_ => s ; n = n} ;
|
|
|
|
}
|