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

corrected DictEng(Chi,Fin,Swe).which_IQuant to whichSg_IDet and whichPl_IDet as in DictEngAbs; fixed ParseSwe.ComplVV with correct anteriority and polarity

Browse Source
This commit is contained in:
aarne
2013-10-31 14:55:05 +00:00
parent 7d55b4c685
commit 43554552aa
5 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/chinese/DictEngChi.gf
View File

@@ -97,7 +97,8 @@ lin
when_IAdv = S.when_IAdv ; --CHECKED
when_Subj = S.when_Subj ; --CHECKED
where_IAdv = S.where_IAdv ; --CHECKED
which_IQuant = S.which_IQuant ; --CHECKED
whichPl_IDet = S.whichPl_IDet ; --CHECKED
whichSg_IDet = S.whichSg_IDet ; --CHECKED
whoPl_IP = S.whoPl_IP ; --CHECKED
whoSg_IP = S.whoSg_IP ; --CHECKED
why_IAdv = S.why_IAdv ; --CHECKED

3
lib/src/finnish/DictEngFin.gf
View File

@@ -52198,7 +52198,8 @@ zymotic_A = mkWA "tsymoosiin" "liittyvä" ;
when_IAdv = S.when_IAdv ; --CHECKED
when_Subj = S.when_Subj ; --CHECKED
where_IAdv = S.where_IAdv ; --CHECKED
which_IQuant = S.which_IQuant ; --CHECKED
whichPl_IDet = S.whichPl_IDet ; --CHECKED
whichSg_IDet = S.whichSg_IDet ; --CHECKED
whoPl_IP = S.whoPl_IP ; --CHECKED
whoSg_IP = S.whoSg_IP ; --CHECKED
why_IAdv = S.why_IAdv ; --CHECKED

6
lib/src/scandinavian/CommonScand.gf
View File

@@ -319,8 +319,10 @@ oper
eext = vp.eext
} ;
infVP : VP -> Agr -> Str = \vp,a ->
vp.a1 ! Pos ++ (vp.s ! VPInfinit Simul).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
infVP : VP -> Agr -> Str = \vp,a -> infVPPlus vp a Simul Pos ;
infVPPlus : VP -> Agr -> Anteriority -> Polarity -> Str = \vp,a,ant,pol ->
vp.a1 ! pol ++ (vp.s ! VPInfinit ant).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
-- For $Sentence$.

3
lib/src/swedish/DictEngSwe.gf
View File

@@ -23973,7 +23973,8 @@ lin whet_V2 = mkV2 (slipa_vb_1_V) | mkV2 (mkV "skärpa") | mkV2 (fila_vb_1_V) ;
lin whether_Prep = mkPrep "huruvida" ; --
lin whetstone_N = bryne_nn_1_N ; -- comment=2
lin whey_N = vassle_nn_1_N | vassla_nn_1_N ; -- status=guess status=guess
lin which_IQuant = S.which_IQuant ; -- comment=CHECKED
lin whichPl_IDet = S.whichPl_IDet ; -- comment=CHECKED
lin whichSg_IDet = S.whichSg_IDet ; -- comment=CHECKED
lin while_N = stund_nn_1_N ; -- comment=2
lin whim_N = ryck_nn_2_N ; -- comment=4
lin whimper_N = gny_nn_1_N ; -- comment=1

6
lib/src/swedish/ParseSwe.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:folketslexikon:alltenses
--# -path=.:../english/:../scandinavian:alltenses
concrete ParseSwe of ParseEngAbs =
TenseSwe,
NounSwe - [PPartNP],
@@ -19,7 +19,7 @@ concrete ParseSwe of ParseEngAbs =
ClSlash, RCl, EmptyRelSlash],
DictEngSwe **
open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, Prelude in {
open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, Prelude in {
flags
literal=Symb ;
@@ -82,7 +82,7 @@ lin
(predVc v) ;
-}
ComplVV v a p vp = mkVP v vp ; ----
ComplVV v ant pol vp = insertObj (\\a => v.c2.s ++ ant.s ++ pol.s ++ infVPPlus vp a ant.a pol.p) (predV v) ;
{-