1
0
forked from GitHub/gf-rgl

a fairly complete Nynorsk implementation added

This commit is contained in:
stian
2016-06-16 08:15:06 +00:00
parent 05c941257c
commit 2e51cd2034
35 changed files with 1687 additions and 0 deletions

40
src/nynorsk/IdiomNno.gf Normal file
View File

@@ -0,0 +1,40 @@
concrete IdiomNno of Idiom = CatNno **
open MorphoNno, ParadigmsNno, IrregNno, Prelude in {
flags optimize=all_subs ;
coding=utf8 ;
lin
ImpersCl vp = mkClause "det" (agrP3 Neutr Sg) vp ;
GenericCl vp = mkClause "eine" (agrP3 Utr Sg) vp ;
CleftNP np rs = mkClause "det" (agrP3 Neutr Sg)
(insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a ! RNom) (predV verbBe)) ;
CleftAdv ad s = mkClause "det" (agrP3 Neutr Sg)
(insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;
ExistNP np =
mkClause "det" (agrP3 Neutr Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finnast_V))) ;
ExistIP ip = {
s = \\t,a,p =>
let
cls =
(mkClause "det" (agrP3 Neutr Sg) (predV (depV finnast_V))).s ! t ! a ! p ;
who = ip.s ! accusative
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
}
} ;
ProgrVP vp =
insertObj (\\a => ["ved å"] ++ infVP vp a) (predV verbBe) ;
ImpPl1 vp = {s = ["lat oss"] ++ infVP vp {g = Utr ; n = Pl ; p = P1}} ;
}