forked from GitHub/gf-core
c084e1b040
Of course it's never really finished. There's more cases I should write treebanks for and test, but I think the coverage is good enough and the implementation for the verbs is solid enough that only minor fixes may arise. There's also the issue of verb participles, but I'll come back to those when I am looked more closely at the syntax.
51 lines
1.0 KiB
Plaintext
51 lines
1.0 KiB
Plaintext
-- AdjectiveMlt.gf: adjectives
|
|
--
|
|
-- Maltese Resource Grammar Library
|
|
-- John J. Camilleri, 2012
|
|
-- Licensed under LGPL
|
|
|
|
concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in {
|
|
flags coding=utf8 ;
|
|
|
|
lin
|
|
|
|
-- A -> AP
|
|
PositA a = {
|
|
s = \\gn => a.s ! (APosit gn) ;
|
|
isPre = True -- TO CHECK
|
|
} ;
|
|
|
|
-- A -> NP -> AP
|
|
ComparA a np = {
|
|
s = \\gn => case a.hasComp of {
|
|
True => a.s ! ACompar ;
|
|
_ => compMore ++ a.s ! (APosit gn)
|
|
}
|
|
++ conjThan ++ np.s ! Nom ;
|
|
isPre = False -- TO CHECK
|
|
} ;
|
|
|
|
-- A -> AP
|
|
UseComparA a = {
|
|
s = \\gn => case a.hasComp of {
|
|
True => a.s ! ACompar ;
|
|
_ => compMore ++ a.s ! (APosit gn)
|
|
} ;
|
|
isPre = False -- TO CHECK
|
|
} ;
|
|
|
|
-- Ord -> AP
|
|
-- AdjOrd ord = {
|
|
-- s = \\_ => ord.s ! Nom ;
|
|
-- isPre = True
|
|
-- } ;
|
|
|
|
oper
|
|
-- TODO: Don't know where these should go
|
|
compMore : Str = "iktar" | "iżjed" ;
|
|
compLess : Str = "inqas" ;
|
|
conjThan : Str = "minn" ;
|
|
|
|
|
|
}
|