msyds/comp-syntax-gu-mlt
1
0
Fork 0
forked from GitHub/comp-syntax-gu-mlt
Code Pull Requests Activity

korean determiners

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-01-29 09:30:43 -07:00
parent 997b50276f
commit 8f07d8c73d
4 changed files with 37 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lab1/grammar/abstract/MicroLang.gf
View File

@@ -49,6 +49,11 @@ abstract MicroLang = {
aPl_Det : Det ; -- indefinite plural ---s aPl_Det : Det ; -- indefinite plural ---s
the_Det : Det ; -- definite singular ---s the_Det : Det ; -- definite singular ---s
thePl_Det : Det ; -- definite plural ---s thePl_Det : Det ; -- definite plural ---s
this_Det : Det ;
thisPl_Det: Det ;
that_Det : Det ;
thatPl_Det: Det ;
UseN : N -> CN ; -- house UseN : N -> CN ; -- house
AdjCN : AP -> CN -> CN ; -- big house AdjCN : AP -> CN -> CN ; -- big house
@@ -162,4 +167,4 @@ fun
yellow_A : A ; yellow_A : A ;
young_A : A ; young_A : A ;
} }

6
lab1/grammar/english/MicroLangEng.gf
View File

@@ -30,7 +30,7 @@ concrete MicroLangEng of MicroLang = open MicroResEng, Prelude in {
PredVPS np vp = { PredVPS np vp = {
s = np.s ! Nom ++ vp.verb.s ! agr2vform np.a ++ vp.compl s = np.s ! Nom ++ vp.verb.s ! agr2vform np.a ++ vp.compl
} ; } ;
UseV v = { UseV v = {
verb = v ; verb = v ;
compl = [] ; compl = [] ;
@@ -62,6 +62,10 @@ concrete MicroLangEng of MicroLang = open MicroResEng, Prelude in {
aPl_Det = {s = "" ; n = Pl} ; aPl_Det = {s = "" ; n = Pl} ;
the_Det = {s = "the" ; n = Sg} ; the_Det = {s = "the" ; n = Sg} ;
thePl_Det = {s = "the" ; n = Pl} ; thePl_Det = {s = "the" ; n = Pl} ;
this_Det = {s = "this"; n = Sg} ;
thisPl_Det = {s = "these"; n = Pl} ;
that_Det = {s = "that"; n = Sg} ;
thatPl_Det = {s = "those"; n = Pl} ;
UseN n = n ; UseN n = n ;

27
lab1/grammar/korean/MicroLangKor.gf
View File

@@ -23,6 +23,22 @@ concrete MicroLangKor of MicroLang = open MicroResKor, Prelude in {
N = Noun ; N = Noun ;
Adv = {s : Str} ; Adv = {s : Str} ;
lin
UttS s = s ;
UttNP np = {s = np.s} ;
UseV v = {verb = v ; compl = []} ;
ComplV2 v2 np = {verb = v2 ; compl = np.s};
UseN n = n ;
DetCN det cn = {s = det.s ++ cn.s} ;
a_Det = {s = []} ;
aPl_Det = {s = []} ;
the_Det = {s = []} ;
thePl_Det = {s = []} ;
this_Det = {s = "이"} ;
thisPl_Det = {s = "이"} ;
that_Det = {s = "그"} ;
thatPl_Det = {s = "그"} ;
----------------------------------------------------- -----------------------------------------------------
---------------- Lexicon part ----------------------- ---------------- Lexicon part -----------------------
----------------------------------------------------- -----------------------------------------------------
@@ -88,7 +104,7 @@ lin music_N = mkN "음악" ;
-- lin now_Adv = mkAdv "지금" ; -- lin now_Adv = mkAdv "지금" ;
-- lin old_A = mkA "낡안" ; -- lin old_A = mkA "낡안" ;
-- lin paris_PN = mkPN "Paris" ; -- lin paris_PN = mkPN "Paris" ;
-- lin play_V = mkV "play" ; lin play_V = mkV "놀" ;
-- lin read_V2 = mkV2 (mkV "read" "read" "read") ; -- lin read_V2 = mkV2 (mkV "read" "read" "read") ;
-- lin ready_A = mkA "ready" ; -- lin ready_A = mkA "ready" ;
-- lin red_A = mkA "red" ; -- lin red_A = mkA "red" ;
@@ -97,7 +113,7 @@ lin river_N = mkN "river" ;
lin sea_N = mkN "바다" ; lin sea_N = mkN "바다" ;
-- lin see_V2 = mkV2 (mkV "see" "saw" "seen") ; -- lin see_V2 = mkV2 (mkV "see" "saw" "seen") ;
lin ship_N = mkN "ship" ; lin ship_N = mkN "ship" ;
-- lin sleep_V = mkV "sleep" "slept" "slept" ; lin sleep_V = mkV "자" ;
-- lin small_A = mkA "작은" ; -- lin small_A = mkA "작은" ;
lin star_N = mkN "별" ; lin star_N = mkN "별" ;
-- lin swim_V = mkV "swim" "swam" "swum" ; -- lin swim_V = mkV "swim" "swam" "swum" ;
@@ -137,4 +153,11 @@ oper
mkPrep : Str -> Prep mkPrep : Str -> Prep
= \s -> lin Prep {s = s} ; = \s -> lin Prep {s = s} ;
mkV = overload {
mkV : Str -> V = \stem -> lin V {
stem = stem ;
reg = Regular ;
t = Action
};
} ;
} }

2
lab1/grammar/korean/MicroResKor.gf
View File

@@ -10,6 +10,6 @@ resource MicroResKor = open Prelude in {
stem : Str ; stem : Str ;
t : VerbType t : VerbType
} ; } ;
Verb2 : Type = { v : Verb } ; Verb2 : Type = Verb ;
Adjective : Type = Verb ; Adjective : Type = Verb ;
} }