GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-09-19 16:56:05 -06:00
Code Issues Packages Projects Releases Wiki Activity

new japanese from Liza 30 April

Browse Source
This commit is contained in:
aarne
2012-05-07 11:31:05 +00:00
parent 0129e14598
commit fdd075b6d5
15 changed files with 728 additions and 321 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/japanese/AdjectiveJap.gf
+38 -24
View File
@@ -8,100 +8,110 @@ flags coding = utf8 ;
pred = adj.pred ;
attr = \\st => adj.attr ;
te = \\st => adj.te ;
tara = \\st => adj.tara ;
ba = \\st => adj.ba ;
adv = \\st => adj.adv ;
prepositive = \\st => [] ;
compar = NoCompar
compar = NoCompar ;
dropNaEnging = \\st => adj.dropNaEnging
} ;
ComparA adj np = {
pred = \\st,t,p => np.s ! st ++ "より" ++ adj.pred ! st ! t ! p ;
attr = \\st => np.s ! st ++ "より" ++ adj.attr ;
te = \\st => np.s ! st ++ "より" ++ adj.te ;
tara = \\st => np.s ! st ++ "より" ++ adj.tara ;
ba = \\st => np.s ! st ++ "より" ++ adj.ba ;
adv = \\st => np.s ! st ++ "より" ++ adj.adv ;
prepositive = np.prepositive ;
compar = More
compar = More ;
dropNaEnging = \\st => np.s ! st ++ "より" ++ adj.dropNaEnging ;
} ;
ComplA2 a2 np = {
pred = \\st,t,p => np.s ! st ++ a2.prep ++ a2.pred ! st ! t ! p ;
attr = \\st => np.s ! st ++ a2.prep ++ a2.attr ;
te = \\st => np.s ! st ++ a2.prep ++ a2.te ;
tara = \\st => np.s ! st ++ a2.prep ++ a2.tara ;
ba = \\st => np.s ! st ++ a2.prep ++ a2.ba ;
prepositive = np.prepositive ;
adv = \\st => [] ;
compar = NoCompar
compar = NoCompar ;
dropNaEnging = \\st => np.s ! st ++ a2.prep ++ a2.dropNaEnging
} ;
ReflA2 a2 = {
pred = \\st,t,p => "自分" ++ a2.prep ++ a2.pred ! st ! t ! p ; -- "jibun"
attr = \\st => "自分" ++ a2.prep ++ a2.attr ;
te = \\st => "自分" ++ a2.prep ++ a2.te ;
tara = \\st => "自分" ++ a2.prep ++ a2.tara ;
ba = \\st => "自分" ++ a2.prep ++ a2.ba ;
adv = \\st => [] ;
prepositive = \\st => [] ;
compar = NoCompar
compar = NoCompar ;
dropNaEnging = \\st => "自分" ++ a2.prep ++ a2.dropNaEnging
} ;
UseA2 a2 = {
pred = a2.pred ;
attr = \\st => a2.attr ;
te = \\st => a2.te ;
tara = \\st => a2.tara ;
ba = \\st => a2.ba ;
adv = \\st => [] ;
prepositive = \\st => [] ;
compar = NoCompar
compar = NoCompar ;
dropNaEnging = \\st => a2.dropNaEnging
} ;
UseComparA adj = {
pred = \\st,t,p => "もっと" ++ adj.pred ! st ! t ! p ;
attr = \\st => "もっと" ++ adj.attr ;
te = \\st => "もっと" ++ adj.te ;
tara = \\st => "もっと" ++ adj.tara ;
ba = \\st => "もっと" ++ adj.ba ;
adv = \\st => "もっと" ++ adj.adv ;
prepositive = \\st => [] ;
compar = NoCompar -- "motto" does not change the main NP's particle
compar = NoCompar ; -- "motto" does not change the main NP's particle
dropNaEnging = \\st => "もっと" ++ adj.dropNaEnging
} ;
CAdvAP cadv ap np = {
pred = \\st,t,p => np.s ! st ++ cadv.s ++ ap.pred ! st ! t ! p ;
attr = \\st => np.s ! st ++ cadv.s ++ ap.attr ! st ;
te = \\st => np.s ! st ++ cadv.s ++ ap.te ! st ;
tara = \\st => np.s ! st ++ cadv.s ++ ap.tara ! st ;
ba = \\st => np.s ! st ++ cadv.s ++ ap.ba ! st ;
adv = \\st => np.s ! st ++ cadv.s ++ ap.adv ! st ;
prepositive = np.prepositive ;
compar = cadv.compar
compar = cadv.compar ;
dropNaEnging = \\st => np.s ! st ++ cadv.s ++ ap.dropNaEnging ! st
} ;
AdjOrd ord = {
pred = ord.pred ;
attr = \\st => ord.attr ;
te = \\st => ord.te ;
tara = \\st => ord.tara ;
ba = \\st => ord.ba ;
adv = \\st => ord.adv ;
prepositive = \\st => [] ;
compar = NoCompar
compar = NoCompar ;
dropNaEnging = \\st => ord.dropNaEnging
} ;
SentAP ap sc = {
pred = \\st,t,p => sc.s ! Ga ! st ++ "ことを" ++ ap.pred ! st ! t ! p ;
attr = \\st => sc.s ! Ga ! st ++ "ことを" ++ ap.attr ! st ;
te = \\st => sc.s ! Ga ! st ++ "ことを" ++ ap.te ! st ;
tara = \\st => sc.s ! Ga ! st ++ "ことを" ++ ap.tara ! st ;
ba = \\st => sc.s ! Ga ! st ++ "ことを" ++ ap.ba ! st ;
adv = \\st => sc.s ! Ga ! st ++ "ことを" ++ ap.adv ! st ;
prepositive = ap.prepositive ;
compar = ap.compar
compar = ap.compar ;
dropNaEnging = \\st => sc.s ! Ga ! st ++ "ことを" ++ ap.dropNaEnging ! st
} ;
AdAP ada ap = {
pred = \\st,t,p => ada.s ++ ap.pred ! st ! t ! p ;
attr = \\st => ada.s ++ ap.attr ! st ;
te = \\st => ada.s ++ ap.te ! st ;
tara = \\st => ada.s ++ ap.tara ! st ;
ba = \\st => ada.s ++ ap.ba ! st ;
adv = \\st => ada.s ++ ap.adv ! st ;
prepositive = ap.prepositive ;
compar = ap.compar
compar = ap.compar ;
dropNaEnging = \\st => ada.s ++ ap.dropNaEnging ! st
} ;
AdvAP ap adv = {
@@ -117,9 +127,9 @@ flags coding = utf8 ;
True => ap.te ! st ;
False => adv.s ! st ++ ap.te ! st
} ;
tara = \\st => case adv.prepositive of {
True => ap.tara ! st ;
False => adv.s ! st ++ ap.tara ! st
ba = \\st => case adv.prepositive of {
True => ap.ba ! st ;
False => adv.s ! st ++ ap.ba ! st
} ;
adv = \\st => case adv.prepositive of {
True => ap.adv ! st ;
@@ -129,6 +139,10 @@ flags coding = utf8 ;
True => adv.s ! st ;
False => []
} ;
compar = ap.compar
compar = ap.compar ;
dropNaEnging = \\st => case adv.prepositive of {
True => ap.dropNaEnging ! st ;
False => adv.s ! st ++ ap.dropNaEnging ! st
}
} ;
}