working on API documentation

This commit is contained in:
aarne
2006-01-10 20:51:08 +00:00
parent da26bfb246
commit a46c3d2b00
34 changed files with 217 additions and 274 deletions

View File

@@ -24,12 +24,8 @@ incomplete concrete AdjectiveScand of Adjective =
-- isPre = False
-- } ;
--
SentAP ap s = {
s = \\a => ap.s ! a ++ conjThat ++ s.s ! Inv ;
isPre = False
} ;
QuestAP ap qs = {
s = \\a => ap.s ! a ++ qs.s ! QIndir ;
SentAP ap sc = {
s = \\a => ap.s ! a ++ sc.s ;
isPre = False
} ;

View File

@@ -86,12 +86,8 @@ incomplete concrete NounScand of Noun =
s = \\n,d,c => cn.s ! n ! d ! c ++ rs.s ! agrP3 g n ;
g = g
} ;
SentCN cn s = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ conjThat ++ s.s ! Sub ;
g = g
} ;
QuestCN cn qs = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ qs.s ! QIndir ;
SentCN cn sc = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ sc.s ;
g = g
} ;