added pot5art and fixed inflection for large numerals

2023-08-30 21:03:37 +02:00
parent b72ea1e2f1
commit 28afb4d0dc
4 changed files with 31 additions and 5 deletions
--- a/src/english/NumeralEng.gf
+++ b/src/english/NumeralEng.gf
@@ -86,6 +86,10 @@ lin pot5 n = {
      s = \\d,o,c => n.s ! d ! NCard ! Nom ++ pot51.s ! True ! o ! c ;
      n = Pl
    } ;
+lin pot5art = {
+      s = \\d,o,c => case d of {True => []; False => artIndef};
+      n = Sg
+    } ;
 lin pot5plus n1 n2 = {
      s = \\d,o,c => n1.s ! d ! NCard ! Nom ++ pot51.s ! True ! NCard ! Nom ++ "and" ++ n2.s ! True ! o ! c;
      n = Pl