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

toki params

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-04-04 19:00:50 -06:00
parent bcb16ae376
commit d2568cf869
4 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/toki-pona/CatTok.gf
View File

@@ -73,7 +73,7 @@ concrete CatTok of Cat = CommonX ** open ResTok, Coordination, Prelude in {
-- Constructed in StructuralTok. -- Constructed in StructuralTok.
Conj = Coordination.ConjunctionDistr ** { Conj = Coordination.ConjunctionDistr ** {
n : Number -- The number of the NP that results from -- n : Number -- The number of the NP that results from
-- coordinating a list of NPs with that Conj. -- coordinating a list of NPs with that Conj.
} ; -- "[Ann and Bob] are children" → and_Conj.n = Pl } ; -- "[Ann and Bob] are children" → and_Conj.n = Pl
Subj = SS ; Subj = SS ;

8
src/toki-pona/NounTok.gf
View File

@@ -9,7 +9,7 @@ concrete NounTok of Noun = CatTok ** open ResTok, Prelude in {
-- : Det -> CN -> NP -- : Det -> CN -> NP
DetCN det cn = emptyNP ** { DetCN det cn = emptyNP ** {
s = cn.s ! det.n ++ det.s s = cn.s ++ det.s
} ; } ;
{- {-
-- : PN -> NP ; -- : PN -> NP ;
@@ -65,8 +65,7 @@ concrete NounTok of Noun = CatTok ** open ResTok, Prelude in {
-- : Quant -> Num -> Det ; -- : Quant -> Num -> Det ;
DetQuant quant num = quant ** { DetQuant quant num = quant ** {
s = quant.s ! num.n ++ num.s ; s = quant.s ++ num.s
n = num.n ;
} ; } ;
-- : Quant -> Num -> Ord -> Det ; -- : Quant -> Num -> Ord -> Det ;
@@ -81,9 +80,6 @@ concrete NounTok of Noun = CatTok ** open ResTok, Prelude in {
-- the "kernel" of a determiner. It is, however, the $Num$ that determines -- the "kernel" of a determiner. It is, however, the $Num$ that determines
-- the inherent number. -- the inherent number.
NumSg = {s = [] ; n = Sg} ;
NumPl = {s = [] ; n = Pl} ;
{- {-
-- : Card -> Num ; -- two -- : Card -> Num ; -- two
NumCard card = card ; NumCard card = card ;

2
src/toki-pona/SentenceTok.gf
View File

@@ -13,7 +13,7 @@ lin
subj = np.s ; -- ! Nom, if there are cases subj = np.s ; -- ! Nom, if there are cases
pred = pred =
-- table {something with tense+polarity => -- table {something with tense+polarity =>
vp.s ! TODOVF np.n np.p vp.s
-- TODO: all of the VP's tense and polarity should be open here! -- TODO: all of the VP's tense and polarity should be open here!
-- PredVP only decides the subject. -- PredVP only decides the subject.
-- } -- }

4
src/toki-pona/StructuralTok.gf
View File

@@ -43,10 +43,10 @@ lin there_Adv = ss "" ;
-- which means that there are two fields for the strings, and -- which means that there are two fields for the strings, and
-- n:Number which specifies the number of the resulting NP. -- n:Number which specifies the number of the resulting NP.
lin and_Conj = {s1 = [] ; s2 = "and" ; n = Pl} ; lin and_Conj = {s1 = [] ; s2 = "and" } ;
-- lin or_Conj = -- lin or_Conj =
-- lin if_then_Conj = -- lin if_then_Conj =
lin both7and_DConj = {s1 = "both" ; s2 = "and" ; n = Pl} ; lin both7and_DConj = {s1 = "both" ; s2 = "and" } ;
-- lin either7or_DConj = -- lin either7or_DConj =
-- lin but_PConj = -- lin but_PConj =