new japanese from Liza 30 April

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

View File

@@ -21,9 +21,9 @@ flags coding = utf8 ;
PositAdAAdj a = {s = a.adv} ;
SubjS subj s = {
s = \\st => case subj.when of {
True => s.tara ! (Wa | Ga) ! st ;
False => s.s ! (Wa | Ga) ! st ++ subj.s
s = \\st => case subj.type of {
If => s.ba ! (Wa | Ga) ! st ++ subj.s ;
_ => s.s ! (Wa | Ga) ! st ++ subj.s
} ;
prepositive = True ;
compar = NoCompar