blob: 12fa28995858906c149ad50e60f85c29cd96f9eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
incomplete concrete ClauseI of Clause = Cat ** open Grammar in {
lin
PredV np v = PredVP np (UseV v) ;
PredV2 s v o = PredVP s (ComplSlash (SlashV2a v) o) ;
PredAP s a = PredVP s (UseComp (CompAP a)) ;
PredAdv s a = PredVP s (UseComp (CompAdv a)) ;
PredNP s n = PredVP s (UseComp (CompNP n)) ;
UseCl = Grammar.UseCl ;
QuestV np v = QuestVP np (UseV v) ;
QuestV2 s v o = QuestVP s (ComplSlash (SlashV2a v) o) ;
-- QuestV2Slash ip s v = QuestSlash ip (SlashVP s (SlashV2a v)) ;
UseQCl = Grammar.UseQCl ;
ImpV v = ImpVP (UseV v) ;
-- ImpV2 v o = ImpVP (ComplSlash (SlashV2a v) o) ;
}
|
