forked from GitHub/gf-core
Jordi's suggestion in Symbol
This commit is contained in:
@@ -12,9 +12,10 @@ fun
|
||||
SymbPN : Symb -> PN ; -- x
|
||||
IntPN : Int -> PN ; -- 27
|
||||
FloatPN : Float -> PN ; -- 3.14159
|
||||
CNIntNP : CN -> Int -> NP ; -- level 53
|
||||
CNNumNP : CN -> Num -> NP ; -- level five ; level 5
|
||||
CNSymbNP : Det -> CN -> [Symb] -> NP ; -- (the) (2) numbers x and y
|
||||
|
||||
|
||||
--2 Sentence consisting of a formula
|
||||
|
||||
SymbS : Symb -> S ; -- A
|
||||
@@ -37,4 +38,8 @@ cat
|
||||
fun
|
||||
MkSymb : String -> Symb ;
|
||||
|
||||
--2 Obsolescent
|
||||
|
||||
CNIntNP : CN -> Int -> NP ; -- level 53 (covered by CNNumNP)
|
||||
|
||||
}
|
||||
|
||||
@@ -12,6 +12,10 @@ lin
|
||||
s = \\c => det.s ++ cn.s ! det.n ! c ++ xs.s ;
|
||||
a = agrP3 det.n
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => (cn.s ! Sg ! Nom ++ i.s) ;
|
||||
a = agrP3 Sg
|
||||
} ;
|
||||
|
||||
SymbS sy = sy ;
|
||||
|
||||
|
||||
@@ -15,6 +15,11 @@ lin
|
||||
a = detcn.a ;
|
||||
isPron = False
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ! Sg ! Nom ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
SymbS sy = sy ;
|
||||
|
||||
|
||||
@@ -15,6 +15,12 @@ lin
|
||||
a = agrP3 det.n ;
|
||||
isPron = False
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => cn.s ! Weak ! Sg ! Nom ++ i.s ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
SymbS sy = {s = \\_ => sy.s} ;
|
||||
|
||||
SymbNum n = {s = n.s} ;
|
||||
|
||||
@@ -16,6 +16,11 @@ lin
|
||||
a = agrP3 g det.n ;
|
||||
hasClit = False
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => cn.s ! Sg ++ i.s ! Masc ;
|
||||
a = agrP3 cn.g Sg ;
|
||||
hasClit = False
|
||||
} ;
|
||||
SymbS sy = {s = \\_ => sy.s} ;
|
||||
|
||||
SymbNum n = {s = \\_ => n.s ; isNum = True} ;
|
||||
|
||||
@@ -13,6 +13,10 @@ lin
|
||||
s = \\c => det.s ! cn.isMod ! g ++ cn.s ! det.n ! det.det ! caseNP c ++ xs.s ;
|
||||
a = agrP3 g det.n
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => (cn.s ! Sg ! DIndef ! Nom ++ i.s ! neutrum) ;
|
||||
a = agrP3 cn.g Sg
|
||||
} ;
|
||||
|
||||
SymbS sy = {s = \\_ => sy.s} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user