GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-09-24 11:16:03 -06:00
Code Issues Packages Projects Releases Wiki Activity

smarter noun paradigms

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-24 14:45:18 +02:00
parent 5f1f9637e2
commit 90667af5b8
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/telugu/ResTel.gf
+11 -4
View File
@@ -37,13 +37,20 @@ resource ResTel = ParamX ** open Prelude in {
wallNoun : Str -> Noun = \word ->
case word of {
stem + "ం" => mkNoun word word (stem + "ాలు") (stem + "ాల") Neutr ;
stem + ("ట్టి"|"ట్టు") => mkNoun word word (stem + "ట్లు") (stem + "ట్ల") Neutr;
stem + ("టి"|"టు") => mkNoun word word (stem + "ట్లు") (stem + "ట్ల") Neutr ;
stem + ("డ్డు"|"డ్డి") => mkNoun word word (stem + "డ్లు") (stem + "డ్ల") Neutr;
stem + ("డు "|"డి") => mkNoun word word (stem + "ళ్ళు") (stem + "ట్ల") Neutr ;
stem + "ం" => mkNoun word word (stem + "లు") (stem + "ాల") Neutr ;
stem + "ము" => mkNoun word word (stem + "ములు") (stem + "ముల") Neutr ;
stem + "లు" => mkNoun word word word (stem + "ల") Neutr ;
stem + ("ల్లు"|"న్ను") => mkNoun word word (stem + "ళ్ళు") (stem + "డ్లు") Neutr;
stem + "లు" => mkNoun word word (stem + "ళ్ళు")(stem + "ల") Neutr ;
stem + "ాయి" => mkNoun word word (word + "లు") (word + "ల") Neutr;
stem + ("యి"|"య్యి") => mkNoun word word (stem + "తులు") (stem + "తుల") Neutr;
stem + "ుడు" => mkNoun word word (stem + "ులు") (stem + "ుల") Neutr ;
stem + "ి" => mkNoun word word (stem + "ులు") (stem + "ుల") Neutr ;
_ => mkNoun word word (word + "లు") (word + "ల") Neutr
} ;
_ => mkNoun word word (word + "లు") (word + "ల") Neutr
} ;
reggNoun : Str -> Gender -> Noun = \s,g ->
wallNoun s ** {g = g} ;