GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 18:28:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

Thai API compiles

Browse Source
This commit is contained in:
aarne
2011-11-07 14:04:51 +00:00
parent 6c076cf620
commit f87e8279bf
2 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/thai/PhraseTha.gf
View File

@@ -12,6 +12,9 @@ concrete PhraseTha of Phrase = CatTha ** open Prelude, ResTha in {
UttIP ip = ip ; UttIP ip = ip ;
UttIAdv iadv = iadv ; UttIAdv iadv = iadv ;
UttNP np = np ; UttNP np = np ;
UttCN cn = cn ;
UttAP ap = ap ;
UttCard x = x ;
UttVP vp = {s = vp.s ! Pos} ; UttVP vp = {s = vp.s ! Pos} ;
UttAdv adv = adv ; UttAdv adv = adv ;

21
lib/src/thai/StructuralTha.gf
View File

@@ -1,7 +1,7 @@
concrete StructuralTha of Structural = CatTha ** concrete StructuralTha of Structural = CatTha **
open StringsTha, ResTha, Prelude in { open StringsTha, ResTha, Prelude in {
flags optimize=all ; flags coding = utf8 ;
lin lin
-- above_Prep = ss "above" ; -- above_Prep = ss "above" ;
@@ -10,14 +10,14 @@ concrete StructuralTha of Structural = CatTha **
-- almost_AdA, almost_AdN = ss "almost" ; -- almost_AdA, almost_AdN = ss "almost" ;
-- although_Subj = ss "although" ; -- although_Subj = ss "although" ;
-- always_AdV = ss "always" ; -- always_AdV = ss "always" ;
-- and_Conj = ss "and" ** {n = Pl} ; and_Conj = {s1 = [] ; s2 = "และ"} ;
-- because_Subj = ss "because" ; -- because_Subj = ss "because" ;
-- before_Prep = ss "before" ; -- before_Prep = ss "before" ;
-- behind_Prep = ss "behind" ; -- behind_Prep = ss "behind" ;
-- between_Prep = ss "between" ; -- between_Prep = ss "between" ;
-- both7and_DConj = sd2 "both" "and" ** {n = Pl} ; -- both7and_DConj = sd2 "both" "and" ** {n = Pl} ;
-- but_PConj = ss "but" ; -- but_PConj = ss "but" ;
-- by8agent_Prep = ss "by" ; by8agent_Prep = ss [] ;
-- by8means_Prep = ss "by" ; -- by8means_Prep = ss "by" ;
can8know_VV = {s = pen_s ; typ = VVPost} ; can8know_VV = {s = pen_s ; typ = VVPost} ;
can_VV = {s = way_s ; typ = VVPost} ; can_VV = {s = way_s ; typ = VVPost} ;
@@ -41,7 +41,7 @@ concrete StructuralTha of Structural = CatTha **
-- in8front_Prep = ss ["in front of"] ; -- in8front_Prep = ss ["in front of"] ;
i_Pron = ss chan_s ; i_Pron = ss chan_s ;
-- in_Prep = ss "in" ; -- in_Prep = ss "in" ;
-- it_Pron = mkNP "it" "it" "its" Sg P3 ; it_Pron = ss "มัน" ;
-- less_CAdv = ss "less" ; -- less_CAdv = ss "less" ;
-- many_Det = mkDeterminer Pl "many" ; -- many_Det = mkDeterminer Pl "many" ;
-- more_CAdv = ss "more" ; -- more_CAdv = ss "more" ;
@@ -72,8 +72,8 @@ concrete StructuralTha of Structural = CatTha **
-- there7from_Adv = ss ["from there"] ; -- there7from_Adv = ss ["from there"] ;
-- therefore_PConj = ss "therefore" ; -- therefore_PConj = ss "therefore" ;
-- these_NP = regNP "these" Pl ; -- these_NP = regNP "these" Pl ;
-- they_Pron = mkNP "they" "them" "their" Pl P3 ; they_Pron = mkNP khaw_s ;
-- this_Quant = mkQuant "this" "these" ; this_Quant = ss nii_s ** {hasC = True} ;
-- this_NP = regNP "this" Sg ; -- this_NP = regNP "this" Sg ;
-- those_NP = regNP "those" Pl ; -- those_NP = regNP "those" Pl ;
-- through_Prep = ss "through" ; -- through_Prep = ss "through" ;
@@ -83,15 +83,12 @@ concrete StructuralTha of Structural = CatTha **
-- very_AdA = ss "very" ; -- very_AdA = ss "very" ;
want_VV = {s = yaak_s ; typ = VVMid} ; want_VV = {s = yaak_s ; typ = VVMid} ;
we_Pron = ss raw_s ; we_Pron = ss raw_s ;
-- whatPl_IP = mkIP "what" "what" "what's" Sg ; whatPl_IP, whatSg_IP = ss (thbind "อะ" "ไร") ;
-- whatSg_IP = mkIP "what" "what" "what's" Sg ;
-- when_IAdv = ss "when" ; -- when_IAdv = ss "when" ;
-- when_Subj = ss "when" ; -- when_Subj = ss "when" ;
-- where_IAdv = ss "where" ; -- where_IAdv = ss "where" ;
-- whichPl_IDet = mkDeterminer Pl ["which"] ; which_IQuant = {s1 = "ไหน" ; s2 = [] ; hasC = True} ;
-- whichSg_IDet = mkDeterminer Sg ["which"] ; whoPl_IP, whoSg_IP = ss "ไคร" ;
-- whoSg_IP = mkIP "who" "whom" "whose" Sg ;
-- whoPl_IP = mkIP "who" "whom" "whose" Pl ;
-- why_IAdv = ss "why" ; -- why_IAdv = ss "why" ;
-- without_Prep = ss "without" ; -- without_Prep = ss "without" ;
-- with_Prep = ss "with" ; -- with_Prep = ss "with" ;