msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl

Browse Source
This commit is contained in:
Krasimir Angelov
2023-08-07 15:59:45 +02:00
parent 1b696739be 27e6295655
commit 9fcee982e5
5 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/english/ParadigmsEng.gf
View File

@@ -616,6 +616,8 @@ mkVoc s = lin Voc (ss s) ;
us_britishV : Str -> V = \s -> case s of {
_ + ("el" | "al" | "ol") => regV s | mkV s (s + "s") (s + "led") (s + "led") (s + "ling") ;
_ + "or" => regV s | regV (Predef.tk 2 s + "our") ;
_ + "ise" => regV (Predef.tk 2 s + "ze") | regV s ;
_ + "ize" => regV s | regV (Predef.tk 2 s + "se") ;
_ => regV s
} ;

11
src/malay/ConstructionMay.gf
View File

@@ -1,4 +1,4 @@
concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay in {
concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), SyntaxMay in {
lincat
Timeunit = N ;
@@ -6,9 +6,16 @@ lincat
Monthday = NP ;
Month = N ;
Year = NP ;
{-
lin
has_age_VP card = mkVP umur_V2 (mkNP <lin Card card : Card> L.year_N) ;
oper
umur_V2 : V2 = mkV2 (mkV "umur") noPrep ;
{-
timeunitAdv n time =
let n_card : Card = n ;
n_hours_NP : NP = mkNP n_card time ;

5
src/malay/MissingMay.gf
View File

@@ -1,7 +1,6 @@
resource MissingMay = open GrammarMay, Prelude in {
oper AdAP : AdA -> AP -> AP = notYet "AdAP" ;
oper AdAdv : AdA -> Adv -> Adv = notYet "AdAdv" ;
oper AdNum : AdN -> Card -> Card = notYet "AdNum" ;
oper AdVVP : AdV -> VP -> VP = notYet "AdVVP" ;
oper AdVVPSlash : AdV -> VPSlash -> VPSlash = notYet "AdVVPSlash" ;
oper AddAdvQVP : QVP -> IAdv -> QVP = notYet "AddAdvQVP" ;
@@ -54,7 +53,6 @@ oper IdetQuant : IQuant -> Num -> IDet = notYet "IdetQuant" ;
oper ImpP3 : NP -> VP -> Utt = notYet "ImpP3" ;
oper ImpPl1 : VP -> Utt = notYet "ImpPl1" ;
oper ImpVP : VP -> Imp = notYet "ImpVP" ;
oper OrdDigits : Digits -> Ord = notYet "OrdDigits" ;
oper OrdNumeral : Numeral -> Ord = notYet "OrdNumeral" ;
oper OrdNumeralSuperl : Numeral -> A -> Ord = notYet "OrdNumeralSuperl" ;
oper OrdSuperl : A -> Ord = notYet "OrdSuperl" ;
@@ -113,14 +111,11 @@ oper art_N : N = notYet "art_N" ;
oper as_CAdv : CAdv = notYet "as_CAdv" ;
oper ashes_N : N = notYet "ashes_N" ;
oper ask_V2Q : V2Q = notYet "ask_V2Q" ;
oper at_least_AdN : AdN = notYet "at_least_AdN" ;
oper at_most_AdN : AdN = notYet "at_most_AdN" ;
oper baby_N : N = notYet "baby_N" ;
oper back_N : N = notYet "back_N" ;
oper bad_A : A = notYet "bad_A" ;
oper bank_N : N = notYet "bank_N" ;
oper bark_N : N = notYet "bark_N" ;
oper because_Subj : Subj = notYet "because_Subj" ;
oper become_VA : VA = notYet "become_VA" ;
oper beer_N : N = notYet "beer_N" ;
oper before_Prep : Prep = notYet "before_Prep" ;

4
src/malay/NounMay.gf
View File

@@ -104,13 +104,13 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
-- : Numeral -> Card ;
NumNumeral num = num ;
{-
-- : AdN -> Card -> Card ;
AdNum adn card = card ** { s = adn.s ++ card.s } ;
-- : Digits -> Ord ;
OrdDigits digs = digs ** { s = digs.s ! NOrd } ;
-}
-- : Numeral -> Ord ;
OrdNumeral num = {
s = num.ord

6
src/malay/StructuralMay.gf
View File

@@ -3,11 +3,11 @@ concrete StructuralMay of Structural = CatMay **
-------
-- Ad*
lin at_least_AdN = ss "sekurangnya" ;
lin at_most_AdN = ss "paling tua" ;
{-
lin almost_AdA = mkAdA "" ;
lin almost_AdN = ss "" ;
lin at_least_AdN = ss "" ;
lin at_most_AdN = ss "" ;
lin so_AdA = ss "" ;
lin too_AdA = ss "" ;
lin very_AdA = mkAdA "" ;
@@ -154,7 +154,7 @@ lin whoSg_IP = mkIP "siapa";
-- Subj
-- lin although_Subj =
-- lin because_Subj =
lin because_Subj = ss "kerana" ;
lin if_Subj = ss "sekiranya" ;
lin that_Subj = ss "yang" ;
lin when_Subj = ss "kalau" ;