From 70806027c18cc1d6ce9e1224c6913273c4a1b9e0 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 5 May 2026 15:03:53 +0200
Subject: [PATCH] added infinitives

---
 src/hungarian/LexiconHun.gf | 2 +-
 src/hungarian/ResHun.gf     | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/hungarian/LexiconHun.gf b/src/hungarian/LexiconHun.gf
index 77da47a4..cbf76176 100644
--- a/src/hungarian/LexiconHun.gf
+++ b/src/hungarian/LexiconHun.gf
@@ -277,7 +277,7 @@ lin question_N = mkN "kérdés" "kérdést" ;
 lin radio_N = mkN "rádió" "rádiót" ;
 lin rain_N = mkN "eső" "esőt" ;
 -- lin rain_V0 = mkV "" ;
--- lin read_V2 = mkV2 "" ;
+lin read_V2 = mkV2 "olvas" ;
 lin ready_A = mkA "kész" ;
 lin reason_N = mkN "ok" "okot" "okok" "oka" ;
 lin red_A = mkA "piros" ;
diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index 7d354aef..9bbd6364 100644
--- a/src/hungarian/ResHun.gf
+++ b/src/hungarian/ResHun.gf
@@ -427,7 +427,12 @@ oper
     } ;
   v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Dat} ;
 
-  mkVerb : (sg3 : Str) -> Verb = mkVerbReg endingsIndef "TODO:infinitive" ; -- TODO
+  mkVerb : (sg3 : Str) -> Verb = \sg3 ->
+    let inf = case sg3 of {
+                _ + ("ít" | (#c + #c)) => sg3 + harm3 "ani" "eni" "eni" ! getHarm sg3 ;
+                _                      => sg3 + "ni"
+              }
+    in mkVerbReg endingsIndef inf sg3 ;
 
   mkVerbReg : VerbEndings -> (inf, stem : Str) -> Verb = \hf,inf,stem ->
     let h : Harm = getHarm stem ;