summaryrefslogtreecommitdiff
path: root/old-lib/resource/demo/ClauseI.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /old-lib/resource/demo/ClauseI.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'old-lib/resource/demo/ClauseI.gf')
-rw-r--r--old-lib/resource/demo/ClauseI.gf23
1 files changed, 23 insertions, 0 deletions
diff --git a/old-lib/resource/demo/ClauseI.gf b/old-lib/resource/demo/ClauseI.gf
new file mode 100644
index 000000000..12fa28995
--- /dev/null
+++ b/old-lib/resource/demo/ClauseI.gf
@@ -0,0 +1,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) ;
+
+
+
+}