mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
Inari Listenmaa
@@ -27,6 +27,7 @@ Jpn,Japanese,japanese,,,,,,,,y
|
||||
Kor,Korean,korean,,,n,y,y,y,n,n
|
||||
Lat,Latin,latin,,,,,y,y,n,y
|
||||
Lav,Latvian,latvian,,,,,,,y,y
|
||||
May,Malay,malay,,,y,,,,n,y
|
||||
Mlt,Maltese,maltese,,,,,,,,y
|
||||
Mon,Mongolian,mongolian,,,,,,n,,y
|
||||
Nep,Nepali,nepali,,,,,,n,,y
|
||||
|
||||
|
@@ -4,6 +4,11 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
|
||||
|
||||
lin
|
||||
|
||||
-- : AP -> Adv -> AP ; -- warm by nature
|
||||
AdvAP ap adv = ap ** {
|
||||
s = ap.s ++ adv.s ;
|
||||
} ;
|
||||
|
||||
-- : A -> AP ;
|
||||
PositA a = a ** {
|
||||
compar = [] ;
|
||||
@@ -39,6 +44,8 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
|
||||
-- AdjOrd ord = ord ** {
|
||||
-- compar = []
|
||||
-- } ;
|
||||
-- AdjOrd : Ord -> AP =
|
||||
AdjOrd ord = ord ;
|
||||
|
||||
-- Sentence and question complements defined for all adjectival
|
||||
-- phrases, although the semantics is only clear for some adjectives.
|
||||
@@ -56,7 +63,6 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
|
||||
|
||||
-- It can also be postmodified by an adverb, typically a prepositional phrase.
|
||||
|
||||
-- : AP -> Adv -> AP ; -- warm by nature
|
||||
-- AdvAP ap adv = ap ** {} ;
|
||||
|
||||
|
||||
}
|
||||
|
||||
@@ -13,6 +13,8 @@ lin
|
||||
-- : Prep -> NP -> Adv ;
|
||||
PrepNP prep np = {s = applyPrep prep np} ;
|
||||
|
||||
-- PrepNP to_Prep (UsePron youSg_Pron)
|
||||
|
||||
-- Adverbs can be modified by 'adadjectives', just like adjectives.
|
||||
|
||||
--AdAdv : AdA -> Adv -> Adv ; -- very quickly
|
||||
|
||||
@@ -3,6 +3,6 @@
|
||||
concrete AllMay of AllMayAbs =
|
||||
LangMay,
|
||||
ExtendMay
|
||||
** {
|
||||
** open ParadigmsMay in {
|
||||
lin sing_V2 = mkV2 "nyanyi" ;
|
||||
} ;
|
||||
|
||||
@@ -120,4 +120,16 @@ concrete CatMay of Cat = CommonX - [IAdv] ** open ResMay, Prelude in {
|
||||
N2 = ResMay.Noun2 ;
|
||||
N3 = ResMay.Noun3 ;
|
||||
PN = ResMay.PNoun ;
|
||||
|
||||
linref
|
||||
CN = \cn -> cn.s ! NF Sg Bare ++ cn.heavyMod;
|
||||
ClSlash = \cl -> cl.subj ++ cl.pred ! Root ! Pos ++ cl.c2.s;
|
||||
RCl = \cl -> cl.subj ++ cl.pred ! P1 ! Pos;
|
||||
Cl = \cl -> cl.subj ++ cl.pred ! Active ! Pos;
|
||||
Det = linDet ;
|
||||
}
|
||||
|
||||
-- Determiner : Type = Quant ** {
|
||||
-- pr : Str ; -- prefix for numbers
|
||||
-- n : NumType ; -- number as in 5 (noun in singular), Sg or Pl
|
||||
-- } ;
|
||||
@@ -1,8 +1,105 @@
|
||||
--# -path=.:../common:../abstract
|
||||
|
||||
concrete ExtendMay of Extend = CatMay
|
||||
-- ** ExtendFunctor - []
|
||||
-- with (Grammar=GrammarMay)
|
||||
** open Prelude, ResMay, NounMay in {
|
||||
** ExtendFunctor - [
|
||||
VPS -- finite VP's with tense and polarity
|
||||
, ListVPS
|
||||
, VPI
|
||||
, ListVPI -- infinitive VP's (TODO: with anteriority and polarity)
|
||||
, MkVPS
|
||||
, PredVPS
|
||||
|
||||
-- excluded because RGL funs needed for them not implemented yet
|
||||
, SlashBareV2S
|
||||
, PredAPVP
|
||||
, ComplBareVS
|
||||
|
||||
|
||||
,PresPartAP, PastPartAP
|
||||
,GenModNP, GenNP, GenRP
|
||||
,CompoundN
|
||||
,GerundNP
|
||||
|
||||
|
||||
-- VPS2 ; -- have loved (binary version of VPS)
|
||||
-- [VPS2] {2} ; -- has loved, hates"
|
||||
-- VPI2 ; -- to love (binary version of VPI)
|
||||
-- [VPI2] {2} ; -- to love, to hate
|
||||
|
||||
]
|
||||
with (Grammar=GrammarMay)
|
||||
** open Prelude, Coordination, ResMay, NounMay in {
|
||||
lincat
|
||||
VPS, VPI = SS ;
|
||||
ListVPS, ListVPI = ListX ;
|
||||
lin
|
||||
-- MkVPS : Temp -> Pol -> VP -> VPS ; -- hasn't slept
|
||||
MkVPS t p vp = {
|
||||
s = t.s ++ p.s ++ vp.s ! Active ! p.p;
|
||||
} ;
|
||||
|
||||
-- BaseVPS : VPS -> VPS -> ListVPS ;
|
||||
BaseVPS vps vps2 = twoSS vps vps2 ;
|
||||
-- ConsVPS : VPS -> ListVPS -> ListVPS ;
|
||||
ConsVPS str listvps vps = consSS "," listvps vps ;
|
||||
-- ConjVPS : Conj -> [VPS] -> VPS ; -- has walked and won't sleep
|
||||
ConjVPS conj listvps = conjunctX conj listvps ;
|
||||
-- PredVPS : NP -> VPS -> S ; -- she [has walked and won't sleep]
|
||||
PredVPS np vps = {
|
||||
s = np.s ! Bare ++ vps.s ;
|
||||
} ;
|
||||
-- SQuestVPS : NP -> VPS -> QS ; -- has she walked
|
||||
-- QuestVPS : IP -> VPS -> QS ; -- who has walked
|
||||
-- RelVPS : RP -> VPS -> RS ; -- which won't sleep
|
||||
|
||||
-- MkVPI : VP -> VPI ; -- to sleep (TODO: Ant and Pol)
|
||||
MkVPI vp = {s = linVP vp} ;
|
||||
|
||||
|
||||
-- BaseVPI : VPI -> VPI -> ListVPI ;
|
||||
BaseVPI vpi vpi2 = twoSS vpi vpi2 ;
|
||||
-- ConsVPI : VPI -> ListVPI -> ListVPI ;
|
||||
ConsVPI str listvpi vpi = consSS "," listvpi vpi ;
|
||||
|
||||
-- ConjVPI : Conj -> [VPI] -> VPI ; -- to sleep and to walk
|
||||
-- ComplVPIVV : VV -> VPI -> VP ; -- must sleep and walk
|
||||
ComplVPIVV vv vpi = useV {
|
||||
s = \\vf => vv.s ++ vpi.s
|
||||
} ;
|
||||
|
||||
-- PresPartAP : VP -> AP ; -- (the man) looking at Mary
|
||||
PresPartAP vp = {
|
||||
s = linVP vp
|
||||
} ;
|
||||
|
||||
PastPartAP vp = {
|
||||
s = linVP vp
|
||||
} ;
|
||||
-- GenModNP : Num -> NP -> CN -> NP ; -- this man's car(s)
|
||||
GenModNP n np cn = variants {};
|
||||
|
||||
-- GenNP : NP -> Quant ; -- this man's
|
||||
GenNP np = variants {};
|
||||
-- GenRP : Num -> CN -> RP ; -- whose car
|
||||
GenRP n cn = variants {};
|
||||
|
||||
-- CompoundN : N -> N -> N ; -- control system / controls system / control-system
|
||||
CompoundN n1 n2 = n2 ** {
|
||||
s = \\nf => n1.s ! NF Sg Bare ++ n2.s ! nf
|
||||
} ;
|
||||
-- GerundNP : VP -> NP ; -- publishing the document (by nature definite)
|
||||
GerundNP vp = emptyNP ** {
|
||||
s = \\_ => linVP vp
|
||||
} ;
|
||||
|
||||
|
||||
-- MkVPS2 : Temp -> Pol -> VPSlash -> VPS2 ; -- has loved
|
||||
-- ConjVPS2 : Conj -> [VPS2] -> VPS2 ; -- has loved and now hates
|
||||
-- ComplVPS2 : VPS2 -> NP -> VPS ; -- has loved and now hates that person
|
||||
-- ReflVPS2 : VPS2 -> RNP -> VPS ; -- have loved and now hate myself and my car
|
||||
|
||||
-- MkVPI2 : VPSlash -> VPI2 ; -- to love
|
||||
-- ConjVPI2 : Conj -> [VPI2] -> VPI2 ; -- to love and hate
|
||||
-- ComplVPI2 : VPI2 -> NP -> VPI ; -- to love and hate that person
|
||||
|
||||
} ;
|
||||
|
||||
@@ -9,7 +9,7 @@ concrete GrammarMay of Grammar =
|
||||
RelativeMay,
|
||||
ConjunctionMay,
|
||||
PhraseMay,
|
||||
TextX - [IAdv],
|
||||
TextX - [AAnter, TFut, TCond, IAdv],
|
||||
StructuralMay,
|
||||
IdiomMay,
|
||||
TenseX - [AAnter, TFut, TCond, IAdv]
|
||||
@@ -17,9 +17,8 @@ concrete GrammarMay of Grammar =
|
||||
|
||||
flags startcat = Phr ;
|
||||
|
||||
lin
|
||||
AAnter = {s = "sudah" ; a = ParamX.Anter} ;
|
||||
TFut = {s = "akan" ; t = ParamX.Fut} ;
|
||||
TCond = {s = "akan" ; t = ParamX.Cond} ;
|
||||
lin AAnter = {s = "sudah" ; a = ParamX.Anter} ; --# notpresent
|
||||
TFut = {s = "akan" ; t = ParamX.Fut} ; --# notpresent
|
||||
TCond = {s = "akan" ; t = ParamX.Cond} ; --# notpresent
|
||||
|
||||
} ;
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
|
||||
--1 Idiom: Idiomatic Expressions
|
||||
|
||||
concrete IdiomMay of Idiom = CatMay ** open Prelude, ResMay, VerbMay, NounMay, StructuralMay in {
|
||||
concrete IdiomMay of Idiom = CatMay ** open Prelude, ResMay, VerbMay, QuestionMay, NounMay, StructuralMay in {
|
||||
|
||||
-- This module defines constructions that are formed in fixed ways,
|
||||
-- often different even in closely related languages.
|
||||
@@ -14,10 +14,17 @@ concrete IdiomMay of Idiom = CatMay ** open Prelude, ResMay, VerbMay, NounMay, S
|
||||
subj = [] ;
|
||||
pred = \\vf,pol => vp.s ! Root ! pol -- force no prefix -- TODO check if legit?
|
||||
} ;
|
||||
{-
|
||||
-- GenericCl : VP -> Cl ; -- one sleeps
|
||||
GenericCl = \vp -> predVP impersNP (passVP vp) ;
|
||||
|
||||
-- : NP -> Cl ; -- there is a house
|
||||
ExistNP np = predVP np (useV copula) ;
|
||||
|
||||
-- ExistIP : IP -> QCl ; -- which houses are there
|
||||
ExistIP ip = QuestVP ip (useV copula) ;
|
||||
|
||||
-- GenericCl : VP -> Cl ; -- one sleeps
|
||||
GenericCl = \vp -> predVP emptyNP vp ;
|
||||
|
||||
{-
|
||||
CleftNP : NP -> RS -> Cl ; -- it is I who did it
|
||||
CleftAdv : Adv -> S -> Cl ; -- it is here she slept
|
||||
|
||||
|
||||
@@ -4,54 +4,54 @@ concrete LexiconMay of Lexicon = CatMay **
|
||||
----
|
||||
-- A
|
||||
|
||||
-- lin add_V3 = mkV3 "" ;
|
||||
-- lin airplane_N = mkN "" ;
|
||||
-- lin add_V3 = mkV3 "tambah" ;
|
||||
lin airplane_N = mkN "kapal terbang" ;
|
||||
-- lin alas_Interj = mkInterj "" ;
|
||||
-- lin already_Adv = mkA "" ;
|
||||
-- lin animal_N = mkN "동물" ;
|
||||
-- lin answer_V2S = mkV2S "" ;
|
||||
-- lin apartment_N = mkN "" ;
|
||||
-- lin apple_N = mkN "" ;
|
||||
-- lin art_N = mkN "" ;
|
||||
-- lin ashes_N = mkN "" ;
|
||||
-- lin ask_V2Q = mkV2 "" ;
|
||||
lin already_Adv = mkA "sudah" ;
|
||||
lin animal_N = mkN "haiwan" ;
|
||||
-- lin answer_V2S = mkV2S "jawab" ;
|
||||
lin apartment_N = mkN "pangsapuri" ;
|
||||
lin apple_N = mkN "epal" ;
|
||||
lin art_N = mkN "seni" ;
|
||||
lin ashes_N = mkN "abu" ;
|
||||
lin ask_V2Q = mkV2 "tanya" ;
|
||||
|
||||
----
|
||||
-- B
|
||||
|
||||
-- lin baby_N = mkN "" ;
|
||||
-- lin back_N = mkN "" ;
|
||||
lin baby_N = mkN "bayi" Animate ;
|
||||
lin back_N = mkN "belakang" ;
|
||||
-- lin bad_A = mkA "" ;
|
||||
-- lin bank_N = mkN "" ;
|
||||
lin bank_N = mkN "bank" ;
|
||||
-- lin bark_N = mkN "" ;
|
||||
lin beautiful_A = mkA "cantik" ;
|
||||
-- lin become_VA = mkVA "" ;
|
||||
-- lin beer_N = mkN "" ;
|
||||
-- lin become_VA = mkVA "jadi" ;
|
||||
lin beer_N = mkN "bir" ;
|
||||
-- lin beg_V2V = mkV2 "" ;
|
||||
-- lin belly_N = mkN "" ;
|
||||
-- lin big_A = mkA "" ;
|
||||
-- lin bike_N = mkN "" ;
|
||||
-- lin bird_N = mkN "" ;
|
||||
lin big_A = mkA "besar" ;
|
||||
lin bike_N = mkN "basikal" ;
|
||||
lin bird_N = mkN "burung" ;
|
||||
-- lin bite_V2 = mkV2 "" ;
|
||||
lin black_A = mkA "hitam" ;
|
||||
-- lin blood_N = mkN "" ;
|
||||
lin blood_N = mkN "darah" ;
|
||||
-- lin blow_V = mkV "" ;
|
||||
-- lin blue_A = mkA "" ;
|
||||
-- lin boat_N = mkN "" ;
|
||||
-- lin bone_N = mkN "" ;
|
||||
lin blue_A = mkA "biru" ;
|
||||
lin boat_N = mkN "perahu" ;
|
||||
lin bone_N = mkN "tulang" ;
|
||||
-- lin boot_N = mkN "" ;
|
||||
-- lin boss_N = mkN "" ;
|
||||
lin book_N = mkN "buku" ;
|
||||
-- lin boy_N = mkN "" ;
|
||||
-- lin bread_N = mkN "" ;
|
||||
lin break_V2 = mkV2 "patahkan" ; -- TODO figure out if -kan needs to be separated
|
||||
lin bread_N = mkN "roti" ;
|
||||
lin break_V2 = mkV4 "patah" "kan"; -- TODO figure out if -kan needs to be separated
|
||||
-- lin breast_N = mkN "" ;
|
||||
-- lin breathe_V = mkV "" ;
|
||||
-- lin broad_A = mkA "" ;
|
||||
-- lin brother_N2 = mkN "" ;
|
||||
-- lin brother_N2 = mkN "abang" Animate;
|
||||
-- lin brown_A = mkA "" ;
|
||||
-- lin burn_V = mkV "" ;
|
||||
-- lin butter_N = mkN "" ;
|
||||
lin burn_V = mkV "bakar" ;
|
||||
lin butter_N = mkN "mentega" ;
|
||||
lin buy_V2 = mkV2 "beli" ;
|
||||
|
||||
----
|
||||
@@ -68,10 +68,10 @@ lin cat_N = mkN "kucing" ;
|
||||
-- lin child_N = mkN "" ;
|
||||
-- lin church_N = mkN "" ;
|
||||
-- lin city_N = mkN "" ;
|
||||
-- lin clean_A = mkA "" ;
|
||||
lin clean_A = mkA "bersih" ;
|
||||
-- lin clever_A = mkA "" ;
|
||||
-- lin close_V2 = mkV2 "" ;
|
||||
-- lin cloud_N = mkN "" ;
|
||||
lin cloud_N = mkN "awan" ;
|
||||
-- lin coat_N = mkN "" ;
|
||||
-- lin cold_A = mkA "" ;
|
||||
lin come_V = mkV "datang" ;
|
||||
@@ -80,7 +80,7 @@ lin come_V = mkV "datang" ;
|
||||
-- lin count_V2 = mkV2 "" ;
|
||||
-- lin country_N = mkN "" ;
|
||||
-- lin cousin_N = mkN "" ;
|
||||
-- lin cow_N = mkN "" ;
|
||||
lin cow_N = mkN "embu" ;
|
||||
-- lin cut_V2 = mkV2 "" ;
|
||||
|
||||
----
|
||||
@@ -94,8 +94,10 @@ lin come_V = mkV "datang" ;
|
||||
-- lin do_V2 = lin V2 egin_V ;
|
||||
-- lin doctor_N = mkN "" ;
|
||||
lin dog_N = mkN "anjing" ;
|
||||
-- lin door_N = mkN "" ;
|
||||
lin drink_V2 = mkV2 "minum" ;
|
||||
lin door_N = mkN "pintu" ;
|
||||
lin drink_V2 = let drink' : V2 = mkV2 "minum" in drink' ** {
|
||||
s = \\_ => "minum" ;
|
||||
};
|
||||
-- lin dry_A = mkA "" ;
|
||||
-- lin dull_A = mkA "" ;
|
||||
-- lin dust_N = mkN "" ;
|
||||
@@ -105,7 +107,9 @@ lin drink_V2 = mkV2 "minum" ;
|
||||
|
||||
-- lin ear_N = mkN "" ;
|
||||
-- lin earth_N = mkN "" ;
|
||||
lin eat_V2 = mkV2 "makan" ;
|
||||
lin eat_V2 = let eat' : V2 = mkV2 "makan" in eat' ** {
|
||||
s = \\_ => "makan" ;
|
||||
};
|
||||
-- lin egg_N = mkN "" ;
|
||||
-- lin empty_A = mkA "" ;
|
||||
-- lin enemy_N = mkN "" ;
|
||||
@@ -148,7 +152,7 @@ lin father_N2 = mkN2 "bapa" ;
|
||||
|
||||
-- lin garden_N = mkN "" ;
|
||||
-- lin girl_N = mkN "" ;
|
||||
lin give_V3 = mkV3 (mkV "beri" Meng) emptyPrep datPrep ;
|
||||
lin give_V3 = mkV3 (mkV "beri" Meng) emptyPrep datPrep ; -- memberi for living and memberikan for nonliving
|
||||
-- lin glove_N = mkN "" ;
|
||||
lin go_V = mkV "pergi" ;
|
||||
-- lin gold_N = mkN "" ;
|
||||
@@ -186,7 +190,7 @@ lin house_N = mkN "rumah" ;
|
||||
-- lin ice_N = mkN "" ;
|
||||
-- lin industry_N = mkN "" ;
|
||||
-- lin iron_N = mkN "" ;
|
||||
-- lin john_PN = mkPN "" ;
|
||||
lin john_PN = mkPN "Yohanes" ;
|
||||
-- lin jump_V = mkV "" ;
|
||||
-- lin kill_V2 = mkV2 "" ;
|
||||
lin king_N = mkN "raja" ;
|
||||
@@ -220,7 +224,11 @@ lin long_A = mkA "panjang" ;
|
||||
-- lin lose_V2 = mkV2 "" ;
|
||||
-- lin louse_N = mkN "" ;
|
||||
-- lin love_N = mkN "" ;
|
||||
lin love_V2 = mkV2 "cinta" ;
|
||||
-- lin love_V2 = let love' : V2 = mkV2 "cinta" in love' ** {
|
||||
-- s = \\_ => "mencintai" ;
|
||||
-- passive = "dicintai" ;
|
||||
-- } ;
|
||||
lin love_V2 = mkV4 "cinta" "i";
|
||||
|
||||
----
|
||||
-- M
|
||||
@@ -255,7 +263,7 @@ lin now_Adv = mkAdv "sekarang" ;
|
||||
|
||||
-- lin oil_N = mkN "" ;
|
||||
lin old_A = mkA "tua" ;
|
||||
-- lin open_V2 = mkV2 "" ;
|
||||
lin open_V2 = mkV2 "buka" ;
|
||||
lin paint_V2A = mkV2 "cat" ;
|
||||
-- lin paper_N = mkN "" ;
|
||||
-- lin paris_PN = mkPN "Paris" ;
|
||||
@@ -296,7 +304,7 @@ lin read_V2 = mkV2 "baca" ;
|
||||
-- lin round_A = mkA "" ;
|
||||
-- lin rub_V2 = mkV2 "" ;
|
||||
-- lin rubber_N = mkN "" ;
|
||||
-- lin rule_N = mkN "" ;
|
||||
lin rule_N = mkN "peraturan" ;
|
||||
-- lin run_V = mkV "" ;
|
||||
|
||||
----
|
||||
@@ -312,7 +320,7 @@ lin science_N = mkN "sains" ;
|
||||
lin see_V2 = mkV2 "lihat" ;
|
||||
-- lin seed_N = mkN "" ;
|
||||
-- lin seek_V2 = mkV2 "" ;
|
||||
lin sell_V3 = mkV3 (mkV "jual" Meng) emptyPrep emptyPrep ; -- TODO
|
||||
-- lin sell_V3 = mkV3 (mkV "jual" Meng) emptyPrep emptyPrep ; -- TODO
|
||||
-- lin send_V3 = mkV3 "" ;
|
||||
-- lin sew_V = mkV "" ;
|
||||
-- lin sharp_A = mkA "" ;
|
||||
@@ -347,7 +355,7 @@ lin song_N = mkN "lagu" ;
|
||||
-- lin steel_N = mkN "" ;
|
||||
-- lin stick_N = mkN "" ;
|
||||
-- lin stone_N = mkN "" ;
|
||||
-- lin stop_V = mkV "" ;
|
||||
lin stop_V = mkV "henti" ;
|
||||
-- lin stove_N = mkN "" ;
|
||||
-- lin straight_A = mkA "" ;
|
||||
-- lin student_N = mkN "" ;
|
||||
@@ -414,7 +422,7 @@ lin woman_N = mkN "perempuan" ;
|
||||
-- lin wonder_VQ = mkVQ "" ;
|
||||
-- lin wood_N = mkN "" ;
|
||||
-- lin worm_N = mkN "" ;
|
||||
-- lin write_V2 = mkV2 "" ;
|
||||
lin write_V2 = mkV2 "tulis" ;
|
||||
-- lin year_N = mkN "" ;
|
||||
-- lin yellow_A = mkA "" ;
|
||||
lin young_A = mkA "muda" ;
|
||||
|
||||
@@ -9,8 +9,6 @@ oper AdjCN : AP -> CN -> CN = notYet "AdjCN" ;
|
||||
oper AdjDAP : DAP -> AP -> DAP = notYet "AdjDAP" ;
|
||||
oper AdjOrd : Ord -> AP = notYet "AdjOrd" ;
|
||||
oper AdnCAdv : CAdv -> AdN = notYet "AdnCAdv" ;
|
||||
oper AdvAP : AP -> Adv -> AP = notYet "AdvAP" ;
|
||||
oper AdvCN : CN -> Adv -> CN = notYet "AdvCN" ;
|
||||
oper AdvIAdv : IAdv -> Adv -> IAdv = notYet "AdvIAdv" ;
|
||||
oper AdvIP : IP -> Adv -> IP = notYet "AdvIP" ;
|
||||
oper AdvNP : NP -> Adv -> NP = notYet "AdvNP" ;
|
||||
@@ -114,7 +112,6 @@ oper Use2N3 : N3 -> N2 = notYet "Use2N3" ;
|
||||
oper Use3N3 : N3 -> N2 = notYet "Use3N3" ;
|
||||
oper UseA2 : A2 -> AP = notYet "UseA2" ;
|
||||
oper UseComparA : A -> AP = notYet "UseComparA" ;
|
||||
oper UsePN : PN -> NP = notYet "UsePN" ;
|
||||
oper UseQCl : Temp -> Pol -> QCl -> QS = notYet "UseQCl" ;
|
||||
oper UseSlash : Temp -> Pol -> ClSlash -> SSlash = notYet "UseSlash" ;
|
||||
oper UttAP : AP -> Utt = notYet "UttAP" ;
|
||||
@@ -192,7 +189,6 @@ oper but_PConj : PConj = notYet "but_PConj" ;
|
||||
oper butter_N : N = notYet "butter_N" ;
|
||||
oper camera_N : N = notYet "camera_N" ;
|
||||
oper can8know_VV : VV = notYet "can8know_VV" ;
|
||||
oper can_VV : VV = notYet "can_VV" ;
|
||||
oper cap_N : N = notYet "cap_N" ;
|
||||
oper carpet_N : N = notYet "carpet_N" ;
|
||||
oper ceiling_N : N = notYet "ceiling_N" ;
|
||||
@@ -363,7 +359,6 @@ oper mountain_N : N = notYet "mountain_N" ;
|
||||
oper mouth_N : N = notYet "mouth_N" ;
|
||||
oper much_Det : Det = notYet "much_Det" ;
|
||||
oper music_N : N = notYet "music_N" ;
|
||||
oper must_VV : VV = notYet "must_VV" ;
|
||||
oper n_unit_CN : Card -> CN -> CN -> CN = notYet "n_unit_CN" ;
|
||||
oper n_units_AP : Card -> CN -> A -> AP = notYet "n_units_AP" ;
|
||||
oper n_units_of_NP : Card -> CN -> NP -> NP = notYet "n_units_of_NP" ;
|
||||
|
||||
@@ -19,8 +19,7 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
} ;
|
||||
|
||||
-- : PN -> NP ;
|
||||
-- UsePN pn = pn ** {
|
||||
-- } ;
|
||||
UsePN pn = MassNP (UseN pn) ;
|
||||
|
||||
-- : Pron -> NP ;
|
||||
UsePron pron = pron ** {
|
||||
@@ -40,7 +39,9 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
-- s = \\c => v2.s ! ??? ++ np.s ! c } ; ----
|
||||
|
||||
-- : NP -> Adv -> NP ; -- Paris today ; boys, such as ..
|
||||
--AdvNP,ExtAdvNP = \np,adv -> np ** {} ;
|
||||
AdvNP,ExtAdvNP = \np,adv -> np ** {
|
||||
s = \\pos => np.s ! pos ++ adv.s
|
||||
} ;
|
||||
|
||||
-- : NP -> RS -> NP ; -- Paris, which is here
|
||||
RelNP np rs = np ** {
|
||||
@@ -51,7 +52,7 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
|
||||
-- : Det -> NP ;
|
||||
DetNP det = emptyNP ** {
|
||||
s = \\_ => det.s ;
|
||||
s = \\_ => linDet det ;
|
||||
} ;
|
||||
|
||||
-- MassNP : CN -> NP ;
|
||||
@@ -68,13 +69,17 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
DetQuant quant num = quant ** {
|
||||
pr = num.s ; -- if it's not a number or digit, num.s is empty
|
||||
s = quant.s ;
|
||||
n = num.n
|
||||
n = num.n ;
|
||||
count = "ke" ++ BIND ++ num.s ++ BIND ++ "-" ++ BIND ++ num.s;
|
||||
} ;
|
||||
|
||||
-- : Quant -> Num -> Ord -> Det ; -- these five best
|
||||
-- DetQuantOrd quant num ord =
|
||||
-- let theseFive = DetQuant quant num in theseFive ** {
|
||||
-- } ;
|
||||
-- : Quant -> Num -> Ord -> Det ;
|
||||
DetQuantOrd quant num ord = quant ** {
|
||||
pr = num.s ;
|
||||
n = num.n ;
|
||||
s = ord.s ++ quant.s ;
|
||||
count = "" ;
|
||||
} ;
|
||||
|
||||
-- Whether the resulting determiner is singular or plural depends on the
|
||||
-- cardinal.
|
||||
@@ -107,18 +112,21 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
OrdDigits digs = digs ** { s = digs.s ! NOrd } ;
|
||||
-}
|
||||
-- : Numeral -> Ord ;
|
||||
-- OrdNumeral num = num ** {
|
||||
-- s = \\_ => num.ord
|
||||
-- } ;
|
||||
OrdNumeral num = {
|
||||
s = num.ord
|
||||
} ;
|
||||
|
||||
-- : A -> Ord ;
|
||||
-- OrdSuperl a = {
|
||||
-- } ;
|
||||
OrdSuperl a = {
|
||||
s = "ter" ++ BIND ++ a.s
|
||||
} ;
|
||||
|
||||
-- One can combine a numeral and a superlative.
|
||||
|
||||
-- : Numeral -> A -> Ord ; -- third largest
|
||||
-- OrdNumeralSuperl num a = num ** { } ;
|
||||
OrdNumeralSuperl num a = {
|
||||
s = num.ord ++ "ter" ++ BIND ++ a.s
|
||||
} ;
|
||||
|
||||
-- : Quant
|
||||
DefArt = mkQuant [] ;
|
||||
@@ -167,6 +175,11 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
heavyMod = cn.heavyMod ++ rs.s ! P3
|
||||
} ;
|
||||
|
||||
-- : CN -> Adv -> CN ;
|
||||
AdvCN cn adv = cn ** {
|
||||
heavyMod = cn.heavyMod ++ adv.s
|
||||
} ;
|
||||
|
||||
{-
|
||||
-- : CN -> Adv -> CN ;
|
||||
AdvCN cn adv = cn ** { } ;
|
||||
@@ -199,6 +212,14 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
-- : Det -> NP -> NP ;
|
||||
CountNP det np = np **
|
||||
{
|
||||
s = \\pos => det.count ++ np.s ! pos;
|
||||
} ; -- Nonsense for DefArt or IndefArt
|
||||
|
||||
|
||||
-- : CN -> NP -> CN ; -- glass of wine / two kilos of red apples
|
||||
-- PartNP cn np = cn ** {
|
||||
-- } ;
|
||||
|
||||
@@ -96,6 +96,7 @@ oper
|
||||
} ;
|
||||
|
||||
-- To make Sub* funs directly from a string.
|
||||
-- ordnumeral from here
|
||||
mkNum : Str -> LinNumber = \s -> {
|
||||
n = Pl ;
|
||||
s = \\_ => s ; -- Indep vs. Attrib only matters for number 1
|
||||
|
||||
@@ -9,6 +9,7 @@ oper
|
||||
-- should always use these constants instead of the constructors
|
||||
-- defined in $ResSom$.
|
||||
|
||||
noPrep : Prep = mkPrep "" ;
|
||||
|
||||
--2 Nouns
|
||||
|
||||
@@ -26,7 +27,9 @@ oper
|
||||
mkA : (adj : Str) -> A ;
|
||||
} ;
|
||||
|
||||
-- mkA2 : Str -> Prep -> A2 ;
|
||||
mkA2 : overload {
|
||||
mkA2 : (adj : Str) -> Prep -> A2 ;
|
||||
} ;
|
||||
|
||||
--2 Verbs
|
||||
|
||||
@@ -56,8 +59,10 @@ oper
|
||||
-- = \s -> lin VA (regV s) ;
|
||||
-- mkVQ : Str -> VQ
|
||||
-- = \s -> lin VQ (regV s) ;
|
||||
-- mkVS : Str -> VS
|
||||
-- = \s -> lin VS (regV s) ;
|
||||
mkVS : overload {
|
||||
mkV : (root : Str) -> V ; -- Verb that takes meng as a active prefix
|
||||
mkV : (root : Str) -> Prefix -> V -- Root and prefix
|
||||
} ;
|
||||
--
|
||||
-- mkV2A : Str -> V2A
|
||||
-- = \s -> lin V2A (regV s ** {c2 = noPrep}) ;
|
||||
@@ -93,6 +98,7 @@ oper
|
||||
|
||||
mkN = overload {
|
||||
mkN : Str -> N = \s -> lin N (mkNoun s) ;
|
||||
mkN : Str -> Animacy -> N = \s,a -> lin N (mkNoun s) ;
|
||||
} ;
|
||||
|
||||
|
||||
@@ -101,6 +107,12 @@ oper
|
||||
mkN2 : N -> N2 = \n -> lin N2 (n ** {c2 = dirPrep}) ;
|
||||
} ;
|
||||
|
||||
mkN3 = overload {
|
||||
mkN3 : Str -> N3 = \s -> lin N3 (mkNoun s ** {c2,c3 = dirPrep}) ;
|
||||
mkN3 : N -> N3 = \n -> lin N3 (n ** {c2,c3 = dirPrep}) ;
|
||||
mkN3 : N -> Prep -> Prep -> N3 = \n,c2,c3 -> lin N3 (n ** {c2,c3 = dirPrep}) ;
|
||||
} ;
|
||||
|
||||
mkPN = overload {
|
||||
mkPN : Str -> PN = \s -> lin PN {s = \\_ => s} ;
|
||||
} ;
|
||||
@@ -109,6 +121,11 @@ oper
|
||||
mkA : (adj : Str) -> A = \s -> lin A (mkAdj s) ;
|
||||
} ;
|
||||
|
||||
mkA2 = overload {
|
||||
mkA2 : (adj : Str) -> A = \s -> lin A2 (mkAdj s) ;
|
||||
mkA2 : A -> Prep -> A = \a,p -> lin A2 (a) ;
|
||||
} ;
|
||||
|
||||
mkV = overload {
|
||||
mkV : Str -> V = \v -> lin V (mkVerb v Ber) ;
|
||||
mkV : Str -> Prefix -> V = \v,p -> lin V (mkVerb v p)
|
||||
@@ -133,6 +150,12 @@ oper
|
||||
lin V3 (mkVerb3 v p q)
|
||||
} ;
|
||||
|
||||
mkV4 = overload {
|
||||
mkV4 : Str -> Str -> V2 = \v2,str ->
|
||||
lin V2 (mkVerb4 (mkVerb v2 Meng) dirPrep str) ;
|
||||
mkV4 : V -> Prep -> Str -> V2 = \v,p,str -> lin V2 (mkVerb4 v p str)
|
||||
} ;
|
||||
|
||||
mkVV = overload {
|
||||
mkVV : Str -> VV = \vv -> lin VV (ss vv)
|
||||
} ;
|
||||
|
||||
@@ -85,6 +85,8 @@ param
|
||||
|
||||
NPAgr = NotPron | IsPron Person ;
|
||||
|
||||
Animacy = Animate | Inanimate ;
|
||||
|
||||
oper
|
||||
poss2str : Possession -> Str = \p -> case p of {
|
||||
Bare => [] ;
|
||||
@@ -130,12 +132,17 @@ param
|
||||
param
|
||||
PrepType = DirObj | EmptyPrep | OtherPrep ;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Adverbs
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Verbs
|
||||
param
|
||||
VForm =
|
||||
Root -- infinitive, imperative, …
|
||||
| Active
|
||||
| Imperative
|
||||
;
|
||||
|
||||
Prefix =
|
||||
|
||||
@@ -8,16 +8,15 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
|
||||
UttIAdv iadv = iadv ;
|
||||
UttNP np = {s = np.s ! Bare} ;
|
||||
UttIP ip = {s = ip.sp ! NF Sg Bare} ;
|
||||
UttImpSg pol imp = { s = pol.s ++ imp.s ! Sg ! pol.p } ;
|
||||
UttImpPol pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p} ;
|
||||
UttVP vp = {s = linVP vp} ;
|
||||
UttAP ap = { s = ap.s } ;
|
||||
{-
|
||||
UttImpSg pol imp =
|
||||
UttImpPl pol imp =
|
||||
UttImpPol = UttImpSg ;
|
||||
|
||||
UttVP vp = {s = } ;
|
||||
UttAdv adv = {s = } ;
|
||||
UttCN n = {s = } ;
|
||||
UttCard n = {s = } ;
|
||||
UttAP ap = { s = ap.s ! } ;
|
||||
UttInterj i = i ;
|
||||
-}
|
||||
NoPConj = {s = []} ;
|
||||
|
||||
@@ -21,7 +21,8 @@ lin
|
||||
-- if isPre is True, then: "berapa kucing"
|
||||
s = case iquant.isPre of { False => iquant.s ; True => [] };
|
||||
-- if isPre is False, use s: "kucing berapa"
|
||||
n = num.n
|
||||
n = num.n ;
|
||||
count = "" ;
|
||||
} ;
|
||||
|
||||
-- : IP -> ClSlash -> QCl ; -- whom does John love
|
||||
@@ -59,7 +60,6 @@ lin
|
||||
} ;
|
||||
} ;
|
||||
|
||||
|
||||
-- : IP -> IComp ;
|
||||
CompIP ip = {s = ip.s ! Bare } ; -- who (is it)
|
||||
|
||||
|
||||
@@ -3,33 +3,36 @@ concrete RelativeMay of Relative = CatMay ** open
|
||||
|
||||
|
||||
lin
|
||||
-- : Cl -> RCl ; -- such that John loves her
|
||||
-- RelCl cl = ;
|
||||
-- : Cl -> RCl ; -- such that John loves her
|
||||
-- RelCl cl = cl ** {
|
||||
-- subj = cl.subj ;
|
||||
-- pred = cl.pred ;
|
||||
-- };
|
||||
|
||||
-- : RP -> VP -> RCl ;
|
||||
RelVP rp vp = {
|
||||
subj = rp.s ;
|
||||
pred = \\per => vp.s ! Root ;
|
||||
pred = \\per,pol => vp.s ! Active ! pol;
|
||||
} ;
|
||||
|
||||
-- : RP -> ClSlash -> RCl ; -- who I went with
|
||||
RelSlash rp cls = {
|
||||
subj = rp.s -- yang
|
||||
++ cls.subj ; -- saya
|
||||
++ cls.subj ; -- aku
|
||||
pred = \\per,pol =>
|
||||
let object : Str = case cls.c2.prepType of {
|
||||
OtherPrep
|
||||
=> cls.c2.obj ! per ; -- depends on the head, not known yet
|
||||
_ => [] -- if the preposition is dir.obj or empty, no obj. pronoun
|
||||
} ;
|
||||
in cls.pred ! Root ! pol -- ikut sama
|
||||
in cls.pred ! Active ! pol -- ikut sama
|
||||
++ object -- dengan+nya
|
||||
} ;
|
||||
|
||||
-- : RP ;
|
||||
IdRP = {s = "yang"} ;
|
||||
|
||||
-- Mintz page 49: Saya jumpa orang /yang kaki+nya/ patah.
|
||||
-- Mintz page 49: aku jumpa orang /yang kaki+nya/ patah.
|
||||
-- 'I met a man /whose foot/ was broken.'
|
||||
-- : Prep -> NP -> RP -> RP ; -- the mother of whom
|
||||
-- FunRP prep np rp = {} ;
|
||||
|
||||
@@ -60,6 +60,12 @@ oper
|
||||
empty = []
|
||||
} ;
|
||||
|
||||
mkNounPhrase : Str -> NounPhrase = \str -> {
|
||||
s = \\_ => str ;
|
||||
a = NotPron ;
|
||||
empty = []
|
||||
} ;
|
||||
|
||||
mkIP : Str -> IPhrase = \str -> {
|
||||
s = \\_ => str ;
|
||||
a = NotPron ;
|
||||
@@ -81,9 +87,14 @@ oper
|
||||
isPre : Bool ;
|
||||
} ;
|
||||
|
||||
linDet : Determiner -> Str = \det -> det.pr ++ det.s ;
|
||||
|
||||
-- add field in determiner for kedua-dua numbers
|
||||
|
||||
Determiner : Type = Quant ** {
|
||||
pr : Str ; -- prefix for numbers
|
||||
n : NumType ; -- number as in 5 (noun in singular), Sg or Pl
|
||||
count: Str ;
|
||||
} ;
|
||||
|
||||
CardNum : Type = {
|
||||
@@ -127,16 +138,17 @@ oper
|
||||
sp = \\_ => str
|
||||
} ;
|
||||
|
||||
mkDet : Str -> Number -> Determiner = \str, num -> mkQuant str ** {
|
||||
mkDet : Str -> Str -> Number -> Determiner = \cnt, str, num -> mkQuant str ** {
|
||||
pr = "" ;
|
||||
n = NoNum num ;
|
||||
count = "" ;
|
||||
} ;
|
||||
|
||||
mkIdet : Str -> Str -> Number -> Bool -> Determiner = \str, standalone, num, isPre -> mkDet str num ** {
|
||||
mkIdet : Str -> Str -> Str -> Number -> Bool -> Determiner = \cnt, str, standalone, num, isPre -> mkDet cnt str num ** {
|
||||
pr = case isPre of {True => str ; False => [] } ;
|
||||
-- if isPre is True, then: "berapa kucing"
|
||||
s = case isPre of { False => str ; True => [] };
|
||||
|
||||
count = cnt ;
|
||||
sp = \\_ => standalone ;
|
||||
} ;
|
||||
|
||||
@@ -209,23 +221,35 @@ oper
|
||||
c3 : Preposition
|
||||
} ;
|
||||
|
||||
Verb4 : Type = Verb ** {
|
||||
c2 : Preposition ;
|
||||
passive : Str
|
||||
} ;
|
||||
|
||||
-- VV : Type = Verb ** {vvtype : VVForm} ;
|
||||
|
||||
mkVerb : Str -> Prefix -> Verb = \str,p -> {
|
||||
s = table {
|
||||
Root => str ;
|
||||
Active => prefix p str
|
||||
Active => prefix p str ;
|
||||
Imperative => str ++ BIND ++ "kan"
|
||||
}
|
||||
} ;
|
||||
|
||||
mkVerb2 : Verb -> Preposition -> Verb2 = \v,pr -> v ** {
|
||||
c2 = pr ;
|
||||
passive = "di" + v.s ! Root -- TODO check
|
||||
passive = "di" ++ BIND ++ v.s ! Root
|
||||
} ;
|
||||
|
||||
mkVerb3 : Verb -> (p,q : Preposition) -> Verb3 = \v,p,q ->
|
||||
mkVerb2 v p ** {c3 = q} ;
|
||||
|
||||
mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** {
|
||||
s = \\_ => v.s ! Active ++ str;
|
||||
c2 = pr ;
|
||||
passive = "di" ++ BIND ++ v.s ! Root ++ str
|
||||
} ;
|
||||
|
||||
copula : Verb = {s = \\_ => "ada"} ; -- TODO
|
||||
------------------
|
||||
-- Adv
|
||||
@@ -259,6 +283,9 @@ oper
|
||||
s = \\vf,pol => nounneg pol ++ s ;
|
||||
} ;
|
||||
|
||||
linVP : VerbPhrase -> Str = \vp -> vp.s ! Active ! Pos;
|
||||
|
||||
-- https://www.reddit.com/r/indonesian/comments/gsizsv/when_to_use_tidak_bukan_jangan_belum/
|
||||
|
||||
verbneg : Polarity -> Str = \pol -> case pol of {
|
||||
Neg => "tidak" ; -- or "tak"?
|
||||
@@ -269,6 +296,11 @@ oper
|
||||
Neg => "bukan" ;
|
||||
Pos => []
|
||||
} ;
|
||||
|
||||
impneg : Polarity -> Str = \pol -> case pol of {
|
||||
Neg => "jangan" ;
|
||||
Pos => []
|
||||
} ;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Cl, S
|
||||
|
||||
|
||||
@@ -24,6 +24,19 @@ lin
|
||||
-- : Cl -> Prep -> ClSlash ; -- (with whom) he walks
|
||||
SlashPrep cl prep = cl ** {c2 = prep} ;
|
||||
|
||||
|
||||
--2 Imperatives
|
||||
-- : VP -> Imp ;
|
||||
ImpVP vp = {
|
||||
s = \\num,pol => case pol of {
|
||||
Neg => "jangan" ++ vp.s ! Imperative ! Pos;
|
||||
Pos => vp.s ! Imperative ! Pos
|
||||
}
|
||||
} ;
|
||||
|
||||
-- : VP -> SC ;
|
||||
EmbedVP vp = {s = vp.s ! Root ! Pos} ;
|
||||
|
||||
{-
|
||||
-- : NP -> VS -> SSlash -> ClSlash ; -- (whom) she says that he loves
|
||||
SlashVS np vs ss = {} ;
|
||||
@@ -34,7 +47,7 @@ lin
|
||||
|
||||
--2 Imperatives
|
||||
-- : VP -> Imp ;
|
||||
ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
|
||||
-- ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
|
||||
|
||||
--2 Embedded sentences
|
||||
|
||||
|
||||
@@ -55,15 +55,14 @@ lin and_Conj = {s2 = "dan" ; s1 = [] ; n = Pl} ;
|
||||
-----------------
|
||||
-- *Det and Quant
|
||||
|
||||
|
||||
lin how8many_IDet = mkIdet "berapa" "berapa banyak" Sg True;
|
||||
lin how8many_IDet = mkIdet "berapa" "berapa banyak" "" Sg True;
|
||||
lin every_Det = mkDet "semua" "semua" Sg ; -- to check
|
||||
{-}
|
||||
lin all_Predet = {s = ""} ;
|
||||
lin not_Predet = { s = "" } ;
|
||||
lin only_Predet = { s = "" } ;
|
||||
lin most_Predet = {s = ""} ;
|
||||
|
||||
lin every_Det = {s = ""} ;
|
||||
lin few_Det = R.indefDet "" pl ;
|
||||
lin many_Det = R.indefDet "" pl ;
|
||||
lin much_Det = R.indefDet "" sg ;
|
||||
@@ -78,6 +77,9 @@ lin which_IQuant = mkQuant "yang mana" ** {isPre = False} ;
|
||||
|
||||
-----
|
||||
-- NP
|
||||
|
||||
lin somebody_NP = mkNounPhrase "seorang" ; --todo
|
||||
|
||||
{-
|
||||
lin everybody_NP = defNP "" N.NumPl ;
|
||||
lin everything_NP = defNP "" N.NumSg ;
|
||||
@@ -110,7 +112,18 @@ lin in_Prep = mkPrep "di" ;
|
||||
-- lin part_Prep = mkPrep ;
|
||||
lin possess_Prep = mkPrep [] ; -- TODO check Mintz p. 39-40, 2.2.1.2
|
||||
-- lin through_Prep = mkPrep ;
|
||||
lin to_Prep = mkPrep "ke" ;
|
||||
-- lin to_Prep = mkPrep "ke" ;
|
||||
lin to_Prep =
|
||||
let ke : Preposition = mkPrep "ke";
|
||||
kepada : Preposition = mkPrep "kepada" ;
|
||||
in ke ** {
|
||||
obj = kepada.obj
|
||||
} ;
|
||||
|
||||
-- lin have_V2 = let have' : V2 = mkV2 "ada" in have' ** {
|
||||
-- s = \\_ => "ada" ;
|
||||
-- passive = "diadakan" ;
|
||||
-- } ;
|
||||
-- lin under_Prep = mkPrep "" ;
|
||||
lin with_Prep = mkPrep "dengan" ;
|
||||
-- lin without_Prep = mkPrep "" ;
|
||||
@@ -120,9 +133,9 @@ lin with_Prep = mkPrep "dengan" ;
|
||||
|
||||
-- Pronouns are closed class, no constructor in ParadigmsMay.
|
||||
lin it_Pron = mkPron "dia" P3 ;
|
||||
lin i_Pron = mkPron "saya" P1 ;
|
||||
lin i_Pron = mkPron "aku" P1 ;
|
||||
lin youPol_Pron = mkPron "kamu" P2 ;
|
||||
lin youSg_Pron = mkPron "awak" P2 ;
|
||||
lin youSg_Pron = mkPron "kamu" P2 ;
|
||||
lin he_Pron = mkPron "dia" P3 ;
|
||||
lin she_Pron = mkPron "dia" P3 ;
|
||||
-- inclusive we
|
||||
@@ -163,8 +176,8 @@ lin have_V2 = let have' : V2 = mkV2 "ada" in have' ** {
|
||||
passive = "diadakan" ;
|
||||
} ;
|
||||
-- lin can8know_VV = can_VV ; -- can (capacity)
|
||||
-- lin can_VV = mkVV "" ; -- can (possibility)
|
||||
-- lin must_VV = mkVV "" ;
|
||||
lin can_VV = mkVV "boleh" ; -- can (possibility)
|
||||
lin must_VV = mkVV "perlu" ;
|
||||
lin want_VV = mkVV "mahu" ;
|
||||
|
||||
------
|
||||
|
||||
@@ -16,7 +16,7 @@ lin
|
||||
|
||||
-- : VV -> VP -> VP ;
|
||||
ComplVV vv vp = vp ** useV {
|
||||
s = \\vf => vv.s ++ vp.s ! Root ! Pos
|
||||
s = \\vf => vv.s ++ linVP vp
|
||||
} ;
|
||||
|
||||
-- : VS -> S -> VP ;
|
||||
@@ -54,12 +54,11 @@ lin
|
||||
|
||||
-- : V3 -> NP -> VPSlash ; -- give (it) to her
|
||||
Slash3V3 v3 iobj = useV {
|
||||
s = \\vf => v3.s ! vf ++ iobj.s ! Bare ++ applyPrep v3.c3 emptyNP;
|
||||
s = \\vf => v3.s ! vf ++ applyPrep v3.c3 emptyNP ++ iobj.s ! Bare;
|
||||
--iobj.s ! Bare -- applyPrep v3.c3 iobj -- TODO check if this works for all -- probably not
|
||||
} ** {
|
||||
c2 = v3.c2 ;-- Now the VPSlash is missing only the direct object
|
||||
adjCompl = []
|
||||
|
||||
} ;
|
||||
|
||||
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
|
||||
@@ -101,6 +100,13 @@ lin
|
||||
adjCompl = vps.adjCompl ;
|
||||
} ;
|
||||
|
||||
-- SlashVV vv vp = vp ** useV {
|
||||
-- s = \\vf => vv.s ++ linVP vp ;
|
||||
-- c2 = vp.c2 ;
|
||||
-- passive = vv.s ++ vp.passive;
|
||||
-- adjCompl = vp.adjCompl ;
|
||||
-- } ;
|
||||
|
||||
-- : V2V -> NP -> VPSlash -> VPSlash ; -- beg me to buy
|
||||
-- SlashV2VNP v2v np vps =
|
||||
|
||||
@@ -112,6 +118,11 @@ lin
|
||||
s = \\vf,pol => vp.s ! vf ! pol ++ adv.s
|
||||
} ;
|
||||
|
||||
-- : AdV -> VP -> VP ; -- always sleep
|
||||
AdVVP adv vp = vp ** {
|
||||
s = \\vf,pol => vp.s ! vf ! pol ++ adv.s
|
||||
} ;
|
||||
|
||||
{-
|
||||
-- : VPSlash -> Adv -> VPSlash ; -- use (it) here
|
||||
AdvVPSlash = insertAdv ;
|
||||
@@ -119,9 +130,6 @@ lin
|
||||
-- : VP -> Adv -> VP ; -- sleep , even though ...
|
||||
ExtAdvVP vp adv = ;
|
||||
|
||||
-- : AdV -> VP -> VP ; -- always sleep
|
||||
AdVVP adv vp = vp ** {adv = adv} ;
|
||||
|
||||
-- : AdV -> VPSlash -> VPSlash ; -- always use (it)
|
||||
AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
|
||||
-}
|
||||
|
||||
@@ -3,4 +3,4 @@ Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron he_Pron) (ComplSlas
|
||||
LangMay: dia memberi kucing kepadaku
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron he_Pron) (ComplSlash (Slash3V3 give_V3 (UsePron i_Pron)) (MassNP (UseN cat_N)))))
|
||||
LangMay: dia memberi saya kucing
|
||||
LangMay: dia memberi aku kucing
|
||||
|
||||
@@ -8,4 +8,32 @@ LangMay: lima kucing ini
|
||||
|
||||
Lang: DetCN (DetQuant (PossPron i_Pron) (NumCard (NumNumeral (num (pot2as3 (pot2 (pot0 n7))))))) (UseN cat_N)
|
||||
LangEng: my seven hundred cats
|
||||
LangMay: tujuh ratus kucing saya
|
||||
LangMay: tujuh ratus kucing aku
|
||||
|
||||
Lang: AdjCN (AdjOrd (OrdNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))))) (UseN cat_N)
|
||||
LangEng: second cat
|
||||
LangMay: kucing kedua
|
||||
|
||||
Lang: DetQuantOrd IndefArt NumPl (OrdNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))))
|
||||
LangEng: second
|
||||
LangMay: kedua
|
||||
|
||||
Lang: UttNP (DetCN (DetQuantOrd (PossPron i_Pron) NumSg (OrdNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))))) (UseN cat_N))
|
||||
LangEng: my second cat
|
||||
LangMay: kucing kedua aku
|
||||
|
||||
Lang: UttNP (DetCN (DetQuantOrd (PossPron i_Pron) (NumCard (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))))) (OrdNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))))) (UseN cat_N))
|
||||
LangEng: my two second cats
|
||||
LangMay: dua kucing kedua aku
|
||||
|
||||
Lang: CountNP (DetQuant IndefArt (NumCard (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2)))))))) (DetCN (DetQuant (PossPron i_Pron) NumPl) (UseN cat_N))
|
||||
LangEng: two of my cats
|
||||
LangMay: kedua-dua kucing aku
|
||||
|
||||
Lang: MassNP (AdjCN (AdjOrd (OrdNumeralSuperl (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) big_A)) (UseN cat_N))
|
||||
LangEng: third biggest cat
|
||||
LangMay: kucing ketiga terbesar
|
||||
|
||||
Lang: MassNP (AdjCN (AdjOrd (OrdSuperl big_A)) (UseN cat_N))
|
||||
LangEng: biggest cat
|
||||
LangMay: kucing terbesar
|
||||
@@ -1,11 +1,19 @@
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN dog_N)) (PassV2 love_V2))
|
||||
LangEng: that dog is loved
|
||||
LangMay: anjing itu dicinta
|
||||
LangMay: anjing itu dicintai
|
||||
|
||||
Lang: UseCl (TTAnt TPres ASimul) PNeg (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN dog_N)) (PassV2 love_V2))
|
||||
LangEng: that dog isn't loved
|
||||
LangMay: anjing itu tidak dicinta
|
||||
LangMay: anjing itu tidak dicintai
|
||||
|
||||
Lang: UseCl (TTAnt TPres ASimul) PNeg (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN dog_N)) (ComplVV want_VV (PassV2 love_V2)))
|
||||
LangEng: that dog doesn't want to be loved
|
||||
LangMay: anjing itu tidak mahu dicinta
|
||||
LangMay: anjing itu tidak mahu dicintai
|
||||
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN book_N)) (PassV2 read_V2))
|
||||
LangEng: that book is read
|
||||
LangMay: buku itu dibaca
|
||||
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN book_N)) (AdvVP (PassV2 read_V2) (PrepNP to_Prep (UsePron youSg_Pron))))
|
||||
LangEng: that book is read to you
|
||||
LangMay: buku itu dibacakan kepada kamu
|
||||
@@ -14,18 +14,18 @@ LangMay: kucing-kucingku dengan orang itu
|
||||
-- to get "memukulnya", we need to define it in the entry of hit_V2 at the moment.
|
||||
-- if that should be variable on a more general level, let me know.
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a hit_V2) (UsePron he_Pron)))
|
||||
LangMay: saya memukul dia
|
||||
LangMay: aku memukul dia
|
||||
|
||||
-------------
|
||||
-- Possession
|
||||
|
||||
-- that is my cat
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetNP (DetQuant that_Quant NumSg)) (UseComp (CompNP (DetCN (DetQuant (PossPron i_Pron) NumSg) (UseN cat_N)))))
|
||||
LangMay: itu kucing saya
|
||||
LangMay: itu kucing aku
|
||||
|
||||
-- that cat is mine
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant that_Quant NumSg) (UseN cat_N)) (UseComp (CompNP (DetNP (DetQuant (PossPron i_Pron) NumSg)))))
|
||||
LangMay: kucing itu saya
|
||||
LangMay: kucing itu aku
|
||||
|
||||
-- his/her cat is green
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant (PossPron he_Pron) NumSg) (UseN cat_N)) (UseComp (CompAP (PositA green_A))))
|
||||
@@ -33,14 +33,14 @@ LangMay: kucing dia hijau
|
||||
|
||||
-- I read his/her book -- two variants, different trees
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant IndefArt NumSg) (PossNP (UseN book_N) (UsePron she_Pron)))))
|
||||
LangMay: saya membaca bukunya
|
||||
LangMay: aku membaca bukunya
|
||||
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant (PossPron he_Pron) NumSg) (UseN book_N))))
|
||||
LangMay: saya membaca buku dia
|
||||
LangMay: aku membaca buku dia
|
||||
|
||||
-- I read his/her father's book
|
||||
Lang: UseCl (TTAnt TPast ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant DefArt NumSg) (PossNP (UseN book_N) (DetCN (DetQuant DefArt NumSg) (PossNP (UseN2 father_N2) (UsePron she_Pron)))))))
|
||||
LangMay: saya membaca buku bapanya
|
||||
LangMay: aku membaca buku bapanya
|
||||
|
||||
-- Only the noun phrase
|
||||
Lang: MassNP (PossNP (UseN book_N) (UsePron he_Pron))
|
||||
@@ -66,4 +66,4 @@ LangMay: kucingku dia
|
||||
|
||||
Lang: DetCN (DetQuant (PossPron i_Pron) NumSg) (PossNP (UseN cat_N) (UsePron she_Pron))
|
||||
LangEng: my cat of hers
|
||||
LangMay: kucingnya saya
|
||||
LangMay: kucingnya aku
|
||||
|
||||
@@ -16,11 +16,11 @@ LangMay: berapa banyak kucing
|
||||
|
||||
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestCl (PredVP (UsePron youSg_Pron) (ComplSlash (SlashV2a teach_V2) (DetCN (DetQuant DefArt NumSg) (UseN cat_N)))))
|
||||
LangEng: do you teach the cat
|
||||
LangMay: adakah awak mengajar kucing
|
||||
LangMay: adakah kamu mengajar kucing
|
||||
|
||||
Lang: UseQCl (TTAnt TPres ASimul) PNeg (QuestCl (PredVP (UsePron youSg_Pron) (ComplSlash (SlashV2a teach_V2) (DetCN (DetQuant DefArt NumSg) (UseN cat_N)))))
|
||||
LangEng: don't you teach the cat
|
||||
LangMay: adakah awak tidak mengajar kucing
|
||||
LangMay: adakah kamu tidak mengajar kucing
|
||||
|
||||
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP (IdetCN (IdetQuant which_IQuant NumSg) (UseN cat_N)) (ComplSlash (SlashV2a teach_V2) (UsePron he_Pron)))
|
||||
LangEng: which cat teaches him
|
||||
@@ -28,19 +28,19 @@ LangMay: kucing yang mana mengajar dia
|
||||
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestIAdv where_IAdv (PredVP (UsePron youSg_Pron) (UseV go_V)))
|
||||
LangEng: where did you go
|
||||
LangMay: awak pergi mana
|
||||
LangMay: kamu pergi mana
|
||||
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestIAdv why_IAdv (PredVP (UsePron youSg_Pron) (UseV go_V)))
|
||||
LangEng: why did you go
|
||||
LangMay: mengapa awak pergi
|
||||
LangMay: mengapa kamu pergi
|
||||
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PNeg (QuestIAdv why_IAdv (PredVP (UsePron youSg_Pron) (UseV go_V)))
|
||||
LangEng: why didn't you go
|
||||
LangMay: mengapa awak tidak pergi
|
||||
LangMay: mengapa kamu tidak pergi
|
||||
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestSlash (IdetCN (IdetQuant which_IQuant NumSg) (UseN woman_N)) (SlashVP (UsePron youSg_Pron) (SlashV2a see_V2)))
|
||||
LangEng: which woman did you see
|
||||
LangMay : awak melihat perempuan yang mana
|
||||
LangMay : kamu melihat perempuan yang mana
|
||||
|
||||
# -- should be to whom did mother give the meat
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestSlash whoSg_IP (SlashVP (MassNP (UseN2 mother_N2)) (Slash3V3 give_V3 (DetCN (DetQuant DefArt NumSg) (UseN meat_N)))))
|
||||
@@ -50,7 +50,7 @@ LangMay: ibu memberi daging kepada siapa
|
||||
# -- should be to whom did mother talk the meat
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestSlash whoSg_IP (SlashVP (MassNP (UseN2 mother_N2)) (Slash3V3 talk_V3 (DetCN (DetQuant DefArt NumSg) (UseN meat_N)))))
|
||||
LangEng: whom did mother talk about the meat to
|
||||
LangMay: ibu bercakap daging dengan siapa
|
||||
LangMay: ibu bercakap tentang daging dengan siapa
|
||||
|
||||
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP whoSg_IP (ComplVV want_VV (UseV go_V)))
|
||||
LangEng: who wants to go
|
||||
@@ -62,7 +62,7 @@ LangMay: siapa kucing
|
||||
|
||||
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestIAdv how_IAdv (PredVP (DetCN (DetQuant (PossPron youSg_Pron) NumSg) (UseN2 mother_N2)) (ComplSlash (SlashV2A paint_V2A (PositA black_A)) (DetCN (DetQuant DefArt NumSg) (UseN house_N)))))
|
||||
LangEng: how does your mother paint the house black
|
||||
LangMay: bagaimana ibu awak mengecat rumah hitam
|
||||
LangMay: bagaimana ibu kamu mengecat rumah hitam
|
||||
|
||||
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestIAdv why_IAdv (PredVP (UsePron she_Pron) (ComplSlash (SlashV2a eat_V2) (DetCN (DetQuant DefArt NumSg) (UseN meat_N)))))
|
||||
LangEng: why did she eat the meat
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
|
||||
Lang: DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (UseV walk_V))))
|
||||
LangEng: a cat that walks
|
||||
LangMay: kucing yang jalan
|
||||
LangMay: kucing yang berjalan
|
||||
|
||||
Lang: DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (ComplSlash (SlashV2a drink_V2) (MassNP (UseN milk_N))))))
|
||||
LangEng: a cat that drinks milk
|
||||
@@ -17,7 +17,7 @@ LangMay: susu yang kucing minum
|
||||
-- We can find another RGL tree that produces the more natural variant. This tree produces this variant.
|
||||
Lang: DetCN (DetQuant DefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelSlash IdRP (SlashPrep (PredVP (DetCN (DetQuant DefArt NumSg) (UseN dog_N)) (UseV walk_V)) with_Prep))))
|
||||
LangEng: the cat that the dog walks with
|
||||
LangMay: kucing yang anjing jalan dengannya
|
||||
LangMay: kucing yang anjing berjalan dengannya
|
||||
|
||||
--------------------------------------------------------------
|
||||
-- Determiner placement
|
||||
@@ -25,30 +25,31 @@ LangMay: kucing yang anjing jalan dengannya
|
||||
-- TODO check determiner placement?
|
||||
Lang: DetCN (DetQuant this_Quant NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (UseV walk_V))))
|
||||
LangEng: this cat that walks
|
||||
LangMay: kucing ini yang jalan
|
||||
LangMay: kucing ini yang berjalan
|
||||
|
||||
Lang: DetCN (DetQuant (PossPron i_Pron) NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (ComplSlash (SlashV2a drink_V2) (MassNP (UseN milk_N))))))
|
||||
LangEng: my cat that drinks milk
|
||||
LangMay: kucing saya yang minum susu
|
||||
LangMay: kucing aku yang minum susu
|
||||
|
||||
|
||||
-- TODO verb form?
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (DetNP (DetQuant this_Quant NumSg)) (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (UseV walk_V))))))))
|
||||
LangEng: this is the cat that walks
|
||||
LangMay: ini kucing yang jalan
|
||||
LangMay: ini kucing yang berjalan
|
||||
|
||||
|
||||
--------------------------------------------------------------
|
||||
-- Complex example: "the book that his/her father gave him/her"
|
||||
|
||||
-- 1. His father gave him a book
|
||||
-- should be "memberikan buku" as book is dead
|
||||
Lang: UseCl (TTAnt TPast ASimul) PPos (PredVP (MassNP (ComplN2 father_N2 (UsePron he_Pron))) (ComplSlash (Slash2V3 give_V3 (MassNP (UseN book_N))) (UsePron he_Pron)))
|
||||
LangMay: bapanya memberi buku kepadanya
|
||||
|
||||
-- 2. A book that her father gave her
|
||||
-- TODO: would it be better as "buku yang bapanya beri kepadanya"? (Or any other variation?)
|
||||
Lang: DetCN (DetQuant DefArt NumSg) (RelCN (UseN book_N) (UseRCl (TTAnt TPast ASimul) PPos (RelSlash IdRP (SlashVP (DetCN (DetQuant DefArt NumSg) (ComplN2 father_N2 (UsePron she_Pron))) (Slash3V3 give_V3 (UsePron she_Pron))))))
|
||||
LangMay: buku yang bapanya beri dia
|
||||
LangMay: buku yang bapanya memberi kepada dia
|
||||
|
||||
-- The preposition "kepada" comes from the definition of give_V3 in LexiconMay.gf.
|
||||
-- If "buku yang bapanya beri kepadanya" is correct in general, but sometimes
|
||||
@@ -61,14 +62,14 @@ LangMay: buku yang bapanya beri dia
|
||||
-- then we can do it in the resource grammar.
|
||||
|
||||
-- I want to read the book that my father gave me
|
||||
-- TODO check: would "saya mahu baca buku yang bapaku beri kepadaku" be better?
|
||||
-- TODO check: would "aku mahu baca buku yang bapaku beri kepadaku" be better?
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashVV want_VV (SlashV2a read_V2)) (DetCN (DetQuant DefArt NumSg) (RelCN (UseN book_N) (UseRCl (TTAnt TPast ASimul) PPos (RelSlash IdRP (SlashVP (DetCN (DetQuant DefArt NumSg) (ComplN2 father_N2 (UsePron i_Pron))) (Slash3V3 give_V3 (UsePron i_Pron)))))))))
|
||||
LangMay: saya mahu baca buku yang bapaku beri saya
|
||||
LangMay: aku mahu membaca buku yang bapaku memberi kepada aku
|
||||
|
||||
-- I want to read the book that my father read
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashVV want_VV (SlashV2a read_V2)) (DetCN (DetQuant DefArt NumSg) (RelCN (UseN book_N) (UseRCl (TTAnt TPast ASimul) PPos (RelSlash IdRP (SlashVP (DetCN (DetQuant DefArt NumSg) (ComplN2 father_N2 (UsePron i_Pron))) (SlashV2a read_V2))))))))
|
||||
LangMay: saya mahu baca buku yang bapaku baca
|
||||
LangMay: aku mahu membaca buku yang bapaku membaca
|
||||
|
||||
-- bonus tree: we can also generate "bapa saya", not just "bapaku"
|
||||
-- bonus tree: we can also generate "bapa aku", not just "bapaku"
|
||||
Lang: UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplVV want_VV (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant DefArt NumSg) (RelCN (UseN book_N) (UseRCl (TTAnt TPast ASimul) PPos (RelSlash IdRP (SlashVP (DetCN (DetQuant (PossPron i_Pron) NumSg) (UseN2 father_N2)) (SlashV2a read_V2)))))))))
|
||||
LangMay: saya mahu baca buku yang bapa saya baca
|
||||
LangMay: aku mahu membaca buku yang bapa aku membaca
|
||||
@@ -18,8 +18,11 @@ LangMay: kucing akan berjalan
|
||||
|
||||
Lang: ExtAdvS (SubjS if_Subj (UseCl (TTAnt TPast ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))) (UseCl (TTAnt TCond ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)))
|
||||
LangEng: if I walked , the cat would walk
|
||||
LangMay: sekiranya saya berjalan , kucing akan berjalan
|
||||
LangMay: sekiranya aku berjalan , kucing akan berjalan
|
||||
|
||||
Lang: ExtAdvS (SubjS when_Subj (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))) (UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)))
|
||||
LangEng: when I walk , the cat will walk
|
||||
LangMay: kalau saya berjalan , kucing akan berjalan
|
||||
LangMay: kalau aku berjalan , kucing akan berjalan
|
||||
|
||||
---
|
||||
|
||||
|
||||
@@ -9,42 +9,41 @@
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant (PossPron i_Pron) NumSg) (UseN cat_N)) (UseV walk_V)))
|
||||
LangEng: my cat walks
|
||||
LangMay: kucing saya berjalan
|
||||
LangMay: kucing aku berjalan
|
||||
|
||||
-- As a verbal complement
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant (PossPron i_Pron) NumSg) (UseN cat_N)) (ComplVV want_VV (UseV walk_V))))
|
||||
LangEng: my cat wants to walk
|
||||
LangMay: kucing saya mahu jalan
|
||||
LangMay: kucing aku mahu berjalan
|
||||
|
||||
-- Transitive verbs
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant this_Quant NumSg) (UseN book_N)))))
|
||||
LangEng: I read this book
|
||||
LangMay: saya membaca buku ini
|
||||
LangMay: aku membaca buku ini
|
||||
|
||||
-- As a verbal complement
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplVV want_VV (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant this_Quant NumSg) (UseN book_N))))))
|
||||
LangEng: I want to read this book
|
||||
LangMay: saya mahu baca buku ini
|
||||
LangMay: aku mahu membaca buku ini
|
||||
|
||||
-- How about words like mengajar and belajar? Is the prefix more important here?
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (AdvVP (ComplSlash (SlashV2a learn_V2) (MassNP (UseN science_N))) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))
|
||||
LangEng: I learn science in the school
|
||||
LangMay: saya belajar sains di sekolah
|
||||
LangMay: aku belajar sains di sekolah
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (AdvVP (ComplSlash (SlashV2a teach_V2) (MassNP (UseN science_N))) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))
|
||||
LangEng: I teach science in the school
|
||||
LangMay: saya mengajar sains di sekolah
|
||||
LangMay: aku mengajar sains di sekolah
|
||||
|
||||
-- The way the grammar is currently defined, we'd get the same output for both "I want to learn/study science". Is this correct, or should one or both of the verbs keep the ber/meng prefix in this context?
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (AdvVP (ComplVV want_VV (ComplSlash (SlashV2a teach_V2) (MassNP (UseN science_N)))) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))
|
||||
LangEng: I want to teach science in the school
|
||||
LangMay: saya mahu ajar sains di sekolah
|
||||
LangMay: aku mahu mengajar sains di sekolah
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (AdvVP (ComplVV want_VV (ComplSlash (SlashV2a learn_V2) (MassNP (UseN science_N)))) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))
|
||||
LangEng: I want to learn science in the school
|
||||
LangMay: saya mahu belajar sains di sekolah
|
||||
LangMay: aku mahu belajar sains di sekolah
|
||||
|
||||
-- How about interaction with passive? These sentences are very artificial, but imagine they made sense:
|
||||
Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant this_Quant NumSg) (UseN book_N)) (AdvVP (PassV2 learn_V2) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))) NoVoc
|
||||
@@ -62,12 +61,12 @@ LangMay: buku ini diajar di sekolah
|
||||
|
||||
Lang: DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (UseV walk_V))))
|
||||
LangEng: a cat that walks
|
||||
LangMay: kucing yang jalan
|
||||
LangMay: kucing yang berjalan
|
||||
|
||||
-- In a context
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a buy_V2) (DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (UseV walk_V))))))))
|
||||
LangEng: I buy a cat that walks
|
||||
LangMay: saya membeli kucing yang jalan
|
||||
LangMay: aku membeli kucing yang berjalan
|
||||
|
||||
-- Transitive verbs
|
||||
|
||||
@@ -84,11 +83,11 @@ LangMay: susu yang kucing minum
|
||||
-- Both in context
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a buy_V2) (DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (ComplSlash (SlashV2a drink_V2) (MassNP (UseN milk_N))))))))))
|
||||
LangEng: I buy a cat that drinks milk
|
||||
LangMay: saya membeli kucing yang minum susu
|
||||
LangMay: aku membeli kucing yang minum susu
|
||||
|
||||
Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2a buy_V2) (MassNP (RelCN (UseN milk_N) (UseRCl (TTAnt TPres ASimul) PPos (RelSlash IdRP (SlashVP (DetCN (DetQuant IndefArt NumSg) (UseN cat_N)) (SlashV2a drink_V2)))))))))
|
||||
LangEng: I buy milk that a cat drinks
|
||||
LangMay: saya membeli susu yang kucing minum
|
||||
LangMay: aku membeli susu yang kucing minum
|
||||
|
||||
|
||||
----------------------------------------
|
||||
@@ -102,11 +101,21 @@ LangMay: hujan sekarang
|
||||
-- In a context
|
||||
Lang: UttS (AdvS (SubjS if_Subj (UseCl (TTAnt TPast ASimul) PNeg (ImpersCl (UseV rain_V0)))) (ExtAdvS now_Adv (UseCl (TTAnt TCond ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))))
|
||||
LangEng: if it didn't rain now , I would walk
|
||||
LangMay: sekiranya tidak hujan sekarang , saya akan berjalan
|
||||
LangMay: sekiranya tidak hujan sekarang , aku akan berjalan
|
||||
|
||||
----------------------------------------
|
||||
-- Imperative
|
||||
|
||||
Lang: UttImpSg PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
|
||||
LangEng: open the door
|
||||
LangMay: buka pintu
|
||||
|
||||
Lang: UttImpSg PNeg (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
|
||||
LangEng: don't open the door
|
||||
LangMay: jangan buka pintu
|
||||
|
||||
Lang: UttImpPol PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
|
||||
LangEng: open the door
|
||||
LangMay: bukakan pintu
|
||||
----------------------------------------
|
||||
-- Questions
|
||||
|
||||
Reference in New Issue
Block a user