From 06d3bdc834e075662be4cc4dcb139040ec95b1e3 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Wed, 15 May 2019 15:24:49 +0200 Subject: [PATCH] (Pes) add new invarA + remove an ill-advised heuristic from mkA --- src/persian/ParadigmsPes.gf | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/persian/ParadigmsPes.gf b/src/persian/ParadigmsPes.gf index d93937fd..ae381f65 100644 --- a/src/persian/ParadigmsPes.gf +++ b/src/persian/ParadigmsPes.gf @@ -323,9 +323,7 @@ oper mkA = overload { mkA : Str -> A -- Regular adjective, same adj and adv forms. - = \str -> lin A (case str of { - _ + " " + _ => mkAdj str str str ; - _ => mkAdj str str }) ; + = \str -> lin A (mkAdj str str) ; mkA : Str-> Str -> A -- Takes adj and adv forms = \str,adv -> lin A (mkAdj str adv); mkA : (pos,compar,adv : Str) -> A -- positive, comparative and adverb @@ -334,6 +332,10 @@ oper = \a,c -> lin A2 (mkAdj a a ** {c2 = c}) } ; + -- Mostly for things that are not really adjectives, like adverbials /IL + invarA : Str -> A = \str -> + lin A ( ** {s = \\_,_ => str}) ; + prefixA a = a ** {isPre=True}; preA : (adj,adv : Str) -> A = \adj,adv ->