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

bugfix in make of incomplete

Browse Source
This commit is contained in:
aarne
2005-02-11 11:06:47 +00:00
parent aa4a8580f7
commit a38ee961b5
10 changed files with 35 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

122
lib/resource/danish/StructuralDan.gf
View File

@@ -27,8 +27,10 @@ concrete StructuralDan of Structural =
between_Prep = ss "mellem" ;
both_AndConjD = sd2 "både" "og" ** {n = Pl} ;
by8means_Prep = ss "med" ;
can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
{s1 = [] ; isAux = True} ;
can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
{s1 = [] ; isAux = True} ;
during_Prep = ss "under" ;
either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ;
everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in
@@ -49,7 +51,8 @@ concrete StructuralDan of Structural =
most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
most8many_Det = flestaDet ;
much_Det = mkDeterminerSg (detSgInvar "meget") IndefP ;
must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" ** {s1 = [] ; s3 = []} ; ---- ?
must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" **
{s1 = [] ; isAux = True} ; ---- ?
on_Prep = ss "på" ;
or_Conj = ss "eller" ** {n = Sg} ;
otherwise_Adv = ss "anderledes" ; ---- ?
@@ -80,7 +83,8 @@ concrete StructuralDan of Structural =
to_Prep = ss "til" ;
under_Prep = ss "under" ;
very_Adv = ss "meget" ;
want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist ** {s1 = [] ; s3 = []} ; ---
want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist **
{s1 = [] ; isAux = True} ; ---
we_NP = pronNounPhrase (vi_36) ;
what8many_IP = intPronWhat plural ;
what8one_IP = intPronWhat singular ;
@@ -97,114 +101,4 @@ concrete StructuralDan of Structural =
ye_NP = pronNounPhrase (ni_37) ;
you_NP = pronNounPhrase De_38 ;
{-
INP = pronNounPhrase jag_32 ;
ThouNP = pronNounPhrase du_33 ;
HeNP = pronNounPhrase han_34 ;
SheNP = pronNounPhrase hon_35 ;
WeNumNP n = pronNounPhrase (pronWithNum vi_36 n) ;
YeNumNP n = pronNounPhrase (pronWithNum ni_37 n) ;
TheyNP = pronNounPhrase de_38 ;
TheyFemNP = pronNounPhrase de_38 ;
YouNP = pronNounPhrase De_38 ;
ItNP = pronNounPhrase det_40 ; ----
ThisNP = regNameNounPhrase ["det her"] NNeutr ;
ThatNP = regNameNounPhrase ["det der"] NNeutr ;
TheseNumNP n =
{s = \\c => ["de her"] ++ n.s ! npCase c ; g = Neutr ; n = Pl ; p
= P3} ;
ThoseNumNP n =
{s = \\c => ["de der"] ++ n.s ! npCase c ; g = Neutr ; n = Pl ; p
= P3} ;
EveryDet = varjeDet ;
AllMassDet = mkDeterminerSgGender2 "all" "alt" IndefP ;
AllNumDet = mkDeterminerPlNum "alle" IndefP ;
AnyDet = mkDeterminerSgGender2 "nogen" "noget" IndefP ;
AnyNumDet = mkDeterminerPlNum "nogle" IndefP ;
SomeDet = mkDeterminerSgGender2 "nogen" "noget" IndefP ;
SomeNumDet = mkDeterminerPlNum "nogle" IndefP ;
ManyDet = mkDeterminerPl "mange" IndefP ;
HowManyDet = mkDeterminerPl ["hvor mange"] IndefP ;
NoDet = mkDeterminerSgGender2 "ingen" "ingen" IndefP ;
NoNumDet = mkDeterminerPlNum "ingen" IndefP ;
WhichNumDet = mkDeterminerPlNum "hvilke" IndefP ;
WhichDet = vilkenDet ;
MostDet = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
MostsDet = flestaDet ;
MuchDet = mkDeterminerSg (detSgInvar "meget") IndefP ;
ThisDet = mkDeterminerSgGender2 ["den her"] ["det her"] (DefP Indef) ;
ThatDet = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Indef) ;
TheseNumDet = mkDeterminerPlNum ["de her"] (DefP Indef) ;
ThoseNumDet = mkDeterminerPlNum ["de der"] (DefP Indef) ;
HowIAdv = ss "hvor" ;
WhenIAdv = ss "hvornår" ;
WhereIAdv = ss "hver" ;
WhyIAdv = ss "hvorfor" ;
AndConj = ss "og" ** {n = Pl} ;
OrConj = ss "eller" ** {n = Sg} ;
BothAnd = sd2 "både" "og" ** {n = Pl} ;
EitherOr = sd2 "enten" "eller" ** {n = Sg} ;
NeitherNor = sd2 "hverken" "eller" ** {n = Sg} ;
IfSubj = ss "hvis" ;
WhenSubj = ss "når" ;
PhrYes = ss ["Ja ."] ;
PhrNo = ss ["Nej ."] ;
VeryAdv = ss "meget" ;
TooAdv = ss "for" ; ---- ?
OtherwiseAdv = ss "anderledes" ; ---- ?
ThereforeAdv = ss "derfor" ;
EverybodyNP = let alla = table {Nom => "alle" ; Gen => "alles"} in
{s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ;
SomebodyNP = nameNounPhrase (mkProperName "nogen" NUtr) ;
NobodyNP = nameNounPhrase (mkProperName "ingen" NUtr) ;
EverythingNP = nameNounPhrase (mkProperName "alt" NNeutr) ;
SomethingNP = nameNounPhrase (mkProperName "noget" NNeutr) ;
NothingNP = nameNounPhrase (mkProperName "intet" NNeutr) ;
CanVV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
CanKnowVV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
MustVV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" ** {s1 = [] ; s3 = []} ; ---- ?
WantVV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist ** {s1 = [] ; s3 = []} ; ---
EverywhereNP = advPost "overalt" ;
SomewhereNP = advPost ["et eller andet sted"] ; ---- ?
NowhereNP = advPost "intetsteds" ;
AlthoughSubj = ss ["selv om"] ;
AlmostAdv = ss "næsten" ;
QuiteAdv = ss "temmelig" ;
InPrep = ss "i" ;
OnPrep = ss "på" ;
ToPrep = ss "til" ;
ThroughPrep = ss "igennem" ;
AbovePrep = ss "ovenfor" ;
UnderPrep = ss "under" ;
InFrontPrep = ss "fremfor" ; ---- ?
BehindPrep = ss "bag" ;
BetweenPrep = ss "mellem" ;
FromPrep = ss "fra" ;
BeforePrep = ss "før" ;
DuringPrep = ss "under" ;
AfterPrep = ss "efter" ;
WithPrep = ss "med" ;
WithoutPrep = ss "uden" ;
ByMeansPrep = ss "med" ;
PossessPrep = ss "af" ;
PartPrep = ss "af" ;
AgentPrep = ss "af" ;
-}
}