some hopefully straightforward additions to Slovenian, all marked with ----AR

2016-10-04 10:29:39 +00:00
parent 056b885f29
commit d2d349c93d
7 changed files with 87 additions and 5 deletions
@@ -1,2 +1,12 @@
-concrete QuestionSlv of Question = CatSlv ** open ResSlv in {
+concrete QuestionSlv of Question = CatSlv ** open ResSlv,Prelude in {
+
+------AR BEGIN
+lin
+  QuestVP ip vp = mkClause (ip.s ! Nom) ip.a False vp ;
+  QuestCl cl = {s = \\t,a,p => "ali" ++ cl.s ! t ! a ! p} ;
+  QuestIAdv iadv cl = {s = \\t,a,p => iadv.s ++ cl.s ! t ! a ! p} ;
+
+
+------AR END
+
 }