forked from GitHub/gf-core
clitic insertion started
This commit is contained in:
@@ -12,7 +12,7 @@ concrete LangFre of Lang =
|
||||
-- ConjunctionFre,
|
||||
-- PhraseFre,
|
||||
-- TensedFre,
|
||||
-- StructuralFre,
|
||||
StructuralFre,
|
||||
BasicFre
|
||||
** {
|
||||
|
||||
|
||||
@@ -162,8 +162,6 @@ oper
|
||||
-- All the eight personal pronouns can be built by the following macro.
|
||||
-- The use of "en" as atonic genitive is debatable.
|
||||
|
||||
Pronoun = {s : NPForm => Str ; a : Agr ; c : ClitType} ;
|
||||
|
||||
mkPronoun : (_,_,_,_,_,_,_ : Str) ->
|
||||
Gender -> Number -> Person -> ClitType -> Pronoun =
|
||||
\il,le,lui,Lui,son,sa,ses,g,n,p,c ->
|
||||
|
||||
@@ -288,7 +288,7 @@ oper
|
||||
accusative = complAcc ;
|
||||
genitive = complGen ;
|
||||
dative = complDat ;
|
||||
mkPreposition p = {s = p ; c = Acc} ;
|
||||
mkPreposition p = {s = p ; c = Acc ; isDir = False} ;
|
||||
|
||||
mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ;
|
||||
regN x g = mkNomReg x g ** {lock_N = <>} ;
|
||||
|
||||
Reference in New Issue
Block a user