added missing bits and pieces

2025-08-12 11:13:29 +02:00
parent 1308eb85d9
commit 145e1affe9
5 changed files with 86 additions and 8 deletions
@@ -6,7 +6,10 @@ lincat
  Sub10 = LinDigit ;
  Sub100,
  Sub1000,
-  Sub1000000 = ResHun.Numeral ;
+  Sub1000000,
+  Sub1000000000,
+  Sub1000000000000 = ResHun.Numeral ;
+
 lin
  -- TODO: Add case inflection and ordinal forms to all numerals

@@ -72,6 +75,9 @@ lin
      {s = table {p => n.s ! Attrib ++ "ezer" ++ m.s ! p} ;
       n = numNumber ; numtype = IsNum} ;

+  pot3as4 n = n ;
+  pot4as5 n = n ;
+
 oper
  LinDigit : Type = {s : DForm*Place => Str ; n : Number} ;