fixed warnings in present compilation of resource, esp. unreached patterns

This commit is contained in:
aarne
2009-06-22 14:30:55 +00:00
parent b7f6393e9f
commit f8fdaa7acc
18 changed files with 198 additions and 65 deletions

View File

@@ -2026,6 +2026,9 @@ let x_ = Predef.tk 5 deure in
VP (Pass Sg Fem) => x_ + "guda" ;
VP (Pass Pl Masc) => x_ + "guts" ;
VP (Pass Sg Masc) => x_ + "gut" ;
{- -- AR removed these duplicates
VI Infn => x_ + "ure" ;
VI Ger => x_ + "vent" ;
VI Part => x_ + "gut" ;
@@ -2075,6 +2078,7 @@ let x_ = Predef.tk 5 deure in
VP (Pass Sg Fem) => x_ + "guda" ;
VP (Pass Pl Masc) => x_ + "guts" ;
VP (Pass Sg Masc) => x_ + "gut" ;
-}
VP (Imp Sg P1) => variants {}
}
} ;
@@ -4912,14 +4916,14 @@ let s_ = Predef.tk 4 seure in
VP (Pres Ind Sg P3) => s_ + "eu" ;
VP (Pres Sub Pl P1) => s_ + "eguem" ;
VP (Pres Sub Sg P1) => s_ + "ega" ;
VP (Pres Sub Sg P1) => s_ + "egui" ;
-- VP (Pres Sub Sg P1) => s_ + "egui" ;
VP (Pres Sub Pl P2) => s_ + "egueu" ;
VP (Pres Sub Sg P2) => s_ + "egues" ;
VP (Pres Sub Sg P2) => s_ + "eguis" ;
-- VP (Pres Sub Sg P2) => s_ + "eguis" ;
VP (Pres Sub Pl P3) => s_ + "eguen" ;
VP (Pres Sub Pl P3) => s_ + "eguin" ;
-- VP (Pres Sub Pl P3) => s_ + "eguin" ;
VP (Pres Sub Sg P3) => s_ + "ega" ;
VP (Pres Sub Sg P3) => s_ + "egui" ;
-- VP (Pres Sub Sg P3) => s_ + "egui" ; -- AR: why duplicated forms?
VP (Impf Ind Sg P1) => s_ + "eia" ;--# notpresent
VP (Impf Ind Sg P2) => s_ + "eies" ;--# notpresent
VP (Impf Ind Pl P3) => s_ + "eien" ;--# notpresent
@@ -4958,9 +4962,9 @@ let s_ = Predef.tk 4 seure in
VP (Imp Pl P2) => s_ + "eieu" ;
VP (Imp Sg P2) => s_ + "eu" ;
VP (Imp Pl P3) => s_ + "eguen" ;
VP (Imp Pl P3) => s_ + "eguin" ;
-- VP (Imp Pl P3) => s_ + "eguin" ;
VP (Imp Sg P3) => s_ + "ega" ;
VP (Imp Sg P3) => s_ + "egui" ;
-- VP (Imp Sg P3) => s_ + "egui" ;
VP (Pass Pl Fem) => s_ + "egudes" ;
VP (Pass Sg Fem) => s_ + "eguda" ;
VP (Pass Pl Masc) => s_ + "eguts" ;
@@ -5345,7 +5349,7 @@ let t_ = Predef.tk 5 t
{s = table {
VI Ger => t_ + "orcent" ;
VI Part => t_ + "ort" ;
VI Part => t_ + "orçut" ;
-- VI Part => t_ + "orçut" ; -- AR why duplicate?
VP (Pres Ind Pl P1) => t_ + "orcem" ;
VP (Pres Ind Sg P1) => t_ + "orcem" ;
VP (Pres Ind Pl P2) => t_ + "orceu" ;
@@ -5398,17 +5402,17 @@ let t_ = Predef.tk 5 t
VP (Imp Pl P2) => t_ + "orceu" ;
VP (Imp Sg P2) => t_ + "orç" ;
VP (Imp Pl P3) => t_ + "orcen" ;
VP (Imp Pl P3) => t_ + "orcin" ;
-- VP (Imp Pl P3) => t_ + "orcin" ;
VP (Imp Sg P3) => t_ + "orci" ;
VP (Imp Sg P3) => t_ + "orça" ;
-- VP (Imp Sg P3) => t_ + "orça" ;
VP (Pass Pl Fem) => t_ + "ortes" ;
VP (Pass Pl Fem) => t_ + "orçudes" ;
-- VP (Pass Pl Fem) => t_ + "orçudes" ;
VP (Pass Sg Fem) => t_ + "orta" ;
VP (Pass Sg Fem) => t_ + "orçuda" ;
-- VP (Pass Sg Fem) => t_ + "orçuda" ;
VP (Pass Pl Masc) => t_ + "orts" ;
VP (Pass Pl Masc) => t_ + "orçuts" ;
-- VP (Pass Pl Masc) => t_ + "orçuts" ;
VP (Pass Sg Masc) => t_ + "ort" ;
VP (Pass Sg Masc) => t_ + "orçut" ;
-- VP (Pass Sg Masc) => t_ + "orçut" ;
VI Infn => t_ + "òrcer" ;
VP (Imp Sg P1) => variants {}
}
@@ -5960,6 +5964,7 @@ let x_ = Predef.tk 5 voler in
VP (Pass Sg Fem) => x_ + "olguda" ;
VP (Pass Pl Masc) => x_ + "olguts" ;
VP (Pass Sg Masc) => x_ + "olgut" ;
{- AR commented out duplicates 22/6/2009
VI Infn => x_ + "oler" ;
VI Ger => x_ + "olent" ;
VI Part => x_ + "olgut" ;
@@ -6014,6 +6019,7 @@ let x_ = Predef.tk 5 voler in
VP (Pass Sg Fem) => x_ + "olguda" ;
VP (Pass Pl Masc) => x_ + "olguts" ;
VP (Pass Sg Masc) => x_ + "olgut" ;
-}
VP (Imp Sg P1) => variants {}
}
} ;

View File

@@ -360,6 +360,6 @@ lin
ready_A = regA "preparat" ;
reason_N = regFN "raó" ;
uncertain_A = regA "incert" ;
have_V2 = dirV2 (verbV (tenir_108 "tenir")) ;
} ;

View File

@@ -161,7 +161,7 @@ lin
"vosté" "li" "li" "vosté"
["el seu"] ["la seva"] ["els seus"] ["les seves"]
Fem Pl P2 ;
have_V2 = dirV2 (verbV (tenir_108 "tenir")) ;
oper
etConj : {s : Str ; n : MorphoCat.Number} = {s = "i" } ** {n = Pl} ;