mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-26 03:08:55 -06:00
arabic lock fields in Paradigms
This commit is contained in:
@@ -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 =
|
||||||
@@ -105,6 +105,7 @@ resource ParadigmsAra = open
|
|||||||
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
|
||||||
|
|||||||
Reference in New Issue
Block a user