forked from GitHub/gf-rgl
started examples-3.0 with examples that are tested to work
This commit is contained in:
@@ -101,7 +101,7 @@ oper
|
|||||||
--3 Other verbs
|
--3 Other verbs
|
||||||
--
|
--
|
||||||
|
|
||||||
V2S, V2V, V2Q : Type = V2 ;
|
-- V2S, V2V, V2Q : Type = V2 ;
|
||||||
|
|
||||||
mkV2S : V -> Prep -> V2S ;
|
mkV2S : V -> Prep -> V2S ;
|
||||||
mkV2S v p = prepV2 v p ** {lock_V2 = <>} ;
|
mkV2S v p = prepV2 v p ** {lock_V2 = <>} ;
|
||||||
@@ -179,4 +179,4 @@ oper
|
|||||||
|
|
||||||
mkIAdv : Str -> IAdv ;
|
mkIAdv : Str -> IAdv ;
|
||||||
mkIAdv s = {s = table {QDir=>s;QIndir=>s+"ňî"}; lock_IAdv = <>} ;
|
mkIAdv s = {s = table {QDir=>s;QIndir=>s+"ňî"}; lock_IAdv = <>} ;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -225,10 +225,10 @@ resource ResIna = ParamX ** open Prelude in {
|
|||||||
};
|
};
|
||||||
|
|
||||||
tenseToVFrom = table {
|
tenseToVFrom = table {
|
||||||
Pres => VPres;
|
Pres => VPres
|
||||||
Past => VPast;
|
;Past => VPast; --# notpresent
|
||||||
Fut => VFut;
|
Fut => VFut; --# notpresent
|
||||||
Cond => VCond
|
Cond => VCond --# notpresent
|
||||||
};
|
};
|
||||||
|
|
||||||
insertInvarObj : Str -> VP -> VP = \obj -> insertObj "" Acc (mkInvarNP obj);
|
insertInvarObj : Str -> VP -> VP = \obj -> insertObj "" Acc (mkInvarNP obj);
|
||||||
|
|||||||
Reference in New Issue
Block a user