forked from GitHub/gf-core
aarne
14 lines
326 B
Plaintext
14 lines
326 B
Plaintext
--# -path=.:../common:../abstract
|
|
|
|
resource MakeStructuralEng = open CatEng, ParadigmsEng, ResEng, MorphoEng, Prelude in {
|
|
|
|
oper
|
|
mkSubj : Str -> Subj = \x ->
|
|
lin Subj {s = x} ;
|
|
mkNP : Str -> Number -> NP = \s,n ->
|
|
lin NP (regNP s n) ;
|
|
mkIDet : Str -> Number -> IDet = \s,n ->
|
|
lin IDet {s = s ; n = n} ;
|
|
|
|
}
|