Mercurial > hg > amuse
changeset 98:cb7576b21c8e
implementations/mtp/: implement GROUND-TRUTH-SEGMENTER-{BEFORE,AFTER}
darcs-hash:20070724135109-c0ce4-387415a9014a7205e5f6a232db20493ceb6df8ec.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Tue, 24 Jul 2007 14:51:09 +0100 |
| parents | 6a9349bfde7f |
| children | 43d3e707b384 |
| files | implementations/mtp/methods.lisp |
| diffstat | 1 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp Tue Jul 24 14:17:29 2007 +0100 +++ b/implementations/mtp/methods.lisp Tue Jul 24 14:51:09 2007 +0100 @@ -274,6 +274,22 @@ ;;; Phrase boundaries +(defmethod ground-truth-segmenter-before ((c mtp-composition)) + (declare (ignore c)) + (make-instance 'mtp-before-segmenter)) + +(defmethod ground-truth-segmenter-after ((c mtp-composition)) + (declare (ignore c)) + (make-instance 'mtp-before-segmenter)) + +(defmethod ground-truth-segmenter-before ((e mtp-event)) + (declare (ignore e)) + (make-instance 'mtp-before-segmenter)) + +(defmethod ground-truth-segmenter-after ((e mtp-event)) + (declare (ignore e)) + (make-instance 'mtp-before-segmenter)) + (defmethod boundary-strength ((s mtp-before-segmenter) (e mtp-event) c) (declare (ignore s c)) (let ((phrase (%mtp-phrase e)))