redocumenting resource

lib/resource-1.0/old/Lex.gf

@@ -2,7 +2,7 @@
 
 -- This lexicon is used when developing a grammar, and called by
 -- [Test Test.html]. The full lexicon is divided between
--- [Structural Structural.html], [Basic Basic.html], and [Numeral Numeral.html].
+-- [Structural Structural.html], [Lexicon Lexicon.html], and [Numeral Numeral.html].
 
 abstract Lex = Cat ** {
 

lib/resource-1.0/old/Tensed.gf

@@ -0,0 +1,36 @@
+--1 Tensed forms of sentences, questions, and relative clauses
+
+-- This module defines the 2 x 4 x 4 = 16 forms generated by different
+-- combinations of tense, polarity, and
+-- anteriority, which are defined in [Tense Tense.html].
+-- A variant with just the polarity variation is given in
+-- [Untensed Untensed.html].
+
+abstract Tensed = Cat ** {
+
+  fun
+    UseCl  : Tense -> Ant -> Pol -> Cl  -> S ;
+    UseQCl : Tense -> Ant -> Pol -> QCl -> QS ;
+    UseRCl : Tense -> Ant -> Pol -> RCl -> RS ;
+
+}
+
+-- Examples for English $S$:
+{-
+  Pres  Simul  Pos  ODir  : he sleeps
+  Pres  Simul  Neg  ODir  : he doesn't sleep
+  Pres  Anter  Pos  ODir  : he has slept
+  Pres  Anter  Neg  ODir  : he hasn't slept
+  Past  Simul  Pos  ODir  : he slept
+  Past  Simul  Neg  ODir  : he didn't sleep
+  Past  Anter  Pos  ODir  : he had slept
+  Past  Anter  Neg  ODir  : he hadn't slept
+  Fut   Simul  Pos  ODir  : he will sleep
+  Fut   Simul  Neg  ODir  : he won't sleep
+  Fut   Anter  Pos  ODir  : he will have slept
+  Fut   Anter  Neg  ODir  : he won't have slept
+  Cond  Simul  Pos  ODir  : he would sleep
+  Cond  Simul  Neg  ODir  : he wouldn't sleep
+  Cond  Anter  Pos  ODir  : he would have slept
+  Cond  Anter  Neg  ODir  : he wouldn't have slept
+-}

lib/resource-1.0/old/TensedEng.gf

@@ -0,0 +1,10 @@
+concrete TensedEng of Tensed = CatEng ** open ResEng in {
+
+  flags optimize=all_subs ;
+
+  lin
+    UseCl  t a p cl = {s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! ODir} ;
+    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
+    UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
+
+}

lib/resource-1.0/old/TensedFre.gf

@@ -0,0 +1,2 @@
+concrete TensedFre of Tensed = CatFre ** TensedRomance with
+  (ResRomance = ResFre) ;

lib/resource-1.0/old/TensedGer.gf

@@ -0,0 +1,10 @@
+concrete TensedGer of Tensed = CatGer, TenseX ** open ResGer in {
+
+  flags optimize=all_subs ;
+
+  lin
+    UseCl  t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
+    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
+    UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
+
+}

lib/resource-1.0/old/TensedRomance.gf

@@ -0,0 +1,12 @@
+incomplete concrete TensedRomance of Tensed = CatRomance ** 
+  open ResRomance in {
+
+  flags optimize=all_subs ;
+
+  lin
+    UseCl  t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
+    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
+    UseRCl t a p cl = 
+      {s = \\r,ag => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r ! ag} ;
+
+}

lib/resource-1.0/old/TensedScand.gf

@@ -0,0 +1,11 @@
+incomplete concrete TensedScand of Tensed = CatScand, TenseX ** 
+  open ResScand in {
+
+  flags optimize=all_subs ;
+
+  lin
+    UseCl  t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
+    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
+    UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
+
+}

lib/resource-1.0/old/TensedSwe.gf

@@ -0,0 +1,2 @@
+concrete TensedSwe of Tensed = CatSwe, TenseX ** TensedScand with
+  (ResScand = ResSwe) ;

lib/resource-1.0/old/Test.gf

@@ -20,7 +20,7 @@ abstract Test =
   Untensed, 
   -- Tensed,
   -- Structural,
-  -- Basic,
+  -- Lexicon,
   -- Numeral,
   Lex 
   ** {} ;