mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
AttemptoUrd added
This commit is contained in:
aarne
6
examples/attempto/AttemptoUrd.gf
Normal file
6
examples/attempto/AttemptoUrd.gf
Normal file
@@ -0,0 +1,6 @@
|
||||
--# -path=.:./present
|
||||
concrete AttemptoUrd of Attempto = SymbolsC ** AttemptoI - [mustVP] with
|
||||
(Syntax = SyntaxUrd),
|
||||
(Symbolic = SymbolicUrd),
|
||||
(LexAttempto = LexAttemptoUrd) ;
|
||||
|
||||
39
examples/attempto/LexAttemptoUrd.gf
Normal file
39
examples/attempto/LexAttemptoUrd.gf
Normal file
@@ -0,0 +1,39 @@
|
||||
instance LexAttemptoUrd of LexAttempto =
|
||||
open
|
||||
ExtraUrd,
|
||||
SyntaxUrd,
|
||||
ParadigmsUrd,
|
||||
ConstructX,
|
||||
(M = MakeStructuralUrd)
|
||||
-- IrregUrd
|
||||
in {
|
||||
|
||||
oper
|
||||
possible_A = mkA "mmkn" ;
|
||||
necessary_A = mkA "Zrwry" ;
|
||||
own_A = mkA "apna" ;
|
||||
have_VV = mkVV have_V ;
|
||||
provably_Adv = ParadigmsUrd.mkAdv "sabt" ;
|
||||
provable_A = mkA "sabt" ;
|
||||
false_A = mkA "GlT" ;
|
||||
such_A = mkA "aisa" ;
|
||||
|
||||
genitiveNP np = mkNP (GenNP np) ;
|
||||
|
||||
kilogram_CN = mkCN (mkN "klwgram") ;
|
||||
|
||||
each_Det = ExtraUrd.each_Det ;
|
||||
|
||||
that_Subj = M.mkSubj "kh" ;
|
||||
|
||||
comma_and_Conj = mkConj [] "awr" plural ;
|
||||
comma_or_Conj = mkConj [] "ya" singular ;
|
||||
slash_Conj = mkConj [] "/" singular ;
|
||||
|
||||
whose_IDet = M.mkIDet "ks ka" singular ;
|
||||
|
||||
eachOf np = mkNP (mkNP each_Det) (SyntaxUrd.mkAdv part_Prep np) ;
|
||||
|
||||
adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ;
|
||||
|
||||
}
|
||||
89
examples/attempto/TestAttemptoUrd.gf
Normal file
89
examples/attempto/TestAttemptoUrd.gf
Normal file
@@ -0,0 +1,89 @@
|
||||
--# -path=.:./present:c:/gf/lib/src/prelude:c:/gf/lib/src/abstract:c:/gf/lib/src/api:c:/gf/lib/src/urdu:c:/gf/lib/src/common
|
||||
|
||||
concrete TestAttemptoUrd of TestAttempto = AttemptoUrd **
|
||||
-- open SyntaxUrd, ParadigmsUrd, IrregUrd, (C = ConstructX) in {
|
||||
open SyntaxUrd, ParadigmsUrd, (C = ConstructX) in {
|
||||
|
||||
lin card_N = mkkN "kard" ;
|
||||
lin water_MCN = mkCN (mkkN "pany") ;
|
||||
lin john_PN = mkPN "John" ;
|
||||
lin apple_N = mkkN "seb" ;
|
||||
lin sleep_V = mkV "swna" ;
|
||||
lin young_A = mkA "jwan" ;
|
||||
lin dog_N = mkkN "kta" ;
|
||||
lin animal_N = mkkN "janwr" ;
|
||||
lin wait_V = compoundV "antz-ar" (mkV "krna") ;
|
||||
--lin man_N = mkCN (mkN "mrd" masculine) ;
|
||||
lin woman_N = mkCN (mkN "ewrt" feminine) ;
|
||||
lin give_V3 = mkV3 (mkV "dyna") "" "" ;
|
||||
lin tired_A = mkA "kh-ka" ;
|
||||
lin rich_A = mkA "amyr" ;
|
||||
lin customer_N = mkkN "gahk" ;
|
||||
lin enter_V2 = mkV2 (compoundV "daKl" (mkV "hwna")) "" ;
|
||||
lin bank_N = mkkN "bynk" ;
|
||||
lin satisfied_A = mkA "mt-mn" ;
|
||||
lin lucky_A = mkA "Kwx qsmt" ;
|
||||
lin well_known_A = mkA "mxhwr" ;
|
||||
lin important_A = mkA "ahm" ;
|
||||
lin expensive_A = mkA "mhnga" ;
|
||||
lin fill_in_V2 = mkV2 (mkV "bh-rna") "kw" ;
|
||||
lin form_N = mkkN "qsm" ;
|
||||
lin age_N = mkkN "emr" ;
|
||||
lin teacher_N = mkkN "astad" ;
|
||||
lin successful_A = mkA "kamyab" ;
|
||||
--lin fond_A2 = mkA2 (mkA "fond") (mkPrep "of") ;
|
||||
lin garden_N = mkkN "baG" ;
|
||||
lin morning_N = mkkN "Sbh" ;
|
||||
lin code_N = mkkN "kwd" ;
|
||||
lin drinkable_A = mkA "drinkable" ;
|
||||
lin work_V = compoundV "kam" (mkV "krna") ;
|
||||
lin admitted_A = mkA "manna" ;
|
||||
lin eat_V2 = mkV2 (mkV "kh-ana") "" ;
|
||||
lin burger_N = mkkN "brgr" ;
|
||||
lin earn_V2 = mkV2 "kmana" ;
|
||||
lin income_N = mkkN "kmay" ;
|
||||
lin england_PN = mkPN "England" ;
|
||||
lin beginning_N = mkkN "AGaz" ;
|
||||
lin office_N = mkkN "dftr" ;
|
||||
--lin interested_A2 = mkA2 (mkA "interested") (mkPrep "in") ;
|
||||
--lin morning_N = mkkN "morning" ;
|
||||
lin classroom_N = mkkN "klas rwm" ;
|
||||
lin manually_Adv = mkAdv "Kwd" ;
|
||||
lin slot_N = mkkN "jgh" ;
|
||||
lin patiently_Adv = mkAdv "sbr sE" ;
|
||||
lin course_N = mkkN "kwrs" ;
|
||||
lin carefully_Adv = mkAdv "ahtyat sE" ;
|
||||
lin time_N = mkkN "wqt" ;
|
||||
--lin believe_VS = mkVS (mkV "believe") ;
|
||||
lin seriously_Adv = mkAdv "twjh sE" ;
|
||||
lin clerk_N = mkkN "klrk" ;
|
||||
lin screen_N = mkkN "stryn" ;
|
||||
lin blink_V = mkV "cmkna" ;
|
||||
lin bed_N = mkkN "bstr" ;
|
||||
lin container_N = mkkN "kntynr" ;
|
||||
lin automated_teller_N = mkkN "Kwd bKwd" ;
|
||||
lin reject_V2 = mkV2 (mkV "rject") "kw" ;
|
||||
lin accept_V2 = mkV2 (compoundV "qbwl" (mkV "krna")) "" ;
|
||||
lin type_V2 = mkV2 (compoundV "typ2" (mkV "krna")) "" ;
|
||||
--lin know_VS = mkVS IrregEng.know_V ;
|
||||
lin manager_N = mkkN "mnyjr" ;
|
||||
--lin oversleep_V = mkV "oversleep" "overslept" "overslept" ;
|
||||
lin valid_A = mkA "lagw" ;
|
||||
lin see_V2 = mkV2 (mkV "dykh-na") "" ;
|
||||
lin bark_V = mkV "bh-wkna" ;
|
||||
lin go_V2 = mkV2 (mkV "jana") "" ;
|
||||
lin brother_N = mkkN "bh-ay" ;
|
||||
lin mary_PN = mkPN "mary" ;
|
||||
lin machine_N = mkkN "mxin" ;
|
||||
lin correct_A = mkA "SyH" ;
|
||||
|
||||
lin kilogram_Unit = mkkN "klw gram" ;
|
||||
|
||||
oper mkkN : Str -> CN = \n -> mkCN (ParadigmsUrd.mkN n) ;
|
||||
|
||||
lin
|
||||
in_Prep = mkPrep "myN" ;
|
||||
at_Prep = mkPrep "pr" ;
|
||||
into_Prep = mkPrep "myN" ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user