(Ara) Add field for word order in VS

2018-12-26 14:33:54 +01:00
parent 213e505e9a
commit 8b016f35bc
3 changed files with 5 additions and 4 deletions
@@ -723,8 +723,8 @@ resource ParadigmsAra = open

  dirdirV3 v = dirV3 v (casePrep acc) ;

-  mkVS  v = v ** {lock_VS = <>} ;
-  mkVQ  v = v ** {lock_VQ = <>} ;
+  mkVS v = lin VS (v ** {o = Subord}) ;
+  mkVQ v = lin VQ v ;

  regVV : V -> VV = \v -> lin VV v ** {c2 = mkPreposition "أَنْ" ; sc = noPrep} ;
  c2VV : V -> Str -> VV = \v,prep -> regVV v ** {c2 = mkPreposition prep ; sc = noPrep} ;