msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

temporarily (?) removed the ?? markings from Slo and Cze smart paradigms

Browse Source
This commit is contained in:
Aarne Ranta
2020-04-30 11:50:10 +02:00
parent 9a45ab3889
commit 115be8c68d
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/czech/ResCze.gf
View File

@@ -86,7 +86,7 @@ oper
ul + "ice" => ul + "ic" ;
koleg + "yně" => koleg + "yň" ;
ruz + "e" => ruz + "í" ;
_ => "??" + s -- Predef.error ("shortFemPlGen does not apply to" ++ s)
_ => "" + s -- Predef.error ("shortFemPlGen does not apply to" ++ s)
} ;
---------------
@@ -155,7 +155,7 @@ oper
<Neutr, _ + "e" , _+"ete"> => declKURE ;
<Neutr, _ + "e" , _ + "e"> => declMORE ;
<Neutr, _ + "í" , _ + "í"> => declSTAVENI ;
_ => (\s -> declSTROJ ("??" + s)) -- Predef.error ("cannot infer declension type for" ++ nom ++ gen)
_ => (\s -> declSTROJ ("" + s)) -- Predef.error ("cannot infer declension type for" ++ nom ++ gen)
}
in decl nom ;
@@ -172,7 +172,7 @@ oper
_ + "ce" => declSOUDCE s ;
_ + "e" => declMORE s ;
_ + "í" => declSTAVENI s ;
_ => declSTROJ ("??" + s) -- Predef.error ("cannot guess declension type for" ++ s)
_ => declSTROJ ("" + s) -- Predef.error ("cannot guess declension type for" ++ s)
} ;
-- the traditional declensions, in both CEG and Wiki

6
src/slovak/ResSlo.gf
View File

@@ -120,7 +120,7 @@ oper
<Neutr, _ + ("a"|"ä") , _ + "iec"> => dievceniecN snom ;
<Neutr, _ + ("a"|"ä") , _ > => dievcaN snom ;
_ => dubN ("??"+snom) ** {pgen = pgen} ---- Predef.error ("cannot infer declension type for" ++ snom ++ pgen)
_ => dubN (""+snom) ** {pgen = pgen} ---- Predef.error ("cannot infer declension type for" ++ snom ++ pgen)
} ** {pgen = pgen ; g = g} ;
-- the "smartest" one-argument mkN
@@ -140,7 +140,7 @@ oper
_ + "e" => srdceN snom ;
_ + "ä" => dievcaN snom ;
_ => dubN ("??"+snom) ---- Predef.error ("cannot guess declension type for" ++ snom)
_ => dubN (""+snom) ---- Predef.error ("cannot guess declension type for" ++ snom)
} ;
@@ -497,7 +497,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
_ + "í" => cudziA s ;
_ + "i" => rydziA s ;
_ + ("ov"|"in") => otcovA s ;
_ => otcovA ("??"+s) ---- Predef.error ("no mkA for" ++ s)
_ => otcovA (""+s) ---- Predef.error ("no mkA for" ++ s)
} ;