1
0
forked from GitHub/gf-core

arabic lock fields in Paradigms

This commit is contained in:
aarne
2006-06-22 13:29:14 +00:00
parent 6dc913b478
commit 0d213f6e27

View File

@@ -59,7 +59,7 @@ resource ParadigmsAra = open
_ => raw.s ! n ! d ! c
};
g = gen;
h = spec
h = spec ; lock_N = <>
};
regN' : Str -> Str -> Str -> Gender -> Species -> N =
@@ -104,7 +104,8 @@ resource ParadigmsAra = open
\root,pat ->
let { kabIr = mkWord pat root
} in {
s = adj kabIr;
s = adj kabIr ;
lock_A = <>
};
--takes a root string only
@@ -203,7 +204,7 @@ resource ParadigmsAra = open
let {
nfs = mkRoot3 rootStr ;
} in {
s = (v5sound nfs).s ;
s = (v5sound nfs).s ; lock_V = <>
};
--Verb Form VI : tafaacala