(Hun) Generalise Postposition to Adposition, allow it to preposition

2020-04-19 17:05:51 +02:00
parent 27d307c9db
commit 84ff6b4f46
4 changed files with 14 additions and 7 deletions
@@ -85,6 +85,9 @@ oper
    mkPrep : Str -> Case -> Prep ; -- Postposition and case
    } ;

+  prePrep : Str -> Case -> Prep -- Preposition
+    = \s,c -> lin Prep {pr=s ; s=[] ; c=c} ;
+
  casePrep : Case -> Prep ; -- No postposition, only case

  -- mkConj : (_,_ : Str) -> Number -> Conj = \s1,s2,num ->