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

@@ -25,12 +25,8 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
-- isPre = False
-- } ;
SentAP ap s = {
s = \\a => ap.s ! a ++ conjThat ++ s.s ! Sub ;
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

@@ -122,13 +122,8 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
} ;
SentCN cn s = {
s = \\a,n,c => cn.s ! a ! n ! c ++ conjThat ++ s.s ! Sub ;
s = \\a,n,c => cn.s ! a ! n ! c ++ s.s ;
g = cn.g
} ;
QuestCN cn qs = {
s = \\a,n,c => cn.s ! a ! n ! c ++ qs.s ! QIndir ;
g = cn.g
} ;
}