GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Dutch api modules

Browse Source
This commit is contained in:
aarne
2009-11-17 19:21:21 +00:00
parent 9927088414
commit d4ac17b9d2
9 changed files with 96 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/Make.hs
View File

@@ -33,6 +33,7 @@ langsCoding = [
(("bulgarian","Bul"),""),
(("catalan", "Cat"),""),
(("danish", "Dan"),""),
(("dutch", "Dut"),""),
(("english", "Eng"),""),
(("finnish", "Fin"),""),
(("french", "Fre"),""),

6
lib/src/api/CombinatorsDut.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:alltenses:prelude
resource CombinatorsDut = Combinators with
(Cat = CatDut),
(Structural = StructuralDut),
(Constructors = ConstructorsDut) ;

3
lib/src/api/ConstructorsDut.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource ConstructorsDut = Constructors with (Grammar = GrammarDut) ;

5
lib/src/api/SymbolicDut.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present:mathematical:prelude
resource SymbolicDut = Symbolic with
(Symbol = SymbolDut),
(Grammar = GrammarDut) ;

4
lib/src/api/SyntaxDut.gf Normal file
View File

@@ -0,0 +1,4 @@
--# -path=.:alltenses:prelude
instance SyntaxDut of Syntax = ConstructorsDut, CatDut, StructuralDut, CombinatorsDut ;

3
lib/src/api/TryDut.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryDut = SyntaxDut, LexiconDut, ParadigmsDut - [mkAdv,mkOrd] ;

0
lib/src/dutch/ExtraGerDut.gf → lib/src/dutch/ExtraDutAbs.gf
View File

53
lib/src/dutch/ResDut.gf
View File

@@ -92,8 +92,8 @@ resource ResDut = ParamX ** open Prelude in {
| VPresSg1 -- ben
| VPresSg2 -- bent
| VPresSg3 -- is
| VPastSg -- was
| VPastPl -- waren
| VPastSg -- was --# notpresent
| VPastPl -- waren --# notpresent
| VImp2 -- wees
| VImp3 -- weest
| VImpPl -- wezen
@@ -111,9 +111,9 @@ resource ResDut = ParamX ** open Prelude in {
VInf | VImpPl => aaien; -- hij/zij/het/wij aaien
VPresSg1 | VImp2 => aai; -- ik aai
VPresSg2 | VPresSg3 | VImp3 => aait; -- jij aait
VPastSg => aaide; -- ik aaide
VPastPl => aaiden; -- hij/zij/het/wij aaiden
VPerf => geaaid -- ik heb geaaid
VPastSg => aaide; -- ik aaide --# notpresent
VPastPl => aaiden; -- hij/zij/het/wij aaiden --# notpresent
VPerf => geaaid -- ik heb geaaid
}
};
@@ -265,8 +265,8 @@ resource ResDut = ParamX ** open Prelude in {
VPresSg1 => "ben" ;
VPresSg2 => "bent" ;
VPresSg3 => "is" ;
VPastSg => "was" ;
VPastPl => "waren" ;
VPastSg => "was" ; --# notpresent
VPastPl => "waren" ; --# notpresent
VImp2 => "wees" ;
VImp3 => "weest" ;
VImpPl => "wezen" ;
@@ -283,8 +283,8 @@ resource ResDut = ParamX ** open Prelude in {
VPresSg1 => "heb" ;
VPresSg2 => "hebt" ;
VPresSg3 => "heeft" ;
VPastSg => "had" ;
VPastPl => "hadden" ;
VPastSg => "had" ; --# notpresent
VPastPl => "hadden" ; --# notpresent
VImp2 => "heb" ;
VImp3 => "heeft" ;
VImpPl => "hebben" ;
@@ -301,8 +301,8 @@ resource ResDut = ParamX ** open Prelude in {
VPresSg1 => "zal" ;
VPresSg2 => "zult" ;
VPresSg3 => "zal" ;
VPastSg => "zou" ;
VPastPl => "zouden" ;
VPastSg => "zou" ; --# notpresent
VPastPl => "zouden" ; --# notpresent
VImp2 => "zoud" ; ---- not used
VImp3 => "zoudt" ;
VImpPl => "zouden" ; ----
@@ -319,8 +319,8 @@ resource ResDut = ParamX ** open Prelude in {
VPresSg1 => "kan" ;
VPresSg2 => "kunt" ;
VPresSg3 => "kan" ; ---- kun je
VPastSg => "kon" ;
VPastPl => "konden" ;
VPastSg => "kon" ; --# notpresent
VPastPl => "konden" ; --# notpresent
VImp2 => "kan" ; ---- not used
VImp3 => "kant" ;
VImpPl => "kunnen" ; ----
@@ -381,16 +381,25 @@ param
oper
vForm : Tense -> Number -> Person -> Order -> VForm = \t,n,p,o -> case <t,n,p> of {
<Pres|Fut,Sg,P2> => case o of {
<Pres
|Fut --# notpresent
,Sg,P2> => case o of {
Inv => VPresSg1 ;
_ => VPresSg2
} ;
<Pres|Fut,Sg,P1> => VPresSg1 ;
<Pres|Fut,Sg,P3> => VPresSg3 ;
<Pres|Fut,Pl,_ > => VInf ;
<Pres
|Fut --# notpresent
,Sg,P1> => VPresSg1 ;
<Pres
|Fut --# notpresent
,Sg,P3> => VPresSg3 ;
<Pres
|Fut --# notpresent
,Pl,_ > => VInf
; --# notpresent
<Past|Cond,Sg,_> => VPastSg ; -- Fut and Cond affect zullen
<Past|Cond,Pl,_> => VPastPl
<Past|Cond,Sg,_> => VPastSg ; -- Fut and Cond affect zullen --# notpresent
<Past|Cond,Pl,_> => VPastPl --# notpresent
} ;
--2 For $Relative$
@@ -560,9 +569,9 @@ param
auxv = (auxVerb vp.s.aux).s ;
vperf = vp.s.s ! VPerf ;
verb : Str * Str = case <t,a> of {
<Fut|Cond,Simul> => <zullen_V.s ! vform, vperf ++ auxv ! VInf> ;
<Fut|Cond,Anter> => <zullen_V.s ! vform, vperf ++ auxv ! VInf> ;
<_, Anter> => <auxv ! vform, vperf> ;
<Fut|Cond,Simul> => <zullen_V.s ! vform, vperf ++ auxv ! VInf> ; --# notpresent
<Fut|Cond,Anter> => <zullen_V.s ! vform, vperf ++ auxv ! VInf> ; --# notpresent
<_, Anter> => <auxv ! vform, vperf> ; --# notpresent
<_, Simul> => <vp.s.s ! vform, []>
} ;
fin = verb.p1 ;

86
lib/src/dutch/SymbolDut.gf
View File

@@ -2,48 +2,48 @@
concrete SymbolDut of Symbol = CatDut ** open Prelude, ResDut in
{
--{
--
--lin
-- SymbPN i = {s = \\c => i.s ; g = Neutr} ; --- c
-- IntPN i = {s = \\c => i.s ; g = Neutr} ; --- c
-- FloatPN i = {s = \\c => i.s ; g = Neutr} ; --- c
-- NumPN i = {s = i.s ! Neutr ; g = Neutr} ; --- c
--
-- CNIntNP cn i = {
-- s = \\c => cn.s ! Weak ! Sg ! Nom ++ i.s ;
-- a = agrP3 Sg ;
-- isPron = False
-- } ;
-- CNSymbNP det cn xs = let g = cn.g in {
-- s = \\c => det.s ! g ! c ++ cn.s ! adjfCase det.a c ! det.n ! c ++ xs.s ;
-- a = agrP3 det.n ;
-- isPron = False
-- } ;
-- CNNumNP cn i = {
-- s = \\c => artDef ! (GSg cn.g) ! c ++ cn.s ! Weak ! Sg ! Nom ++ i.s ! Neutr ! c ;
-- a = agrP3 Sg ;
-- isPron = False
-- } ;
--
-- SymbS sy = {s = \\_ => sy.s} ;
--
-- SymbNum n = {s = \\_,_ => n.s ; n = Pl ; isNum = True} ;
-- SymbOrd n = {s = \\_ => n.s ++ "."} ;
--
--
--lincat
--
-- Symb, [Symb] = SS ;
--
--lin
--
-- MkSymb s = s ;
--
-- BaseSymb = infixSS "und" ;
-- ConsSymb = infixSS "," ;
--
--}
--
lin
SymbPN i = {s = \\c => i.s ; g = Neutr} ; --- c
IntPN i = {s = \\c => i.s ; g = Neutr} ; --- c
FloatPN i = {s = \\c => i.s ; g = Neutr} ; --- c
NumPN i = {s = \\_ => i.s ! Neutr ! Nom ; g = Neutr} ; --- c
CNIntNP cn i = {
s = \\c => cn.s ! Weak ! NF Sg Nom ++ i.s ;
a = agrP3 Sg ;
isPron = False
} ;
CNSymbNP det cn xs = let g = cn.g in {
s = \\c => det.s ! g ++ cn.s ! det.a ! NF det.n Nom ++ xs.s ;
a = agrP3 det.n ;
isPron = False
} ;
CNNumNP cn i = {
s = \\c => artDef Sg cn.g ++ cn.s ! Weak ! NF Sg Nom ++ i.s ! Neutr ! Nom ;
a = agrP3 Sg ;
isPron = False
} ;
SymbS sy = {s = \\_ => sy.s} ;
SymbNum n = {s = \\_,_ => n.s ; n = Pl ; isNum = True} ;
SymbOrd n = {s = \\_ => n.s ++ "."} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "en" ;
ConsSymb = infixSS "," ;
oper
artDef : Number -> Gender -> Str = \n,g -> case <n,g> of {<Sg,Neutr> => "het" ; _ => "de"} ;
}