add more time expressions to ConstructionJpn, and fill SymbolJpn (might be wrong though) functions.

This commit is contained in:
Inari Listenmaa
2017-07-04 16:22:37 +02:00
parent d819db35f3
commit bf4313f38e
4 changed files with 113 additions and 65 deletions

View File

@@ -147,7 +147,17 @@ oper
} ;
dropNaEnging = ooki
} ;
-- Added by IL 2017-07. Used in NounJpn and SymbolJpn.
mkOrd : SS -> Adj = \symb -> {
pred = \\st,t,p => symb.s ++ "番目" ++ mkCopula.s ! st ! t ! p ; -- "banme"
attr = symb.s ++ "番目の" ;
te = \\p => symb.s ++ "番目" ++ mkCopula.te ! p ;
ba = \\p => symb.s ++ "番目" ++ mkCopula.ba ! p ;
adv = \\p => symb.s ++ "番目" ;
dropNaEnging = symb.s ++ "番目の"
} ;
VerbalA : Str -> Str -> Adj = \kekkonshiteiru,kikonno ->
let
kekkonshite = Predef.tk 2 kekkonshiteiru