GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

Hrv: marked missing functions needed for AW experiment

Browse Source
This commit is contained in:
Aarne Ranta
2022-09-29 10:42:36 +02:00
parent 235fd0570f
commit 5a6701cda8
10 changed files with 24 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/croatian/AdjectiveHrv.gf
View File

@@ -5,7 +5,9 @@ concrete AdjectiveHrv of Adjective = CatHrv ** open ResHrv, Prelude in {
PositA a = adjFormsAdjective a ** {isPost = False} ; PositA a = adjFormsAdjective a ** {isPost = False} ;
AdAP ada ap = ap ** {s = \\g,n,c => ada.s ++ ap.s ! g ! n ! c} ; AdAP ada ap = ap ** {s = \\g,n,c => ada.s ++ ap.s ! g ! n ! c} ;
--AW2 AdjOrd
ComplA2 a np = ComplA2 a np =
let ap = adjFormsAdjective a let ap = adjFormsAdjective a
in in

3
src/croatian/ExtendHrv.gf
View File

@@ -32,7 +32,8 @@ open
ResHrv ResHrv
in { in {
lin ReflPossPron = justDemPronFormsAdjective reflPossessivePron ; ---lin ReflPossPron = justDemPronFormsAdjective reflPossessivePron ;
--AW2 CardCNCard
} }

3
src/croatian/IdiomHrv.gf
View File

@@ -1,5 +1,6 @@
concrete IdiomHrv of Idiom = CatHrv ** open Prelude, ResHrv in { concrete IdiomHrv of Idiom = CatHrv ** open Prelude, ResHrv in {
--AW2 ExistNP
--AW2 ExistNPAdv
} }

4
src/croatian/NounHrv.gf
View File

@@ -87,6 +87,10 @@ lin
s = \\g,c => (adjFormsAdjective nu.s).s ! g ! Sg ! c ; ---- TODO Sg? s = \\g,c => (adjFormsAdjective nu.s).s ! g ! Sg ! c ; ---- TODO Sg?
size = nu.size size = nu.size
} ; } ;
--AW2 AdNum
--AW2 PossNP
--AW2 OrdSuperl
} }

2
src/croatian/ParadigmsHrv.gf
View File

@@ -170,5 +170,7 @@ oper
mkConj : Str -> Conj mkConj : Str -> Conj
= \s -> lin Conj {s1 = [] ; s2 = s} ; = \s -> lin Conj {s1 = [] ; s2 = s} ;
--AW2 mkAdN
--AW2 mkOrd
} }

2
src/croatian/RelativeHrv.gf
View File

@@ -12,7 +12,7 @@ lin
} }
} ; } ;
IdRP = mkA "který" ; IdRP = mkA "koji" ;
} }

5
src/croatian/StructuralHrv.gf
View File

@@ -2,7 +2,7 @@ concrete StructuralHrv of Structural = CatHrv **
open ParadigmsHrv, ResHrv, Prelude in { open ParadigmsHrv, ResHrv, Prelude in {
lin lin
and_Conj = mkConj "a" ; and_Conj = mkConj "i" ;
---- by8agent_Prep = mkPrep "" Ins ; ---- by8agent_Prep = mkPrep "" Ins ;
---- few_Det = invarNumeral "málo" ; -- see notes ---- few_Det = invarNumeral "málo" ; -- see notes
for_Prep = mkPrep "pre" accusative ; for_Prep = mkPrep "pre" accusative ;
@@ -28,4 +28,7 @@ lin
we_Pron = mkPron (Ag (Masc Anim) Pl P1) ; we_Pron = mkPron (Ag (Masc Anim) Pl P1) ;
youPl_Pron = mkPron (Ag (Masc Anim) Pl P2) ; youPl_Pron = mkPron (Ag (Masc Anim) Pl P2) ;
they_Pron = mkPron (Ag (Masc Anim) Pl P3) ; they_Pron = mkPron (Ag (Masc Anim) Pl P3) ;
somewhere_Adv = mkAdv "negdje" ;
} }

4
src/croatian/SymbolHrv.gf
View File

@@ -8,4 +8,8 @@ lin
MkSymb s = s ; MkSymb s = s ;
SymbPN s = lin PN {s = \\_ => s.s ; g = Neutr} ; SymbPN s = lin PN {s = \\_ => s.s ; g = Neutr} ;
--AW SymbolEng.IntPN
--AW SymbolEng.SymbNum
--AW SymbolicEng.mkSymb
} }

2
src/croatian/VerbHrv.gf
View File

@@ -34,7 +34,7 @@ lin
} ; } ;
CompNP np = { CompNP np = {
s = \\a_ => np.s ! Nom ; ---- InstrC in Pol s = \\a_ => np.s ! Nom ;
} ; } ;
CompAdv adv = { CompAdv adv = {

2
src/croatian/aw-needed.txt
View File

@@ -41,7 +41,7 @@ NounEng.PossPron
NounEng.RelCN NounEng.RelCN
NounEng.UsePron NounEng.UsePron
ParadigmsEng.mkAdN ParadigmsEng.mkAdN
aradigmsEng.mkAdv ParadigmsEng.mkAdv
ParadigmsEng.mkOrd ParadigmsEng.mkOrd
ParadigmsEng.regA ParadigmsEng.regA
PhraseEng.NoPConj PhraseEng.NoPConj