Initial Files for Rukiga RGL brough from previous coding before git tracking

2026-07-03 04:28:33 -06:00 · 2019-04-11 17:38:19 +02:00
parent c3775fa360
commit 373a261558
29 changed files with 120326 additions and 0 deletions
@@ -0,0 +1,122 @@
+--# -path=.:../prelude:../abstract:../common
+
+concrete VerbCgg of Verb = CatCgg ** open ResCgg in {
+
+lin
+
+  UseV verb = verb ;
+
+--    UseComp  : Comp -> VP ;            -- be warm
+--VerbPhrase: Type ={s:Agr=>Polarity=>Tense=>Anteriority=>Str};
+UseComp comp = mkComp comp ; --its not generating any sentence
+
+--    CompAP   : AP  -> Comp ;            -- (be) small
+      CompAP ap = ap;
+
+--    CompNP   : NP  -> Comp ;            -- (be) the man
+      CompNP np = {s =\\agr=>
+            case np.agr of{
+                 agr => np.s;
+                 _   => []   
+            } 
+        };
+
+--    CompAdv  : Adv -> Comp ;            -- (be) here
+      CompAdv adv =adv;
+
+
+--    SlashV2a : V2        -> VPSlash ;  -- love (it)
+     SlashV2a v2 = {s=v2.s; c=v2.c};
+--    ComplSlash : VPSlash -> NP -> VP ; -- love it
+
+--   AdvVP    : VP -> Adv -> VP ;        -- sleep here
+--   VerbPhrase: Type ={s:Agr=>Polarity=>Tense=>Anteriority=>Str};
+     AdvVP vp adv ={s=\\agr,pol,tense,anter=>vp.s!agr!pol!tense!anter ++ adv.s!agr};
+{-
+--1 The construction of verb phrases
+
+abstract Verb = Cat ** {
+
+  flags coding = utf8 ;
+
+--2 Complementization rules
+
+-- Verb phrases are constructed from verbs by providing their
+-- complements. There is one rule for each verb category.
+
+  data
+    UseV     : V   -> VP ;        -- sleep
+
+    ComplVV  : VV  -> VP -> VP ;  -- want to run
+    ComplVS  : VS  -> S  -> VP ;  -- say that she runs
+    ComplVQ  : VQ  -> QS -> VP ;  -- wonder who runs
+    ComplVA  : VA  -> AP -> VP ;  -- they become red
+
+    SlashV2a : V2        -> VPSlash ;  -- love (it)
+    Slash2V3 : V3  -> NP -> VPSlash ;  -- give it (to her)
+    Slash3V3 : V3  -> NP -> VPSlash ;  -- give (it) to her
+
+    SlashV2V : V2V -> VP -> VPSlash ;  -- beg (her) to go
+    SlashV2S : V2S -> S  -> VPSlash ;  -- answer (to him) that it is good
+    SlashV2Q : V2Q -> QS -> VPSlash ;  -- ask (him) who came
+    SlashV2A : V2A -> AP -> VPSlash ;  -- paint (it) red
+
+    ComplSlash : VPSlash -> NP -> VP ; -- love it
+
+    SlashVV    : VV  -> VPSlash -> VPSlash ;       -- want to buy
+    SlashV2VNP : V2V -> NP -> VPSlash -> VPSlash ; -- beg me to buy
+
+--2 Other ways of forming verb phrases
+
+-- Verb phrases can also be constructed reflexively and from
+-- copula-preceded complements.
+
+    ReflVP   : VPSlash -> VP ;         -- love himself
+    UseComp  : Comp -> VP ;            -- be warm
+
+-- Passivization of two-place verbs is another way to use
+-- them. In many languages, the result is a participle that
+-- is used as complement to a copula ("is used"), but other
+-- auxiliary verbs are possible (Ger. "wird angewendet", It.
+-- "viene usato"), as well as special verb forms (Fin. "käytetään",
+-- Swe. "används").
+--
+-- *Note*. the rule can be overgenerating, since the $V2$ need not
+-- take a direct object.
+
+    PassV2   : V2 -> VP ;               -- be loved
+
+-- Adverbs can be added to verb phrases. Many languages make
+-- a distinction between adverbs that are attached in the end
+-- vs. next to (or before) the verb.
+
+    AdvVP    : VP -> Adv -> VP ;        -- sleep here
+    ExtAdvVP : VP -> Adv -> VP ;        -- sleep , even though ...
+    AdVVP    : AdV -> VP -> VP ;        -- always sleep
+
+    AdvVPSlash : VPSlash -> Adv -> VPSlash ;  -- use (it) here
+    AdVVPSlash : AdV -> VPSlash -> VPSlash ;  -- always use (it)
+   
+    VPSlashPrep : VP -> Prep -> VPSlash ;  -- live in (it)
+
+
+-- *Agents of passives* are constructed as adverbs with the
+-- preposition [Structural Structural.html]$.8agent_Prep$.
+
+
+--2 Complements to copula
+
+-- Adjectival phrases, noun phrases, and adverbs can be used.
+
+    CompAP   : AP  -> Comp ;            -- (be) small
+    CompNP   : NP  -> Comp ;            -- (be) the man
+    CompAdv  : Adv -> Comp ;            -- (be) here
+    CompCN   : CN  -> Comp ;            -- (be) a man/men
+
+-- Copula alone
+
+    UseCopula : VP ;                    -- be
+
+-}
+
+}