GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 22:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

questions, relatives, numerals - most of Dutch syntax soon in place

Browse Source
This commit is contained in:
aarne
2009-11-11 20:34:09 +00:00
parent 53a5c1ee9d
commit 454dc5dd54
13 changed files with 455 additions and 439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

144
lib/src/dutch/QuestionDut.gf
View File

@@ -14,27 +14,27 @@ concrete QuestionDut of Question = CatDut ** open ResDut in {
}
} ;
-- QuestVP qp vp = {
-- s = \\m,t,a,b,q =>
-- let
-- cl = (mkClause (qp.s ! Nom) (agrP3 qp.n) vp).s ! m ! t ! a ! b
-- in
-- case q of {
-- QIndir => cl ! Sub ;
-- _ => cl ! Main
-- }
-- } ;
--
-- QuestSlash ip slash = {
-- s = \\m,t,a,p =>
-- let
-- cls = slash.s ! m ! t ! a ! p ;
-- who = appPrep slash.c2 ip.s
-- in table {
-- QDir => who ++ cls ! Inv ;
-- QIndir => who ++ cls ! Sub
-- }
-- } ;
QuestVP qp vp = {
s = \\t,a,b,q =>
let
cl = (mkClause (qp.s ! NPNom) (agrP3 qp.n) vp).s ! t ! a ! b
in
case q of {
QIndir => cl ! Sub ;
_ => cl ! Main
}
} ;
QuestSlash ip slash = {
s = \\t,a,p =>
let
cls = slash.s ! t ! a ! p ;
who = appPrep slash.c2 ip.s
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
}
} ;
QuestIAdv iadv cl = {
s = \\t,a,p =>
@@ -46,56 +46,56 @@ concrete QuestionDut of Question = CatDut ** open ResDut in {
QIndir => why ++ cls ! Sub
}
} ;
--
-- QuestIComp icomp np = {
-- s = \\m,t,a,p =>
-- let
-- vp = predV sein_V ;
-- cls = (mkClause (np.s ! Nom) np.a vp).s ! m ! t ! a ! p ;
-- why = icomp.s ! np.a
-- in table {
-- QDir => why ++ cls ! Inv ;
-- QIndir => why ++ cls ! Sub
-- }
-- } ;
--
-- PrepIP p ip = {
-- s = appPrep p ip.s
-- } ;
--
-- AdvIP ip adv = {
-- s = \\c => ip.s ! c ++ adv.s ;
-- n = ip.n
-- } ;
--
-- IdetCN idet cn =
-- let
-- g = cn.g ;
-- n = idet.n
-- in {
-- s = \\c => idet.s ! g ! c ++ cn.s ! Weak ! n ! c ;
-- n = n
-- } ;
--
-- IdetIP idet =
-- let
-- g = Neutr ; ----
-- n = idet.n
-- in {
-- s = idet.s ! g ;
-- n = n
-- } ;
--
-- IdetQuant idet num =
-- let
-- n = num.n
-- in {
-- s = \\g,c => idet.s ! n ! g ! c ++ num.s!g!c ;
-- n = n
-- } ;
--
-- CompIAdv a = {s = \\_ => a.s} ;
--
-- CompIP ip = {s = \\_ => ip.s ! Nom} ;
QuestIComp icomp np = {
s = \\t,a,p =>
let
vp = predV zijn_V ;
cls = (mkClause (np.s ! NPNom) np.a vp).s ! t ! a ! p ;
why = icomp.s ! np.a
in table {
QDir => why ++ cls ! Inv ;
QIndir => why ++ cls ! Sub
}
} ;
PrepIP p ip = {
s = appPrep p.s ip.s
} ;
AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ;
n = ip.n
} ;
IdetCN idet cn =
let
g = cn.g ;
n = idet.n
in {
s = \\c => idet.s ! g ++ cn.s ! Weak ! NF n Nom ;
n = n
} ;
IdetIP idet =
let
g = Neutr ; ----
n = idet.n
in {
s = \\_ => idet.s ! g ;
n = n
} ;
IdetQuant idet num =
let
n = num.n
in {
s = \\g => idet.s ! n ! g ++ num.s ;
n = n
} ;
CompIAdv a = {s = \\_ => a.s} ;
CompIP ip = {s = \\_ => ip.s ! NPNom} ;
}