mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
18 lines
467 B
Plaintext
18 lines
467 B
Plaintext
concrete IdiomNor of Idiom = CatNor **
|
|
open MorphoNor, ParadigmsNor, IrregNor, Prelude in {
|
|
|
|
flags optimize=all_subs ;
|
|
|
|
lin
|
|
ExistNP np =
|
|
mkClause "det" (agrP3 neutrum Sg) (insertObj
|
|
(\\_ => np.s ! accusative) (predV (depV finne_V))) ;
|
|
ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
|
|
GenericCl vp = mkClause "man" (agrP3 neutrum Sg) vp ;
|
|
|
|
ProgrVP vp =
|
|
insertObj (\\a => ["ved å"] ++ infVP vp a) (predV verbBe) ;
|
|
|
|
}
|
|
|