implemented some_Quant in Dictionary for many languages where it was missing. Also added some_Det, which has a different meaning: compare "some man" (existential, Quant) to "some tea" (mass term similar to "a little tea", Det)

This commit is contained in:
aarne
2014-08-25 19:02:01 +00:00
parent 51e53559b8
commit fecda3e64b
11 changed files with 35 additions and 21 deletions

View File

@@ -10,6 +10,18 @@ oper
mkSubjSubj : Str -> Subj = \x ->
{s = x ; m = Conjunct ; lock_Subj = <>} ;
mkQuant : (_,_,_,_ : Str) -> Quant = \sm,sf,pm,pf ->
let aucun : ParadigmsFre.Number => ParadigmsFre.Gender => Case => Str = table {
Sg => \\g,c => prepCase c ++ genForms sm sf ! g ;
Pl => \\g,c => prepCase c ++ genForms pm pf ! g
}
in lin Quant {
s = \\_ => aucun ;
sp = aucun ;
s2 = [] ;
isNeg = False
} ;
mkIQuant : Str -> IQuant = \s ->
{s = \\_,_,c => prepCase c ++ s ; lock_IQuant = <>} ;

View File

@@ -53994,8 +53994,8 @@ fun somber_A : A ;
fun sombre_A : A ;
fun sombreness_N : N ;
fun sombrero_N : N ;
fun some_A : A ;
fun some_Quant : Quant ;
fun some_Det : Det ; -- mass: have some tea
fun some_Quant : Quant ; -- existential
fun somebody_NP : NP ;
fun someday_Adv : Adv ;
fun somehow_AdV : AdV ;

View File

@@ -51052,7 +51052,8 @@ lin somber_A = variants {};
lin sombre_A = variants {mkA079 "мрачен"; mkA079 "тъмен"}; ----
lin sombreness_N = mkN049 "мрачност"; ----
lin sombrero_N = mkN054 "сомбреро";
lin some_A = mkA079 "известен"; ----
--lin some_A = mkA079 "известен"; ----
--lin some_Det = mkQuant "някой" "някоя" "някое" "някои"; ----
lin some_Quant = mkQuant "някой" "някоя" "някое" "някои";
lin somebody_NP = mkNP "някой" (GSg Masc) P3 Pos;
lin someday_Adv = mkAdv "някой ден";

View File

@@ -14575,9 +14575,7 @@ lin solvent_A = mkA "溶剂" ;
lin solvent_N = mkN "溶剂" ;
lin som_N = mkN "索姆""" ;
lin somali_A = mkA "索马里" ;
lin somePl_Det = S.somePl_Det ;
lin someSg_Det = S.someSg_Det ;
lin some_A = mkA "一些" ;
lin some_Det = mkpDet "一些" ; ----
lin some_Quant = mkQuant "一些" ;
lin somebody_NP = S.somebody_NP ;
lin someday_Adv = mkAdv "日后" ;

View File

@@ -15352,8 +15352,8 @@ lin solution_N = mkN "oplossing" feminine ;
lin solve_V2 = mkV2 (mkV "oplossen") ; -- status=guess, src=wikt
lin solvent_N = mkN "oplosmiddel" ; -- status=guess
lin somber_A = mkA "somber" ; -- status=guess
lin somePl_Det = S.somePl_Det ;
lin someSg_Det = S.someSg_Det ;
lin some_Det = mkDet "een weinig" ; ----
lin some_Quant = R.mkQuant "sommige" "sommige" ;
lin somebody_NP = S.somebody_NP ;
lin somehow_Adv = mkAdv "op een of andere manier" | mkAdv "eenderhoe" ; -- status=guess status=guess
lin someone_NP = S.mkNP (mkN "iemand") ;

View File

@@ -53976,7 +53976,8 @@ lin somber_A = mkA "somber" ;
lin sombre_A = compoundA (mkA "sombre");
lin sombreness_N = mkN "sombreness" ;
lin sombrero_N = mkN "sombrero" "sombreros";
lin some_A = mkA "some" ;
--lin some_A = mkA "some" ;
lin some_Det = mkDeterminer singular "some" | mkDeterminer singular "a little" ;
lin some_Quant = mkQuant "some" "some";
lin somebody_NP = mkNP "somebody" "somebody" "somebody's" Sg P3 human;
lin someday_Adv = mkAdv "someday";

View File

@@ -46931,10 +46931,8 @@ lin somber_A = mkWA (k10 "vakava") ; --UNCHK
lin sombre_A = mkWA (k10 "vakava") ; --UNCHK
lin sombreness_N = mkWN (k40 "synkkyys") ; --UNCHK
lin sombrero_N = mkWN (k1 "sombrero") ; --UNCHK
lin somePl_Det = S.somePl_Det ;
lin someSg_Det = S.someSg_Det ;
lin some_A = mkWA (k101 "joku") ; --UNCHK
lin some_Quant = heavyQuant {s1 = S.jokinPron ; s2 = \\_ => [] ; isNum,isPoss,isNeg,isDef = False} ;
lin some_Det = mkDet False Sg (exceptNomN (mkN "vähä") "vähän") partitive | mkDet False Sg (exceptNomN (mkN "hiukka") "hiukan") partitive ;
lin some_Quant = heavyQuant {s1 = S.jokinPron ; s2 = \\_ => [] ; isNum,isPoss,isNeg,isDef = False} ; ---- vähän, hiukan
lin somebody_NP = S.somebody_NP ;
lin someday_Adv = mkWAdv (k99 "joskus") ;
lin somehow_AdV = mkAdV "jotenkin" ;

View File

@@ -9,6 +9,7 @@ concrete DictionaryFre of Dictionary = CatFre ** open
(E = ExtraFre),
(E = ExtraFre),
(Ph = PhonoFre),
(R = ResFre),
(M = MakeStructuralFre),
MorphoFre,
Prelude in {
@@ -18420,8 +18421,8 @@ lin solvent_A = mkA "solvable" ; -- tocheck
lin solvent_N = mkN "solvant" masculine ; -- tocheck
lin somber_A = mkA "sombre" ; -- tocheck
lin sombrero_N = mkN "sombréro" masculine ; -- tocheck
lin somePl_Det = S.somePl_Det ;
lin someSg_Det = S.someSg_Det ;
lin some_Det = {s,sp = \\g,c => R.prepCase c ++ "un peu" ++ Ph.elisDe ; n = plural ; s2 = [] ; isNeg = False} ;
lin some_Quant = M.mkQuant "quelque" "quelque" "quelques" "quelques" ;
lin somebody_NP = S.somebody_NP ;
lin somehow_Adv = variants{} ; --
lin someone_NP = S.somebody_NP ;

View File

@@ -4,7 +4,7 @@
concrete DictionaryGer of Dictionary = CatGer **
open
ParadigmsGer, (S = SyntaxGer), (L = LexiconGer),
(R = ResGer), (M = MorphoGer), (MS = MakeStructuralGer), (I = IrregGer), Prelude in {
(R = ResGer), (M = MorphoGer), (MS = MakeStructuralGer), (I = IrregGer), (N = NounGer), Prelude in {
flags
coding=utf8 ;
@@ -53730,8 +53730,9 @@ lin somber_A = mk3A "finster" "finsterer" "finsterste" | mk3A "dunkel" "dunkler"
lin sombre_A = variants {};
lin sombreness_N = variants {};
lin sombrero_N = mkN "Sombrero" ; -- status=guess
lin some_A = variants {};
lin some_Quant = variants {};
--lin some_A = variants {};
lin some_Det = {s,sp = \\_,_ => "ein wenig" ; c = R.noCase ; a = R.Strong ; isDef = False ; n = R.Sg} ;
lin some_Quant = N.IndefArt ** {s = N.IndefArt.sp} ;
lin somebody_NP = S.somebody_NP ;
lin someday_Adv = mkAdv "eines Tages" | mkAdv "irgendwann" ; -- status=guess status=guess
lin somehow_AdV = variants {};

View File

@@ -1,6 +1,6 @@
concrete DictionaryIta of Dictionary = CatIta
** open ParadigmsIta, (P = ParadigmsIta),
IrregIta, (I=IrregIta), MorphoIta, (L=LexiconIta), (S=StructuralIta), (E=ExtraIta),Prelude in {
IrregIta, (I=IrregIta), MorphoIta, (L=LexiconIta), (S=StructuralIta), (E=ExtraIta), (R = ResIta), Prelude in {
oper mkInterj : Str -> Interj
= \s -> lin Interj (ss s) ;
@@ -15789,8 +15789,8 @@ lin solvent_A = mkA "solvibile" ; -- status=guess
lin solvent_N = mkN "solvente" masculine ; -- status=guess
lin soma_N = mkN "soma" masculine ; -- status=guess
lin somatic_A = mkA "somatico" ; -- status=guess
lin somePl_Det = S.somePl_Det ; -- comment=CHECKED
lin someSg_Det = S.someSg_Det ; -- comment=CHECKED
lin some_Det = mkDet "un poco di" | mkDet "un pò di" ;
lin some_Quant = {s = \\_,_,_,c => R.prepCase c ++ "qualche" ; sp = \\_,_,c => R.prepCase c ++ "qualche" ; s2 = [] ; isNeg = False} ; ---- alcuni
lin somebody_NP = S.somebody_NP ;
lin somehow_Adv = variants{} ; --
lin someone_NP = variants{} ; --

View File

@@ -18783,6 +18783,8 @@ lin somatic_A = mkA "somático" ; -- status=guess
lin sombrero_N = mkN "sombrero mexicano" | mkN " sombrero de charro" ; -- status=guess status=guess
lin somePl_Det = S.somePl_Det ;
lin someSg_Det = S.someSg_Det ;
lin some_Det = mkDet "un poco de" ;
lin some_Quant = mkQuantifier "algún" "alguna" "algunos" "algunas" ;
lin somebody_NP = S.somebody_NP ;
lin someday_Adv = mkAdv "algún día" ; -- status=guess
lin somehow_Adv = mkAdv "de algún modo" | mkAdv "de alguna manera" ; -- status=guess