1
0
forked from GitHub/gf-rgl

fill in the inflection tables for adjectives

This commit is contained in:
Krasimir Angelov
2024-12-05 16:22:05 +01:00
parent ad3fa455b1
commit 0a1df37340
2 changed files with 230 additions and 320 deletions

View File

@@ -25507,41 +25507,41 @@ mkA001 base_1 =
Nom => table { Nom => table {
Masc => table { Masc => table {
Sg => base_1 ; Sg => base_1 ;
Pl => base_1+"ë" --guessed Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"e" ; Sg => base_1+"e" ;
Pl => base_1+"e" --guessed Pl => base_1+"e"
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} }
} }
@@ -25563,32 +25563,32 @@ mkA002 base_1 =
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} }
} }
@@ -25601,41 +25601,41 @@ mkA003 base_1 =
Nom => table { Nom => table {
Masc => table { Masc => table {
Sg => base_1 ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"ë" ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} }
} }
@@ -25653,37 +25653,37 @@ mkA004 base =
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"akë" ; Sg => base_1+"akë" ;
Pl => nonExist Pl => base_1+"akë"
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"ak" ;
Pl => nonExist Pl => base_1+"ak"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"ak" ;
Pl => nonExist Pl => base_1+"ak"
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"ak" ;
Pl => nonExist Pl => base_1+"ak"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"ak" ;
Pl => nonExist Pl => base_1+"ak"
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"ak" ;
Pl => nonExist Pl => base_1+"ak"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"ak" ;
Pl => nonExist Pl => base_1+"ak"
} }
} }
} }
@@ -25707,32 +25707,32 @@ mkA005 base_1 =
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} }
} }
@@ -25755,32 +25755,32 @@ mkA006 base =
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"e"+base_2 ;
Pl => nonExist Pl => base_1+"e"+base_2
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"e"+base_2 ;
Pl => nonExist Pl => base_1+"e"+base_2
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"e"+base_2 ;
Pl => nonExist Pl => base_1+"e"+base_2
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"e"+base_2 ;
Pl => nonExist Pl => base_1+"e"+base_2
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"e"+base_2 ;
Pl => nonExist Pl => base_1+"e"+base_2
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"e"+base_2 ;
Pl => nonExist Pl => base_1+"e"+base_2
} }
} }
} }
@@ -25795,48 +25795,95 @@ mkA007 base_1 =
Nom => table { Nom => table {
Masc => table { Masc => table {
Sg => base_1 ; Sg => base_1 ;
Pl => base_1 --guessed Pl => base_1+"e"
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"e" ; --guessed Sg => base_1+"e" ;
Pl => base_1+"e" --guessed Pl => base_1+"e"
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"e" ;
Pl => nonExist Pl => base_1+"e"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"e" ;
Pl => nonExist Pl => base_1+"e"
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"e" ;
Pl => nonExist Pl => base_1+"e"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"e" ;
Pl => nonExist Pl => base_1+"e"
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"e" ;
Pl => nonExist Pl => base_1+"e"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"e" ;
Pl => nonExist Pl => base_1+"e"
} }
} }
} }
} ; } ;
mkA008 : Str -> A ; mkA008 : Str -> A ;
mkA008 base = mkA008 base_1 =
lin A
{ s = table {
Nom => table {
Masc => table {
Sg => base_1 ;
Pl => base_1
} ;
Fem => table {
Sg => base_1+"e" ;
Pl => base_1
}
} ;
Acc => table {
Masc => table {
Sg => base_1 ;
Pl => base_1
} ;
Fem => table {
Sg => base_1 ;
Pl => base_1
}
} ;
Dat => table {
Masc => table {
Sg => base_1 ;
Pl => base_1
} ;
Fem => table {
Sg => base_1 ;
Pl => base_1
}
} ;
Ablat => table {
Masc => table {
Sg => base_1 ;
Pl => base_1
} ;
Fem => table {
Sg => base_1 ;
Pl => base_1
}
}
}
} ;
mkA009 : Str -> A ;
mkA009 base =
case base of { case base of {
base_1+"a"+base_2@(?+?) => lin A base_1+"a"+base_2@(?+?) => lin A
{ s = table { { s = table {
@@ -25852,41 +25899,41 @@ mkA008 base =
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"a"+base_2 ;
Pl => nonExist Pl => base_1+"a"+base_2
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"a"+base_2 ;
Pl => nonExist Pl => base_1+"a"+base_2
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"a"+base_2 ;
Pl => nonExist Pl => base_1+"a"+base_2
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"a"+base_2 ;
Pl => nonExist Pl => base_1+"a"+base_2
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"a"+base_2 ;
Pl => nonExist Pl => base_1+"a"+base_2
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"a"+base_2 ;
Pl => nonExist Pl => base_1+"a"+base_2
} }
} }
} }
}; };
_ => error "Can't apply paradigm mkA008" _ => error "Can't apply paradigm mkA009"
} ; } ;
mkA009 : Str -> A ; mkA010 : Str -> A ;
mkA009 base = mkA010 base =
case base of { case base of {
"j"+base_1 => lin A "j"+base_1 => lin A
{ s = table { { s = table {
@@ -25932,11 +25979,11 @@ mkA009 base =
} }
} }
}; };
_ => error "Can't apply paradigm mkA009" _ => error "Can't apply paradigm mkA010"
} ; } ;
mkA010 : Str -> A ; mkA011 : Str -> A ;
mkA010 base = mkA011 base =
case base of { case base of {
"y"+base_1+"ë" => lin A "y"+base_1+"ë" => lin A
{ s = table { { s = table {
@@ -25982,104 +26029,57 @@ mkA010 base =
} }
} }
}; };
_ => error "Can't apply paradigm mkA010" _ => error "Can't apply paradigm mkA011"
} ; } ;
mkA011 : Str -> A ; mkA012 : Str -> A ;
mkA011 base = mkA012 base =
case base of { case base of {
base_1+"ë" => lin A base_1+"ë" => lin A
{ s = table { { s = table {
Nom => table { Nom => table {
Masc => table { Masc => table {
Sg => base_1+"ë" ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"a" ; Sg => base_1+"a" ;
Pl => nonExist Pl => base_1+"a"
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"ë" ;
Pl => nonExist Pl => base_1+"ë"
} }
} }
} }
}; };
_ => error "Can't apply paradigm mkA011" _ => error "Can't apply paradigm mkA012"
} ;
mkA012 : Str -> A ;
mkA012 base_1 =
lin A
{ s = table {
Nom => table {
Masc => table {
Sg => base_1 ;
Pl => base_1
} ;
Fem => table {
Sg => base_1+"e" ;
Pl => base_1+"e"
}
} ;
Acc => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
Dat => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
Ablat => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
}
}
} ; } ;
mkA013 : Str -> A ; mkA013 : Str -> A ;
@@ -26089,192 +26089,98 @@ mkA013 base_1 =
Nom => table { Nom => table {
Masc => table { Masc => table {
Sg => base_1 ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"ε" ; Sg => base_1+"ε" ;
Pl => nonExist Pl => base_1+"ε"
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} }
} }
} ; } ;
mkA014 : Str -> A ; mkA014 : Str -> A ;
mkA014 base_1 = mkA014 base =
lin A
{ s = table {
Nom => table {
Masc => table {
Sg => base_1 ;
Pl => base_1
} ;
Fem => table {
Sg => base_1+"e" ;
Pl => base_1
}
} ;
Acc => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
Dat => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
Ablat => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
}
}
} ;
mkA015 : Str -> A ;
mkA015 base =
case base of { case base of {
base_1+"u"+base_2@?+"r" => lin A base_1+"u"+base_2@?+"r" => lin A
{ s = table { { s = table {
Nom => table { Nom => table {
Masc => table { Masc => table {
Sg => base_1+"u"+base_2+"r" ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"or"+base_2 ; Sg => base_1+"or"+base_2 ;
Pl => nonExist Pl => base_1+"or"+base_2
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1+"u"+base_2+"r" ;
Pl => nonExist Pl => base_1+"u"+base_2+"r"
} }
} }
} }
}; };
_ => error "Can't apply paradigm mkA015" _ => error "Can't apply paradigm mkA014"
} ; } ;
mkA016 : Str -> A ; mkA015 : Str -> A ;
mkA016 base_1 = mkA015 base_1 =
lin A
{ s = table {
Nom => table {
Masc => table {
Sg => base_1 ;
Pl => nonExist
} ;
Fem => table {
Sg => base_1 ;
Pl => nonExist
}
} ;
Acc => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
Dat => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
Ablat => table {
Masc => table {
Sg => nonExist ;
Pl => nonExist
} ;
Fem => table {
Sg => nonExist ;
Pl => nonExist
}
}
}
} ;
mkA017 : Str -> A ;
mkA017 base_1 =
lin A lin A
{ s = table { { s = table {
Nom => table { Nom => table {
@@ -26283,38 +26189,38 @@ mkA017 base_1 =
Pl => base_1 Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => base_1+"e" ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Acc => table { Acc => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Dat => table { Dat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} ; } ;
Ablat => table { Ablat => table {
Masc => table { Masc => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} ; } ;
Fem => table { Fem => table {
Sg => nonExist ; Sg => base_1 ;
Pl => nonExist Pl => base_1
} }
} }
} }

View File

@@ -959,7 +959,7 @@ oper
_ + "riq" => mkA002 form; _ + "riq" => mkA002 form;
_ + "ond" => mkA002 form; _ + "ond" => mkA002 form;
_ + "al" => mkA002 form; _ + "al" => mkA002 form;
_ + "re" => mkA014 form; _ + "re" => mkA008 form;
_ + "kt" => mkA002 form; _ + "kt" => mkA002 form;
_ + "it" => mkA002 form; _ + "it" => mkA002 form;
_ + "ar" => mkA001 form; _ + "ar" => mkA001 form;
@@ -1002,14 +1002,18 @@ oper
reg2A : Str -> Str -> A -- s;Nom;Masc;Sg s;Nom;Masc;Pl reg2A : Str -> Str -> A -- s;Nom;Masc;Sg s;Nom;Masc;Pl
= \form1, form2 -> case <form1, form2> of { = \form1, form2 -> case <form1, form2> of {
<_ + "nor", _ + "ë"> => mkA002 form1; <_ + "nor", _ + "ë"> => mkA002 form1;
<_ + "al", _ + "l"> => mkA001 form1;
<_ + "ar", _ + "ë"> => mkA002 form1; <_ + "ar", _ + "ë"> => mkA002 form1;
<_ + "ar", _ + "r"> => mkA012 form1; <_ + "ek", _ + "e"> => mkA007 form1;
<_ + "ak", _ + "ë"> => mkA002 form1; <_ + "ak", _ + "ë"> => mkA002 form1;
<_ + "n", _ + "ë"> => mkA002 form1; <_ + "n", _ + "ë"> => mkA002 form1;
<_ + "n", _ + "e"> => mkA007 form1;
<_ + "t", _ + "ë"> => mkA002 form1; <_ + "t", _ + "ë"> => mkA002 form1;
<_ + "s", _ + "s"> => mkA012 form1; <_ + "r", _ + "r"> => mkA001 form1;
<_ + "r", _ + "e"> => mkA005 form1; <_ + "r", _ + "e"> => mkA005 form1;
<_ + "h", _ + "j"> => mkA008 form1; <_ + "v", _ + "v"> => mkA001 form1;
<_ + "k", _ + "k"> => mkA001 form1;
<_ + "h", _ + "j"> => mkA009 form1;
_ => regA form1 _ => regA form1
} ; } ;