mkLN in Catalan, Italian and Portuguese

This commit is contained in:
Krasimir Angelov
2023-08-07 15:59:19 +02:00
parent fb48791d6a
commit 1b696739be
3 changed files with 19 additions and 0 deletions

View File

@@ -139,6 +139,12 @@ oper
mkPN : N -> PN ;
} ;
mkLN : Str -> LN = \s ->
lin LN {s = s ;
p = {s=""; c=CPrep P_a; isDir=True} ;
art = NoArt ;
g = Masc ;
num = Sg} ;
--2 Adjectives

View File

@@ -145,6 +145,12 @@ oper
mkPN : N -> PN ; -- get gender from noun
} ;
mkLN : Str -> LN = \s ->
lin LN {s = s ;
p = {s=""; c=CPrep P_a; isDir=True} ;
art = NoArt ;
g = Masc ;
num = Sg} ;
--2 Adjectives

View File

@@ -206,6 +206,13 @@ oper
= \n -> lin PN {s = n.s ! Sg ; g = n.g} ;
} ;
mkLN : Str -> LN = \s ->
lin LN {s = s ;
p = {s=""; c=CPrep P_a; isDir=True} ;
art = NoArt ;
g = Masc ;
num = Sg} ;
--2 Adjectives
compADeg : Adj -> A ; --%
compADeg a = lin A