use consistent lin X everywhere

This commit is contained in:
Krasimir Angelov
2025-11-14 14:12:57 +01:00
parent 48658e3689
commit c7fe453c12
58 changed files with 330 additions and 334 deletions

View File

@@ -36,7 +36,7 @@ concrete LexiconPnb of Lexicon = CatPnb **
bread_N = mkN03 "روتی" ;
break_V2 = mkV2 (mkV "توڑنا") ;
broad_A = mkAdj1 "كھلا" ;
brother_N2 = mkN2 (mkN01 "پرا") (mkPrep "كا") "كے" ; --not correct
brother_N2 = mkN2 (lin N (mkN01 "پرا")) (mkPrep "كا") "كے" ; --not correct
brown_A = mkAdj1 "نسواری" ;
-- butter_N = mkN "مكھن" ;
buy_V2 = mkV2 (mkV "خریدنا");
@@ -73,7 +73,7 @@ concrete LexiconPnb of Lexicon = CatPnb **
empty_A = mkAdj1 "خالی" ;
-- enemy_N = mkN "دشمن" ;
-- factory_N = mkN "كارخانہ" ;
father_N2 = mkN2 (mkN01 "ابا") (mkPrep "دا") "دے" ;
father_N2 = mkN2 (lin N (mkN01 "ابا")) (mkPrep "دا") "دے" ;
fear_VS = mkV "ڈرنا";
find_V2 = mkV2 (mkV "پانا") ;
fish_N = mkN03 "مچھلی" ;
@@ -124,7 +124,7 @@ concrete LexiconPnb of Lexicon = CatPnb **
meat_N = mkN02 "گوشت" ;
-- milk_N = mkN "دودھ" ;
moon_N = mkN02 "چن" ;
mother_N2 = mkN2 (mkN05 "ماں") (mkPrep "دی") "ڈے"; -- not covered need to be discussed
mother_N2 = mkN2 (lin N (mkN05 "ماں")) (mkPrep "دی") "ڈے"; -- not covered need to be discussed
mountain_N = mkN03 "پاڑی" ;
-- music_N = mkN "موسیقی" ;
narrow_A = mkAdj1 "باریك" ;

View File

@@ -58,7 +58,7 @@ mkPN = overload {
\s1,s2,s3,s4,n,g -> let p = mkIntPronForm s1 s2 s3 s4 in { s = p.s ; n = n ; g = g ; lock_IP = <>};
-- AdN
mkAdN : Str -> AdN = \s -> ss s ;
mkAdN : Str -> AdN = \s -> lin AdN (ss s) ;
--2 Adjectives