msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Som) minor cleanup/whitespace removal

Browse Source
This commit is contained in:
Inari Listenmaa
2019-09-27 11:14:50 +02:00
parent a520c9659f
commit 8e929ea4fb
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/somali/NounSom.gf
View File

@@ -56,15 +56,15 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
UsePron pron = pron ** {st = Definite} ; UsePron pron = pron ** {st = Definite} ;
-- : Predet -> NP -> NP ; -- only the man -- : Predet -> NP -> NP ; -- only the man
PredetNP predet np = PredetNP predet np =
let qnt = PossPron (pronTable ! np.a) ; let qnt = PossPron (pronTable ! np.a) ;
det = qnt.shortPoss ! predet.da ; det = qnt.shortPoss ! predet.da ;
predetS : Str = case predet.isPoss of { predetS : Str = case predet.isPoss of {
True => glue predet.s det ; True => glue predet.s det ;
False => predet.s False => predet.s
} ; } ;
in np ** { in np ** {
s = \\c => s = \\c =>
case <np.isPron,predet.isPoss> of { case <np.isPron,predet.isPoss> of {
<True,True> => np.empty ++ predetS ; <True,True> => np.empty ++ predetS ;
_ => np.s ! c ++ predetS} ; _ => np.s ! c ++ predetS} ;

16
src/somali/ResSom.gf
View File

@@ -46,12 +46,16 @@ oper
magacya + "da" => magacya ; magacya + "da" => magacya ;
wiila + "sha" => wiila ; wiila + "sha" => wiila ;
_ => wiilal} ; _ => wiilal} ;
bisadi : Str = case gender of bisadi : Str = case gender of {
{ Fem => case wiil of { _ + #c => wiil+"i" ; _ => wiil} ; Fem => case wiil of {
Masc => wiil } ; _ + #c => wiil+"i" ;
bisadood : Str = case gender of _ => wiil } ;
{ Fem => case wiilal of {_ + "o" => wiilal+"od" ; _ => wiil} ; Masc => wiil } ;
Masc => wiil } bisadood : Str = case gender of {
Fem => case wiilal of {
_ + "o" => wiilal+"od" ;
_ => wiil } ;
Masc => wiil }
} ; } ;
------------------------- -------------------------