LISPプログラムについて質問です。
プログラムadd(kaku).l
(defun nlg-single-main-templ (eve para &optional (re nil))
(let ((form nil) (re-eve nil)
(re-sentence nil) (gobi-list nil) (para-re nil) (para2 nil) (form-hiragana nil)
(text1 "") (text2 "") (a nil) (re-sentence-hira nil) (x nil) (sel nil) (spc nil))
;基本形生成-----------------------------
(if (not (equal 'event (car eve)))
(setq eve (car eve))
)
(setq form (nlg-basic-form eve))
実行用プログラム
(load "./target_compiler.l")
t
(setq event
'(event 命令する1 (type event) (ID nil) (time time1)
(agent 人間〈親族関係〉) (counter-agent !主人公)
(object (event 送り届ける1 (type action) (ID 0) (time (time0 time0)) (agent !主人公) (counter-agent nil) (location nil) (object 朝飯@料理) (instrument nil) (from nil) (to nil)))
))
(event 命令する1 (type event) (ID nil) (time time1) (agent 人間〈親族関係〉) (counter-agent !主人公) (object (event 送り届ける1 (type action) (ID 0) (time (time0 time0)) (agent !主人公) (counter-agent nil) (location nil) (object 朝飯@料理) (instrument nil) (from nil) (to nil))))
(nlg-single-main-templ event param)
re-eve:nil
re-sentence:nil
form:(((agent !主人公) (p が)) ((object 朝飯@料理) (p を)) ((v 送り届ける)))
find:nil
re-eve:(event 送り届ける1 (type action) (ID 0) (time (time0 time0)) (agent !主人公) (counter-agent nil) (location nil) (object 朝飯@料理) (instrument nil) (from nil) (to nil))
re-sentence:!主人公が朝飯@料理を送り届けること
form:(((agent 人間) (p は)) ((counter-agent !主人公) (p に)) ((object !主人公が朝飯@料理を送り届けること) (p と)) ((v 命令する)))
find:nil
"人間は!主人公に!主人公が朝飯@料理を送り届けることと命令しました。
"
"にんげんは!主人公に!主人公が朝飯@料理を送り届けることとめいれいしました。
"
という実行結果になってしまうのですが、これを人間が主人公に「朝飯を送り届ける」ことを命令するに書き換えたいのですが、add(kaku).lのformを定義している部分のどこをどういじればできるようになりますか?
回答よろしくお
あなたの回答
tips
プレビュー