%% Description: A Korean Grammar for a Left-Corner Parsing %% %% Writer: Minhaeng Lee %% %% °ü·Ã¼º: Á¦ 3 Àå %% %% Name: kpsg_lc.pl %% :- op(1200,xfx,--->). :- consult('lcparser.pl'). %% Rules %% sc(sc(S,C)) ---> [smax(S), conj(C)]. % line 1 smax(smax(S,mood(M))) ---> [s(S), mood(M)]. % line 2 s(s(KP,T)) ---> [kp(KP),tp(T)]. % line 3 s(s(S1,C,S2)) ---> [s(S1),coord(C), s(S2)]. % line 4 relcl(relcl(KP,T)) ---> [kp(KP),tp_eps(T)]. % line 5 relcl(relcl(T)) ---> [tp(T)]. relcl(relcl(RelCL1,C,RelCL2)) ---> [relcl(RelCL1),coord(C),relcl(RelCL2)]. tp_eps(tp(V)) ---> [vp_eps(V)]. tp_eps(tp(VP,T)) ---> [vp_eps(VP),t(T)]. tp_eps(tp(TP,C,TP1)) ---> [tp_eps(TP),coord(C),tp_eps(TP1)]. vp_eps(vp_eps(kp(eps),V)) ---> [v2(V)]. vp_eps(vp_eps(kp(eps),KP,V)) ---> [kp(KP),v3(V)]. kp(kp(DP,P)) ---> [dp(DP),k(P)]. pp(pp(DP,P)) ---> [dp(DP),p(P)]. dp(dp(D)) ---> [npr(D)]. npr(npr(RelCL,NPR)) ---> [relcl(RelCL),npr(NPR)]. dp(dp(D1,C,D2)) ---> [dp(D1),coord(C),dp(D2)]. npr(npr(D1,C,D2)) ---> [npr(D1),coord(C),npr(D2)]. dp(dp(N)) ---> [n_bar(N)]. dp(dp(Det,N1)) ---> [det(Det), n_bar(N1)]. n_bar(nbar(N1)) ---> [cn(N1)]. n_bar(nbar(PP,N1)) ---> [pp(PP),cn(N1)]. n_bar(nbar(DP,N1)) ---> [dp(DP),cn(N1)]. n_bar(nbar(RelCL,N1)) ---> [relcl(RelCL),cn(N1)]. tp(tp(V)) ---> [vp(V)]. tp(tp(VP,T)) ---> [vp(VP),t(T)]. tp(tp(TP,C,TP1)) ---> [tp(TP),coord(C),tp(TP1)]. vp(vp(V1)) ---> [v1(V1)]. vp(vp(KP,V2)) ---> [kp(KP),v2(V2)]. vp(vp(KP1,KP2,V3)) ---> [kp(KP1),kp(KP2),v3(V3)]. vp(vp(KP,ADV,V)) ---> [kp(KP),adv(ADV),v2(V)]. vp(vp(S,V)) ---> [sc(S),vc(V)]. vp(vp(VP,C,VP1)) ---> [vp(VP),coord(C),vp(VP1)]. %% Lexicon %% word('Åä´Ï¿À',npr(pn('Åä´Ï¿À'))). word('Çѽº',npr(pn('Çѽº'))). word('À׿¡',npr(pn('À׿¡'))). word('ÅÂÁö',npr(pn('ÅÂÁö'))). word('¹Ì¹Ì',npr(pn('¹Ì¹Ì'))). word('¼öÇÑ',npr(pn('¼öÇÑ'))). word('¹Î¼ö',npr(pn('¹Î¼ö'))). word('¿µ¹Ì',npr(pn('¿µ¹Ì'))). word('ÀÚ',v1(v('ÀÚ'))). word('ÀÐ',v2(v('ÀÐ'))). word('ÁÁ¾ÆÇÏ',v2(v('ÁÁ¾ÆÇÏ'))). word('°áÈ¥ÇÏ',v2(v('°áÈ¥ÇÏ'))). word('»ç¶ûÇÏ',v2(v('»ç¶ûÇÏ'))). word('Èì¸ðÇÏ',v2(v('Èì¸ðÇÏ'))). word('µè',v2(v('µè'))). word('º¸',v2(v('º¸'))). word('¸¸³ª',v2(v('¸¸³ª'))). word('ÇÏ',v2(v('ÇÏ'))). word('ÁÖ',v3(v('ÁÖ'))). word('¼±¹°ÇÏ',v3(v('¼±¹°ÇÏ'))). word('¹Ï',vc(v('¹Ï'))). word('¾à¼ÓÇÏ',vc(v('¾à¼ÓÇÏ'))). word('¼³µæÇÏ',vc(v('¼³µæÇÏ'))). word('ÁøÁ¤',adv(adv('ÁøÁ¤'))). word('¾îÁ¦',adv(adv('¾îÁ¦'))). word('°°ÀÌ',adv(adv('°°ÀÌ'))). word('ÇÑ',det(det('ÇÑ'))). word('±×',det(det('±×'))). word('ÀÌ',det(det('ÀÌ'))). word('Æí',dn(dn('Æí'))). word('Ã¥',cn(cn('Ã¥'))). word('²É',cn(cn('²É'))). word('À½¾Ç',cn(cn('À½¾Ç'))). word('¿¬±Ø',cn(cn('¿¬±Ø'))). word('¿µÈ­',cn(cn('¿µÈ­'))). word('¿©µ¿»ý',cn(cn('¿©µ¿»ý'))). word('±ØÀå',cn(cn('±ØÀå'))). word('°¡',k(case('°¡'))). word('ÀÌ',k(case('ÀÌ'))). word('´Â',k(case('´Â'))). word('Àº',k(case('Àº'))). word('À»',k(case('À»'))). word('¸¦',k(case('¸¦'))). word('¿Í',k(case('¿Í'))). word('¿¡',k(case('¿¡'))). word('ÀÇ',k(case('ÀÇ'))). word('¿¡°Ô',k(case('¿¡°Ô'))). word('¿Í',p(p('¿Í'))). word('¿¡¼­',p(p('¿¡¼­'))). word('°í',coord(coord('°í'))). word('¿Í',coord(coord('¿Í'))). word('°í',conj(conj('°í'))). word('¤¤',t(pres('¤¤'))). word('´Â',t(pres('´Â'))). word('¤¶',t(past('¤¶'))). word('¾ú',t(past('¾ú'))). word('¿´',t(past('¿´'))). word('¾Ò',t(past('¾Ò'))). word('¤©',t(future('¤©'))). word('±â',e(nsuff('±â'))). word('°Ô',t(nsuff('°Ô'))). word('´Ù',mood('´Ù')). word('ÀÚ',mood('ÀÚ')).