(Kor) Misc. small additions

This commit is contained in:
Inari Listenmaa
2020-04-03 20:03:23 +02:00
parent 642b4b9f6b
commit 1c7bad313c
4 changed files with 16 additions and 11 deletions
+7 -2
View File
@@ -47,8 +47,13 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- PPartNP np v2 = np ** {
-- s = \\c => v2.s ! ??? ++ np.s ! c } ; ----
-- : NP -> Adv -> NP ; -- Paris today ; boys, such as ..
--AdvNP,ExtAdvNP = \np,adv -> np ** {} ;
-- : NP -> Adv -> NP ; -- Paris today
AdvNP np adv = np ** {
s = \\nf => adv.s ++ np.s ! nf
} ; -- TODO test
-- : NP -> Adv -> NP ; -- boys, such as ..
-- ExtAdvNP np adv = np ** {} ;
-- : NP -> RS -> NP ; -- Paris, which is here
-- RelNP np rs = np ** {