# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1185285069 -3600
# Node ID cb7576b21c8ed3f12e9b3b92e0916936147b3e9b
# Parent  6a9349bfde7f0880b20e6e4918a2f9f3562abc05
implementations/mtp/: implement GROUND-TRUTH-SEGMENTER-{BEFORE,AFTER}

darcs-hash:20070724135109-c0ce4-387415a9014a7205e5f6a232db20493ceb6df8ec.gz

diff -r 6a9349bfde7f -r cb7576b21c8e implementations/mtp/methods.lisp
--- 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)))