1
0
forked from GitHub/gf-rgl

Hrv: marked missing functions needed for AW experiment

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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