forked from GitHub/gf-rgl
(Som) IAdv + related functions
This commit is contained in:
@@ -12,11 +12,11 @@ concrete PhraseSom of Phrase = CatSom ** open Prelude, ResSom in {
|
||||
UttImpPl = UttImpSg ;
|
||||
UttImpPol = UttImpSg ;
|
||||
|
||||
UttIP ip = { s = ip.s ! Abs} ;
|
||||
UttIAdv iadv = iadv ;
|
||||
UttNP np = { s = np.s ! Abs} ;
|
||||
UttVP vp = { s = infVP vp } ;
|
||||
UttAdv adv = {s = linAdv adv} ;
|
||||
UttIP ip = {s = ip.s ! Abs} ;
|
||||
UttNP np = {s = np.s ! Abs} ;
|
||||
UttVP vp = {s = infVP vp} ;
|
||||
UttAdv,
|
||||
UttIAdv = \adv -> {s = linAdv adv} ;
|
||||
UttCN n = {s = linCN n} ;
|
||||
UttCard n = {s = n.s ! Mid} ;
|
||||
UttAP ap = { s = ap.s ! AF Sg Abs } ;
|
||||
|
||||
Reference in New Issue
Block a user