modified Det structure; integrated scand definites.

This commit is contained in:
aarne
2006-01-12 23:03:25 +00:00
parent ec2cf7c4d4
commit 621ca0c43d
6 changed files with 104 additions and 60 deletions

View File

@@ -10,20 +10,25 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
UsePN pn = pn ** {a = agrP3 Sg} ;
UsePron p = p ;
DetSg pred quant ord = {
s = pred.s ++ quant.s ++ ord.s ;
PredetNP pred np = {
s = \\c => pred.s ++ np.s ! c ;
a = np.a
} ;
DetSg quant ord = {
s = quant.s ++ ord.s ;
n = Sg
} ;
DetPl pred quant num ord = {
s = pred.s ++ quant.s ++ num.s ++ ord.s ;
DetPl quant num ord = {
s = quant.s ++ num.s ++ ord.s ;
n = Pl
} ;
PossSg p = {s = p.s ! Gen} ;
PossPl p = {s = p.s ! Gen} ;
NoPredet, NoNum, NoOrd = {s = []} ;
NoNum, NoOrd = {s = []} ;
NumInt n = n ;
OrdInt n = {s = n.s ++ "th"} ; ---