forked from GitHub/gf-rgl
changes to mkA2, mkV and insertObj in malay rgl added
This commit is contained in:
@@ -136,11 +136,12 @@ oper
|
||||
mkA2 : (adj : Str) -> A2 = \s -> lin A2 ((mkAdj s) ** {c2 = emptyPrep}) ;
|
||||
mkA2 : A -> A2 = \a -> lin A2 (a ** {c2 = emptyPrep}) ;
|
||||
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (a ** {c2 = p}) ;
|
||||
mkA2 : (adj : Str) -> Prep -> A2 = \a,p -> lin A2 ((mkAdj a) ** {c2 = p}) ;
|
||||
} ;
|
||||
|
||||
mkV = overload {
|
||||
mkV : Str -> V = \v -> lin V (regVerb v Ber) ;
|
||||
mkV : Str -> Prefix -> V = \v,p -> lin V (regVerb v p)
|
||||
mkV : Str -> Prefix -> V = \v,p -> lin V (regVerb v p) ;
|
||||
} ;
|
||||
|
||||
prefixV : V -> V = \v -> v ** {
|
||||
|
||||
@@ -257,7 +257,7 @@ oper
|
||||
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
|
||||
-- insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
|
||||
insertObj : Str -> VerbPhrase -> VerbPhrase = \str,vp -> vp ** {
|
||||
s = \\vf,pol => vp.s ! Active ! Pos ++ str ;
|
||||
s = \\vf,pol => str ++ vp.s ! Active ! Pos ;
|
||||
} ;
|
||||
|
||||
insertComp : AdjPhrase -> VerbPhrase -> VerbPhrase = \ap,vp -> vp ** {
|
||||
|
||||
@@ -95,7 +95,7 @@ lin
|
||||
oper
|
||||
|
||||
advS : (comma : Str) -> Adverb -> S -> S = \comma,a,sent -> sent ** {
|
||||
s = a.s ++ comma ++ sent.s
|
||||
s = sent.s ++ comma ++ a.s
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user