GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-08 14:46:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Dutch syntax complete (but not checked)

Browse Source
This commit is contained in:
aarne
2009-11-17 10:29:33 +00:00
parent 74bf9741ab
commit 97b2208074
11 changed files with 309 additions and 320 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
src/dutch/IdiomDut.gf
View File

@@ -1,50 +1,50 @@
concrete IdiomDut of Idiom = CatDut **
open MorphoDut, ParadigmsDut, Prelude in
{
--{
--
-- flags optimize=all_subs ;
--
-- lin
-- ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
-- GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
--
-- CleftNP np rs = mkClause "es" (agrP3 Sg)
-- (insertExtrapos (rs.s ! gennum np.a.g np.a.n) ----
-- (insertObj (\\_ => np.s ! rs.c) (predV MorphoDut.sein_V))) ;
--
-- CleftAdv ad s = mkClause "es" (agrP3 Sg)
-- (insertExtrapos (conjThat ++ s.s ! Sub)
-- (insertObj (\\_ => ad.s) (predV MorphoDut.sein_V))) ;
--
--
-- ExistNP np =
-- mkClause "es" (agrP3 Sg)
-- (insertObj (\\_ => appPrep geben.c2 np.s)
-- (predV geben)) ;
--
-- ExistIP ip = {
-- s = \\m,t,a,p =>
-- let
-- cls =
-- (mkClause "es" (agrP3 Sg) (predV geben)).s ! m ! t ! a ! p ;
-- who = ip.s ! Acc
-- in table {
-- QDir => who ++ cls ! Inv ;
-- QIndir => who ++ cls ! Sub
-- }
-- } ;
--
-- ProgrVP = insertAdv "eben" ; ----
--
-- ImpPl1 vp = {s =
-- (mkClause "wir" {g = Fem ; n = Pl ; p = P1} vp).s !
-- MConjunct ! Pres ! Simul ! Pos ! Inv
-- } ;
--
-- oper
-- geben = dirV2 (mk6V "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
--}
--
open MorphoDut, ParadigmsDut, IrregDut, Prelude in {
flags optimize=all_subs ;
lin
ImpersCl vp = mkClause "'t" (agrP3 Sg) vp ;
GenericCl vp = mkClause "men" (agrP3 Sg) vp ;
CleftNP np rs = mkClause "'t" (agrP3 Sg)
(insertExtrapos (rs.s ! np.a.g ! np.a.n) ----
(insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ;
CleftAdv ad s = mkClause "'t" (agrP3 Sg)
(insertExtrapos (conjThat ++ s.s ! Sub)
(insertObj (\\_ => ad.s) (predV zijn_V))) ;
ExistNP np =
mkClause "er" (agrP3 np.a.n)
(insertObj (\\_ => np.s ! NPNom)
(predV zijn_V)) ;
ExistIP ip = {
s = \\t,a,p =>
let
cls =
(mkClause "er" (agrP3 ip.n) (predV zijn_V)).s ! t ! a ! p ;
who = ip.s ! NPNom
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
}
} ;
ProgrVP = insertAdv "even" ; ----
ImpPl1 vp =
let
v = laten_V ;
vpi = infVP True vp ;
vvp = insertExtrapos vpi.p3 (
insertInf vpi.p2 (
insertObj vpi.p1 (
predVGen True v))) ;
in
{s = (mkClause "we" {g = Utr ; n = Pl ; p = P1} vvp).s !
Pres ! Simul ! Pos ! Inv
} ;
}