(Ara) Add EmbedS,QS,VP

2018-12-21 17:01:04 +01:00
parent b25ae6bff8
commit 88f425e788
2 changed files with 4 additions and 7 deletions
@@ -58,10 +58,10 @@ concrete SentenceAra of Sentence = CatAra ** open
 --  SlashVS np vs sslash = TODO


--    EmbedS  s  = {s = conjThat ++ s.s} ;
--    EmbedQS qs = {s = qs.s ! QIndir} ;
--    EmbedVP vp = {s = infVP False vp (agrP3 Sg)} ; --- agr
--
+  EmbedS  s  = {s = "أَنْ" ++ s.s ! Verbal} ;
+  EmbedQS qs = {s = qs.s ! QIndir} ;
+  EmbedVP vp = {s = uttVP vp ! Masc} ;
+

    UseCl t p cl =
      {s = \\o => t.s ++ p.s ++