mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-18 07:32:51 -06:00
fc2f5b0a1a
To silence warnings and avoid potential problems after changing the default encoding to UTF-8.
16 lines
515 B
Plaintext
16 lines
515 B
Plaintext
concrete IdiomAmh of Idiom = CatAmh ** open Prelude, ResAmh in {
|
|
flags coding=utf8;
|
|
----
|
|
---- flags optimize=all_subs ;
|
|
----
|
|
---- lin
|
|
---- ExistNP np =
|
|
---- mkClause "تهري" (agrP3 np.a.n) (insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
|
|
---- ImpersCl vp = mkClause "ِت" (agrP3 Sg) vp ;
|
|
---- GenericCl vp = mkClause "ْني" (agrP3 Sg) vp ;
|
|
----
|
|
---- ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
|
|
---- ProgrVP : VP -> VP ; -- be sleeping
|
|
}
|
|
|