mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-19 16:20:16 -06:00
(Hun) Add Conj{S,NP,AP} + some conjunctions
This commit is contained in:
@@ -13,14 +13,16 @@ resource ResHun = NounMorphoHun ** open Prelude, Predef in {
|
||||
-- Noun morphology is in NounMorphoHun
|
||||
|
||||
oper
|
||||
|
||||
NounPhrase : Type = {
|
||||
s : Case => Str ;
|
||||
BaseNP : Type = {
|
||||
agr : Person*Number ;
|
||||
objdef : ObjDef ;
|
||||
empty : Str ; -- standard trick for pro-drop
|
||||
} ;
|
||||
|
||||
NounPhrase : Type = BaseNP ** {
|
||||
s : Case => Str ;
|
||||
} ;
|
||||
|
||||
emptyNP : NounPhrase = {
|
||||
s = \\_ => [] ;
|
||||
agr = <P3,Sg> ;
|
||||
@@ -104,6 +106,13 @@ oper
|
||||
n : Number ;
|
||||
} ;
|
||||
|
||||
mkConj : Str -> Number -> Conj = mkDConj [] ;
|
||||
|
||||
mkDConj : (s1,s2 : Str) -> Number -> Conj = \s1,s2,num -> {
|
||||
s1 = s1 ;
|
||||
s2 = s2 ;
|
||||
n = num ;
|
||||
} ;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Adjectives
|
||||
|
||||
|
||||
Reference in New Issue
Block a user