Update of /project/rjain-utils/cvsroot/formulate/src In directory cl-net:/tmp/cvs-serv9682/src

Added Files: protocol.lisp Log Message: add definitions for formulator protocol and subprotocols

--- /project/rjain-utils/cvsroot/formulate/src/protocol.lisp 2009/11/11 08:58:02 NONE +++ /project/rjain-utils/cvsroot/formulate/src/protocol.lisp 2009/11/11 08:58:02 1.1 (defprotocol formulator ()) (defprotocol formulator-source (formulator)) (defprotocol formulator-sink (formulator)) (defprotocol formula-formulator (formulator))

(defgeneric formulator-value (formulator &optional unbound-condition cell-name)) (defsignature formulator-value (formulator-source))

(defgeneric (setf formulator-value) (new-value formulator)) ;; separate formulator-root that allows setf? (defsignature (setf formulator-value) (t formulator-source))

(defgeneric formulator-value-validp (formulator)) (defsignature formulator-value-validp (formulator-source))

(defgeneric formulator-invalidate (formulator)) (defsignature formulator-invalidate (formulator-source))

(defgeneric formulator-dependents (formulator)) (defsignature formulator-dependents (formulator-source))

(defgeneric formulator-value-changed (sink source new-value old-value)) (defsignature formulator-value-changed (formulator-sink formulator-source t t))

(defgeneric formulator-formula (formulator)) ; change to formulator-formula-source? (defsignature formulator-formula (formula-formulator)) ; change to formulator-formula-source?

(defgeneric formulator-formula-function (formulator)) ; change to formulator-function? (defsignature formulator-formula-function (formula-formulator)) ; change to formulator-function?

(defgeneric (setf formulator-value) (new-formula formulator)) (defsignature (setf formulator-value) (function formula-formulator)) ; separate dynamic-formula-formulator subprotocol?