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

added participles to Scandinavian VP

Browse Source
This commit is contained in:
aarne
2014-09-25 17:00:59 +00:00
parent 2cf55a0631
commit 591b56a7e2
7 changed files with 42 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/translator/DictionarySwe.gf
View File

@@ -2,6 +2,9 @@
concrete DictionarySwe of Dictionary = CatSwe ** open ParadigmsSwe, (I = IrregSwe), (C = CommonScand), (R = ResSwe), (L = LexiconSwe), (M = MakeStructuralSwe), (S = SyntaxSwe), Prelude in {
oper adjAdv : A -> Adv = \a -> S.mkAdv a ;
flags
coding = utf8;
@@ -61167,6 +61170,7 @@ lin unification_N = mkN "enande" ; -- status=guess
lin unifilar_A = variants {} ; -- status=guess
lin unifoliate_A = variants {} ; -- status=guess
lin uniform_A = mkA "uniform" ; -- SaldoWN
lin uniformly_Adv = adjAdv uniform_A ;
lin uniform_N = mkN "uniform" "uniformer" ; -- SaldoWN
lin uniformed_A = compoundA (regA "uniformerad"); -- status=guess
lin uniformity_N = mkN "uniformitet" "uniformiteter" ; -- comment=4

28
lib/src/translator/Extensions.gf
View File

@@ -96,26 +96,26 @@ fun
{-
-- changes from ParseEngAbs
ComplBareVS -> ComplVS -- as variant
SlashBareV2S -> SlashV2S -- as variant
ComplSlashPartLast -> ComplSlash -- as variant
ComplBareVS --> ComplVS -- as variant
SlashBareV2S --> SlashV2S -- as variant
ComplSlashPartLast --> ComplSlash -- as variant
CompoundCN Sg/Pl -> CompoundCN -- as variants
DashCN -> CompoundCN -- as variant
CompoundCN Sg/Pl --> CompoundCN -- as variants
DashCN --> CompoundCN -- as variant
GerundN -> GerundCN -- special case: now CN
-> GerundNP -- an NP version without determiner
-> GerundAdv -- an Adv version without determiner or preposition
GerundN --> GerundCN -- special case: now CN
--> GerundNP -- an NP version without determiner
--> GerundAdv -- an Adv version without determiner or preposition
GerundAP -> PresPartAP -- special case: now with a VP argument
GerundAP --> PresPartAP -- special case: now with a VP argument
PastPartAP -> PastPartAP -- now with VPSlash argument
-> PastPartAgentAP -- VPSlash + by NP
PastPartAP --> PastPartAP -- now with VPSlash argument
--> PastPartAgentAP -- VPSlash + by NP
OrdCompar -> UseComparA -- the only use in PTB reduces to this standard RGL function
OrdCompar --> UseComparA -- the only use in PTB reduces to this standard RGL function
PredVPosv -> PredFrontVS, PredFrontVQ -- restricted to the special case actually occurring in PTB
PredVPovs -> -- inversion treated as variant: I am here, said she
PredVPosv --> PredFrontVS, PredFrontVQ -- restricted to the special case actually occurring in PTB
PredVPovs --> -- inversion treated as variant: I am here, said she
-}

2
lib/src/translator/ExtensionsSwe.gf
View File

@@ -53,7 +53,7 @@ lin
co = v.s ! VI (VPtPres Sg Indef Nom) ;
} ;
GerundAP v = {
PresPartAP vp = {
s = \\_ => v.s ! VI (VPtPres Sg Indef Nom) ;
isPre = True
} ;