comparison base/methods.lisp @ 261:8e5f306b7e47

add 'onset-within' generics - does Allen say anything about this?

   (time= object1 object2))
 
 (defmethod ends ((object1 anchored-period)
 		 (object2 anchored-period))
   (time= (cut-off object1) (cut-off object2)))
+
+;; Does Allen cover this? Anyway, they are useful for me -JF.
+(defmethod onset-within ((object1 moment)
+			 (object2 standard-anchored-period))
+  (and (time>= object1 object2)
+       (time<= object1 (cut-off object2))))
+
+(defmethod onset-within-fuzzy ((object1 moment)
+			       (object2 standard-anchored-period)
+			       (period standard-period))
+  (and (time>= object1 (time- (onset object2) period))
+       (time<= object1 (time- (cut-off object2) period))))
 
 ;; ...and
 
 (defmethod period= ((object1 anchored-period)
                     (object2 anchored-period))