mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
mkLN in Catalan, Italian and Portuguese
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user