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