mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
Hrv: marked missing functions needed for AW experiment
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -32,7 +32,8 @@ open
|
||||
ResHrv
|
||||
in {
|
||||
|
||||
lin ReflPossPron = justDemPronFormsAdjective reflPossessivePron ;
|
||||
---lin ReflPossPron = justDemPronFormsAdjective reflPossessivePron ;
|
||||
|
||||
--AW2 CardCNCard
|
||||
|
||||
}
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
concrete IdiomHrv of Idiom = CatHrv ** open Prelude, ResHrv in {
|
||||
|
||||
|
||||
--AW2 ExistNP
|
||||
--AW2 ExistNPAdv
|
||||
|
||||
}
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
}
|
||||
|
||||
@@ -170,5 +170,7 @@ oper
|
||||
mkConj : Str -> Conj
|
||||
= \s -> lin Conj {s1 = [] ; s2 = s} ;
|
||||
|
||||
--AW2 mkAdN
|
||||
--AW2 mkOrd
|
||||
|
||||
}
|
||||
|
||||
@@ -12,7 +12,7 @@ lin
|
||||
}
|
||||
} ;
|
||||
|
||||
IdRP = mkA "který" ;
|
||||
IdRP = mkA "koji" ;
|
||||
|
||||
|
||||
}
|
||||
|
||||
@@ -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" ;
|
||||
|
||||
}
|
||||
|
||||
@@ -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
|
||||
|
||||
}
|
||||
|
||||
@@ -34,7 +34,7 @@ lin
|
||||
} ;
|
||||
|
||||
CompNP np = {
|
||||
s = \\a_ => np.s ! Nom ; ---- InstrC in Pol
|
||||
s = \\a_ => np.s ! Nom ;
|
||||
} ;
|
||||
|
||||
CompAdv adv = {
|
||||
|
||||
@@ -41,7 +41,7 @@ NounEng.PossPron
|
||||
NounEng.RelCN
|
||||
NounEng.UsePron
|
||||
ParadigmsEng.mkAdN
|
||||
aradigmsEng.mkAdv
|
||||
ParadigmsEng.mkAdv
|
||||
ParadigmsEng.mkOrd
|
||||
ParadigmsEng.regA
|
||||
PhraseEng.NoPConj
|
||||
|
||||
Reference in New Issue
Block a user