;;; -*- Mode: TDL; Coding: euc-jp -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;        file: %Z% %M%
;;;      module:
;;;     version: %I%
;;;  written by:
;;; last update: %G% --- %U%
;;;  updated by: 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; author            | date        | modification
;;; ------------------|-------------|------------------------------------------
;;;Melanie Siegel     |             |Emily Bender (ERB), (AO), Francis Bond (FCB)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; (ERB 2001-12-05) Moving to pure aspect analysis.

;oru-aux-stem :=
;aspect-minus_shon-c-stem-lex &
;[SYNSEM.LOCAL.CONT [HOOK.INDEX.E.ASPECT progressive,
;                    KEY.PRED '_oru_v_rel],
;ORTH <! "おる" !>].

oru-aux-stem :=
pure-aspect-progressive-minus_shon-c-stem-lex &
[ORTH <! "おる" !>].

kudasaru-aux-stem :=
perspective-arg2emp-shon-c2-stem-lex &
[ORTH <! "下さる" !>,
 SYNSEM.LKEYS.KEYREL.PRED '_kudasaru_v_rel].

kudasaru-aux-stem-2 :=
perspective-arg2emp-shon-c2-stem-lex &
[ORTH <! "くださる" !>,
 SYNSEM.LKEYS.KEYREL.PRED '_kudasaru_v_rel].



oku-aux-stem :=
pure-aspect-prospective-minus_shon-c-stem-lex &
[ORTH <! "おく" !>].

; Used 16 times

oku-aux-kanji-stem :=
pure-aspect-prospective-minus_shon-c-stem-lex &
[ORTH <! "置く" !>].


; (ERB 2001-11-12) I think this aspect might be better
; termed "stative", but we can worry about that later.

iru-aux-stem :=
pure-aspect-progressive-v-stem-lex &
[ORTH <! "いる" !>].

; Used 35 times

iru-aux-kanji-stem :=
pure-aspect-progressive-v-stem-lex &
[ORTH <! "居る" !>].

; Used 103 times

iku-aux-stem :=
pure-aspect-inceptive-c2-stem-lex &
[ORTH <! "行く" !>].

iku-aux-hiragana-stem :=
pure-aspect-inceptive-c2-stem-lex &
[ORTH <! "いく" !>].

; (MS 2005-06-24) This should be SHON -.

mairu-aux-stem :=
pure-aspect-inceptive-minus_shon-c-stem-lex &
[ORTH <! "参る" !>].

mairu-aux-hiragana-stem :=
pure-aspect-inceptive-minus_shon-c-stem-lex &
[ORTH <! "まいる" !>].

; Used 1 times

irassharu-aux-stem  :=
pure-aspect-progressive-shon-c2-stem-lex &
[ORTH <! "いらっしゃる" !>].

aru-aux-stem  :=
aspect-c-stem-lex &
[ORTH <! "ある" !>].

; (AO 2003-08-06) 「在る」の補助動詞はない
;		1. 補助動詞の用法は通例「〜てある」ただし文語は別
;		2. 1の用法では必ずひらがなである
;	以上より記述できない	
;	もし文語で「在る」が必要であるなら以下のように追加
; Used 401 times

aru-kanji-aux-stem  :=
aspect-c-stem-lex &
[ORTH <! "在る" !>].

; Used 51 times

kuru-aux-stem  :=
pure-aspect-perfprog-kurusuru-stem-lex &
[ORTH <! "来る" !>].

; (MS 2005-01-10) This should be in as Hiragana as well, shouldn't it?

kuru-hiragana-aux-stem  :=
pure-aspect-perfprog-kurusuru-stem-lex &
[ORTH <! "くる" !>].


kureru-aux-stem  :=
perspective-arg2emp-v-stem-lex &
[ORTH <! "くれる" !>,
SYNSEM.LKEYS.KEYREL.PRED '_kureru_v_rel].



; (ERB 2001-11-12) Temporary raising lexical entry for "shimau".
; Should probably be changed to one that doesn'_t contribute a 
; relation at all.

; (ERB 2001-12-05) Try making "shimau" a pure-aspect-aux just
; like "iru".

;shimau-aux-stem  :=
;perspective-c-stem-lex &
;[SYNSEM [LKEYS.KEYREL [PRED '_shimau_v_rel,ARG1 #sbjind],
;               LOCAL.CTXT.EMPATHY.EMPEE #sbjind],
; ORTH <! "しまう" !>].

;shimau-aux-stem  :=
;aspect-c-stem-lex-temp &
;[SYNSEM.LKEYS.KEYREL [PRED '_shimau_v_rel],
; ORTH <! "しまう" !>].

shimau-aux-stem :=
pure-aspect-terminative-c-stem-lex &
[ ORTH <! "しまう" !>].

miru-aux-stem :=
complex-aspect-v-stem-lex &
[SYNSEM.LKEYS.KEYREL.PRED '_miru_v_rel,
ORTH <! "見る" !>].

miru-hiragana-aux-stem :=
complex-aspect-v-stem-lex &
[SYNSEM.LKEYS.KEYREL.PRED '_miru_v_rel,
ORTH <! "みる" !>].

; (FCB 2003-08-14) やって みせる  
; I am not sure if this is modal or not

miseru-hiragana-aux-stem :=
complex-aspect-v-stem-lex &
[SYNSEM.LKEYS.KEYREL.PRED '_miseru_v_rel,
ORTH <! "みせる" !>].

; Used 10 times

miseru-kanji-aux-stem :=
complex-aspect-v-stem-lex &
[SYNSEM.LKEYS.KEYREL.PRED '_miseru_v_rel,
ORTH <! "見せる" !>].

gozaru-aux-hiragana-stem :=
aspect-c2-stem-lex &
[ORTH <! "ござる" !>].

gozaru-aux-kanji-stem :=
aspect-c2-stem-lex &
[ORTH <! "御座る" !>].


ageru-aux-stem :=
perspective-arg1emp-v-stem-lex &
[ORTH <! "あげる" !>,
SYNSEM.LKEYS.KEYREL.PRED '_ageru_v_rel].

; Used 11 times

ageru-kanji-aux-stem :=
perspective-arg1emp-v-stem-lex &
[ORTH <! "上げる" !>,
SYNSEM.LKEYS.KEYREL.PRED '_ageru_v_rel].

sashiageru-aux-stem :=
perspective-arg1emp-minus_shon-v-stem-lex &
[ORTH <! "さしあげる" !>,
SYNSEM.LKEYS.KEYREL.PRED '_sashiageru_v_rel].

moushiageru-aux-stem :=
perspective-arg1emp-shon-c-stem-lex &
[ORTH <! "申し上げる" !>,
SYNSEM.LKEYS.KEYREL.PRED '_moushiageru_v_rel].


yaru-aux-stem :=
perspective-arg1emp-shon-c-stem-lex &
[ORTH <! "やる" !>,
SYNSEM.LKEYS.KEYREL.PRED '_yaru_v_rel].


morau-aux-stem  :=
aux-obj-id-c-stem-lex &
[ORTH <! "もらう" !>,
SYNSEM.LKEYS.KEYREL.PRED '_morau_v_rel].


; 貰う 
; Used 1 times

; (AO 2003-08-06)
;	本動詞「貰う」は三項動詞としたいが、
; 	適切な参考記述がみつからない
;
; とりあえず、以下のようにしておく

morau-kanji-aux-stem  :=
aux-obj-id-c-stem-lex &
[ORTH <! "貰う" !>,
SYNSEM.LKEYS.KEYREL.PRED '_morau_v_rel].

itadaku-aux-stem :=
aux-obj-id-minus_shon-c-stem-lex &
[ORTH <! "いただく" !>,
SYNSEM.LKEYS.KEYREL.PRED '_itadaku_v_rel].

itadaku-aux-stem-2 :=
aux-obj-id-minus_shon-c-stem-lex &
[ORTH <! "頂く" !>,
SYNSEM.LKEYS.KEYREL.PRED '_itadaku_v_rel].