forked from GitHub/gf-core
Maltese RG: Irregular verbs in Dict, Lexicon. Prep, Conj and others.
This commit is contained in:
@@ -9,4 +9,13 @@ concrete AdverbMlt of Adverb = CatMlt ** open ResMlt, Prelude in {
|
||||
-- AdN
|
||||
-- Adv
|
||||
|
||||
lin
|
||||
-- Prep -> NP -> Adv
|
||||
PrepNP prep np = {
|
||||
s = case <np.isDefn,prep.takesDet> of {
|
||||
<True,True> => prep.s ! Definite ++ np.s ! CPrep ; -- FIT-TRIQ
|
||||
<True,False> => prep.s ! Definite ++ np.s ! Nom ; -- FUQ IT-TRIQ
|
||||
<False,_> => prep.s ! Indefinite ++ np.s ! Nom -- FI TRIQ
|
||||
}
|
||||
} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user