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