next-lib/src/english/MakeStructuralEng.gf


1
2
3
4
5
6
7
8
9
10
11
12
13

--# -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} ;

}