1
0
forked from GitHub/gf-rgl

(Ara) misc small fixes/comments

This commit is contained in:
Inari Listenmaa
2018-12-26 14:34:15 +01:00
parent 8b016f35bc
commit f85e64a90d
3 changed files with 7 additions and 3 deletions

View File

@@ -6,8 +6,11 @@ flags optimize = all ;--noexpand;
oper
mkDet : Str -> Number -> State -> Det
= \word,num,state -> baseQuant **
{ s = \\_,_,c => word + caseTbl ! c ;
= mkDetDecl True ;
mkDetDecl : Bool -> Str -> Number -> State -> Det
= \decl,word,num,state -> baseQuant **
{ s = \\_,_,c => word + if_then_Str decl (caseTbl ! c) [] ;
n = numberToSize num;
d = state; --only Const is used now. check StructuralAra
} ;

View File

@@ -362,7 +362,7 @@ resource ParadigmsAra = open
mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N -- broken plural
= brkN ;
mkN : N -> (attr : Str) -> N -- Compound nouns with noninflecting attribute
= \n,attr -> n ** {s2 = \\n,s,c => attr} ;
= \n,attr -> n ** {s2 = \\num,s,c => n.s2 ! num ! s ! c ++ attr} ;
mkN : N -> N -> N -- Compound nouns where attribute inflects in state and case but not number
= attrN Sg ;
mkN : Number -> N -> N -> N -- Compound nouns where attribute inflects in state, case and number

View File

@@ -1759,6 +1759,7 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
s = \\_pgn,vf => v.s ! np.a.pgn ! vf -- so we can throw away subject's pgn
} ;
-- TODO: what to do with vp.c2 if there is no object /IL
complClSlash = overload {
complClSlash : NP -> ClSlash -> Cl = \obj,cls ->
predVP (subj2np cls.subj) (insertObj obj cls) ;