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

more words and rules in Dutch

Browse Source
This commit is contained in:
aarne
2009-11-10 17:24:32 +00:00
parent ad89cc7cc2
commit 00cda41bc0
9 changed files with 473 additions and 475 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,20 +1,19 @@
concrete QuestionDut of Question = CatDut ** open ResDut in
{
--{
--
-- flags optimize=all_subs ;
--
-- lin
--
-- QuestCl cl = {
-- s = \\m,t,a,p =>
-- let cls = cl.s ! m ! t ! a ! p
-- in table {
-- QDir => cls ! Inv ;
-- QIndir => "ob" ++ cls ! Sub
-- }
-- } ;
--
concrete QuestionDut of Question = CatDut ** open ResDut in {
flags optimize=all_subs ;
lin
QuestCl cl = {
s = \\t,a,p =>
let cls = cl.s ! t ! a ! p
in table {
QDir => cls ! Inv ;
QIndir => "of" ++ cls ! Sub
}
} ;
-- QuestVP qp vp = {
-- s = \\m,t,a,b,q =>
-- let
@@ -36,17 +35,17 @@ concrete QuestionDut of Question = CatDut ** open ResDut in
-- QIndir => who ++ cls ! Sub
-- }
-- } ;
--
-- QuestIAdv iadv cl = {
-- s = \\m,t,a,p =>
-- let
-- cls = cl.s ! m ! t ! a ! p ;
-- why = iadv.s
-- in table {
-- QDir => why ++ cls ! Inv ;
-- QIndir => why ++ cls ! Sub
-- }
-- } ;
QuestIAdv iadv cl = {
s = \\t,a,p =>
let
cls = cl.s ! t ! a ! p ;
why = iadv.s
in table {
QDir => why ++ cls ! Inv ;
QIndir => why ++ cls ! Sub
}
} ;
--
-- QuestIComp icomp np = {
-- s = \\m,t,a,p =>
@@ -98,8 +97,5 @@ concrete QuestionDut of Question = CatDut ** open ResDut in
-- CompIAdv a = {s = \\_ => a.s} ;
--
-- CompIP ip = {s = \\_ => ip.s ! Nom} ;
--
--}
--
}