forked from GitHub/gf-rgl
Nepali resource by Dinesh Simk - almost complete
This commit is contained in:
aarne
@@ -0,0 +1,68 @@
|
||||
concrete AdjectiveNep of Adjective = CatNep ** open ResNep, Prelude in {
|
||||
|
||||
flags coding = utf8;
|
||||
lin
|
||||
|
||||
-- ALL THE RULES FROM BOOK ARE NOT COVERED
|
||||
|
||||
--PositA : A -> AP ; -- warm
|
||||
PositA a = a ;
|
||||
|
||||
|
||||
--ComparA : A -> NP -> AP ; -- warmer than I
|
||||
ComparA a np = {
|
||||
s = \\n, g => np.s ! NPC Nom ++ "Bnx:da" ++ a.s ! n ! g ;
|
||||
} ;
|
||||
|
||||
|
||||
--ComplA2 : A2 -> NP -> AP ; -- married to her
|
||||
ComplA2 a np = {
|
||||
s = \\n,g => np.s ! NPC Nom ++ a.c2 ++ a.s ! n ! g ;
|
||||
} ;
|
||||
|
||||
|
||||
--ReflA2 : A2 -> AP ; -- married to itself
|
||||
ReflA2 a = {
|
||||
s = \\n, g => "APE" ++ a.c2 ++ a.s ! n ! g ; -- आफै सँग
|
||||
} ;
|
||||
|
||||
|
||||
--UseA2 : A2 -> AP ; -- married
|
||||
UseA2 a = a ;
|
||||
|
||||
|
||||
--UseComparA : A -> AP ; -- warmer
|
||||
UseComparA a = {
|
||||
s = \\n, g => "HlI" ++ a.s ! n ! g ; -- अली
|
||||
} ;
|
||||
|
||||
|
||||
--CAdvAP : CAdv -> AP -> NP -> AP ; -- as cool as John
|
||||
CAdvAP cadv ap np = {
|
||||
s = \\n,g => np.s ! NPC Nom ++ cadv.p ++ cadv.s ++ ap.s ! n ! g ;
|
||||
};
|
||||
|
||||
|
||||
--AdjOrd : Ord -> AP ; -- warmest
|
||||
AdjOrd ord = { s = \\_,_ => ord.s ; };
|
||||
|
||||
|
||||
--SentAP : AP -> SC -> AP ; -- good that she is here
|
||||
SentAP ap sc = {
|
||||
s = \\n,g => sc.s ++ ap.s ! n ! g ;
|
||||
--s = \\n,g => ap.s ! n ! g ++ sc.s ;
|
||||
} ;
|
||||
|
||||
|
||||
--AdAP : AdA -> AP -> AP ; -- very warm
|
||||
AdAP ada ap = {
|
||||
s = \\n,g => ada.s ++ ap.s ! n ! g ;
|
||||
} ;
|
||||
|
||||
|
||||
--AdvAP : AP -> Adv -> AP ; -- warm by nature
|
||||
AdvAP ap adv = {
|
||||
s = \\n,g => adv.s ++ ap.s ! n ! g ;
|
||||
} ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,24 @@
|
||||
concrete AdverbNep of Adverb = CatNep ** open ResNep, Prelude, Predef in {
|
||||
|
||||
flags coding = utf8;
|
||||
|
||||
lin
|
||||
PositAdvAdj a = {s = a.s ! Sg ! Masc ++ "ri" } ;
|
||||
|
||||
ComparAdvAdj cadv a np = {
|
||||
s = np.s ! NPObj ++ cadv.p ++ cadv.s ++ a.s ! Sg ! Masc ;
|
||||
} ;
|
||||
|
||||
ComparAdvAdjS cadv a s = {
|
||||
s = cadv.p ++ cadv.s ++ a.s ! Sg ! Masc ++ s.s;
|
||||
} ;
|
||||
|
||||
PrepNP prep np = {s = np.s ! NPObj ++ prep.s } ;
|
||||
|
||||
AdAdv ada adv = { s = ada.s ++ adv.s} ;
|
||||
|
||||
SubjS sub snt = {s = sub.s ++ snt.s } ;
|
||||
|
||||
AdnCAdv cadv = {s = cadv.s} ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,39 @@
|
||||
concrete IdiomNep of Idiom = CatNep ** open Prelude,Predef, ResNep in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
flags coding = utf8;
|
||||
|
||||
lin
|
||||
ImpersCl vp = mkSClause " " (agrP3 Masc Sg) vp ;
|
||||
|
||||
GenericCl vp = mkSClause "kohI" (agrP3 Masc Sg) vp ;
|
||||
|
||||
CleftNP np rs =
|
||||
let cl = mkSClause (np.s ! NPC rs.c) (np.a) (predAux auxBe);
|
||||
in
|
||||
{s = \\t,p,o => cl.s ! t ! p ! o ++ rs.s ! np.a };
|
||||
|
||||
CleftAdv ad ss = { s = \\t,b,o => ad.s ++ ss.s};
|
||||
|
||||
ExistNP np =
|
||||
mkSClause "tx:yhaV" (agrP3 (fromAgr np.a).g (fromAgr np.a).n) -- त्यहाँ
|
||||
(insertObj (\\_ => np.s ! NPC Nom) (predAux auxBe)) ;
|
||||
|
||||
ExistIP ip =
|
||||
let cl = mkSClause ("junx:" ++ ip.s ! Nom) (agrP3 Masc ip.n) (predAux auxBe) ; -- जुन्
|
||||
in {
|
||||
s = \\t,p,qf => case qf of {
|
||||
QDir => cl.s ! t ! p ! ODir;
|
||||
QIndir => cl.s ! t ! p ! ODir
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
ProgrVP vp = (predProg vp) ;
|
||||
|
||||
|
||||
ImpPl1 vp = {s = vp.obj.s ++ (vp.s ! ResNep.Imp).inf ++ vp.comp ! (agrP1 Masc Pl)} ;
|
||||
|
||||
ImpP3 np vp = {s = np.s!NPC Nom ++ "lai:" ++ (vp.s ! PVForm ).inf ++ "def"} ;
|
||||
}
|
||||
|
||||
@@ -0,0 +1,371 @@
|
||||
--# -path=.:prelude:alltenses
|
||||
|
||||
-- regN - Regular Nouns
|
||||
-- mkNF - Femenine Nouns
|
||||
-- mkNUN - Uncountable Nouns
|
||||
|
||||
concrete LexiconNep of Lexicon = CatNep **
|
||||
open ParadigmsNep, MorphoNep, Prelude in {
|
||||
|
||||
flags
|
||||
-- optimize=values ;
|
||||
coding = utf8;
|
||||
|
||||
lin
|
||||
airplane_N = regN "hvaI:jhaj" ; -- हवाईजहाज
|
||||
answer_V2S = mkV2 (compoundV "ftx:tr" (mkV "dinu")) ; -- उत्तर दिनु
|
||||
apartment_N = regN "koQa" ; -- कोठा
|
||||
apple_N = regN "sx:yaF"; -- स्याऊ
|
||||
art_N = regN "kla" ; -- कला
|
||||
ask_V2Q = mkV2 (mkV "soDx:nu") ; -- सोध्नु
|
||||
baby_N = regN "bCx:Ca" ; -- बच्चा
|
||||
bad_A = mkA "Krab" ; -- खराब
|
||||
bank_N = regN "bx:yan:x:k" ; -- ब्याङ्क
|
||||
beautiful_A = mkA "ramx:ro" ; -- राम्रो
|
||||
become_VA = mkV "hunu" ; -- हुनु
|
||||
beer_N = regN "biyr" ; -- बियर
|
||||
beg_V2V = mkV2V (compoundV "Agx:rh" do_V2) lai "" False ; -- आग्रह
|
||||
big_A = mkA "Qulo" ; -- ठुलो
|
||||
bike_N = regN "sai:kl" ; --साइकल
|
||||
bird_N = regN "Cra" ; -- चरा
|
||||
black_A = mkA "kalo" ; -- कालो
|
||||
blue_A = mkA "nilo" ; -- निलो
|
||||
boat_N = regN "xun:x:ga" ; -- डुङ्गा
|
||||
book_N = regN "kitab" ; -- किताब
|
||||
boot_N = regN "jutx:ta" ; -- जुत्ता
|
||||
boss_N = regN "hakim" ; -- हाकिम
|
||||
boy_N = regN "keqa" ; -- केटा
|
||||
bread_N = regN "roqI" ; -- रोटी
|
||||
break_V2 = mkV2 (mkV "BaVCx:nu") ; -- भाँच्नु
|
||||
broad_A = mkA "Prakilo" ; -- फराकिलो
|
||||
brother_N2 = mkN2 (regN "daju") (mkPrep "ko") "" ;
|
||||
brown_A = mkA "KEro" ; -- खैरो
|
||||
butter_N = mkNUC "nwnI" feminine; -- नौनी
|
||||
buy_V2 = mkV2 (mkV "kinx:nu"); -- किन्नु
|
||||
camera_N = regN "kx:yamra" ; -- क्यामरा
|
||||
cap_N = regN "qopi" ; -- टोपि
|
||||
car_N = regN "kar" ; -- कार
|
||||
carpet_N = regN "karx:rpeq" ; -- कार्रपेट
|
||||
cat_N = regN "biralo" ; -- बिरालो
|
||||
ceiling_N = regN "ct" ; -- छत
|
||||
chair_N = regN "kurx:sI" ; -- कुर्सी
|
||||
cheese_N = mkNF "Cij"; --चिज
|
||||
child_N = regN "bCx:Ca" ; -- बच्चा
|
||||
church_N = regN "girx:jaGr" ; -- चर्च , गिर्जाघर
|
||||
city_N = regN "Shr" ; -- शहर
|
||||
clean_A = mkA "sPa" ; -- सफा
|
||||
clever_A = mkA "baQo" ; -- बाठो
|
||||
close_V2 = mkV2 (compoundV "bnx:d" do_V2) ; -- बन्द गर्नु
|
||||
coat_N = regN "koq" ; -- कोट
|
||||
cold_A = mkA "Ciso" ; -- चिसो
|
||||
come_V = mkV "Afnu" ; -- आउनु
|
||||
computer_N = regN "kmx:px:yuqr" ; -- कम्प्युटर
|
||||
country_N = regN "deS" ; -- देश
|
||||
cousin_N = regN "kaka" ; -- काका
|
||||
cow_N = regN "gaI:" ; -- गाई
|
||||
die_V = mkV "mrx:nu" ; -- मर्नु
|
||||
dirty_A = mkA "Pohor" ; -- फोहोर
|
||||
distance_N3 = mkN3 (regN "durI") (mkPrep "deKi") (mkPrep "smx:m") "ko" ; -- दुरी, देखी, सम्म, त्यहाँ
|
||||
doctor_N = regN "xakx:qr" ; -- डाक्टर, | Cikitx:sk - चिकित्सक
|
||||
dog_N = regN "kukur" ; -- कुकुर
|
||||
door_N = regN "Xoka" ; -- ढोका
|
||||
drink_V2 = mkV2 (mkV "pifnu") ; -- पिउनु
|
||||
--easy_A2V = mkA "sjIlo" ; -- सजीलो
|
||||
eat_V2 = mkV2 (mkV "Kanu") "" ; -- खानु
|
||||
empty_A = mkA "KalI" ; -- खाली
|
||||
enemy_N = regN "Stx:ru" ; -- शत्रु
|
||||
factory_N = regN "karKana" ; -- कारखाना
|
||||
father_N2 = mkN2 (regN "buba") (mkPrep "ko") "" ; -- बुबा, बाबु
|
||||
fear_VS = mkV "xrafnu"; -- डराउनु
|
||||
find_V2 = mkV2 (mkV "pafnu") ; -- पाउनु
|
||||
fish_N = regN "maca" ; -- माछा
|
||||
floor_N = regN "BuVI:" ; -- भुँई
|
||||
forget_V2 = mkV2 (mkV "birx:snu") ; -- बिर्सनु
|
||||
fridge_N = regN "Px:rij" ; -- फ्रिज
|
||||
friend_N = regN "saTI" ; -- साथी
|
||||
fruit_N = regN "Pl" ; -- फल
|
||||
--fun_AV = mkAdV "rmai:lo" ; -- रमाइलो
|
||||
garden_N = regN "bgEVCa" ; -- बगैँचा
|
||||
girl_N = mkNF "keqI" ; -- केटी
|
||||
glove_N = regN "pYx:ja"; -- पञ्जा
|
||||
gold_N = regN "sun" ; -- सुन
|
||||
good_A = mkA "ramx:ro" ; -- राम्रो
|
||||
go_V = mkV "janu" ; -- जानु
|
||||
green_A = mkA "hriyo" ; -- हरियो
|
||||
harbour_N = regN "bnx:drgah" ; -- बन्दरगाह
|
||||
hate_V2 = mkV2 (compoundV "GRNa" do_V2) ; -- घृणा
|
||||
hat_N = regN "qopI" ; -- टोपी
|
||||
-- have_V2 = dirV2 (mk5V "ha?e" "has" "had" "had" "ha??ng") ; ????MAY BE NOT APPLICABLE
|
||||
hear_V2 = mkV2 (mkV "sunx:nu") ; -- सुन्नु
|
||||
hill_N = regN "phax" ; -- पहाड
|
||||
hope_VS = (compoundV "ASa" do_V2); -- आशा
|
||||
horse_N = regN "Goxa" ; -- घोडा
|
||||
hot_A = mkA "tato" ; -- तातो
|
||||
house_N = regN "Gr" ; -- घर
|
||||
important_A = mkA "jrurI" ; -- जरुरी
|
||||
industry_N = regN "fDog" ; -- उधोग
|
||||
iron_N = regN "Plam" ; -- फलाम
|
||||
king_N = regN "raja" ; -- राजा
|
||||
know_V2 = mkV2 (mkV "Cinx:nu") ; -- चिन्नु
|
||||
know_VS = (mkV "Taha pafnu") ; -- थाहा पाउनु
|
||||
know_VQ = (compoundV "Taha" (mkV2 (mkV "pafnu"))) ; -- थाहा पाउनु
|
||||
lake_N = regN "tal" ; -- ताल
|
||||
lamp_N = regN "btx:ti" ; -- बत्ति
|
||||
learn_V2 = mkV2 (mkV "sikx:nu") ; -- सिक्नु
|
||||
leather_N = regN "cala" ; -- छाला
|
||||
leave_V2 = mkV2 (mkV "coxx:nu") ; -- छोड्नु
|
||||
like_V2 = mkV2 (compoundV "mn" (mkV "prx:nu")); -- मन पर्नु ???? NOT COVERED BY RULE
|
||||
listen_V2 = mkV2 (mkV "sunx:nu") ; -- सुन्नु
|
||||
live_V = mkV "jifnu" ; -- जिउनु -- px:rtkx:z प्रतक्ष
|
||||
long_A = mkA "lamo" ; -- लामो
|
||||
lose_V2 = mkV2 (mkV "hrafnu") ; -- हराउनु
|
||||
love_N = regN "maya" ; -- माया
|
||||
love_V2 = mkV2 (compoundV "maya" do_V2) "laI:" ; -- "nwN"; -- माया गर्नु
|
||||
man_N = regN "manx:ce" ; -- मान्छे
|
||||
married_A2 = mkA "vivahit" "sVg" ; -- सँग विवाहित
|
||||
meat_N = mkNUC "masu" masculine ; -- मासु
|
||||
milk_N = mkNUC "duD" masculine ; -- दुध
|
||||
moon_N = regN "Cnx:rx:dma" ; -- चन्र्दमा ??
|
||||
mother_N2 = mkN2 (mkNF "Ama") (mkPrep "ko") ""; -- need ko discuss
|
||||
mountain_N = regN "himal" ; -- हिमाल
|
||||
music_N = regN "sMgIt" ; -- संगीत
|
||||
narrow_A = mkA "saMguro" ; -- सांगुरो
|
||||
new_A = mkA "nayaV" ; -- नायाँ
|
||||
newspaper_N = regN "smaCarptx:r" ; -- समाचारपत्र
|
||||
oil_N = mkNUC "tel" masculine ; -- तेल
|
||||
--old_A = mkA "purano" ; -- पुरानो
|
||||
old_A = mkA "buXa" ; -- बुढा
|
||||
open_V2 = mkV2 (mkV "Kolx:nu") ; -- खोल्नु
|
||||
paint_V2A = mkV2 (compoundV "rVg" (mkV2 (mkV "lagafnu"))) "lai:" ;
|
||||
paper_N = regN "kagj" ; -- कागज
|
||||
paris_PN = mkPN "peris" ; -- ???? DEFAULT AS MALE (inflection) is this correct ????
|
||||
peace_N = mkNUC "Sanx:ti" masculine ; -- शान्ति ???? Not sure
|
||||
pen_N = regN "klm" ; -- कलम
|
||||
planet_N = regN "gx:rh" ; -- ग्रह
|
||||
plastic_N = regN "palx:sx:qik" ; -- पाल्स्टिक
|
||||
play_V2 = mkV2 (mkV "Kelx:nu") ; -- खेल्नु
|
||||
policeman_N = regN "px:rhrI" ; -- प्रहरी
|
||||
priest_N = regN "purohit" ; -- पुरोहित
|
||||
-- probable_AS = mkAdj1S (regA "pr?bable") ;
|
||||
queen_N = mkNF "ranI" ; -- रानी
|
||||
radio_N = regN "rexiyo"; -- रेडियो
|
||||
rain_V0 = compoundV "brx:za" (mkV "hunu" ) ; -- बर्षा ???? hunu/bhayo irregular case need to be added
|
||||
read_V2 = mkV2 (mkV "pXx:nu"); -- पढ्नु
|
||||
red_A = mkA "rato" ; -- रातो
|
||||
religion_N = regN "Drx:m" ; -- धर्म
|
||||
restaurant_N = regN "resx:qurenx:q" ; -- रेस्टुरेन्ट
|
||||
river_N = regN "Kola" ; --खोला
|
||||
rock_N = regN "Xun:x:ga" ; -- ढुङ्गा
|
||||
roof_N = regN "cana" ; -- छाना
|
||||
rubber_N = regN "rbr" ; -- रबर
|
||||
run_V = mkV "kudx:nu" ; -- कुद्नु
|
||||
say_VS = mkV "Bnx:nu" ; -- भन्नु
|
||||
school_N = regN "viDaly" ; -- विधालय
|
||||
science_N = regN "vijx:Yn" ; -- विज्ञन
|
||||
sea_N = regN "smunx:dx:r" ; -- समुन्द्र
|
||||
seek_V2 = mkV2 (mkV "Kojx:nu" ) ;
|
||||
sell_V3 = mkV3 (mkV "beCx:nu") "" "laI:" ; -- बेच्नु ???? ram(le) sita (lai) kitab bachyo
|
||||
send_V3 = mkV3 (mkV "pQafnu") "" "laI:"; -- पठाउनु ????
|
||||
sheep_N = regN "Bexa" ; -- भेडा
|
||||
ship_N = regN "jhaj" ; -- जहाज
|
||||
shirt_N = regN "srx:" ; -- सर्ट
|
||||
shoe_N = regN "jutx:ta" ; -- जुत्ता
|
||||
shop_N = regN "psl" ; -- पसल
|
||||
short_A = mkA "coqo" ; --छोटो
|
||||
silver_N = regN "CaVdi" ; -- चाँदि
|
||||
sister_N = mkNF "dIdI" ; -- दीदी
|
||||
sleep_V = mkV "sutx:nu" ; -- सुत्नु
|
||||
small_A = mkA "sano" ; -- सानो
|
||||
snake_N = regN "rx:zp" ; -- र्षप
|
||||
sock_N = regN "moja" ; -- मोजा
|
||||
speak_V2 = mkV2 (mkV "bolx:nu") ; -- बोल्नु
|
||||
star_N = regN "tara" ; -- तारा
|
||||
steel_N = regN "sx:qil" ; -- स्टिल
|
||||
stone_N = regN "Xun:x:ga" ; -- ढुङ्गा
|
||||
stove_N = regN "Culo" ; -- चुलो
|
||||
student_N = regN "biDx:yarx:Ti" ; --बिध्यार्थि
|
||||
stupid_A = mkA "murx:K" ; -- मुर्ख
|
||||
sun_N = regN "surx:y"; -- सुर्य
|
||||
switch8off_V2 = mkV2 (compoundV "sx:viC HP" do_V2) ; -- स्विच अन्
|
||||
switch8on_V2 = mkV2 (compoundV "sx:viC Hnx:" do_V2) ; -- स्विच अफ
|
||||
table_N = regN "qebl" ; -- टेबल
|
||||
talk_V3 = mkV3 (compoundV "kura" (mkV2 (mkV "grx:nu"))) "sVg" ""; -- कुरा गर्नु सँग
|
||||
teacher_N = regN "Sikx:zk" ; -- शिक्षक
|
||||
teach_V2 = mkV2 (mkV "pXafnu") ; -- पढाउनु
|
||||
television_N = regN "qeliBijnx:" ; -- टेलिभिजन्
|
||||
thick_A = mkA "bakx:lo" ; -- बाक्लो
|
||||
thin_A = mkA "patlo" ; -- पातलो
|
||||
train_N = regN "rel" ; -- रेल
|
||||
travel_V = (compoundV "yatx:ra" do_V2) ; -- Gumx:nu -- घुम्नु / यात्रा
|
||||
tree_N = regN "ruK" ; -- रुख
|
||||
ugly_A = mkA "nramx:ro" ; -- नराम्रो
|
||||
understand_V2 = mkV2 (mkV "buJx:nu") ; -- बुझ्नु
|
||||
university_N = regN "biSx:vbiDx:yaly" ; -- बिश्वबिध्यालय
|
||||
village_N = regN "gaFV" ; -- गाऊँ
|
||||
wait_V2 = mkV2 (mkV "prx:Knu") ; -- पर्खनु
|
||||
walk_V = mkV "hixx:nu" ; -- हिड्नु
|
||||
warm_A = mkA "tato" ; -- तातो
|
||||
war_N = regN "lxaI:" ; -- लडाई
|
||||
watch_V2 = mkV2 (mkV "herx:nu") ; -- हेर्नु
|
||||
water_N = mkNUC "panI" feminine ;
|
||||
white_A = mkA "seto" ; -- सेतो
|
||||
window_N = regN "Jx:yal" ; -- झ्याल
|
||||
wine_N = regN "vaI:n" ; -- वाईन
|
||||
win_V2 = mkV2 (mkV "jitx:nu") ; -- जित्नु
|
||||
woman_N = mkNF "AI:maI:" ; -- आईमाई
|
||||
wonder_VQ = compoundV "HCmx:m" (mkV "hunu") ; -- अचम्म हुनु
|
||||
wood_N = regN "kaQ" ; -- काठ
|
||||
write_V2 = mkV2 (mkV "leKx:nu") ; -- लेख्नु
|
||||
yellow_A = mkA "phelo" ; --पहेलो
|
||||
young_A = mkA "jvan" ; -- जवान
|
||||
do_V2 = mkV2 (mkV "grx:nu") ; -- गर्नु
|
||||
now_Adv = mkAdv "HhIle" ; -- अहीले
|
||||
already_Adv = mkAdv "HGinE" ; -- अघिनै
|
||||
song_N = regN "gIt" ; -- गित
|
||||
add_V3 = mkV3 (mkV "joxx:nu") "sVg" "" ; -- जोड्नु
|
||||
number_N = regN "sMKx:ya" ; -- संख्या
|
||||
put_V2 = mkV2 (mkV "raKx:nu") ; -- राख्नु
|
||||
stop_V = mkV "rokx:nu" ; -- रोक्नु
|
||||
jump_V = mkV "fPx:rnu" ; -- उफ्रनु
|
||||
left_Ord = {s = "bayaV" ; n = singular}; -- ????
|
||||
right_Ord = {s = "dayaV" ; n = singular}; -- ????
|
||||
far_Adv = mkAdv "qaXa" ; -- टाढा
|
||||
correct_A = mkA "Qik" ; -- ठिक
|
||||
dry_A = mkA "suKx:Ka" ; -- सुख्खा
|
||||
dull_A = mkA "mnx:D" ; -- मन्ध
|
||||
full_A = mkA "Bri" ; -- भरि
|
||||
heavy_A = mkA "BarI" ; -- भारी
|
||||
near_A = mkA "njik" ; -- नजिक
|
||||
rotten_A = mkA "kuhia:ko" ; -- कुहिएको
|
||||
round_A = mkA "golo" ; -- गोलो
|
||||
sharp_A = mkA "tIKo" ; -- तीखो
|
||||
smooth_A = mkA "smtl" ; -- समतल
|
||||
straight_A = mkA "siDa" ; -- सिधा
|
||||
wet_A = mkA "Ciso" ; -- चिसो
|
||||
wide_A = mkA "Prakilo" ; -- फराकिलो
|
||||
animal_N = regN "jnavar" ; -- जनावार
|
||||
ashes_N = mkNUC "KranI" masculine ; -- खरानी
|
||||
back_N = regN "An:" ; -- आङ
|
||||
bark_N = regN "bokx:ra" ; -- बोक्रा
|
||||
belly_N = regN "peq" ; -- पेट
|
||||
blood_N = mkNUC "rgt" feminine ; -- रगत
|
||||
bone_N = regN "hxx:xI" ; -- हड्डी
|
||||
breast_N = regN "sx:tn" ; -- स्तन
|
||||
cloud_N = regN "badl" ; -- बादल
|
||||
day_N = regN "din" ; -- दिन
|
||||
dust_N = regN "Dulo" ; -- धुलो
|
||||
ear_N = regN "kan" ; -- कान
|
||||
earth_N = regN "pRTx:vi" ; -- पृथ्वि
|
||||
egg_N = regN "HNx:xa" ; -- अण्डा
|
||||
eye_N = regN "AVKa" ; -- आँखा
|
||||
fat_N = regN "moqo" ; -- मोटो
|
||||
feather_N = regN "px:vaVK" ; -- प्वाँख
|
||||
fingernail_N = regN "nn:" ; -- नङ
|
||||
fire_N = regN "Ago" ; -- आगो
|
||||
flower_N = regN "Pul" ; -- फुल
|
||||
fog_N = mkNUC "kuI:ro" feminine ; -- कुईरो
|
||||
foot_N = regN "Kuqx:qa" ; -- खुट्टा
|
||||
forest_N = regN "jVgl" ; -- जँगल
|
||||
grass_N = mkNUC "GaVs" masculine ; -- घाँस
|
||||
guts_N = regN "gt" ; -- FIXME: no singular
|
||||
hair_N = mkNUC "kpal" masculine ; -- कपाल
|
||||
hand_N = regN "hat" ; -- हात
|
||||
head_N = regN "qafkos" ; -- टाउको
|
||||
heart_N = regN "muqu" ; -- मुटु
|
||||
horn_N = regN "hrx:n" ; -- हर्न
|
||||
husband_N = regN "pti" ; -- पति
|
||||
ice_N = mkNUC "hiFV" masculine ; -- हिऊँ
|
||||
knee_N = regN "GuVxa" ; -- घुँडा
|
||||
leaf_N = regN "pat" ; -- पात
|
||||
leg_N = regN "Kuqx:qa" ; -- खुट्टा
|
||||
liver_N = regN "klejo" ; -- कलेजो
|
||||
louse_N = regN "jumx:ra" ; -- जुम्रा
|
||||
mouth_N = regN "muK" ; -- मुख
|
||||
name_N = regN "nam" ; -- नाम
|
||||
neck_N = regN "GaVqI" ; -- घाँटी
|
||||
night_N = regN "rat" ; -- रात
|
||||
nose_N = regN "nak" ; -- नाक
|
||||
person_N = regN "manis" ; -- मानिस
|
||||
rain_N = mkNUC "brx:za" feminine ; -- बर्षा
|
||||
road_N = regN "szk" ; -- सडक
|
||||
root_N = regN "jx" ; -- जड
|
||||
rope_N = regN "xorI" ; -- डोरी
|
||||
salt_N = mkNUC "nun" masculine ; -- नुन
|
||||
sand_N = mkNUC "baluva" masculine ; -- बालुवा
|
||||
seed_N = regN "bif" ; -- बिउ
|
||||
see_V2 = mkV2 (mkV "herrx:nu" ) "laI:" ; -- हेरर्नु
|
||||
skin_N = regN "cala" ; -- छाला
|
||||
sky_N = regN "AkaS" ; -- आकाश
|
||||
smoke_N = mkNUC "DuvaV" masculine ; -- धुवाँ
|
||||
snow_N = regN "hifV" ; -- हिउँ
|
||||
stick_N = regN "lQx:Qi" ; -- लठ्ठि
|
||||
tail_N = regN "puCx:cr" ; -- पुच्छर
|
||||
tongue_N = regN "jibx:ro" ; -- जिब्रो
|
||||
tooth_N = regN "daVt" ; -- दाँत
|
||||
wife_N = mkNF "ptx:nI" ; -- पत्नी
|
||||
wind_N = regN "hurI" ; -- हुरी
|
||||
wing_N = regN "pMKa" ; -- पंखा
|
||||
worm_N = regN "juga" ; -- जुगा
|
||||
year_N = regN "brx:z" ; -- बर्ष
|
||||
blow_V = mkV "px:rhar" ; -- प्रहार
|
||||
breathe_V = compoundV "sas" (mkV "Perx:nu" ) ; -- सास फेर्नु
|
||||
burn_V = mkV "balx:nu" ; -- बाल्नु
|
||||
dig_V = mkV "Knx:nu" ; -- खन्नु
|
||||
fall_V = mkV "Jrx:nu" ; -- झर्नु
|
||||
float_V = mkV "ftx:rnu" ; -- उत्रनु
|
||||
flow_V = mkV "bhnu" ; -- बहनु
|
||||
fly_V = mkV "fxx:nu" ; -- उड्नु
|
||||
freeze_V = mkV "jmafnu" ; -- जमाउनु
|
||||
give_V3 = mkV3 (mkV "dinu") lai "" ; -- दिनु
|
||||
laugh_V = mkV "hasx:nu" ; -- हास्नु
|
||||
lie_V = compoundV "Juqo" (mkV "bolx:nu"); -- झुटो बोल्नु
|
||||
play_V = mkV "Kelx:nu" ; -- खेल्नु
|
||||
sit_V = mkV "bsx:nu" ; -- बस्नु
|
||||
sew_V = mkV "sifnu" ; -- सिउनु
|
||||
sing_V = mkV "gafnu" ; -- गाउनु
|
||||
smell_V = mkV "sugnx:D" ; -- सुगन्ध
|
||||
spit_V = mkV "Tukx:nu" ; -- थुक्नु
|
||||
stand_V = mkV "fQx:nu" ; -- उठ्नु
|
||||
swell_V = mkV "suninu" ; -- सुनिनु
|
||||
swim_V = compoundV "pwxI" (mkV "Kelx:nu" ) ;
|
||||
think_V = mkV "soCx:nu" ; -- सोच्नु
|
||||
turn_V = mkV "plx:qinu" ; -- पल्टिनु
|
||||
vomit_V = mkV "cadnu" ; -- छादनु
|
||||
bite_V2 = mkV2 (mkV "qokx:nu") ; -- टोक्नु
|
||||
count_V2 = mkV2 (mkV "gnx:nu") ; -- गन्नु
|
||||
cut_V2 = mkV2 (mkV "kaqnu") ; -- काटनु
|
||||
fear_V2 = mkV2 (mkV "xrafnu") ; -- डराउनु
|
||||
fight_V2 = mkV2 (mkV "lxx:nu") ; -- लड्नु
|
||||
hit_V2 = mkV2 (mkV "hanx:nu" ) "laI:" ; -- हान्नु
|
||||
hold_V2 = mkV2 (mkV "smatx:nu") ; -- समात्नु
|
||||
hunt_V2 = mkV2 (compoundV "Sikar" do_V2) ; -- शिकार
|
||||
kill_V2 = mkV2 (mkV "marx:nu") ; -- मार्नु
|
||||
pull_V2 = mkV2 (mkV "tanx:nu"); -- तान्नु
|
||||
push_V2 = mkV2 (compoundV "Dkx:ka" (mkV "dinu")) lai ;
|
||||
rub_V2 = mkV2 (mkV "maxnu") ; -- माडनु
|
||||
scratch_V2 = mkV2 (mkV "korx:nu") lai ; -- कोर्नु
|
||||
split_V2 = mkV2 (mkV "Cirx:nu") lai ; -- चिर्नु
|
||||
squeeze_V2 = mkV2 (mkV "TiCx:nu") lai ; -- थिच्नु
|
||||
stab_V2 = mkV2 (compoundV "cura" hit_V2) ; -- छुरा हान्नु
|
||||
suck_V2 = mkV2 (mkV "Cusx:nu") ; -- चुस्नु
|
||||
throw_V2 = mkV2 (mkV "Palx:nu") ; -- फाल्नु
|
||||
tie_V2 = mkV2 (mkV "baVDnu") ; -- बाँधनु
|
||||
wash_V2 = mkV2 (mkV "Dunu") ; -- धुनु
|
||||
wipe_V2 = mkV2 (mkV "pucx:nu"); -- पुछ्नु
|
||||
--b other_A = mkA "Hru" ; -- अरु NOT IN ABSTRACT
|
||||
grammar_N = regN "vx:yakrN" ; -- व्याकरण
|
||||
language_N = regN "Baza" ; -- भाषा
|
||||
rule_N = regN "niym" ; -- नियम
|
||||
|
||||
-- added 4/6/2007
|
||||
john_PN = mkPN "jon" ;
|
||||
question_N = regN "px:rSx:n" ; -- प्रश्न
|
||||
ready_A = mkA "tyar" ; -- तयार
|
||||
reason_N = regN "karN" ; -- कारण
|
||||
today_Adv = mkAdv "Aj" ; -- आज
|
||||
uncertain_A = mkA "HniSx:Cit" ; -- अनिश्चित
|
||||
|
||||
oper
|
||||
lai = "laI:" ;
|
||||
|
||||
} ;
|
||||
@@ -0,0 +1,894 @@
|
||||
--# -path=.:../../prelude
|
||||
--
|
||||
----1 A Simple Punjabi Resource Morphology
|
||||
----
|
||||
---- Shafqat Virk, Aarne Ranta,2010
|
||||
----
|
||||
---- This resource morphology contains definitions needed in the resource
|
||||
---- syntax. To build a lexicon, it is better to use $ParadigmsPnb$, which
|
||||
---- gives a higher-level access to this module.
|
||||
|
||||
resource MorphoNep = ResNep ** open Prelude,Predef in {
|
||||
|
||||
flags optimize=all ;
|
||||
coding = utf8;
|
||||
|
||||
param
|
||||
{-
|
||||
For distinguishing root ending in -a- and rest of other.
|
||||
Root ending in -a/अ or h - is regarded as reg and rest ireg
|
||||
-}
|
||||
VCase = VReg | VIReg ;
|
||||
|
||||
|
||||
--1 Nouns
|
||||
oper
|
||||
|
||||
-- mkN : (x1,_,_,_,_,_,_,_,_,_,_,x12 : Str) -> Gender -> Bool -> Noun =
|
||||
mkN : (x1,_,_,_,_,_,_,_,_,_,_,x12 : Str) -> Gender -> Noun =
|
||||
\sn,sa,si,sd,sab,sl,pn,pa,pi,pd,pab,pl, g -> {
|
||||
s = table {
|
||||
Sg => table {
|
||||
Nom => sn ;
|
||||
Acc => sa ;
|
||||
Ins => si ;
|
||||
Dat => sd ;
|
||||
Abl => sab ;
|
||||
Loc => sl
|
||||
} ;
|
||||
Pl => table {
|
||||
Nom => pn ;
|
||||
Acc => pa ;
|
||||
Ins => pi ;
|
||||
Dat => pd ;
|
||||
Abl => pab ;
|
||||
Loc => pl
|
||||
}
|
||||
} ;
|
||||
|
||||
g = g
|
||||
-- isHum = h
|
||||
} ;
|
||||
|
||||
-- TODO
|
||||
-- ?? NEED TO ADD CASE IF ENDS WITH 'o' (PG. 99 Jaya)
|
||||
|
||||
-- Regular nouns
|
||||
mkNMF : Str -> Gender -> Noun ;
|
||||
mkNMF str g = mkN str (str + "laI:") (str + "le") (str + "laI:") (str + "baq") (str + "ma")
|
||||
(str + "hru") (str + "hrulaI:") (str + "hrule") (str + "hrulaI:") (str + "hrubaq") (str + "hruma") g ;
|
||||
|
||||
-- Regular Nouns
|
||||
mkNReg : Str -> Noun ;
|
||||
mkNReg str = mkNMF str Masc ;
|
||||
|
||||
-- Faminine nouns
|
||||
mkNFem : Str -> Noun ;
|
||||
mkNFem str = mkNMF str Fem ;
|
||||
|
||||
|
||||
-- Uncountable nouns, which have same singular and plular form
|
||||
-- eg water
|
||||
mkNUnc : Str -> Gender -> Noun ;
|
||||
mkNUnc str g = mkN str (str + "laI:") (str + "le") (str + "laI:") (str + "baq") (str + "ma")
|
||||
str (str + "laI:") (str + "le") (str + "laI:") (str + "baq") (str + "ma") g ;
|
||||
|
||||
-- Proper Names
|
||||
regN1 : Str -> Gender -> Noun ;
|
||||
regN1 str g = mkN str (str + "laI:") (str + "le") (str + "laI:") (str + "baq") (str + "ma")
|
||||
str str str str str str g ;
|
||||
|
||||
|
||||
-- pronouns
|
||||
makePron : (x1,_,_,_,_,x6 : Str) -> {s : Case => Str} =
|
||||
\n,ac,i,d,ab,l-> {
|
||||
s = table {
|
||||
Nom => n ;
|
||||
Acc => ac ;
|
||||
Ins => i ;
|
||||
Dat => d ;
|
||||
Abl => ab ;
|
||||
Loc => l
|
||||
}
|
||||
} ;
|
||||
|
||||
makePronReg : Str -> {s : Case => Str} ;
|
||||
makePronReg str = makePron str (str + "laI:") (str + "le") (str + "laI:") (str + "baq") (str + "ma") ;
|
||||
|
||||
--2. Derminers
|
||||
|
||||
makeDet : Str -> Str -> Str -> Str -> Number -> Determiner =
|
||||
\s1,s2,s3, s4, n -> {
|
||||
s = table {
|
||||
Sg => table { Masc => s1 ;
|
||||
Fem => s2 } ;
|
||||
Pl => table { Masc => s3 ;
|
||||
Fem => s4 }
|
||||
} ;
|
||||
n = n
|
||||
};
|
||||
|
||||
|
||||
IDeterminer = {s : Gender => Str ; n : Number};
|
||||
makeIDet : Str -> Str -> Number -> IDeterminer =
|
||||
\s1,s2,n -> {
|
||||
s = table {
|
||||
Masc => s1;
|
||||
Fem => s2
|
||||
} ;
|
||||
n = n
|
||||
};
|
||||
{-
|
||||
makeIQuant : Str -> Str -> Str -> Str -> {s:Number => Gender => Str} = \s1,s2,s3,s4 -> {
|
||||
s = table {
|
||||
Sg => table {
|
||||
Masc => s1 ;
|
||||
Fem => s2
|
||||
} ;
|
||||
Pl => table {
|
||||
Masc => s3 ;
|
||||
Fem => s4
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
-}
|
||||
|
||||
-- Quantifiers
|
||||
makeQuant : Str -> Str -> Str -> Str -> {s : Number => Gender => Str } =
|
||||
\sm,sf,pm,pf -> {
|
||||
s = table {
|
||||
Sg => table { Masc => sm ;
|
||||
Fem => sf } ;
|
||||
Pl => table { Masc => pm ;
|
||||
Fem => pf }
|
||||
}
|
||||
} ;
|
||||
|
||||
-- Proposition
|
||||
makePrep : Str -> Preposition = \str -> {s = str } ** { lock_Prep = <>};
|
||||
|
||||
|
||||
--3. Verbs
|
||||
mkVerb : (_: Str) -> Verb = \inf ->
|
||||
let root = (tk 2 inf) ;
|
||||
|
||||
in {
|
||||
s = table {
|
||||
Root => root ;
|
||||
Inf => inf ;
|
||||
PVForm => (tk 1 inf) ;
|
||||
Imp => (mkImpForm root).s ;
|
||||
ProgRoot aspect number gender => (mkProgRoot root aspect number gender).s ;
|
||||
|
||||
VF tense aspect polarity person number gender =>
|
||||
case aspect of {
|
||||
Imperf => (mkVImperf root tense polarity person number gender).s ;
|
||||
Perf => (mkVPerf root tense polarity person number gender).s
|
||||
}
|
||||
}
|
||||
} ;
|
||||
|
||||
--For the case of lets (lets sleep)
|
||||
mkImpForm : Str -> {s:Str} ;
|
||||
mkImpForm str =
|
||||
let vcase = (rootCheck str).vcase;
|
||||
root2 = (rootCheck str).root2
|
||||
in {
|
||||
s = case vcase of {
|
||||
VReg => root2 + "wV" ;
|
||||
_ => root2 + "AV"
|
||||
};
|
||||
};
|
||||
|
||||
--For the progressive root case
|
||||
mkProgRoot : Str -> Aspect -> Number -> Gender -> {s : Str } =
|
||||
\root,aspect,number,gender ->
|
||||
let root1 = (rootCheck root).root1 ;
|
||||
root2 = (rootCheck root).root2 ;
|
||||
vcase = (rootCheck root).vcase
|
||||
in {
|
||||
s= case <vcase,root> of {
|
||||
<VReg, _> => (mkProgReg root2 aspect number gender).s ;
|
||||
<_, "ja"> => (mkProgIReg root aspect number gender).s ;
|
||||
<_, "ha"> => (mkProgIReg root aspect number gender).s ;
|
||||
<_, _> => (mkProgIReg root2 aspect number gender).s
|
||||
};
|
||||
};
|
||||
|
||||
|
||||
mkProgReg : Str -> Aspect -> Number -> Gender -> {s : Str } =
|
||||
\root2,aspect,number,gender -> {
|
||||
s = case <aspect,number,gender> of {
|
||||
<Imperf, _, _> => root2 + "dE" ;
|
||||
|
||||
<Perf, Sg, Masc> => root2 + "irheko" ;
|
||||
<Perf, Sg, Fem> => root2 + "irheki" ;
|
||||
<Perf, Pl, _> => root2 + "irheka"
|
||||
};
|
||||
};
|
||||
|
||||
|
||||
mkProgIReg : Str -> Aspect -> Number -> Gender -> {s : Str } =
|
||||
\root,aspect,number,gender -> {
|
||||
s = case <aspect,number,gender> of {
|
||||
<Imperf, _, _> => root + "dE" ;
|
||||
|
||||
<Perf, Sg, Masc> => root + "i:rheko" ;
|
||||
<Perf, Sg, Fem> => root + "i:rheki" ;
|
||||
<Perf, Pl, _> => root + "i:rheka"
|
||||
};
|
||||
} ;
|
||||
|
||||
--need to check for want_VV <- Not inflected correctly
|
||||
|
||||
rootCheck : Str -> {root1:Str; root2:Str; vcase: VCase} =
|
||||
\root -> {
|
||||
{-
|
||||
Root inflection case
|
||||
1. irregular case of Janu/जानु/go
|
||||
root = जा root1 = जान् root2 = ग
|
||||
|
||||
2. irregular case of Hunu/हुनु/Become
|
||||
root = हु root1 = हुन् root2 = भ
|
||||
|
||||
3. reg Verbs ending in Consonants - पढनु/to study
|
||||
root = पढ्, root1 = पढ root2 = पढ् <- original
|
||||
root = पढ्, root1 = पढ्, root2 = पढ <- changed to this
|
||||
make sure it doesn't break
|
||||
|
||||
4. Khanu/खानु/to eat, Dinu/दिनु /to Give
|
||||
root = खा root1 = खान् root2 = खा
|
||||
|
||||
5. Dhunu/धुनु/wash, Runu/रुनु/Cry
|
||||
root = धु root1 = धुन् root2 = धो
|
||||
|
||||
6. Aaunu/आउनु/to Come, Pathaunu/पठाउनु/to Send
|
||||
root = आउ root1 = आउँ root2 = आ
|
||||
-}
|
||||
|
||||
root1 = case root of {
|
||||
"ja" => root + "nx:" ;
|
||||
"hu" => root + "nx:" ;
|
||||
rot + "x:" => root ;
|
||||
rot + ("a"|"i"|"I") => root + "nx:" ;
|
||||
rot + ("e"|"u"|"U") => root + "nx:" ;
|
||||
rot + ("f"|"F") => root + "V" ;
|
||||
_ => root
|
||||
} ;
|
||||
root2 = case root of {
|
||||
"ja" => "g" ;
|
||||
"hu" => "B" ;
|
||||
rot + "x:" => rot ;
|
||||
rot + ("a"|"i"|"I") => root ;
|
||||
rot + ("e"|"u"|"U") => rot + "o" ;
|
||||
rot + ("f"|"F") => rot ;
|
||||
_ => root
|
||||
} ;
|
||||
vcase = case root of {
|
||||
rot + "x:" => VReg;
|
||||
rot + "h" => VReg;
|
||||
_ => VIReg
|
||||
}
|
||||
} ;
|
||||
|
||||
mkVImperf : Str -> VTense -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, t, po, pn, n, g ->
|
||||
let root1 = (rootCheck root).root1 ;
|
||||
root2 = (rootCheck root).root2 ;
|
||||
vcase = (rootCheck root).vcase ;
|
||||
in
|
||||
{s = case t of {
|
||||
NPresent => (mkVPreNP root root1 vcase po pn n g).s ;
|
||||
NPast Simpl => (mkVPstSNP root root2 vcase po pn n g).s ;
|
||||
NPast Hab => (mkVPstHNP root root1 vcase po pn n g).s ;
|
||||
NPast Unknown => (mkVPstUNP root root2 vcase po pn n g).s ;
|
||||
NFuture Defin => (mkVFutDNP root po pn n g).s ;
|
||||
NFuture NDefin => (mkVFutNDNP root root2 vcase po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
mkVPerf : Str -> VTense -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, t, po, pn, n, g ->
|
||||
let root1 = (rootCheck root).root1 ;
|
||||
root2 = (rootCheck root).root2 ;
|
||||
vcase = (rootCheck root).vcase ;
|
||||
in
|
||||
{s = case t of {
|
||||
--it seems root has no use in these cases, root2 worsk for all
|
||||
--if no problem arises better to remove root parameter
|
||||
NPresent => (mkVPreP root root2 vcase po pn n g).s ;
|
||||
NPast Simpl => (mkVPstSP root root2 vcase po pn n g).s ;
|
||||
NPast Hab => (mkVPstHP root root2 vcase po pn n g).s ;
|
||||
NPast Unknown => (mkVPstUP root root2 vcase po pn n g).s ;
|
||||
NFuture Defin => (mkVFutDefP root root2 vcase po pn n g).s ;
|
||||
NFuture NDefin => (mkVFutNDefP root root2 vcase po pn n g).s
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Present, Nonperfective aspect, Non-progressive mode,
|
||||
mkVPreNP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root1, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPreNPReg root po pn n g).s ;
|
||||
VIReg => (mkVPreNPIReg root root1 po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPreNP Helper for VRrg case
|
||||
mkVPreNPReg : Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
-- Positive case
|
||||
<Pos, Pers1, Sg, _> => root + "cu" ; -- छु
|
||||
<Pos, Pers1, Pl, _> => root + "cwV" ; -- छौं
|
||||
<Pos, Pers2_L, Sg, Masc> => root + "csx:" ; -- छस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + "cesx:" ; -- छेस्
|
||||
<Pos, Pers2_L, Pl, _> => root + "cw" ; -- छौ
|
||||
<Pos, Pers2_M, Sg, Fem> => root + "cx:yw" ; -- छ्यौ
|
||||
<Pos, Pers2_M, _ , _> => root + "cw" ; -- छौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + "c" ; -- छ
|
||||
<Pos, Pers3_L, Sg, Fem> => root + "ce" ; -- छे
|
||||
<Pos, Pers3_L, Pl, _> => root + "cnx:" ; -- छन्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + "cinx:" ; -- छिन्
|
||||
<Pos, Pers3_M, _, _> => root + "cnx:" ; -- छन्
|
||||
<Pos, _ , _, _> => root + "nuhunx:c" ; -- नुहुन्छ
|
||||
|
||||
-- Negative Case
|
||||
<Neg, Pers1, Sg, _> => root + "dinV" ; -- इनँ (पढ्दिनँ)
|
||||
<Neg, Pers1, Pl, _> => root + "dEnEV" ; -- ऐनैँ (पढ्दैनैँ)
|
||||
<Neg, Pers2_L, Sg, Masc> => root + "dEnsx:" ; -- ऐनस् (पढदैनस्)
|
||||
<Neg, Pers2_L, Sg, Fem> => root + "dinsx:" ; -- इनस् (पढदिनस्)
|
||||
<Neg, Pers2_L, Pl, _> => root + "dEnE" ; -- ऐनै
|
||||
<Neg, Pers2_M, Sg, Fem> => root + "dinE" ; -- इनै
|
||||
<Neg, Pers2_M, _ , _> => root + "dEnE" ; -- ऐनै
|
||||
<Neg, Pers3_L, Sg, Masc> => root + "dEn" ; -- ऐन
|
||||
<Neg, Pers3_L, Sg, Fem> => root + "din" ; -- इन
|
||||
<Neg, Pers3_L, Pl, _> => root + "dEnx:n" ; -- ऐनन्
|
||||
<Neg, Pers3_M, Sg, Fem> => root + "dinx:n" ; -- इनन्
|
||||
<Neg, Pers3_M, _, _> => root + "dEnx:n" ; -- ऐनन्
|
||||
<Neg, _ , _, _> => root + "nuhunx:n" -- नुहुन्न
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPreNP Helper for VIRrg case
|
||||
mkVPreNPIReg : Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root1, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
-- Positive case
|
||||
<Pos, Pers1, Sg, _> => root1 + "cu" ; -- छु
|
||||
<Pos, Pers1, Pl, _> => root1 + "cwM" ; -- छौं
|
||||
<Pos, Pers2_L, Sg, Masc> => root1 + "csx:" ; -- छस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root1 + "cesx:" ; -- छेस्
|
||||
<Pos, Pers2_L, Pl, _> => root1 + "cw" ; -- छौ
|
||||
<Pos, Pers2_M, Pl, Fem> => root1 + "cx:yw" ; -- छ्यौ
|
||||
<Pos, Pers2_M, _ , _> => root1 + "cw" ; -- छौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root1 + "c" ; -- छ
|
||||
<Pos, Pers3_L, Sg, Fem> => root1 + "ce" ; -- छे
|
||||
<Pos, Pers3_L, Pl, _> => root1 + "cnx:" ; -- छन्
|
||||
<Pos, Pers3_M, Sg, Fem> => root1 + "cinx:" ; -- छिन्
|
||||
<Pos, Pers3_M, _, _> => root1 + "cnx:" ; -- छन्
|
||||
<Pos, _ , _, _> => root + "nuhunx:c" ; -- नुहुन्छ
|
||||
|
||||
-- Negative Case
|
||||
<Neg, Pers1, Sg, _> => root + "VdinV" ; -- इनँ (खाँदिनँ)
|
||||
<Neg, Pers1, Pl, _> => root + "VdEnEV" ; -- ऐनैँ (खाँदैनैँ)
|
||||
<Neg, Pers2_L, Sg, Masc> => root + "VdEnsx:" ; -- ऐनस् (आउँदैनस्)
|
||||
<Neg, Pers2_L, Sg, Fem> => root + "Vdinsx:" ; -- इनस् (खाँदिनस्)
|
||||
<Neg, Pers2_L, Pl, _> => root + "VdEnE" ; -- ऐनै (खाँदैनै)
|
||||
<Neg, Pers2_M, Sg, Fem> => root + "VdinE" ; -- इनै
|
||||
<Neg, Pers2_M, _ , _> => root + "VdEnE" ; -- ऐनै
|
||||
<Neg, Pers3_L, Sg, Masc> => root + "VdEn" ; -- ऐन
|
||||
<Neg, Pers3_L, Sg, Fem> => root + "Vdin" ; -- इन (खाँदिन)
|
||||
<Neg, Pers3_L, Pl, _> => root + "VdEnx:n" ; -- ऐनन्
|
||||
<Neg, Pers3_M, Sg, Fem> => root + "Vdinx:n" ; -- इनन्
|
||||
<Neg, Pers3_M, _, _> => root + "VdEnx:n" ; -- ऐनन्
|
||||
<Neg, _ , _, _> => root + "Vnuhunx:z=n" -- नुहुन्न
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
-- Past Simple, Nonprogressive mode, nonperfective aspect
|
||||
mkVPstSNP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPstSNPReg root root2 po pn n g).s ;
|
||||
VIReg => (mkVPstSNPIReg root root2 po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPstSNP Helper for VRrg case
|
||||
mkVPstSNPReg : Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
-- Positive case
|
||||
<Pos, Pers1, Sg, _> => root2 + "eV" ; -- एँ
|
||||
<Pos, Pers1, Pl, _> => root + "ywM" ; -- यौं
|
||||
<Pos, Pers2_L, Sg, _> => root2 + "isx:" ; -- इस्
|
||||
<Pos, Pers2_L, Pl, _> => root + "yw" ; -- यौ
|
||||
<Pos, Pers2_M, _, _> => root + "yw" ; -- यौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + "yo" ; -- यो
|
||||
<Pos, Pers3_L, Sg, Fem> => root2 + "I" ; -- इ (पढी)
|
||||
<Pos, Pers3_L, Pl, _> => root2 + "e" ; -- ए (पढे)
|
||||
<Pos, Pers3_M, Sg, Fem> => root2 + "inx:" ; -- इन् (पढिन्)
|
||||
<Pos, Pers3_M, _, _> => root2 + "e" ; -- ए (पढे)
|
||||
<Pos, _, _, _> => root + "nuByo" ; -- नुभयो
|
||||
|
||||
-- Negative case
|
||||
<Neg, Pers1, Sg, _> => root2 + "inV" ; -- इनँ
|
||||
<Neg, Pers1, Pl, _> => root2 + "enEV" ; -- एनैँ
|
||||
<Neg, Pers2_L, Sg, _> => root2 + "insx:" ; -- इनस्
|
||||
<Neg, Pers2_L, Pl, _> => root2 + "enE" ; -- एनै
|
||||
<Neg, Pers2_M, Sg, Fem> => root2 + "inE" ; -- इनै
|
||||
<Neg, Pers2_M, _, _> => root2 + "enE" ; -- एनै
|
||||
<Neg, Pers3_L, Sg, Masc> => root2 + "en" ; -- एन
|
||||
<Neg, Pers3_L, Sg, Fem> => root2 + "in" ; -- इन (पढिन)
|
||||
<Neg, Pers3_L, Pl, _> => root2 + "ennx:" ; -- एनन् (पढेनन्)
|
||||
<Neg, Pers3_M, Sg, Fem> => root2 + "innx:" ; -- इनन् (पढिनन्)
|
||||
<Neg, Pers3_M, _, _> => root2 + "ennx:" ; -- एनन् (पढेनन्)
|
||||
<Neg, _, _, _> => root + "nuBe:n" -- नुभएन
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPstSNP Helper for VIRrg case
|
||||
mkVPstSNPIReg : Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
-- Positive case
|
||||
<Pos, Pers1, Sg, _> => root2 + "e:V" ; -- एँ
|
||||
<Pos, Pers1, Pl, _> => root2 + "ywM" ; -- यौं
|
||||
<Pos, Pers2_L, Sg, _> => root2 + "i:sx:" ; -- इस्
|
||||
<Pos, Pers2_L, Pl, _> => root2 + "yw" ; -- यौ
|
||||
<Pos, Pers2_M, _, _> => root2 + "yw" ; -- यौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root2 + "yo" ; -- यो
|
||||
<Pos, Pers3_L, Sg, Fem> => root2 + "I:" ; -- ई
|
||||
<Pos, Pers3_L, Pl, _> => root2 + "e:" ; -- ए
|
||||
<Pos, Pers3_M, Sg, Fem> => root2 + "i:nx:" ; -- इन्
|
||||
<Pos, Pers3_M, _, _> => root2 + "e:" ; -- ए
|
||||
<Pos, _, _, _> => root + "nuByo" ; -- नुभयो
|
||||
|
||||
-- Negative case
|
||||
<Neg, Pers1, Sg, _> => root2 + "i:nV" ; -- इनँ
|
||||
<Neg, Pers1, Pl, _> => root2 + "e:nEV" ; -- एनैँ
|
||||
<Neg, Pers2_L, Sg, _> => root2 + "i:nsx:" ; -- इनस्
|
||||
<Neg, Pers2_L, Pl, _> => root2 + "e:nE" ; -- एनै
|
||||
<Neg, Pers2_M, Sg, Fem> => root2 + "i:nE" ; -- इनै
|
||||
<Neg, Pers2_M, _, _> => root2 + "e:nE" ; -- एनै
|
||||
<Neg, Pers3_L, Sg, Masc> => root2 + "e:n" ; -- एन
|
||||
<Neg, Pers3_L, Sg, Fem> => root2 + "i:n" ; -- इन (पढिन)
|
||||
<Neg, Pers3_L, Pl, _> => root2 + "e:nnx:" ; -- एनन् (पढेनन्)
|
||||
<Neg, Pers3_M, Sg, Fem> => root2 + "i:nnx:" ; -- इनन् (पढिनन्)
|
||||
<Neg, Pers3_M, _, _> => root2 + "e:nnx:" ; -- एनन् (पढेनन्)
|
||||
<Neg, _, _, _> => root + "nuBe:n" -- नुभएन
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
-- Past Habitual, Nonprogressive mode, nonperfective aspect
|
||||
mkVPstHNP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root1, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPstHNPGen root root1 po pn n g).s ;
|
||||
VIReg => (mkVPstHNPGen root1 root po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPstHNP helper, handles bith VReg and VIReg cases
|
||||
mkVPstHNPGen : Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root1, po, pn, n, g ->
|
||||
let neg = "dEn" ; -- दैन (TODO : CHECK FOR MAKE GENERIC FINCTION FOR POS AND NEG)
|
||||
in
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root + "TeM" ; -- थें
|
||||
<Pos, Pers1, Pl, _> => root + "Tx:ywM" ; -- थ्यौं
|
||||
<Pos, Pers2_L, Sg, _> => root + "Tisx:" ; -- थिस्
|
||||
<Pos, Pers2_L, Pl, _> => root + "Tx:yw" ; -- थ्यौ
|
||||
<Pos, Pers2_M, _, _> => root + "Tx:yw" ; -- थ्यौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + "Tx:yo" ; -- थ्यो
|
||||
<Pos, Pers3_L, Sg, Fem> => root + "TI" ; -- थी
|
||||
<Pos, Pers3_L, Pl, _> => root + "Te" ; -- थे
|
||||
<Pos, Pers3_M, Sg, Fem> => root + "Tinx:" ; -- थिन्
|
||||
<Pos, Pers3_M, _, _> => root + "Te" ; -- थे
|
||||
<Pos, _, _, _> => root1 + "nuhunx:z+Tx:yo" ; -- नुहुन्थ्यो
|
||||
|
||||
<Neg, Pers1, Sg, _> => root + neg + "TeM" ; -- थें
|
||||
<Neg, Pers1, Pl, _> => root + neg + "Tx:ywM" ; -- थ्यौं
|
||||
<Neg, Pers2_L, Sg, _> => root + neg + "Tisx:" ; -- थिस्
|
||||
<Neg, Pers2_L, Pl, _> => root + neg + "Tx:yw" ; -- थ्यौ
|
||||
<Neg, Pers2_M, _, _> => root + neg + "Tx:yw" ; -- थ्यौ
|
||||
<Neg, Pers3_L, Sg, Masc> => root + neg + "Tx:yo" ; -- थ्यो
|
||||
<Neg, Pers3_L, Sg, Fem> => root + neg + "TI" ; -- थी
|
||||
<Neg, Pers3_L, Pl, _> => root + neg + "Te" ; -- थे
|
||||
<Neg, Pers3_M, Sg, Fem> => root + neg + "TInx:" ; -- थिन्
|
||||
<Neg, Pers3_M, _, _> => root + neg + "Te" ; -- थे
|
||||
<Neg, _, _, _> => root1 + "nuhuVdEnTx:yo" -- नुहुँदैनथ्यो
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Past Unknown, Nonprogressive mode, nonperfective aspect
|
||||
mkVPstUNP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\ root, root2, vc, po, p, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => case po of {
|
||||
Pos => (mkVPstUNPReg root root2 "" p n g).s ;
|
||||
Neg => (mkVPstUNPReg root root2 "n" p n g).s
|
||||
} ;
|
||||
VIReg => case po of {
|
||||
Pos => (mkVPstUNPIReg root root2 "" p n g).s ;
|
||||
Neg => (mkVPstUNPIReg root root2 "n" p n g).s
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
-- mkVPstUNP helper for VReg case
|
||||
mkVPstUNPReg : Str -> Str -> Str -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, na, pn, nu, g ->
|
||||
{s = case <pn, nu, g> of {
|
||||
<Pers1, Sg, Masc> => root2 + "e" + na + "cu" ; -- एछु
|
||||
<Pers1, Sg, Fem> => root2 + "i" + na + "cu" ; -- इछु
|
||||
<Pers1, Pl, _> => root2 + "e" + na + "cwV" ; -- एछौँ
|
||||
<Pers2_L, Sg, Masc> => root2 + "e" + na + "csx:" ; -- एछस्
|
||||
<Pers2_L, Sg, Fem> => root2 + "i" + na + "csx:" ; -- इछस्
|
||||
<Pers2_L, Pl, _> => root2 + "e" + na + "cw" ; -- एछौ
|
||||
<Pers2_M, Sg, Fem> => root2 + "i" + na + "cw" ; -- इछौ
|
||||
<Pers2_M, _, _> => root2 + "e" + na + "cw" ; -- एछौ
|
||||
<Pers3_L, Sg, Masc> => root2 + "e" + na + "c" ; -- एछ
|
||||
<Pers3_L, Sg, Fem> => root2 + "i" + na + "c" ; -- इछ
|
||||
<Pers3_L, Pl, _> => root2 + "e" + na + "cnx:" ; -- एछन्
|
||||
<Pers3_M, Sg, Fem> => root2 + "i" + na + "cnx:" ; -- इछन्
|
||||
<Pers3_M, _, _> => root2 + "e" + na + "cnx:" ; -- एछन्
|
||||
< _, _, _> => root + "nuBe:" + na +"c" -- नुभएछ
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
-- mkVPstUNP helper for VIReg case
|
||||
mkVPstUNPIReg : Str -> Str -> Str -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, na, pn, nu, g ->
|
||||
{s = case <pn, nu, g> of {
|
||||
<Pers1, Sg, Masc> => root2 + "e:" + na + "cu" ; -- एछु
|
||||
<Pers1, Sg, Fem> => root2 + "i:" + na + "cu" ; -- इछु
|
||||
<Pers1, Pl, _> => root2 + "e:" + na + "cwV" ; -- एछौँ
|
||||
<Pers2_L, Sg, Masc> => root2 + "e:" + na + "csx:" ; -- एछस्
|
||||
<Pers2_L, Sg, Fem> => root2 + "i:" + na + "csx:" ; -- इछस्
|
||||
<Pers2_L, Pl, _> => root2 + "e:" + na + "cw" ; -- एछौ
|
||||
<Pers2_M, Sg, Fem> => root2 + "i:" + na + "cw" ; -- इछौ
|
||||
<Pers2_M, _, _> => root2 + "e:" + na + "cw" ; -- एछौ
|
||||
|
||||
<Pers3_L, Sg, Masc> => root2 + "e:" + na + "c" ; -- एछ
|
||||
<Pers3_L, Sg, Fem> => root2 + "i:" + na + "c" ; -- इछ
|
||||
<Pers3_L, Pl, _> => root2 + "e:" + na + "cnx:" ; -- एछन्
|
||||
<Pers3_M, Sg, fem> => root2 + "i:" + na + "cnx:" ; -- इछन्
|
||||
<Pers3_M, _, _> => root2 + "e:" + na + "cnx:" ; -- एछन्
|
||||
< _, _, _> => root + "nuBe:" + na +"c" -- नुभएनछ
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
-- Future Definitive, Nonprogressive mode, nonperfective aspect
|
||||
-- Handles Both cases
|
||||
mkVFutDNP : Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
-- Positive case
|
||||
<Pos, Pers1, Sg, _> => root + "necu" ; -- नेछु
|
||||
<Pos, Pers1, Pl, _> => root + "necwM" ; -- नेछौं
|
||||
<Pos, Pers2_L, Sg, _> => root + "necsx:" ; -- नेछस्
|
||||
<Pos, Pers2_L, Pl, _> => root + "necwM" ; -- नेछौ
|
||||
<Pos, Pers2_M, _, _> => root + "necwM" ; -- नेछौ
|
||||
<Pos, Pers3_L, Sg, _> => root + "nec" ; -- नेछ
|
||||
<Pos, Pers3_L, Pl, _> => root + "necnx:" ; -- नेछन्
|
||||
<Pos, Pers3_M, _, Masc> => root + "necnx:" ; -- नेछन्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + "necinx:" ; -- नेछिन्
|
||||
<Pos, Pers3_M, Pl, Fem> => root + "necinx:" ; -- नेछन्
|
||||
<Pos, _, _, _> => root + "nuhunec" ; -- नुहुनेछ
|
||||
|
||||
-- Negative Case
|
||||
<Neg, Pers1, Sg, _> => root + "necEn" ; -- नेछैन
|
||||
<Neg, Pers1, Pl, _> => root + "necEnEV" ; -- नेछैनैँ
|
||||
<Neg, Pers2_L, Sg, _> => root + "necEnsx:" ; -- नेछैनस्
|
||||
<Neg, Pers2_L, Pl, _> => root + "necEnE" ; -- नेछैनै
|
||||
<Neg, Pers2_M, _, _> => root + "necEnE" ; -- नेछैनै
|
||||
<Neg, Pers3_L, Sg, _> => root + "necEnx:" ; -- नेछैन्
|
||||
<Neg, Pers3_L, Pl, _> => root + "necEnnx:" ; -- नेछैनन्
|
||||
<Neg, Pers3_M, Sg, _> => root + "necEnnx:" ; -- नेछैनन्
|
||||
<Neg, Pers3_M, Pl, _> => root + "necEnE" ; -- नेछैनै
|
||||
<Neg, _, _, _> => root + "nuhunecEnx:" -- नुहुनेछैन्
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
-- Future Nondefinitive, Nonperfective aspect, NonPregressive mode
|
||||
mkVFutNDNP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVFutNDNPReg root root2 po pn n g).s ;
|
||||
VIReg => (mkVFutNDNPIReg root2 po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVFutNDNP helper for VReg case
|
||||
mkVFutNDNPReg : Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root2 + "uVla" ; -- उँला
|
||||
<Pos, Pers1, Pl, _> => root2 + "wVla" ; -- आँला
|
||||
<Pos, Pers2_L, Sg, Masc> => root + "z=lasx:" ; -- लास्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + "lIsx:" ; -- लिस्
|
||||
<Pos, Pers2_L, Pl, _> => root2 + "wla" ; -- औला
|
||||
<Pos, Pers2_M, Pl, Fem> => root2 + "wli" ; -- औलि
|
||||
<Pos, Pers3_L, Sg, Masc> => root + "la" ; -- ला
|
||||
<Pos, Pers3_L, Sg, Fem> => root + "lI" ; -- ली
|
||||
<Pos, Pers3_L, Pl, _> => root + "lanx:" ; -- लान्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + "lInx:" ; -- लिन्
|
||||
<Pos, Pers3_M, _, _> => root + "lanx:" ; -- लान्
|
||||
<Pos, _, _, _> => root + "z=nuhola" ; -- नुहोला
|
||||
|
||||
-- TODO : NOT CLEAR DEFINITION IN BOOK
|
||||
<Neg, _, _, _> => "quxu"
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVFutNDNP helper for VIReg case
|
||||
mkVFutNDNPIReg : Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root + "fVla" ; -- उँला
|
||||
<Pos, Pers1, Pl, _> => root + "WVla" ; -- आँला
|
||||
<Pos, Pers2_L, Sg, Masc> => root + "lasx:" ; -- लास्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + "lisx:" ; -- लिस्
|
||||
<Pos, Pers2_L, Pl, _> => root + "Wla" ; -- औला
|
||||
<Pos, Pers2_M, Pl, Fem> => root + "Wli" ; -- औलि
|
||||
<Pos, Pers3_L, Sg, Masc> => root + "la" ; -- ला
|
||||
<Pos, Pers3_L, Sg, Fem> => root + "lI" ; -- ली
|
||||
<Pos, Pers3_L, Pl, _> => root + "lanx:" ; -- लान्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + "linx:" ; -- लिन्
|
||||
<Pos, Pers3_M, _, _> => root + "lanx:" ; -- लान्
|
||||
<Pos, _, _, _> => root + "nuhola" ; -- नुहोला
|
||||
|
||||
-- TODO : NOT CLEAR DEFINITION IN BOOK
|
||||
<Neg, _, _, _> => "quxu"
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
-- Past Simple, Perfective aspect, Nonprogressive Mode
|
||||
mkVPstSP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPstSPGen root2 "eko" "eki" "eka" po pn n g).s ;
|
||||
VIReg => (mkVPstSPGen root2 "e:ko" "e:ki" "e:ka" po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPstSP Helper handles both VReg and VIreg cases
|
||||
mkVPstSPGen : Str -> Str -> Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, sreg, sfem, spl, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
-- Positive case
|
||||
<Pos, Pers1, Sg, _> => root + sreg + "Tie:V" ; -- थिएँ
|
||||
<Pos, Pers1, Pl, _> => root + spl + "TiywV" ; -- थियौँ
|
||||
<Pos, Pers2_L, Sg, Masc> => root + sreg + "Tii:sx:" ; -- थिइस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + sfem + "Tii:sx:" ; -- थिइस्
|
||||
<Pos, Pers2_L, Pl, _> => root + spl + "Tiyw" ; -- थियौ
|
||||
<Pos, Pers2_M, _, _> => root + spl + "Tiyw" ; -- थियौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + sreg + "Tiyo" ; -- थियो
|
||||
<Pos, Pers3_L, Sg, Fem> => root + sfem + "TiI:" ; --थिई
|
||||
<Pos, Pers3_L, Pl, _> => root + spl + "Tie:" ; -- थिए
|
||||
<Pos, Pers3_M, Sg, Fem> => root + sfem + "Tii:nx:" ; -- थिइन्
|
||||
<Pos, Pers3_M, _, _> => root + spl + "Tie:" ; -- थिए
|
||||
<Pos, _, _, _> => root + sreg + "hunuhunx:z+Tx:yo" ; -- हुनुहुन्थ्यो (TODO: CONFIRM CORRECT)
|
||||
|
||||
-- Negative case
|
||||
<Neg, Pers1, Sg, _> => root + sreg +"Tii:nV" ; --
|
||||
<Neg, Pers1, Pl, _> => root + spl + "Tie:nEV" ; --
|
||||
|
||||
<Neg, Pers2_L, Sg, Masc> => root + sreg + "Tii:nsx:" ; --
|
||||
<Neg, Pers2_L, Sg, Fem> => root + sfem + "Tii:nsx:" ; --
|
||||
<Neg, Pers2_L, Pl, _> => root + spl + "Tie:nE" ; --
|
||||
<Neg, Pers2_M, _, _> => root + spl + "TinE" ; --
|
||||
|
||||
<Neg, Pers3_L, Sg, Masc> => root + sreg + "Tie:n" ; --
|
||||
<Neg, Pers3_L, Sg, Fem> => root + sfem + "Tii:n:" ; --
|
||||
<Neg, Pers3_L, Pl, _> => root + spl + "Tie:nnx:" ; --
|
||||
<Neg, Pers3_M, Sg, Fem> => root + sfem + "Tii:nnx:" ; --
|
||||
<Neg, Pers3_M, _, _> => root + spl + "Tie:nnx:" ; --
|
||||
<Neg, _, _, _> => root + sreg + "hunuhunx:z+nTx:yo" -- हुनुहुन्नथ्यो (TODO: CONFIRM CORRECT)
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Past Habitual, Perfective aspect, Nonprogressive Mode
|
||||
mkVPstHP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPstHPGen root2 "eko" "eki" "eka" po pn n g).s ;
|
||||
VIReg => (mkVPstHPGen root2 "e:ko" "e:ki" "e:ka" po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPstSP Helper handles both VReg and VIreg cases
|
||||
mkVPstHPGen : Str -> Str -> Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, sreg, sfem, spl, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root + sreg + "hunx:TeV" ; -- हुन्थेँ
|
||||
<Pos, Pers1, Pl, _> => root + spl + "hunx:TwV" ; -- हुन्थौँ
|
||||
<Pos, Pers2_L, Sg, Masc> => root + sreg + "hunx:Tisx:" ; -- हुन्थिस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + sfem + "hunx:Ti:sx:" ; -- हुन्थिस्
|
||||
<Pos, Pers2_L, Pl, _> => root + spl + "hunx:Tx:yw" ; -- हुन्थ्यौ
|
||||
<Pos, Pers2_M, _, _> => root + spl + "hunx:Tx:yw" ; -- हुन्थ्यौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + sreg + "hunx:z+Tx:yw" ; -- हुन्थ्यौ
|
||||
<Pos, Pers3_L, Sg, Fem> => root + sfem + "hunx:TI" ; -- हुन्थी
|
||||
<Pos, Pers3_L, Pl, _> => root + spl + "hunx:Te" ; -- हुन्थे
|
||||
<Pos, Pers3_M, Sg, Fem> => root + sfem + "hunx:z+Ti" ; -- हुन्थि
|
||||
<Pos, Pers3_M, _, _> => root + spl + "hunx:Te" ; -- हुन्थे
|
||||
<Pos, _, _, _> => root + sreg + "hunuhunx:Tx:yo" ; -- (TODO : हुनुहुन्थ्यो need to Confirm)
|
||||
|
||||
-- Negative case (TODO)
|
||||
<Neg, Pers1, Sg, _> => root + sreg + "hunx:TeV" ; -- हुन्थेँ
|
||||
<Neg, Pers1, Pl, _> => root + spl + "hunx:TwV" ; -- हुन्थौँ
|
||||
<Neg, Pers2_L, Sg, Masc> => root + sreg + "hunx:Tii:sx:" ; -- हुन्थिइस् ???? G Check
|
||||
<Neg, Pers2_L, Sg, Fem> => root + sfem + "hunx:Tii:sx:" ; -- हुन्थिइस्
|
||||
<Neg, Pers2_L, Pl, _> => root + spl + "hunx:Tiyw" ; -- हुन्थियौ / or हुन्थ्यौ (hunx:Tx:yw)
|
||||
<Neg, Pers2_M, _, _> => root + spl + "hunx:Tiyw" ; -- हुन्थियौ / or हुन्थ्यौ (hunx:Tx:yw)
|
||||
<Neg, Pers3_L, Sg, Masc> => root + sreg + "hunx:Tx:yw" ; -- हुन्थ्यौ / (थियो ????)
|
||||
<Neg, Pers3_L, Sg, Fem> => root + sfem + "hunx:TI" ; -- हुन्थी/ (थिई ????)
|
||||
<Neg, Pers3_L, Pl, _> => root + spl + "hunx:Te" ; -- हुन्थे / (थिए)
|
||||
<Neg, Pers3_M, Sg, Fem> => root + sfem + "hunx:Ti" ; -- हुन्थि
|
||||
<Neg, Pers3_M, _, _> => root + spl + "hunx:Te" ; -- हुन्थे / (थिए)
|
||||
<Neg, _, _, _> => root + sreg + "hunuhunx:z+nTx:yo" -- हुनुहुन्नथ्यो (TODO: CONFIRM CORRECT)
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Past Unknown, Perfective aspect, Nonprogressive Mode
|
||||
mkVPstUP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPstHPGen root2 "eko" "eki" "eka" po pn n g).s ;
|
||||
VIReg => (mkVPstHPGen root2 "e:ko" "e:ki" "e:ka" po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPstUP Helper handles both VReg and VIreg cases
|
||||
mkVPstUPGen : Str -> Str -> Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, sreg, sfem, spl, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, Masc> => root + sreg + "rhecu" ; -- रहेछु
|
||||
<Pos, Pers1, Sg, Fem > => root + sfem + "rhecu" ; -- रहेछु (खाएकिरहेछु)
|
||||
<Pos, Pers1, Pl, _> => root + spl + "rhecwV" ; -- रहेछौँ
|
||||
<Pos, Pers2_L, Sg, Masc> => root + sreg + "rhicsx:" ; --रहिछस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + sfem + "rhicsx:" ; --रहिछस्
|
||||
<Pos, Pers2_L, Pl, _> => root + spl + "rhecw" ; -- रहेछौ
|
||||
<Pos, Pers2_M, Sg, Masc> => root + spl + "rhecw" ; -- रहेछौ
|
||||
<Pos, Pers2_M, Sg, Fem> => root + sfem + "rhicw" ; -- रहिछौ (छ्यौ ????)
|
||||
<Pos, Pers2_M, Pl, _> => root + spl + "rhecw" ; -- रहेछौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + sreg + "rhec" ; -- रहेछ
|
||||
<Pos, Pers3_L, Sg, Fem> => root + sfem + "rhic" ; -- रहिछ
|
||||
<Pos, Pers3_L, Pl, _> => root + spl + "rhecnx:" ; -- रहेछन्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + sfem + "rhicInx:" ; -- रहिछीन्
|
||||
<Pos, Pers3_M, Sg, Masc> => root + spl + "rhecnx:" ; -- रहेछन्
|
||||
<Pos, Pers3_M, _, _> => root + spl + "rhecnx:" ; -- रहेछन्
|
||||
<Pos, _, _, _> => root + sreg + "hunuhudorhec" ; -- हुनुहुदोरहेछ/नुभएकोरहेछ(nuBe:korhec)
|
||||
|
||||
-- Negative Case (TODO)
|
||||
<Neg, _, _, _> => "quxu" -- TODO--
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Present, Perfective aspect, Nonprogressive Mode
|
||||
mkVPreP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVPreGen root2 "eko" "eki" "eka" po pn n g).s ;
|
||||
VIReg => (mkVPreGen root2 "e:ko" "e:ki" "e:ka" po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- mkVPreP helper handles both VReg and VIreg cases
|
||||
mkVPreGen : Str -> Str -> Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, sreg, sfem, spl, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root + sreg + "cu" ; -- छु
|
||||
<Pos, Pers1, Pl, _> => root + spl + "cwM" ; -- छौं
|
||||
<Pos, Pers2_L, Sg, Masc> => root + sreg + "csx:" ; -- छस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + sfem + "cesx:" ; -- छेस्
|
||||
<Pos, Pers2_L, Pl, _> => root + spl + "cw" ; -- छौ
|
||||
<Pos, Pers2_M, Sg, Fem> => root + sfem + "cx:yw" ; --छ्यौ
|
||||
<Pos, Pers2_M, _, _> => root + spl + "cw" ; -- छौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + sreg + "c" ; -- छ
|
||||
<Pos, Pers3_L, Sg, Fem> => root + sfem + "ce" ; -- छे
|
||||
<Pos, Pers3_L, Pl, _> => root + spl + "cnx:" ; -- छन्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + sfem + "cinx:" ; -- छिन्
|
||||
<Pos, Pers3_M, _, _> => root + spl + "cnx:" ; -- छन्
|
||||
<Pos, _, _, _> => root + sreg + "hunuhunx:c" ; -- हुनुहुन्छ
|
||||
|
||||
-- Negative Case (TODO)
|
||||
<Neg, _, _, _> => "quxu" -- TODO--
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Future Definitive, Perfective aspect, Nonprogressive Mode
|
||||
mkVFutDefP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVFutDefGen root2 "eko" "eki" "eka" po pn n g).s ;
|
||||
VIReg => (mkVFutDefGen root2 "e:ko" "e:ki" "e:ka" po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
-- mkVFutDef helper handles both VReg and VIreg cases
|
||||
mkVFutDefGen : Str -> Str -> Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, sreg, sfem, spl, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root + sreg + ("hune"+"cu") ; -- हुनेछु
|
||||
<Pos, Pers1, Pl, _> => root + spl + "hunecwV" ; -- हुनेछौँ
|
||||
<Pos, Pers2_L, Sg, Masc> => root + sreg + "hunecsx:" ; -- हुनेछस्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + sfem + "hunecesx:" ; -- हुनेछेस्
|
||||
<Pos, Pers2_L, Pl, _> => root + spl + "hunecw" ; -- हुनेछौ
|
||||
<Pos, Pers2_M, Sg, Fem> => root + sfem + "hunecx:yw" ; -- हुनेछ्यौ
|
||||
<Pos, Pers2_M, _, _> => root + spl + "hunecw" ; -- हुनेछौ
|
||||
<Pos, Pers3_L, Sg, Masc> => root + sreg + "hunec" ; -- हुनेछ
|
||||
<Pos, Pers3_L, Sg, Fem> => root + sfem + "hunx:ce" ; -- हुन्छे
|
||||
<Pos, Pers3_L, Pl, _> => root + spl + "hunecnx:" ; -- हुनेछन्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + sfem + "hunecinx:" ; -- हुनेछिन्
|
||||
<Pos, Pers3_M, _, _> => root + spl + "hunecnx:" ; -- हुनेछन्
|
||||
<Pos, _, _, _> => root + sreg + "hunuhunec" ; -- हुनुहुनेछ
|
||||
|
||||
-- Negative Case (TODO)
|
||||
<Neg, _, _, _> => "quxu" -- TODO--
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Future Nondefinitive, Perfective aspect, Nonprogressive Mode
|
||||
mkVFutNDefP : Str -> Str -> VCase -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, root2, vc, po, pn, n, g ->
|
||||
{s = case vc of {
|
||||
VReg => (mkVFutDefGen root2 "eko" "eki" "eka" po pn n g).s ;
|
||||
VIReg => (mkVFutDefGen root2 "e:ko" "e:ki" "e:ka" po pn n g).s
|
||||
}
|
||||
} ;
|
||||
|
||||
-- Helper mkVFutNDef handles both VReg and VIreg cases
|
||||
mkVFutNDefGen : Str -> Str -> Str -> Str -> Polarity -> NPerson -> Number -> Gender -> {s:Str} =
|
||||
\root, sreg, sfem, spl, po, pn, n, g ->
|
||||
{s = case <po, pn, n, g> of {
|
||||
<Pos, Pers1, Sg, _> => root + sreg + "huVla" ; -- हुँला
|
||||
<Pos, Pers1, Pl, _> => root + spl + "hwVlaV" ; -- हौँलाँ
|
||||
<Pos, Pers2_L, Sg, Masc> => root + sreg + "holasx:" ; -- होलास्
|
||||
<Pos, Pers2_L, Sg, Fem> => root + sfem + "holisx:" ; -- होलिस्
|
||||
<Pos, Pers2_L, Pl, _> => root + spl + "hwla" ; -- हौला
|
||||
<Pos, Pers2_M, Sg, Fem> => root + sfem + "holi" ; -- होलि
|
||||
<Pos, Pers2_M, _, _> => root + spl + "hwla" ; -- हौला
|
||||
<Pos, Pers3_L, Sg, Masc> => root + sreg + "hola" ; -- होला
|
||||
<Pos, Pers3_L, Sg, Fem> => root + sfem + "holI" ; -- होली
|
||||
<Pos, Pers3_L, Pl, _> => root + spl + "holanx:" ; -- होलान्
|
||||
<Pos, Pers3_M, Sg, Fem> => root + sfem + "holinx:" ; -- होलिन्
|
||||
<Pos, Pers3_M, _, _> => root + spl + "holanx:" ; -- होलान्
|
||||
<Pos, _, _, _> => root + sreg + "hunuhola" ; -- हुनुहोला
|
||||
|
||||
-- Negative Case (TODO)
|
||||
<Neg, _, _, _> => "quxu" -- TODO--
|
||||
}
|
||||
};
|
||||
|
||||
-- TODO - Refactor
|
||||
IntPronForm = {s: Case => Str};
|
||||
mkIntPronForm : (x1,x2,x3,x4:Str) -> IntPronForm =
|
||||
\y1,y2,y3,y4 -> {
|
||||
s = table {
|
||||
Nom => y1;
|
||||
_ => y2
|
||||
}
|
||||
};
|
||||
|
||||
}
|
||||
@@ -0,0 +1,118 @@
|
||||
concrete NumeralNep of Numeral = CatNep ** open ResNep, Prelude in {
|
||||
-- By Harald Hammarstroem
|
||||
-- Modification for Nepali by Dinesh and Shafqat Virk
|
||||
flags coding=utf8 ;
|
||||
|
||||
|
||||
param DForm = unit | ten ;
|
||||
param DSize = sg | r2 | r3 | r4 | r5 | r6 | r7 | r8 | r9 ;
|
||||
param Size = singl | less100 | more100 ;
|
||||
|
||||
oper LinDigit = {s : DForm => Str ; size : DSize ; n : Number} ;
|
||||
|
||||
|
||||
lincat Dig = {s:Str ; n : Number} ;
|
||||
lincat Digit = LinDigit ;
|
||||
lincat Sub10 = {s : DForm => Str ; size : DSize ; n : Number} ;
|
||||
lincat Sub100 = {s : Str ; size : Size ; n : Number} ;
|
||||
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size ; n : Number } ;
|
||||
lincat Sub1000000 = {s : Str ; n : Number } ;
|
||||
|
||||
lin num x0 =
|
||||
{s = table {
|
||||
NCard => x0.s ;
|
||||
NOrd => x0.s ++ "wV" -- need to use mkOrd x0.s but it gives linking error
|
||||
};
|
||||
n = x0.n
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
oper mkNum : Str -> Str -> DSize -> LinDigit =
|
||||
\do -> \bis -> \sz ->
|
||||
{s = table {unit => do ; ten => bis } ;
|
||||
size = sz ; n = Pl} ;
|
||||
|
||||
lin n2 = mkNum "duI:" "bIs" r2 ;
|
||||
lin n3 = mkNum "tIn" "tIs" r3 ;
|
||||
lin n4 = mkNum "Car" "CalIs" r4 ;
|
||||
lin n5 = mkNum "paVC" "pCas" r5 ;
|
||||
lin n6 = mkNum "c" "saQI" r6 ;
|
||||
lin n7 = mkNum "sat" "stx:trI" r7 ; -- सत्तरी
|
||||
lin n8 = mkNum "AQ" "HsI" r8 ;
|
||||
lin n9 = mkNum "nw" "nbx:be" r9 ;
|
||||
|
||||
oper
|
||||
mkR : (a1,_,_,_,_,_,_,_,a9 : Str) -> DSize => Str =
|
||||
\a1,a2,a3,a4,a5,a6,a7,a8,a9 -> table {
|
||||
sg => a1 ;
|
||||
r2 => a2 ;
|
||||
r3 => a3 ;
|
||||
r4 => a4 ;
|
||||
r5 => a5 ;
|
||||
r6 => a6 ;
|
||||
r7 => a7 ;
|
||||
r8 => a8 ;
|
||||
r9 => a9
|
||||
} ;
|
||||
|
||||
-- REF http://dsal.uchicago.edu/dictionaries/schmidt/
|
||||
-- Ordinals from One - Hundred are irregular
|
||||
rows : DSize => DSize => Str = table {
|
||||
sg => mkR "e:Gar" "e:kx:kai:s" "e:ktIs" "e:kCalIs" "e:kafnx:z=n" "e:ksQx:QI" "e:khtx:tr" "e:kasI" "e:kanx:z=nbx:be" ;
|
||||
r2 => mkR "bahx:r" "bai:s" "btx:tIs" "byalIs" "bafnx:z=n" "bEsQx:QI" "bhtx:tr" "byasI" "byanx:z=nbx:be" ;
|
||||
r3 => mkR "tehx:r" "tei:s" "tetx:tIs" "tx:riCalIs" "tx:ripnx:z=n" "tx:risQx:QI" "tx:rihtx:tr" "tx:riyasI" "tx:riyanx:z=nbx:be" ;
|
||||
r4 => mkR "CwD" "CwbIs" "CwMtIs" "CvalIs" "Cvnx:z=n" "CwsQx:QI" "Cwhtx:tr" "CwrasI" "Cwranx:z=nbx:be";
|
||||
r5 => mkR "pnx:Dx:r" "pCx:CIs" "pEMtIs" "pEMtalIs" "pCpnx:z=n" "pEMsQx:QI" "pChtx:tr" "pCasI" "pnx:Canx:z=nbx:be" ;
|
||||
r6 => mkR "sohx:r" "cbx:bIs" "ctx:tIs" "cyalIs" "cpnx:z=n" "cEMsQx:QI" "cyhtx:tr" "cyasI" "cyanx:z=nbx:be" ;
|
||||
r7 => mkR "stx:r" "stx:tai:s" "swMtIs" "stCalIs" "snx:tafnx:z=n" "stsQx:QI" "sthtx:tr" "stasI" "snx:tanx:z=nbx:be" ;
|
||||
r8 => mkR "HQar" "HQx:Qai:s" "HQtIs" "HQtalIs" "Hnx:Qafnx:z=n" "HQsQx:QI" "HQhtx:tr" "HQasI" "Hnx:Qanx:z=nbx:be" ;
|
||||
r9 => mkR "fnx:z=nai:s" "fnnx:tIs" "fnnx:CalIs" "fnnx:pCas" "fnnx:saQI" "fnnx:stx:trI" "fnasI" "fnanx:z=nbx:be" "fnanx:sy"
|
||||
} ;
|
||||
|
||||
oper ss : Str -> {s : Str} = \s -> {s = s} ;
|
||||
|
||||
lin pot01 = {s = table {unit => "e:k" ; _ => "dmy" } ; size = sg ; n = Sg} ;
|
||||
lin pot0 d = d ;
|
||||
lin pot110 = {s = "ds" ; size = less100 ; n = Pl} ;
|
||||
lin pot111 = {s = rows ! sg ! sg ; size = less100 ; n = Pl} ;
|
||||
lin pot1to19 d = {s = rows ! d.size ! sg ; size = less100 ; n = d.n} ;
|
||||
lin pot0as1 n = {s = n.s ! unit ; size = table {sg => singl ; _ => less100} ! n.size ; n = n.n } ;
|
||||
|
||||
lin pot1 d = {s = d.s ! ten ; size = less100 ; n = d.n} ;
|
||||
lin pot1plus d e = {s = rows ! e.size ! d.size ; size = less100 ; n = d.n} ;
|
||||
|
||||
lin pot1as2 n = {s = n.s ; s2 = "dmy" ; size = n.size ; n = n.n} ;
|
||||
lin pot2 d = {s = (mksau (d.s ! unit) d.size) ;
|
||||
s2 = d.s ! unit ++ "laK" ; size = more100 ; n = d.n} ;
|
||||
lin pot2plus d e =
|
||||
{s = (mksau (d.s ! unit) d.size) ++ e.s ;
|
||||
s2 = (d.s ! unit) ++ "laK" ++ (mkhazar e.s e.size) ;
|
||||
size = more100 ; n = d.n} ;
|
||||
|
||||
lin pot2as3 n = {s = n.s ; n = n.n} ;
|
||||
lin pot3 n = {s = table { singl => ekhazar ;
|
||||
less100 => n.s ++ "hjar" ;
|
||||
more100 => n.s2 } ! n.size ; n = n.n} ;
|
||||
lin pot3plus n m =
|
||||
{s = table {singl => ekhazar ;
|
||||
less100 => n.s ++ "hjar" ;
|
||||
more100 => n.s2 } ! n.size ++ m.s ; n = n.n} ;
|
||||
|
||||
lin D_0 = { s = "0" ; n = Sg};
|
||||
lin D_1 = { s = "1" ; n = Sg};
|
||||
lin D_2 = { s = "2" ; n = Pl};
|
||||
lin D_3 = { s = "3" ; n = Pl};
|
||||
lin D_4 = { s = "4" ; n = Pl};
|
||||
lin D_5 = { s = "5" ; n = Pl};
|
||||
lin D_6 = { s = "6" ; n = Pl};
|
||||
lin D_7 = { s = "7" ; n = Pl};
|
||||
lin D_8 = { s = "8" ; n = Pl};
|
||||
lin D_9 = { s = "9" ; n = Pl};
|
||||
lin IDig d = { s = \\_ => d.s ; n = d.n} ;
|
||||
lin IIDig d dg = { s = \\df => Prelude.glue (dg.s ! df) d.s ; n = Pl };
|
||||
|
||||
oper ekhazar : Str = variants {"e:k" ++ "hjar" ; "hjar"} ;
|
||||
oper mkhazar : Str -> Size -> Str = \s -> \sz -> table {singl => ekhazar ; _ => s ++ "hjar"} ! sz ;
|
||||
oper mksau : Str -> DSize -> Str = \s -> \sz -> table {sg => "e:k" ++ "sy" ; _ => s ++ "sy"} ! sz ;
|
||||
}
|
||||
@@ -0,0 +1,32 @@
|
||||
concrete PhraseNep of Phrase = CatNep ** open Prelude, ResNep in {
|
||||
|
||||
lin
|
||||
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
|
||||
|
||||
UttS s = s ;
|
||||
UttQS qs = {s = qs.s ! QDir} ;
|
||||
-- be a man -> (मन्छे हउ)
|
||||
UttImpSg pol imp = {s = pol.s ++ imp.s ! contrNeg True pol.p ! ImpF Sg False ++ "hf"} ;
|
||||
|
||||
UttImpPl pol imp = {s = pol.s ++ imp.s ! contrNeg True pol.p ! ImpF Pl False ++ "hA"} ;
|
||||
|
||||
UttImpPol pol imp = {s = pol.s ++ imp.s ! contrNeg True pol.p ! ImpF Sg True ++ "hf"} ;
|
||||
|
||||
UttIP ip = {s = ip.s ! Nom} ; --- Acc also
|
||||
UttIAdv iadv = iadv ;
|
||||
UttNP np = {s = np.s ! NPC Nom} ;
|
||||
|
||||
UttVP vp = {s = vp.ad ++ vp.obj.s ++ vp.comp ! (agrP3 Masc Sg) ++ (vp.s ! Inf).inf ++ vp. embComp} ;
|
||||
|
||||
UttAdv adv = {s = adv.s } ;
|
||||
UttCN cn = {s = cn.s ! Sg ! Nom};
|
||||
UttCard n = n ;
|
||||
UttAP ap = {s = ap.s ! Sg ! Masc } ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = {s = conj.s2} ;
|
||||
|
||||
NoVoc = {s = []} ;
|
||||
VocNP np = {s = np.s ! NPC Nom} ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,83 @@
|
||||
concrete QuestionNep of Question = CatNep ** open ResNep, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
coding = utf8;
|
||||
|
||||
lin
|
||||
|
||||
QuestCl cl = {
|
||||
s = \\t,p,qf =>
|
||||
case qf of {
|
||||
QDir => cl.s ! t ! p ! OQuest;
|
||||
QIndir => "yedi" ++ cl.s ! t ! p ! ODir
|
||||
}
|
||||
} ;
|
||||
|
||||
QuestVP qp vp =
|
||||
let cl = mkSClause ("") (Ag Masc qp.n Pers3_L) vp;
|
||||
qp1 = qp.s ! Nom;
|
||||
qp2 = qp.s ! Ins
|
||||
in { s = \\t,p,o =>
|
||||
case t of {
|
||||
-- VPSmplPast => qp2 ++ cl.s ! t ! p ! ODir ;
|
||||
_ => qp1 ++ cl.s ! t ! p ! ODir
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
QuestSlash ip slash =
|
||||
let ip1 = ip.s ! Nom;
|
||||
ip2 = ip.s ! Ins
|
||||
in {
|
||||
s = \\t,p,o => case t of {
|
||||
-- VPSmplPast => ip2 ++ slash.s ! t ! p ! ODir ;
|
||||
_ => ip1 ++ slash.s ! t ! p ! ODir
|
||||
}
|
||||
};
|
||||
|
||||
QuestIAdv iadv cl = {
|
||||
s = \\t,p,_ => iadv.s ++ cl.s ! t ! p ! ODir;
|
||||
} ;
|
||||
|
||||
QuestIComp icomp np =
|
||||
let cl = mkSClause (np.s ! NPC Nom ++ icomp.s) np.a (predAux auxBe);
|
||||
in {
|
||||
s = \\t,p,qf => case qf of {
|
||||
QDir => cl.s ! t ! p ! ODir;
|
||||
QIndir => cl.s ! t ! p ! ODir
|
||||
}
|
||||
};
|
||||
|
||||
PrepIP p ip = {s = ip.s ! ResNep.Nom ++ p.s } ; -- case need to be confirmed
|
||||
|
||||
AdvIP ip adv = {
|
||||
s = \\c => adv.s ++ ip.s ! c ;
|
||||
n = ip.n;
|
||||
g = ip.g;
|
||||
} ;
|
||||
|
||||
IdetCN idet cn = {
|
||||
s = \\c => idet.s ! Masc++ cn.s ! idet.n ! c ;
|
||||
n = idet.n;
|
||||
} ;
|
||||
|
||||
IdetIP idet = {
|
||||
s = \\_ => idet.s ! Masc ;
|
||||
n = idet.n;
|
||||
} ;
|
||||
|
||||
IdetQuant iqant num = {
|
||||
s =\\_ => iqant.s ! num.n ++ num.s ;
|
||||
n = num.n ;
|
||||
} ;
|
||||
|
||||
CompIAdv a = a ;
|
||||
CompIP p = ss (p.s ! Nom) ;
|
||||
AdvIAdv i a = {s = i.s ++ a.s} ;
|
||||
AdvQVP vp iadv = insertObj (\\_ => iadv.s) vp ;
|
||||
AddAdvQVP qvp iadv = insertObj (\\_ => iadv.s) qvp ;
|
||||
ComplSlashIP vpslash ip = insertObj (\\_ => ip.s ! Nom) vpslash ;
|
||||
|
||||
lincat QVP = CatNep.VP ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,63 @@
|
||||
concrete RelativeNep of Relative = CatNep ** open ResNep in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
coding = utf8;
|
||||
|
||||
lin
|
||||
|
||||
RelCl cl = {
|
||||
s = \\t,p,o,agr => "jsx:tikI" ++ cl.s ! t ! p ! o ;
|
||||
c = Nom
|
||||
} ;
|
||||
|
||||
-- RelVP and RelSlash slows the linking process a lot this is why it is commented for test purposes
|
||||
|
||||
RelVP rp vp = {
|
||||
s = \\t,p,o,ag =>
|
||||
let
|
||||
agr = case rp.a of {
|
||||
RNoAg => ag ;
|
||||
RAg a => a
|
||||
} ;
|
||||
cl = mkSClause (rp.s ! Nom) agr vp;
|
||||
|
||||
-- cl = case t of {
|
||||
-- VPImpPast => mkSClause (rp.s ! (giveNumber agr) ! Obl) agr vp;
|
||||
-- _ => mkSClause (rp.s ! (giveNumber agr) ! Dir) agr vp
|
||||
-- };
|
||||
|
||||
in
|
||||
cl.s ! t ! p ! ODir ;
|
||||
c = Nom
|
||||
} ;
|
||||
|
||||
|
||||
---- Pied piping: 'at which we are looking'. Stranding and empty
|
||||
---- relative are defined in $ExtraHin.gf$ ("that we are looking at",
|
||||
---- "we are looking at").
|
||||
--
|
||||
RelSlash rp slash = {
|
||||
s = \\t,p,o,agr => rp.s ! Nom ++ slash.c2.s ++ slash.s ! t ! p ! o ;--case t of {
|
||||
-- VPImpPast => rp.s ! (giveNumber agr) Obl ++ slash.c2.s ++ slash.s ! t ! p ! o ;
|
||||
-- _ => rp.s ! (giveNumber agr) Dir ++ slash.c2.s ++ slash.s ! t ! p ! o
|
||||
-- };
|
||||
c = Nom
|
||||
} ;
|
||||
|
||||
|
||||
-- CHEK NEPALI RULES FOR RELSTIVE (PG 32)
|
||||
FunRP p np rp = {
|
||||
s = \\c => rp.s ! c ++ np.s ! NPC Nom ++ p.s ;
|
||||
a = RAg np.a
|
||||
} ;
|
||||
|
||||
IdRP = {
|
||||
s = table {
|
||||
ResNep.Nom => "jo" ;
|
||||
ResNep.Ins => "jsx:le" ;
|
||||
_ => "jo"
|
||||
} ;
|
||||
a = RNoAg
|
||||
} ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,709 @@
|
||||
--# -path=.:../abstract:../common:../../prelude
|
||||
--
|
||||
--1 Pnbu auxiliary operations.
|
||||
--
|
||||
-- This module contains operations that are needed to make the
|
||||
-- resource syntax work.
|
||||
|
||||
resource ResNep = ParamX ** open Prelude, Predef in {
|
||||
|
||||
flags optimize=all ;
|
||||
coding = utf8;
|
||||
|
||||
param
|
||||
Case = Nom | Acc | Ins | Dat | Abl | Loc ;
|
||||
Gender = Masc | Fem ;
|
||||
NPerson = Pers1
|
||||
| Pers2_L
|
||||
| Pers2_M
|
||||
| Pers2_H
|
||||
| Pers3_L
|
||||
| Pers3_M
|
||||
| Pers3_H ;
|
||||
|
||||
Order = ODir | OQuest ;
|
||||
|
||||
--2 For $Relative$
|
||||
|
||||
RAgr = RNoAg | RAg Agr ;
|
||||
RCase = RC Number Case ;
|
||||
|
||||
-- for Numerial
|
||||
|
||||
CardOrd = NCard | NOrd ;
|
||||
|
||||
------------------------------------------
|
||||
--Verbs
|
||||
-------------------------------------------
|
||||
VTense = NPresent | NPast PTypes | NFuture FTypes;
|
||||
PTypes = Simpl | Hab | Unknown ;
|
||||
FTypes = Defin | NDefin ;
|
||||
|
||||
VerbForm =
|
||||
VF VTense Aspect Polarity NPerson Number Gender
|
||||
| Root -- Root form, 'kha' is the root of 'khanu'
|
||||
| Inf -- Infinitive form 'khanau'
|
||||
| ProgRoot Aspect Number Gender
|
||||
| PVForm -- Partial verb form 'khan' is teh PVForm of 'khanu'
|
||||
| Imp ;
|
||||
|
||||
-- Aspect Perfective and non-perfective
|
||||
Aspect = Perf | Imperf ;
|
||||
|
||||
oper
|
||||
-- Noun = {s : Number => Case => Str ; g : Gender ; isHum : Bool } ; -- TODO ADD HUMAN/NON-HUMAN CASE
|
||||
Noun = {s : Number => Case => Str ; g : Gender } ;
|
||||
|
||||
Verb = {s : VerbForm => Str} ;
|
||||
|
||||
Preposition = {s : Str};
|
||||
|
||||
-- DemPronForm = {s : Number => Gender => Case => Str};
|
||||
-- PossPronForm = {s : Number => Gender => Case => Str};
|
||||
--Determiner = {s : Number => Gender => Str ; n : Number};
|
||||
|
||||
Determiner = {s : Number => Gender => Str ; n : Number};
|
||||
|
||||
|
||||
-- Nepali Adjectives
|
||||
|
||||
npAdjective = {s : Number => Gender => Str} ;
|
||||
|
||||
mkAdjnp : Str -> npAdjective = \str ->
|
||||
case str of {
|
||||
st + "o" => mkAdj1 str (st+"I") (st+"a") ;
|
||||
st + "to" => mkAdj1 str str str ;
|
||||
_ => mkAdj1 str str str
|
||||
} ;
|
||||
|
||||
mkAdj1 : (x1,_,x3 : Str) -> npAdjective =
|
||||
\sm, sf, smf -> {
|
||||
s = table {
|
||||
Sg => table {
|
||||
Masc => sm ;
|
||||
Fem => sf
|
||||
} ;
|
||||
Pl => table {
|
||||
Masc => smf ;
|
||||
Fem => smf
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
-- Reflective Pronoun
|
||||
--eg. (i will do myself)
|
||||
reflPron : Str ;
|
||||
reflPron = "APEM" ; -- आफैं
|
||||
|
||||
eko : Str ;
|
||||
eko = "e:ko" ;
|
||||
|
||||
eka : Str ;
|
||||
eka = "e:ka" ;
|
||||
|
||||
sbvn : Str ;
|
||||
sbvn = "sbBnx:Da" ;
|
||||
|
||||
----------------------------------------------------------
|
||||
-- Grammar part
|
||||
----------------------------------------------------------
|
||||
|
||||
param
|
||||
Agr = Ag Gender Number NPerson ;
|
||||
NPCase = NPC Case | NPObj | NPErg ;
|
||||
|
||||
oper
|
||||
|
||||
np2pronCase : (Case => Str) -> NPCase -> Agr -> Str =
|
||||
\ppf,npc,a -> case npc of {
|
||||
NPC c => ppf ! c ;
|
||||
NPObj => ppf ! Nom ;
|
||||
NPErg => ppf ! Ins --Nom ++ "le"
|
||||
} ;
|
||||
|
||||
|
||||
toNP : (Case => Str) -> NPCase -> Str = \pn, npc -> case npc of {
|
||||
NPC c => pn ! c ;
|
||||
NPObj => pn ! Nom ;
|
||||
NPErg => pn ! Ins --Nom ++ "le"
|
||||
} ;
|
||||
|
||||
detcn2NP : (Determiner) -> Noun -> NPCase -> Number -> Str = \dt,cn,npc,nn -> case npc of {
|
||||
NPC c => dt.s ! dt.n ! Masc ++ cn.s ! nn ! c ;
|
||||
NPObj => dt.s ! dt.n ! Masc ++ cn.s ! nn ! Nom ;
|
||||
NPErg => dt.s ! dt.n ! Masc ++ cn.s ! nn ! Ins --Nom ++ "le"
|
||||
} ;
|
||||
|
||||
det2NP : (Determiner) -> NPCase -> Str = \dt,npc -> case npc of {
|
||||
NPC c => dt.s ! dt.n ! Masc ;
|
||||
NPObj => dt.s ! dt.n ! Masc ;
|
||||
NPErg => dt.s ! dt.n ! Masc ++ "le"
|
||||
} ;
|
||||
|
||||
------------------------------------
|
||||
-- Agreement transformations
|
||||
------------------------------------
|
||||
|
||||
oper
|
||||
|
||||
toAgr : Number -> NPerson -> Gender -> Agr = \n,p,g ->
|
||||
Ag g n p;
|
||||
|
||||
|
||||
fromAgr : Agr -> {n : Number ; p : NPerson ; g : Gender} =
|
||||
\a -> case a of {
|
||||
Ag g n p => {n = n ; p = p ; g = g}
|
||||
} ;
|
||||
|
||||
|
||||
conjAgr : Agr -> Agr -> Agr = \a0,b0 ->
|
||||
let a = fromAgr a0 ; b = fromAgr b0
|
||||
in
|
||||
toAgr
|
||||
(conjNumber a.n b.n)
|
||||
b.p a.g;
|
||||
|
||||
|
||||
giveNumber : Agr -> Number = \a -> case a of {
|
||||
Ag _ n _ => n
|
||||
};
|
||||
|
||||
giveGender : Agr -> Gender = \a -> case a of {
|
||||
Ag g _ _ => g
|
||||
};
|
||||
|
||||
defaultAgr : Agr = agrP3 Masc Sg ;
|
||||
|
||||
agrP3 : Gender -> Number -> Agr =
|
||||
\g,n -> Ag g n Pers3_L ;
|
||||
|
||||
personalAgr : Agr = agrP1 Masc Sg ;
|
||||
|
||||
agrP1 : Gender -> Number -> Agr =
|
||||
\g,n -> Ag g n Pers1 ;
|
||||
|
||||
param
|
||||
CPolarity =
|
||||
CPos
|
||||
| CNeg Bool ; -- contracted or not
|
||||
|
||||
oper
|
||||
contrNeg : Bool -> Polarity -> CPolarity =
|
||||
\b,p -> case p of {
|
||||
Pos => CPos ;
|
||||
Neg => CNeg b
|
||||
} ;
|
||||
|
||||
NP : Type = {s : NPCase => Str ; a : Agr} ;
|
||||
|
||||
param
|
||||
CTense = CPrsnt | CPast | CFuture ;
|
||||
|
||||
-- if the noun is of type occupation/Introductiary case it will take ho, instead of chh (in case of present)
|
||||
oper
|
||||
copula : CTense -> Polarity -> Number -> NPerson -> Gender -> Str =
|
||||
\t, po, n, pn, g ->
|
||||
case <t,po,pn,n,g> of {
|
||||
-- Resembles with "mkVPreNPReg" function for positive
|
||||
-- <CPrsnt, Pos, _, _, _> => mkVPreNPReg "" Pos pn n g ;
|
||||
-- Present Positive
|
||||
<CPrsnt, Pos, Pers1, Sg, _> => "cu" ; -- छु
|
||||
<CPrsnt, Pos, Pers1, Pl, _> => "cwM" ; -- छौं
|
||||
<CPrsnt, Pos, Pers2_L, Sg, Masc> => "csx:" ; -- छस्
|
||||
<CPrsnt, Pos, Pers2_L, Sg, Fem> => "cesx:" ; -- छेस्
|
||||
<CPrsnt, Pos, Pers2_L, Pl, _> => "cw" ; -- छौ
|
||||
<CPrsnt, Pos, Pers2_M, Pl, Fem> => "cx:yw" ; -- छ्यौ
|
||||
<CPrsnt, Pos, Pers2_M, _, _> => "cw" ; -- छौ
|
||||
<CPrsnt, Pos, Pers3_L, Sg, Masc> => "c" ; -- छ
|
||||
<CPrsnt, Pos, Pers3_L, Sg, Fem> => "ce" ; -- छे
|
||||
<CPrsnt, Pos, Pers3_L, Pl, _> => "cnx:" ; -- छन्
|
||||
<CPrsnt, Pos, Pers3_M, Sg, Fem> => "cinx:" ; -- छिन्
|
||||
<CPrsnt, Pos, Pers3_M, _, _> => "cnx:" ; -- छन्
|
||||
<CPrsnt, Pos, _ , _, _> => "hunuhunx:c" ; --हुनुहुन्छ
|
||||
|
||||
-- Present Negative
|
||||
<CPrsnt, Neg, Pers1, Sg, _> => "cEnV" ; -- छैनँ
|
||||
<CPrsnt, Neg, Pers1, Pl, _> => "cEnwM" ; -- छैनौं
|
||||
<CPrsnt, Neg, Pers2_L, Sg, _> => "cEnsx:" ; -- छैनस्
|
||||
<CPrsnt, Neg, Pers2_L, Pl, _> => "cEnw" ; -- छैनौ
|
||||
<CPrsnt, Neg, Pers2_M, _, _> => "cEnw" ; -- छैनौ
|
||||
<CPrsnt, Neg, Pers3_L, Sg, _> => "cEn" ; --छैन
|
||||
<CPrsnt, Neg, Pers3_L, Pl, _> => "cEnnx:" ; -- छैनन्
|
||||
<CPrsnt, Neg, Pers3_M, _, _> => "cEnnx:" ; -- छैनन्
|
||||
<CPrsnt, Neg, _, _, _> => "hunuhunx:z+n" ; -- हुनुहुन्न
|
||||
|
||||
-- Resemples with "mkVPstSPGen" case, should refactor to make it
|
||||
-- take common function
|
||||
|
||||
-- Past Positive
|
||||
<CPast, Pos, Pers1, Sg, _> => "Tie:V" ; -- थिएँ
|
||||
<CPast, Pos, Pers1, Pl, _> => "TiywV" ; -- थियौँ
|
||||
<CPast, Pos, Pers2_L, Sg, _> => "Tii:sx:" ; -- थिइस्
|
||||
<CPast, Pos, Pers2_L, Pl, _> => "Tiyw" ; -- थियौ
|
||||
<CPast, Pos, Pers2_M, _, _> => "Tiyw" ; -- थियौ
|
||||
<CPast, Pos, Pers3_L, Sg, Masc> => "Tiyo" ; -- थियो
|
||||
<CPast, Pos, Pers3_L, Sg, Fem> => "TiI:" ; --थिई
|
||||
<CPast, Pos, Pers3_L, Pl, _> => "Tie:" ; -- थिए
|
||||
<CPast, Pos, Pers3_M, Sg, Fem> => "Tii:nx:" ; -- थिइन्
|
||||
<CPast, Pos, Pers3_M, _, _> => "Tie:" ; -- थिए
|
||||
<CPast, Pos, _, _, _> => "hunuhunx:z+Tx:yo" ; -- हुनुहुन्थ्यो
|
||||
|
||||
-- Past Positive
|
||||
<CPast, Neg, Pers1, Sg, _> => "TinV" ; -- थिनँ
|
||||
<CPast, Neg, Pers1, Pl, _> => "TenwM" ; -- थेनौं
|
||||
<CPast, Neg, Pers2_L, Sg, _> => "Tinsx:" ; -- थिनस्
|
||||
<CPast, Neg, Pers2_L, Pl, _> => "Tenw" ; -- थेनौ
|
||||
<CPast, Neg, Pers2_M, _, _> => "Tenw" ; -- थेनौ
|
||||
<CPast, Neg, Pers3_L, Sg, Masc> => "Ten" ; -- थेन
|
||||
<CPast, Neg, Pers3_L, Sg, Fem> => "Tin" ; --थिन
|
||||
<CPast, Neg, Pers3_L, Pl, _> => "Tennx:" ; -- थेनन्
|
||||
<CPast, Neg, Pers3_M, Sg, Fem> => "Tinnx:" ; -- थिनन्
|
||||
<CPast, Neg, Pers3_M, _, _> => "Tennx:" ; -- थेनन्
|
||||
<CPast, Neg, _, _, _> => "hunuhunx:z+nTx:yo" ; -- हुनुहुन्नथ्यो
|
||||
|
||||
|
||||
-- Can be covered by the function "mkVFutDNP"
|
||||
-- Future Positive
|
||||
<CFuture, Pos, Pers1, Sg, _> => "hunecu" ; -- हुनेछु
|
||||
<CFuture, Pos, Pers1, Pl, _> => "hunecwM" ; -- हुनेछौं
|
||||
<CFuture, Pos, Pers2_L, Sg, _> => "hunecsx:" ; -- हुनेछस्
|
||||
<CFuture, Pos, Pers2_L, Pl, _> => "hunecwM" ; -- हुनेछौ
|
||||
<CFuture, Pos, Pers2_M, _, _> => "hunecwM" ; -- हुनेछौ
|
||||
<CFuture, Pos, Pers3_L, Sg, _> => "hunec" ; -- हुनेछ
|
||||
<CFuture, Pos, Pers3_L, Pl, _> => "hunecnx:" ; -- हुनेछन्
|
||||
<CFuture, Pos, Pers3_M, _, Masc> => "hunecnx:" ; -- हुनेछन्
|
||||
<CFuture, Pos, Pers3_M, Sg, Fem> => "hunecnx:" ; -- हुनेछिन्
|
||||
<CFuture, Pos, Pers3_M, Pl, Fem> => "hunecnx:" ; -- हुनेछन्
|
||||
<CFuture, Pos, _, _, _> => "hunuhunec" ; -- हुनुहुनेछ
|
||||
|
||||
-- Negative Case
|
||||
<CFuture, Neg, Pers1, Sg, _> => "hunecEn" ; -- हुनेछैन
|
||||
<CFuture, Neg, Pers1, Pl, _> => "hunecEnEV" ; -- हुनेछैनैँ
|
||||
<CFuture, Neg, Pers2_L, Sg, _> => "hunecEnsx:" ; -- हुनेछैनस्
|
||||
<CFuture, Neg, Pers2_L, Pl, _> => "hunecEnE" ; -- हुनेछैनै
|
||||
<CFuture, Neg, Pers2_M, _, _> => "hunecEnE" ; -- हुनेछैनै
|
||||
<CFuture, Neg, Pers3_L, Sg, _> => "hunecEnx:" ; -- हुनेछैन्
|
||||
<CFuture, Neg, Pers3_L, Pl, _> => "hunecEnnx:" ; -- हुनेछैनन्
|
||||
<CFuture, Neg, Pers3_M, Sg, _> => "hunecEnnx:" ; -- हुनेछैनन्
|
||||
<CFuture, Neg, Pers3_M, Pl, _> => "hunecEnE" ; -- हुनेछैनै
|
||||
<CFuture, Neg, _, _, _> => "hunuhunecEnx:" -- हुनुहुनेछैन्
|
||||
} ;
|
||||
|
||||
-- For Human, occupation/Introductiary case case, (HAVENT INTEGRATED YET)
|
||||
copulaOpn : CTense -> Polarity -> Number -> NPerson -> Gender -> Str =
|
||||
\t, po, n, pn, g ->
|
||||
case <t,po,pn,n,g> of {
|
||||
-- Resembles with "mkVPreNPReg" function for positive
|
||||
-- <CPrsnt, Pos, _, _, _> => mkVPreNPReg "" Pos pn n g ;
|
||||
-- Present Positive
|
||||
<CPrsnt, Pos, Pers1, Sg, _> => "huV" ; -- हुँ
|
||||
<CPrsnt, Pos, Pers1, Pl, _> => "hwV" ; -- हौँ
|
||||
<CPrsnt, Pos, Pers2_L, Sg, _> => "hosx:" ; -- होस्
|
||||
--<CPrsnt, Pos, Pers2_L, Sg, Fem> => "hosx:" ; -- छेस्
|
||||
<CPrsnt, Pos, Pers2_L, Pl, _> => "hw" ; -- हौ
|
||||
--<CPrsnt, Pos, Pers2_M, Pl, Fem> => "cx:yw" ; -- छ्यौ
|
||||
<CPrsnt, Pos, Pers2_M, _, _> => "hw" ; -- हौ
|
||||
<CPrsnt, Pos, Pers3_L, Sg, Masc> => "ho" ; -- हो
|
||||
--<CPrsnt, Pos, Pers3_L, Sg, Fem> => "hunx:" ; -- हुन्
|
||||
<CPrsnt, Pos, Pers3_L, _, _> => "hunx:" ; -- हुन्
|
||||
--<CPrsnt, Pos, Pers3_M, Sg, Fem> => "hw" ; -- हौ
|
||||
<CPrsnt, Pos, Pers3_M, _, _> => "hw" ; -- हौ
|
||||
<CPrsnt, Pos, _ , _, _> => "hunuhunx:c" ; --हुनुहुन्छ
|
||||
|
||||
-- Present Negative
|
||||
<CPrsnt, Neg, Pers1, Sg, _> => "hEn" ; --
|
||||
<CPrsnt, Neg, Pers1, Pl, _> => "hEnwM" ; -- हैनौं
|
||||
<CPrsnt, Neg, Pers2_L, Sg, _> => "hEnsx:" ; -- हैनस्
|
||||
<CPrsnt, Neg, Pers2_L, Pl, _> => "hEnw" ; -- हैनौ
|
||||
<CPrsnt, Neg, Pers2_M, _, _> => "hEnw" ; -- हैनौ
|
||||
<CPrsnt, Neg, Pers3_L, Sg, _> => "hEn" ; --हैन
|
||||
<CPrsnt, Neg, Pers3_L, Pl, _> => "hEnnx:" ; -- हैनन्
|
||||
<CPrsnt, Neg, Pers3_M, _, _> => "hEnnx:" ; -- हैनन्
|
||||
<CPrsnt, Neg, _, _, _> => "hunuhunx:z+n" ; -- हुनुहुन्न
|
||||
|
||||
<_,_,_,_,_> => copula t po n pn g
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
param
|
||||
|
||||
VPHTense =
|
||||
VPGenPres -- impf hum nahim "I go"
|
||||
| VPSmplPast -- impf Ta nahim "I went"
|
||||
| VPFut -- fut na/nahim "I shall go"
|
||||
| VPPerfPres -- perf hum na/nahim "I have gone"
|
||||
| VPPerfPast -- perf Ta na/nahim "I had gone"
|
||||
| VPPerfFut
|
||||
| VPCondPres -- subj na "I may go"
|
||||
| VPCondPast -- subj na "I may go"
|
||||
;
|
||||
|
||||
{-
|
||||
VPHForm =
|
||||
VPTense VPPTense Aspect Agr -- 9 * 12
|
||||
| VPReq
|
||||
| VPImp
|
||||
| VPReqFut
|
||||
| VPInf
|
||||
| VPStem
|
||||
;
|
||||
-}
|
||||
|
||||
VType = VIntrans | VTrans | VTransPost ;
|
||||
|
||||
oper
|
||||
|
||||
objVType : VType -> NPCase = \vt ->
|
||||
case vt of {
|
||||
VTrans => NPObj ;
|
||||
_ => NPC Nom
|
||||
} ;
|
||||
|
||||
VPH : Type = {
|
||||
s : VerbForm => {inf : Str} ;
|
||||
obj : {s : Str ; a : Agr} ;
|
||||
subj : VType ;
|
||||
comp : Agr => Str;
|
||||
inf : Str;
|
||||
ad : Str;
|
||||
embComp : Str ;
|
||||
} ;
|
||||
|
||||
VPHSlash = VPH ** {c2 : Compl} ;
|
||||
Compl : Type = {s : Str ; c : VType} ;
|
||||
|
||||
predV : Verb -> VPH = \verb ->
|
||||
{s = \\vf =>
|
||||
case vf of {
|
||||
VF t a pl p n g => {inf = verb.s ! VF t a pl p n g } ;
|
||||
Root => {inf = verb.s ! Root } ;
|
||||
Inf => {inf = verb.s ! Inf } ;
|
||||
Imp => {inf = verb.s ! Imp } ;
|
||||
PVForm => {inf = verb.s ! PVForm } ;
|
||||
ProgRoot a n g => {inf = verb.s ! ProgRoot a n g }
|
||||
};
|
||||
obj = {s = [] ; a = defaultAgr} ;
|
||||
subj = VIntrans ;
|
||||
inf = verb.s ! Inf;
|
||||
ad = [];
|
||||
embComp = [];
|
||||
comp = \\_ => []
|
||||
} ;
|
||||
|
||||
predVc : (Verb ** {c2,c1 : Str}) -> VPHSlash = \verb ->
|
||||
predV verb ** {c2 = {s = verb.c1 ; c = VTrans} } ;
|
||||
|
||||
|
||||
{-
|
||||
-------------------------
|
||||
-- added for cauitives
|
||||
predVcc : (Verb **{c2:Compl}) -> VPHSlash = \verb ->
|
||||
predV verb ** {c2 = {s = "" ; c = VTrans} } ;
|
||||
------------------------
|
||||
-}
|
||||
{-
|
||||
pya : Gender -> Number -> Str = \g,n ->
|
||||
(mkAdj1 "pya").s ! n ! g ! Dir ;
|
||||
|
||||
cka : Gender -> Number -> Str = \g,n ->
|
||||
(mkAdj1 "cka").s ! n ! g ! Dir ;
|
||||
|
||||
hw : PPerson -> Number -> Str = \pp,n ->
|
||||
case <pp,n> of {
|
||||
<Pers1,_> => "hwwaN";
|
||||
<Pers2_Casual,Sg> => "hwwyN";
|
||||
<Pers2_Casual,Pl> => "hww";
|
||||
<Pers2_Respect,_> => "hww";
|
||||
<Pers3_Distant,Sg> => "hwwE";
|
||||
<Pers3_Distant,Pl> => "hwn";
|
||||
<Pers3_Near,Sg> => "hwwE";
|
||||
<Pers3_Near,Pl> => "hwn"
|
||||
|
||||
};
|
||||
-}
|
||||
|
||||
predAux : Aux -> VPH = \verb -> {
|
||||
s = \\vh =>
|
||||
let
|
||||
inf = verb.inf ;
|
||||
part = verb.ppart ;
|
||||
in
|
||||
case vh of {
|
||||
VF NPresent _ pl p n g => {inf = copula CPrsnt pl n p g } ;
|
||||
VF (NPast _) _ pl p n g => {inf = copula CPast pl n p g } ;
|
||||
VF (NFuture _) _ pl p n g => {inf = copula CFuture pl n p g } ;
|
||||
Root => { inf = verb.inf} ;
|
||||
Inf => {inf = verb.inf} ;
|
||||
Imp => {inf = verb.inf} ;
|
||||
ProgRoot a n g => {inf = "" } ;
|
||||
PVForm => {inf = ""}
|
||||
};
|
||||
obj = {s = [] ; a = defaultAgr} ;
|
||||
subj = VIntrans ;
|
||||
inf = verb.inf;
|
||||
ad = [];
|
||||
embComp = [];
|
||||
comp = \\_ => []
|
||||
} ;
|
||||
|
||||
Aux = {
|
||||
inf,ppart,prpart : Str
|
||||
} ;
|
||||
|
||||
auxBe : Aux = {
|
||||
inf = "" ;
|
||||
ppart = "" ;
|
||||
prpart = ""
|
||||
} ;
|
||||
|
||||
raha : VTense -> Aspect -> Gender -> Number -> NPerson -> {s:Str} = \t,a,g,n,p -> {
|
||||
s = case <t,a,g,n,p> of {
|
||||
<NPresent,Perf,Masc,Sg,Pers1> => "i:rhnx:" ;
|
||||
<_,_,_,_,_> => "i:rhnx:"
|
||||
}
|
||||
} ;
|
||||
|
||||
predProg : VPH -> VPH = \verb -> {
|
||||
s = \\vh =>
|
||||
case vh of {
|
||||
VF NPresent a pl p n g => {inf = (verb.s ! ProgRoot a n g).inf ++ copula CPrsnt pl n p g } ;
|
||||
VF (NPast _) a pl p n g => {inf = (verb.s ! ProgRoot a n g).inf ++ copula CPast pl n p g } ;
|
||||
VF (NFuture _) a pl p n g => {inf = (verb.s ! ProgRoot a n g).inf ++ copula CFuture pl n p g } ;
|
||||
Root => {inf = (verb.s ! Root).inf } ;
|
||||
Inf => {inf = (verb.s ! ProgRoot Imperf Sg Masc).inf } ;
|
||||
Imp => {inf = (verb.s ! Imp).inf } ;
|
||||
PVForm => {inf = (verb.s ! PVForm).inf } ;
|
||||
ProgRoot a n g => {inf = (verb.s ! ProgRoot a n g).inf }
|
||||
};
|
||||
obj = verb.obj ;
|
||||
subj = VIntrans ;
|
||||
inf = verb.inf;
|
||||
ad = verb.ad;
|
||||
embComp = verb.embComp;
|
||||
comp = verb.comp
|
||||
} ;
|
||||
|
||||
Clause : Type = {s : VPHTense => Polarity => Order => Str} ;
|
||||
|
||||
-- TODO, ERGATIVE CASE FROM NOUN INFLETION
|
||||
mkClause : NP -> VPH -> Clause = \np,vp -> {
|
||||
s = \\vt,b,ord =>
|
||||
let
|
||||
subjagr : NPCase * Agr = case vt of {
|
||||
VPSmplPast => case vp.subj of {
|
||||
VTrans => <NPErg, vp.obj.a> ;
|
||||
VTransPost => <NPErg, defaultAgr> ;
|
||||
_ => <NPC Nom, np.a>
|
||||
} ;
|
||||
|
||||
VPPerfPast => case vp.subj of {
|
||||
VTrans => <NPErg, vp.obj.a> ;
|
||||
VTransPost => <NPErg, defaultAgr> ;
|
||||
_ => <NPC Nom, np.a>
|
||||
} ;
|
||||
|
||||
_ => <NPC Nom, np.a>
|
||||
} ;
|
||||
subj = subjagr.p1 ;
|
||||
agr = subjagr.p2 ;
|
||||
n = (fromAgr agr).n;
|
||||
p = (fromAgr agr).p;
|
||||
g = (fromAgr agr).g;
|
||||
vps = case <vt,b> of {
|
||||
<VPGenPres,Pos> => vp.s ! VF NPresent Imperf Pos p n g ;
|
||||
<VPGenPres,Neg> => vp.s ! VF NPresent Imperf Neg p n g ;
|
||||
<VPFut,Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<VPFut,Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g ;
|
||||
<VPSmplPast,Pos> => vp.s ! VF (NPast Simpl) Imperf Pos p n g ;
|
||||
<VPSmplPast,Neg> => vp.s ! VF (NPast Simpl) Imperf Neg p n g ;
|
||||
|
||||
<VPPerfPres,Pos> => vp.s ! VF NPresent Perf Pos p n g ;
|
||||
<VPPerfPres,Neg> => vp.s ! VF NPresent Perf Neg p n g ;
|
||||
<VPPerfPast,Pos> => vp.s ! VF (NPast Simpl) Perf Pos p n g ;
|
||||
<VPPerfPast,Neg> => vp.s ! VF (NPast Simpl) Perf Neg p n g ;
|
||||
<VPPerfFut,Pos> => vp.s ! VF (NFuture Defin) Perf Pos p n g ;
|
||||
<VPPerfFut,Neg> => vp.s ! VF (NFuture Defin) Perf Neg p n g ;
|
||||
|
||||
<VPCondPres, Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<VPCondPres, Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g ;
|
||||
<VPCondPast, Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<VPCondPast, Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g
|
||||
{-
|
||||
<_, Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<_, Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g
|
||||
-}
|
||||
};
|
||||
|
||||
quest =
|
||||
case ord of
|
||||
{ ODir => [];
|
||||
OQuest => "ke" };
|
||||
|
||||
in
|
||||
quest ++ np.s ! subj ++ vp.ad ++ vp.obj.s ++ vp.comp ! np.a ++ vps.inf ++ vp.embComp
|
||||
--quest ++ np.s ! subj ++ vp.ad ++ vp.comp ! np.a ++ vp.obj.s ++ vps.inf ++ vp.embComp
|
||||
} ;
|
||||
|
||||
|
||||
mkSClause : Str -> Agr -> VPH -> Clause =
|
||||
\subj,agr,vp -> {
|
||||
s = \\t,b,ord =>
|
||||
let
|
||||
n = (fromAgr agr).n;
|
||||
p = (fromAgr agr).p;
|
||||
g = (fromAgr agr).g;
|
||||
vps = case <t,b> of {
|
||||
<VPGenPres,Pos> => vp.s ! VF NPresent Imperf Pos p n g ;
|
||||
<VPGenPres,Neg> => vp.s ! VF NPresent Imperf Neg p n g ;
|
||||
<VPFut,Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<VPFut,Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g ;
|
||||
<VPSmplPast,Pos> => vp.s ! VF (NPast Simpl) Imperf Pos p n g ;
|
||||
<VPSmplPast,Neg> => vp.s ! VF (NPast Simpl) Imperf Neg p n g ;
|
||||
|
||||
<VPPerfPres,Pos> => vp.s ! VF NPresent Perf Pos p n g ;
|
||||
<VPPerfPres,Neg> => vp.s ! VF NPresent Perf Neg p n g ;
|
||||
<VPPerfPast,Pos> => vp.s ! VF (NPast Simpl) Perf Pos p n g ;
|
||||
<VPPerfPast,Neg> => vp.s ! VF (NPast Simpl) Perf Neg p n g ;
|
||||
<VPPerfFut,Pos> => vp.s ! VF (NFuture Defin) Perf Pos p n g ;
|
||||
<VPPerfFut,Neg> => vp.s ! VF (NFuture Defin) Perf Neg p n g ;
|
||||
|
||||
<VPCondPres, Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<VPCondPres, Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g ;
|
||||
<VPCondPast, Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<VPCondPast, Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g
|
||||
{-
|
||||
<_, Pos> => vp.s ! VF (NFuture Defin) Imperf Pos p n g ;
|
||||
<_, Neg> => vp.s ! VF (NFuture Defin) Imperf Neg p n g
|
||||
-}
|
||||
};
|
||||
|
||||
quest =
|
||||
case ord of
|
||||
{ ODir => [];
|
||||
OQuest => "ke" };
|
||||
|
||||
in
|
||||
quest ++ subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! agr ++ vps.inf ++ vp.embComp
|
||||
-- quest ++ subj ++ vp.ad ++ vp.comp ! agr ++ vp.obj.s ++ vps.inf ++ vp.embComp
|
||||
} ;
|
||||
{-
|
||||
insertSubj : PPerson -> Str -> Str = \p,s ->
|
||||
case p of { Pers1 => s ++ "wN" ; _ => s ++ "E"};
|
||||
-}
|
||||
insertObj : (Agr => Str) -> VPH -> VPH = \obj1,vp -> {
|
||||
s = vp.s ;
|
||||
obj = vp.obj ;
|
||||
subj = vp.subj ;
|
||||
inf = vp.inf;
|
||||
ad = vp.ad;
|
||||
embComp = vp.embComp;
|
||||
comp = \\a => vp.comp ! a ++ obj1 ! a
|
||||
} ;
|
||||
|
||||
insertVV : {s:Agr => Str} -> VPH -> Str -> VPH -> VPH = \obj1,vp,emb,vp2 -> {
|
||||
s = vp.s ;
|
||||
-- obj = vp.obj ;
|
||||
obj = vp2.obj ;
|
||||
subj = vp.subj ;
|
||||
inf = vp.inf;
|
||||
ad = vp.ad;
|
||||
embComp = vp.embComp ++ emb;
|
||||
-- comp = \\a => vp.comp ! a ++ obj1.s ! a
|
||||
comp = \\a => obj1.s ! a ++ vp.comp ! a
|
||||
} ;
|
||||
|
||||
insertObj2 : (Str) -> VPH -> VPH = \obj1,vp -> {
|
||||
s = vp.s;
|
||||
obj = vp.obj ;
|
||||
subj = vp.subj ;
|
||||
inf = vp.inf;
|
||||
ad = vp.ad;
|
||||
embComp = vp.embComp ++ obj1;
|
||||
comp = vp.comp
|
||||
} ;
|
||||
|
||||
insertObjc : (Agr => Str) -> VPHSlash -> VPHSlash = \obj,vp ->
|
||||
insertObj obj vp ** {c2 = vp.c2} ;
|
||||
|
||||
insertObjc2 : Str -> VPHSlash -> VPHSlash = \obj,vp ->
|
||||
insertObj2 obj vp ** {c2 = vp.c2} ;
|
||||
|
||||
infVP : Bool -> VPH -> {s:Agr => Str} = \isAux,vp ->
|
||||
{s= \\a => vp.obj.s ++ (vp.s! PVForm).inf ++ vp.comp ! a };
|
||||
|
||||
infVV : VPH -> {s:Agr => Str} = \vp -> {
|
||||
s = \\ agr => vp.comp ! agr ++ (vp.s ! PVForm) . inf
|
||||
} ;
|
||||
|
||||
|
||||
infV2V : VPH -> {s :Agr => Str} = \vp -> {
|
||||
s = \\agr => vp.comp ! agr ++ (vp.s ! PVForm).inf --++ "lai:"
|
||||
} ;
|
||||
|
||||
insertObject : NP -> VPHSlash -> VPH = \np,vps -> {
|
||||
s = vps.s ;
|
||||
obj = {s = np.s ! objVType vps.c2.c ++ vps.c2.s ++ vps.obj.s ; a = np.a} ;
|
||||
-- obj = {s = vps.obj.s ; a = np.a} ;
|
||||
--_ => {s = vps.obj.s ++ np.s ! objVType vps.c2.c ; a = np.a}
|
||||
---};
|
||||
subj = vps.c2.c ;
|
||||
inf = vps.inf;
|
||||
ad = vps.ad;
|
||||
embComp = vps.embComp;
|
||||
comp = vps.comp
|
||||
-- comp = \\a => vps.comp ! a ++ np.s ! (objVType vps.c2.c) ++ vps.c2.s
|
||||
} ;
|
||||
|
||||
insertObjPre : (Agr => Str) -> VPHSlash -> VPH = \obj,vp -> {
|
||||
s = vp.s ;
|
||||
obj = vp.obj ;
|
||||
inf = vp.inf ;
|
||||
subj = vp.subj ;
|
||||
ad = vp.ad ;
|
||||
embComp = vp.embComp;
|
||||
comp = \\a => obj ! a ++ vp.c2.s ++ vp.comp ! a
|
||||
} ;
|
||||
|
||||
insertAdV : Str -> VPH -> VPH = \ad,vp -> {
|
||||
s = vp.s ;
|
||||
obj = vp.obj ;
|
||||
inf = vp.inf ;
|
||||
subj = vp.subj;
|
||||
ad = vp.ad ++ ad ;
|
||||
embComp = vp.embComp;
|
||||
comp = vp.comp
|
||||
} ;
|
||||
|
||||
conjThat : Str = "kI" ; -- की
|
||||
|
||||
{-
|
||||
checkPron : NP -> Str -> Str = \np,str -> case (np.isPron) of {
|
||||
True => np.s ! NPC Obl;
|
||||
False => np.s ! NPC Obl ++ str} ;
|
||||
-}
|
||||
insertEmbCompl : VPH -> Str -> VPH = \vp,emb -> {
|
||||
s = vp.s ;
|
||||
obj = vp.obj ;
|
||||
inf = vp.inf ;
|
||||
subj = vp.subj;
|
||||
ad = vp.ad;
|
||||
embComp = vp.embComp ++ emb;
|
||||
comp = vp.comp
|
||||
} ;
|
||||
|
||||
insertTrans : VPH -> VType -> VPH = \vp,vtype -> {
|
||||
s = vp.s ;
|
||||
obj = vp.obj ;
|
||||
inf = vp.inf ;
|
||||
subj = case vtype of {
|
||||
VIntrans => VTransPost ;
|
||||
VTrans => VTrans ;
|
||||
_ => vtype
|
||||
} ;
|
||||
ad = vp.ad;
|
||||
embComp = vp.embComp ;
|
||||
comp = vp.comp
|
||||
} ;
|
||||
}
|
||||
@@ -0,0 +1,107 @@
|
||||
concrete SentenceNep of Sentence = CatNep ** open Prelude, ResNep in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
coding = utf8;
|
||||
|
||||
lin
|
||||
|
||||
PredVP np vp = mkClause np vp ;
|
||||
|
||||
PredSCVP sc vp = mkSClause sc.s (defaultAgr) vp ;
|
||||
|
||||
ImpVP vp = {
|
||||
s = \\pol,n =>
|
||||
let
|
||||
agr = Ag Masc (numImp n) Pers2_M ;
|
||||
verb = vp.obj.s ++ (vp.s! PVForm).inf ++ vp.comp ! agr ;
|
||||
dont = case pol of {
|
||||
CNeg True => "ngr" ;
|
||||
CNeg False => "ngr" ;
|
||||
_ => []
|
||||
}
|
||||
in
|
||||
dont ++ verb
|
||||
} ;
|
||||
|
||||
SlashVP np vp =
|
||||
mkClause np vp ** {c2 = vp.c2} ;
|
||||
|
||||
AdvSlash slash adv = {
|
||||
s = \\t,p,o => adv.s ++ slash.s ! t ! p ! o ;
|
||||
c2 = slash.c2
|
||||
} ;
|
||||
|
||||
SlashPrep cl prep = cl ** {c2 = { s = prep.s ; c = VIntrans}} ;
|
||||
|
||||
SlashVS np vs slash =
|
||||
mkClause np
|
||||
(insertObj2 (conjThat ++ slash.s) (predV vs)) **
|
||||
{c2 = slash.c2} ;
|
||||
|
||||
EmbedS s = {s = conjThat ++ s.s} ;
|
||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||
EmbedVP vp = {s = vp.obj.s ++ (vp.s! PVForm).inf ++ vp.comp ! defaultAgr} ; --- agr
|
||||
|
||||
|
||||
UseCl temp p cl =
|
||||
{ s = case <temp.t,temp.a> of {
|
||||
<Pres,Simul> => temp.s ++ p.s ++ cl.s ! VPGenPres ! p.p ! ODir;
|
||||
<Pres,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfPres ! p.p ! ODir;
|
||||
<Past,Simul> => temp.s ++ p.s ++ cl.s ! VPSmplPast ! p.p ! ODir;
|
||||
<Past,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfPast ! p.p ! ODir;
|
||||
<Fut,Simul> => temp.s ++ p.s ++ cl.s ! VPFut ! p.p ! ODir;
|
||||
<Fut,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfFut ! p.p ! ODir;
|
||||
<Cond,Simul> => temp.s ++ p.s ++ cl.s ! VPCondPres ! p.p ! ODir;
|
||||
<Cond,Anter> => temp.s ++ p.s ++ cl.s ! VPCondPast ! p.p ! ODir
|
||||
|
||||
};
|
||||
} ;
|
||||
|
||||
UseQCl temp p cl = {
|
||||
s = \\q => case <temp.t,temp.a> of {
|
||||
<Pres,Simul> => temp.s ++ p.s ++ cl.s ! VPGenPres ! p.p ! q;
|
||||
<Pres,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfPres ! p.p ! q;
|
||||
<Past,Simul> => temp.s ++ p.s ++ cl.s ! VPSmplPast ! p.p ! q;
|
||||
<Past,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfPast ! p.p ! q;
|
||||
<Fut,Simul> => temp.s ++ p.s ++ cl.s ! VPFut ! p.p ! q;
|
||||
<Fut,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfFut ! p.p ! q;
|
||||
<Cond,Simul> => temp.s ++ p.s ++ cl.s ! VPCondPres ! p.p ! q;
|
||||
<Cond,Anter> => temp.s ++ p.s ++ cl.s ! VPCondPast ! p.p ! q
|
||||
|
||||
};
|
||||
} ;
|
||||
|
||||
UseRCl temp p rcl = {
|
||||
s = \\q => case <temp.t,temp.a> of {
|
||||
<Pres,Simul> => temp.s ++ p.s ++ rcl.s ! VPGenPres ! p.p ! ODir ! q;
|
||||
<Pres,Anter> => temp.s ++ p.s ++ rcl.s ! VPPerfPres ! p.p ! ODir ! q;
|
||||
<Past,Simul> => temp.s ++ p.s ++ rcl.s ! VPSmplPast ! p.p ! ODir ! q;
|
||||
<Past,Anter> => temp.s ++ p.s ++ rcl.s ! VPPerfPast ! p.p ! ODir ! q;
|
||||
<Fut,Simul> => temp.s ++ p.s ++ rcl.s ! VPFut ! p.p ! ODir ! q;
|
||||
<Fut,Anter> => temp.s ++ p.s ++ rcl.s ! VPPerfFut ! p.p ! ODir ! q;
|
||||
<Cond,Simul> => temp.s ++ p.s ++ rcl.s ! VPCondPres ! p.p ! ODir ! q;
|
||||
<Cond,Anter> => temp.s ++ p.s ++ rcl.s ! VPCondPast ! p.p ! ODir ! q
|
||||
};
|
||||
c = rcl.c
|
||||
} ;
|
||||
|
||||
UseSlash temp p clslash = {
|
||||
s = case <temp.t,temp.a> of {
|
||||
<Pres,Simul> => temp.s ++ p.s ++ clslash.s ! VPGenPres ! p.p ! ODir;
|
||||
<Pres,Anter> => temp.s ++ p.s ++ clslash.s ! VPPerfPres ! p.p ! ODir;
|
||||
<Past,Simul> => temp.s ++ p.s ++ clslash.s ! VPSmplPast ! p.p ! ODir ;
|
||||
<Past,Anter> => temp.s ++ p.s ++ clslash.s ! VPPerfPast ! p.p ! ODir;
|
||||
<Fut,Simul> => temp.s ++ p.s ++ clslash.s ! VPFut ! p.p ! ODir;
|
||||
<Fut,Anter> => temp.s ++ p.s ++ clslash.s ! VPPerfFut ! p.p ! ODir;
|
||||
<Cond,Simul> => temp.s ++ p.s ++ clslash.s ! VPCondPres ! p.p ! ODir;
|
||||
<Cond,Anter> => temp.s ++ p.s ++ clslash.s ! VPCondPast ! p.p ! ODir
|
||||
};
|
||||
c2 = clslash.c2
|
||||
} ;
|
||||
|
||||
AdvS a s = {s = a.s ++ s.s} ;
|
||||
|
||||
RelS s r = {s = s.s ++ r.s ! agrP3 Masc Sg} ;
|
||||
SSubjS s sj s = { s = s.s ++ sj.s ++ s.s};
|
||||
|
||||
}
|
||||
@@ -0,0 +1,131 @@
|
||||
concrete StructuralNep of Structural = CatNep **
|
||||
open MorphoNep, ParadigmsNep, Prelude, NounNep in {
|
||||
|
||||
flags optimize=all ;
|
||||
coding = utf8;
|
||||
|
||||
lin
|
||||
|
||||
above_Prep = mkPrep "maTi" ; -- माथि
|
||||
after_Prep = mkPrep "pci" ; -- पछि
|
||||
all_Predet = ss "sbE" ; -- सबै (adj)
|
||||
almost_AdA = mkAdA "JNx:xE" ;
|
||||
almost_AdN = mkAdN "JNx:xE" ; -- JNx:xE (Adv) झण्डै
|
||||
although_Subj = ss "tEpni" ; -- तैपनि (conj)
|
||||
always_AdV = mkAdV "sDEV" ; -- सधैँ
|
||||
and_Conj = sd2 [] "r" ** {n = Pl} ;
|
||||
because_Subj = ss "kinBne" ; -- किनभने
|
||||
before_Prep = mkPrep "HGi" ; -- अघि
|
||||
behind_Prep = mkPrep "pci" ; -- पछि
|
||||
between_Prep = mkPrep "biC" ; -- बिच
|
||||
both7and_DConj = sd2 "dubE" "r" ** {n = Pl} ; -- दुबै र
|
||||
but_PConj = ss "tr" ; -- तर
|
||||
by8agent_Prep = mkPrep "lai:" ; --
|
||||
by8means_Prep = mkPrep "le" ;
|
||||
can8know_VV,can_VV = mkV "skx:nu" ** { isAux = True} ;
|
||||
during_Prep = mkPrep "prx:yanx:t" ; -- पर्यान्त
|
||||
either7or_DConj = sd2 "HTva" "ya" ** {n = Sg} ; -- अथवा , या
|
||||
everybody_NP = MassNP (UseN (regN "svw jana")) ; -- not a good way coz need to include Noun (सवौ जाना)
|
||||
every_Det = mkDet "sbE" "hrek" Sg ; -- सबै, हरेक
|
||||
everything_NP = MassNP (UseN (regN "harek kura")) ; -- हारेक कुरा
|
||||
everywhere_Adv = mkAdv "jata ttE" ; -- जाता ततै
|
||||
few_Det = mkDet "TorE" "HliktI" Pl ; -- थोरै, अलिकती
|
||||
-- d first_Ord = {s = "pehla" ; n = Sg} ; --DEPRECATED
|
||||
for_Prep = mkPrep "lagi" ; -- लागि
|
||||
from_Prep = mkPrep "baq" ; -- बाट
|
||||
|
||||
i_Pron = mkPron "m" "mero" Sg Masc Pers1 ; -- म, मेरो
|
||||
we_Pron = mkPron "hamIhru" "hamIhruko" Pl Masc Pers1 ; -- हामीहरु, हामीहरुको
|
||||
he_Pron = mkPron "f" "fsx:laI:" "fsx:le" "fsx:laI:" "fsbaq" "fsx:ma" "fsx:ko" Sg Masc Pers3_L; --उ, उस्लाई, उस्ले, उस्लाई, उसवाट, उस्मा, उस्को
|
||||
she_Pron = mkPron "fnI" "fnx:laI:" "fnx:le" "fnx:laI:" "fnbaq" "fnx:ma" "fnx:ko" Sg Fem Pers3_M ; -- उनी , उन्को
|
||||
youSg_Pron = mkPron "timI" "timx:ro" Sg Masc Pers2_M ; -- तिमी, तिम्रो
|
||||
youPl_Pron = mkPron "timIhru" "timIhruko" Pl Masc Pers2_M ; -- तिमीहरु, तिमीहरुको
|
||||
youPol_Pron = mkPron "tpaI:" "tpaI:hruko" Sg Masc Pers2_H ; -- तपाई, तपाईहरुको
|
||||
they_Pron = mkPron "fnIhru" "fnihruko" Pl Masc Pers3_L ; -- उनिहरु, उनिहरुको
|
||||
it_Pron = mkPron "yo" "yslaI:" "yesle" "yslaI:" "ysbaq" "ysma" "usx:ko" Sg Masc Pers3_L; -- यो, यसलाई, यसले, यसलाई, यसबाट, यसमा, उस्को
|
||||
|
||||
here_Adv = mkAdv "yhaV" ; -- यहाँ
|
||||
here7to_Adv = mkAdv ["yhaV smx:m"] ; -- यहाँ सम्म
|
||||
here7from_Adv = mkAdv ["yhaV baq"] ; -- यहाँ बाट
|
||||
how_IAdv = ss "ksrI" ; -- कसरी
|
||||
how8much_IAdv = ss "ktI" ; -- कती
|
||||
--how8many_IDet = mkDet "ktI vqa" "ktI vqI" Pl ; -- काती वटा, कती वटी (incase of humans it becomes, 'kati jana') NEEDS FIX
|
||||
if_Subj = ss "ydi" ; -- यदि
|
||||
in8front_Prep = mkPrep "samu" ; -- सामु
|
||||
in_Prep = mkPrep "ma" ; -- मा
|
||||
less_CAdv = {s = "km" ; p = "Bnx:da"} ; -- ?? NOT CLEAR
|
||||
many_Det = mkDet "DerE" "Tupx:rE" Pl ; -- धेरै, थुप्रै
|
||||
more_CAdv = {s = "bXI" ; p = "Bnx:da" } ;
|
||||
most_Predet = ss "jx:yadE" ; -- ज्यादै
|
||||
much_Det = mkDet "nikx:kE" "besrI" Sg ; --
|
||||
must_VV = mkV "HvSx:y" ** { isAux = True} ; -- अवश्य
|
||||
-- must_VV = {
|
||||
-- s = table {
|
||||
-- VVF VInf => ["have to"] ;
|
||||
-- VVF VPres => "must" ;
|
||||
-- VVF VPPart => ["had to"] ;
|
||||
-- VVF VPresPart => ["having to"] ;
|
||||
-- VVF VPast => ["had to"] ; --# notpresent
|
||||
-- VVPastNeg => ["hadn't to"] ; --# notpresent
|
||||
-- VVPresNeg => "mustn't"
|
||||
-- } ;
|
||||
-- isAux = True
|
||||
-- } ;
|
||||
|
||||
-- d no_Phr = ss "hunx:n" ; -- हुन्न
|
||||
no_Utt = ss "hoI:n" ; -- होईन
|
||||
on_Prep = mkPrep "ma" ; -- मा
|
||||
-- d one_Quant = mkQuant "e:k" "e:k" ; -- DEPRECATED
|
||||
only_Predet = ss "matx:r" ; -- मात्र
|
||||
or_Conj = sd2 [] "HTva" ** {n = Sg} ; -- अथवा
|
||||
otherwise_PConj = ss "Hnx:yTa" ; -- अन्यथा
|
||||
part_Prep = mkPrep "Bag" ; -- भाग
|
||||
please_Voc = ss "kRpya" ; -- कृपया
|
||||
possess_Prep = mkPrep "DarNa grx:nu" ; -- धारणा गर्नु
|
||||
quite_Adv = ss "e:kdm" ; -- एकदम
|
||||
so_AdA = mkAdA "ys karN" ; -- यस कारण ???? NEED TO CHECK
|
||||
somebody_NP = MassNP (UseN (regN "kohI")); -- कोही
|
||||
someSg_Det = mkDet "kohI" "kehI" Sg ;
|
||||
somePl_Det = mkDet "kohI" "kehI" Pl ;
|
||||
something_NP = MassNP (UseN (regN "kehI kura")) ;
|
||||
somewhere_Adv = mkAdv "khIM" ; -- कहीं
|
||||
that_Quant = mkQuant "tx:ye" "yinIhru" ;
|
||||
that_Subj = ss "tx:yo"; -- त्यो
|
||||
there_Adv = mkAdv "tx:yhaV" ; -- त्यहाँ
|
||||
there7to_Adv = mkAdv "tx:yhaV smx:m" ; -- त्यहाँ सम्म
|
||||
there7from_Adv = mkAdv "tx:yhaV baq" ; -- त्यहाँ बाट
|
||||
therefore_PConj = ss "Hth:" ; -- अतः
|
||||
this_Quant = mkQuant "yo" "yi" ;
|
||||
through_Prep = mkPrep "marx:Pt" ; -- मार्फत
|
||||
too_AdA = mkAdA "pni" ; -- पनि
|
||||
to_Prep = ss "smx:m" ; --
|
||||
under_Prep = mkPrep "Hnx:trx:gt" ; -- अन्तर्गत
|
||||
very_AdA = mkAdA "DerE" ; -- धेरै
|
||||
want_VV = mkV "Cahnu" ** { isAux = False} ;
|
||||
whatSg_IP = mkIP "ke" "ke" "ke" "" Sg ;
|
||||
whatPl_IP = mkIP "ke" "ke" "ke" "" Pl ;
|
||||
when_IAdv = ss "khile" ; -- कहिले
|
||||
when_Subj = ss "khile" ;
|
||||
where_IAdv = ss "khaV" ; -- कहाँ
|
||||
which_IQuant = {s = table {Sg => "kun" ; Pl => "kun" } }; -- कुन
|
||||
-- d whichPl_IDet = {s = "kun" ; n = Sg} ;
|
||||
-- d whichSg_IDet = {s = "kun" ; n = Pl} ;
|
||||
whoSg_IP = mkIP "ko" "kaslaI:" "ksko" "" Sg ;
|
||||
whoPl_IP = mkIP "ko" "kaslaI:" "ksko" "" Pl ;
|
||||
why_IAdv = ss "kin" ; -- किन
|
||||
without_Prep = mkPrep "vina" ; -- विना
|
||||
with_Prep = mkPrep "sVg" ; -- सँग
|
||||
-- d yes_Phr = ss "hjur" ; -- हजुर
|
||||
yes_Utt = ss "hjur" ;
|
||||
no_Quant = mkQuant "hEn" "hEnE" ;
|
||||
not_Predet = {s="hEn"} ; -- हैन
|
||||
if_then_Conj = sd2 "ydi" "Bne" ** {n = Sg} ; -- यदि भने
|
||||
at_least_AdN = mkAdN "kmsekm" ; -- कमसेकम
|
||||
at_most_AdN = mkAdN "bXIma" ; -- बढीमा
|
||||
nothing_NP = MassNP (UseN (regN "kehI pnI")) ; -- केही पनी
|
||||
nobody_NP = MassNP (UseN (regN "kehI pnI")) ; --कोही पनी
|
||||
except_Prep = mkPrep "bahek" ; -- बाहेक
|
||||
as_CAdv = {s = "jtx:tIkE" ; p = ""} ; -- जत्तीकै
|
||||
have_V2 = mkV2 (mkV "hunu") "" ; -- हुनु
|
||||
language_title_Utt = ss "nepalI" ; -- नेपाली
|
||||
}
|
||||
@@ -0,0 +1,46 @@
|
||||
--# -path=.:../abstract:../common
|
||||
|
||||
concrete SymbolNep of Symbol = CatNep ** open Prelude, ResNep in {
|
||||
|
||||
flags coding = utf8;
|
||||
|
||||
lin
|
||||
SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
|
||||
IntPN i = {s = addGenitiveS i.s ; g = Masc} ;
|
||||
FloatPN i = {s = addGenitiveS i.s ; g = Masc} ;
|
||||
NumPN i = {s = \\_ =>i.s ; g = Masc} ;
|
||||
CNIntNP cn i = {
|
||||
s = \\c => cn.s ! Sg ! Nom ++ i.s ;
|
||||
a = agrP3 cn.g Sg
|
||||
} ;
|
||||
CNSymbNP det cn xs = {
|
||||
s = \\c => det.s!Sg!Masc ++ cn.s ! det.n ! Nom ++ xs.s ;
|
||||
a = agrP3 cn.g det.n
|
||||
} ;
|
||||
CNNumNP cn i = {
|
||||
s = \\c => cn.s ! Sg ! Nom ++ i.s ;
|
||||
a = agrP3 cn.g Sg
|
||||
} ;
|
||||
|
||||
SymbS sy = sy ;
|
||||
SymbNum sy = { s = sy.s ; n = Pl } ;
|
||||
SymbOrd sy = { s = sy.s ++ "wV" ; n = Pl} ;
|
||||
|
||||
lincat
|
||||
|
||||
Symb, [Symb] = SS ;
|
||||
|
||||
lin
|
||||
MkSymb s = s ;
|
||||
|
||||
BaseSymb = infixSS "r" ;
|
||||
ConsSymb = infixSS "," ;
|
||||
|
||||
oper
|
||||
-- Note: this results in a space before 's, but there's
|
||||
-- not mauch we can do about that.
|
||||
addGenitiveS : Str -> Case => Str = \s ->
|
||||
table {_ => s ++ "da" } ;
|
||||
|
||||
|
||||
}
|
||||
@@ -0,0 +1,73 @@
|
||||
concrete VerbNep of Verb = CatNep ** open ResNep in {
|
||||
|
||||
flags coding = utf8;
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
UseV v = predV v ;
|
||||
|
||||
SlashV2a v = predV v ** {c2 = {s = v.c2.s ; c = VTrans}} ;
|
||||
|
||||
-- use of these two functions
|
||||
Slash2V3 v np =
|
||||
insertObjc (\\_ => np.s ! NPObj ++ v.c3 ) (predV v ** {c2 = {s = v.c2 ; c = VTrans}}) ; -- NEEDS CHECKING
|
||||
|
||||
Slash3V3 v np =
|
||||
insertObjc (\\_ => np.s ! NPC Nom ++ v.c3) (predV v ** {c2 = {s = v.c2 ; c = VTrans}}) ;
|
||||
|
||||
|
||||
ComplVV v vp = insertTrans (insertVV (infVV vp) (predV v) vp.embComp vp) vp.subj ;
|
||||
|
||||
ComplVS v s = insertTrans (insertObj2 (conjThat ++ s.s) (predV v)) VTransPost ;
|
||||
|
||||
ComplVQ v q = insertObj2 (conjThat ++ q.s ! QIndir) (predV v) ;
|
||||
|
||||
-- Need check for 'bhayo' inflection (past)
|
||||
-- cc -all PredVP (MassNP (UseN cat_N)) (ComplVA become_VA (PositA red_A))
|
||||
ComplVA v ap = insertObj (\\a => ap.s ! giveNumber a ! giveGender a) (predV v) ;
|
||||
|
||||
--cc -table PredVP (MassNP (UseN cat_N)) (ComplSlash (SlashV2V beg_V2V (UseV sleep_V)) (MassNP (UseN dog_N)))
|
||||
SlashV2V v vp = insertVV (infV2V vp) (predV v) vp.embComp vp ** {c2 = {s = v.c1 ; c = VTrans}} ; -- should creat a form at VP level which can be used in VP like 'swn da kyna' also check the c=VTransPost it is correct in case if second v is intrasitive, but not if trans like begged me to ead bread
|
||||
|
||||
SlashV2S v s = insertObjc2 (conjThat ++ s.s) (predV v ** {c2 = {s = "laI:" ; c = VTransPost}}) ;
|
||||
|
||||
SlashV2Q v q = insertObjc2 (conjThat ++ q.s ! QIndir) (predV v ** {c2 = {s = "sVg" ; c = VTransPost}}) ; -- chek for VTransPost, as in this case , case should be ergative but agrement should be default
|
||||
|
||||
-- cc -table PredVP (MassNP (UseN cat_N)) (ComplSlash (SlashV2A paint_V2A (PositA red_A)) (MassNP (UseN dog_N)))
|
||||
SlashV2A v ap = insertObjc (\\a => ap.s ! giveNumber a ! giveGender a ) (predV v ** {c2 = {s = v.c2.s ; c = VTrans}}) ;
|
||||
|
||||
ComplSlash vp np = insertObject np vp ;
|
||||
|
||||
SlashVV vv vp =
|
||||
insertEmbCompl (insertObj (infVP vv.isAux vp).s (predV vv)) vp.embComp **
|
||||
{c2 = vp.c2} ;
|
||||
|
||||
SlashV2VNP vv np vp =
|
||||
insertObjPre (\\_ => np.s ! NPObj )
|
||||
(insertObjc (infVP vv.isAux vp).s (predVc vv)) **
|
||||
{c2 = vp.c2} ;
|
||||
|
||||
-- cc -table PredVP (MassNP (UseN cat_N)) (UseComp (CompAdv there_Adv))
|
||||
UseComp comp = insertObj comp.s (predAux auxBe) ;
|
||||
|
||||
-- cc -table PredVP (MassNP (UseN cat_N)) (AdvVP (UseV sleep_V) there_Adv)
|
||||
AdvVP vp adv = insertObj (\\_ => adv.s ) vp ;
|
||||
|
||||
-- cc -table PredVP (MassNP (UseN cat_N)) (AdVVP always_AdV (UseV sleep_V))
|
||||
AdVVP adv vp = insertAdV adv.s vp ;
|
||||
|
||||
-- cc -table PredVP (MassNP (UseN cat_N)) (ReflVP (SlashV2a eat_V2))
|
||||
ReflVP v = insertObjPre (\\_ => reflPron) v ;
|
||||
|
||||
PassV2 v = predV v ; -- need to be fixed
|
||||
|
||||
CompAP ap = {s = \\a => ap.s ! giveNumber a ! giveGender a } ;
|
||||
|
||||
CompNP np = {s = \\_ => np.s ! NPObj} ;
|
||||
CompCN cn = {s = \\a => cn.s ! giveNumber a ! Nom} ;
|
||||
|
||||
-- cc -table PredVP (MassNP (UseN cat_N)) (UseComp (CompAdv there_Adv))
|
||||
CompAdv adv = {s = \\a => adv.s } ;
|
||||
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user