started examples-3.0 with examples that are tested to work

This commit is contained in:
aarne committed 2008-06-17 13:16:15 +00:00
1 parent cf1210f824
commit 4fc362c06b
2 files changed
+6 -6

No files matched your search

+2 -2
View File
@@ -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 = <>} ;
}
}
+4 -4
View File
@@ -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);