GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Cze) Remove calls to Predef.error and just do something stupid instead.

Browse Source
This commit is contained in:
John J. Camilleri
2020-04-29 15:05:24 +02:00
parent 715787894f
commit 219b3a2c01
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/czech/ParadigmsCze.gf
View File

@@ -61,7 +61,7 @@ oper
= \s -> lin N (declMESTO s) ; = \s -> lin N (declMESTO s) ;
muzN : Str -> N muzN : Str -> N
= \s -> lin N (declMUZ s) ; = \s -> lin N (declMUZ s) ;
soudceN : Str -> N -- default ** {sdat,sloc = +i ; pnom = +i} soudceN : Str -> N -- default ** {sdat,sloc = +i ; pnom = +i}
= \s -> lin N (declSOUDCE s) ; = \s -> lin N (declSOUDCE s) ;
strojN : Str -> N strojN : Str -> N
= \s -> lin N (declSTROJ s) ; = \s -> lin N (declSTROJ s) ;
@@ -97,7 +97,7 @@ oper
_ + "í" => jarniAdjForms s ; _ + "í" => jarniAdjForms s ;
_ + "ův" => otcuvAdjForms s ; _ + "ův" => otcuvAdjForms s ;
_ + "in" => matcinAdjForms s ; _ + "in" => matcinAdjForms s ;
_ => Predef.error ("no mkA for" ++ s) _ => matcinAdjForms s -- Predef.error ("no mkA for" ++ s)
}) ; }) ;
} ; } ;
@@ -133,7 +133,7 @@ oper
mkPrep : Str -> Case -> Prep mkPrep : Str -> Case -> Prep
= \s,c -> lin Prep {s = s ; c = c ; hasPrep = True} ; ---- True if s /= "" = \s,c -> lin Prep {s = s ; c = c ; hasPrep = True} ; ---- True if s /= ""
mkConj : Str -> Conj mkConj : Str -> Conj
= \s -> lin Conj {s1 = [] ; s2 = s} ; = \s -> lin Conj {s1 = [] ; s2 = s} ;

6
src/czech/ResCze.gf
View File

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