GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

some catch-all cases in Ice paradigms to prevent compilation errors; need proper verification

Browse Source
This commit is contained in:
Aarne Ranta
2019-08-02 10:49:09 +02:00
parent fb5943a58e
commit a1d1966d70
2 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/icelandic/MorphoIce.gf
View File

@@ -961,6 +961,16 @@ resource MorphoIce = ResIce ** open Prelude, (Predef=Predef), ResIce in {
_ => s _ => s
} ; } ;
-- AR 2019-08-02 what about this: gamal -> gömul
aa2öu : Str -> Str = \s -> case s of {
front + "a" + middle@(#consonant*) + "a" + back => front + "ö" + middle + "u" + back ;
_ + "au" + _ => s ;
front + "a" + back => front + "ö" + back ;
_ => s
} ;
---- a2ö = aa2öu ; --- does not seem to work properly the way a2ö is used however
-- I am fairly certain it works the same way as a2ö -- I am fairly certain it works the same way as a2ö
-- currently not used - keep or trash? -- currently not used - keep or trash?
ö2a : Str -> Str = \þökk -> case þökk of { ö2a : Str -> Str = \þökk -> case þökk of {

14
src/icelandic/ParadigmsIce.gf
View File

@@ -202,6 +202,7 @@ resource ParadigmsIce = open
femNForms1 : Str -> NForms = \s -> case s of { femNForms1 : Str -> NForms = \s -> case s of {
_ + "ing" => dFylking s (s + "ar") ; _ + "ing" => dFylking s (s + "ar") ;
front + "un" => dVerslun s (front + "anir") ; --- AR 2019-08-02
front + middle@("g" | "k") + "j" + "a" => dSaga s (front + middle + "na") ; front + middle@("g" | "k") + "j" + "a" => dSaga s (front + middle + "na") ;
_ + ("r" | "s" | "n" | "j") + "a" => dSaga s s ; -- I Don't think this is the general case _ + ("r" | "s" | "n" | "j") + "a" => dSaga s s ; -- I Don't think this is the general case
stem + "a" => dSaga s s -- I Don't think this is the general case stem + "a" => dSaga s s -- I Don't think this is the general case
@@ -290,7 +291,9 @@ resource ParadigmsIce = open
_ + "inn" => dFarinn s ; _ + "inn" => dFarinn s ;
_ + "ill" => dLítill s ; _ + "ill" => dLítill s ;
#consonant* + #vowel + ("ll" | "nn") => dSeinn s ; #consonant* + #vowel + ("ll" | "nn") => dSeinn s ;
stem + "ur" => dFalur s (a2ö stem) stem + "ur" => dFalur s (a2ö stem) ;
_ + "i" => dI s ; ---- AR 2019-08-02 guess to prevent failure
_ => dSmár s ---- AR 2019-08-02 guess to prevent failure
} ; } ;
strongPosit2 : (_,_ : Str) -> AForms = \mas,fem -> case <mas,fem> of { strongPosit2 : (_,_ : Str) -> AForms = \mas,fem -> case <mas,fem> of {
@@ -320,7 +323,8 @@ resource ParadigmsIce = open
stem + "ur" => dAri stem ; stem + "ur" => dAri stem ;
#consonant* + "ei" + ("ll" | "nn") => dSeinn s ; #consonant* + "ei" + ("ll" | "nn") => dSeinn s ;
front + "inn" => dAri (front + "n") ; front + "inn" => dAri (front + "n") ;
_ + ("ll" | "nn") => dI s _ + ("ll" | "nn") => dI s ;
_ => dI s ---- AR 2019-08-02 guess to prevent failure
} ; } ;
compar2 : (_,_ : Str) -> AForms = \mas,fem -> case <mas,fem> of { compar2 : (_,_ : Str) -> AForms = \mas,fem -> case <mas,fem> of {
@@ -351,7 +355,8 @@ resource ParadigmsIce = open
end@("ll" | "nn") => dFalastur (stem + init end + "astur") (a2ö stem + init end + "ust") ; end@("ll" | "nn") => dFalastur (stem + init end + "astur") (a2ö stem + init end + "ust") ;
stem + "inn" => dFalastur (stem + "nastur") (a2ö stem + "nust") ; stem + "inn" => dFalastur (stem + "nastur") (a2ö stem + "nust") ;
stem + end@("ll"|"nn") => dFalastur (stem + init end + "astur") (a2ö stem + init end + "ust") ; stem + end@("ll"|"nn") => dFalastur (stem + init end + "astur") (a2ö stem + init end + "ust") ;
stem + "ur" => dFalastur (stem + "astur") ((a2ö stem) + "ust") stem + "ur" => dFalastur (stem + "astur") ((a2ö stem) + "ust") ;
_ => dFalastur (t + "astur") ((a2ö t) + "ust") ---- AR 2019-08-02 guess to prevent failure
} ; } ;
strongSuperl2 : (_,_ : Str) -> AForms = \mas,fem -> case <mas,fem> of { strongSuperl2 : (_,_ : Str) -> AForms = \mas,fem -> case <mas,fem> of {
@@ -374,7 +379,8 @@ resource ParadigmsIce = open
front + "ll" => front + "llega" ; front + "ll" => front + "llega" ;
front + "nn" => front + "nlega" ; front + "nn" => front + "nlega" ;
front + "leg" + "ur" => front + "lega" ; front + "leg" + "ur" => front + "lega" ;
front + "ur" => front + "lega" front + "ur" => front + "lega" ;
_ => s + "lega" ---- AR 2019-08-02 guess to prevent failure
} ; } ;
regAAdv2 : (_,_ : Str) -> Str = \mas,fem -> case <mas,fem> of { regAAdv2 : (_,_ : Str) -> Str = \mas,fem -> case <mas,fem> of {