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