mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-08 14:46:31 -06:00
add more time expressions to ConstructionJpn, and fill SymbolJpn (might be wrong though) functions.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user