mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 01:32:50 -06:00
completing Idiom implementations
This commit is contained in:
@@ -1,7 +1,17 @@
|
||||
concrete IdiomNor of Idiom = CatNor **
|
||||
open MorphoNor, ParadigmsNor, Prelude in {
|
||||
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) ;
|
||||
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user