(in-package :cl-user)

(defmacro quickloads (&rest r)
  `(progn
     ,@(loop for x in r
             collect `(ql:quickload ,x))))

(quickloads
  :cl-actors
  :cells
  :contextl)

(defpackage :math-test
  (:use :cl :cl-actors :cells))

(in-package :math-test)

(defmodel service-rating ()
          ((rating :cell t :accessor rating :initarg :rating :initform (c-in :normal))
           (rate   :cell t :accessor rate   :initform (c? (case (rating self)
                                                            (:normal 0.18)
                                                            (:excellent 0.25)
                                                            (:poor 0.15))))))

(defmodel tip-calc ()
          ((cost :cell t :accessor cost :initarg :cost :initform (c-in 0))
           (rate :cell t :accessor rate :initarg :rate :initform (c-in 0.18))
           (tip  :cell t :accessor tip  :initform (c? (* (cost self)
                                                         (rate self))))))

(defmodel item ()
          ((kind :cell t :accessor kind :initarg :kind :initform (c-in :food))
           (cost :cell t :accessor cost :initarg :cost :initform (c-in 0))))

(defmodel bill ()
          ((items :accessor items :initarg :items :initform (c-in nil))
           (cost  :accessor cost  :initform (c? (apply #'+
                                                       (loop for item in (items self)
                                                             collect (cost item)))))))

(defmodel meal-expense-calculator ()
          ((subtotal :accessor subtotal :initarg :subtotal :initform (c-in 0))
           (tax-rate :accessor tax-rate :initarg :tax-rate :initform (c-in 0.08))
           (tip      :accessor tip      :initarg :tip      :initform (c-in 0))
           (total    :accessor total    :initform (c? (+   (subtotal self)     
                                                           (* (tax-rate self)
                                                              (subtotal self))
                                                           (tip self))))))

(defobserver tip ((self tip-calc))
             (when old-value-boundp
               (format t "The tip is: ~a~%It changed by: ~a~%" new-value (- new-value
                                                                            old-value))))



(defmacro push-many (place &body items)
  `(progn ,@(loop for item in items
                  collect `(push ,item ,place))))

(defparameter s-r (make-instance 'service-rating))
(defparameter bill (make-instance 'bill))
(defparameter tc (make-instance 'tip-calc :cost (c? (cost bill)) :rate (c? (rate s-r))))
(defparameter meal-calc (make-instance 'meal-expense-calculator
                                       :subtotal (c? (cost bill))
                                       :tip      (c? (tip tc))))

(push-many (items bill)
  (make-instance 'item :kind :meatloaf :cost 12.99)
  (make-instance 'item :kind :salmon :cost 14.99)
  (make-instance 'item :kind :frenchfries :cost 3.99)
  (make-instance 'item :kind :tomatosoup :cost 3.99)
  (make-instance 'item :kind :burgundy :cost 8.99)
  (make-instance 'item :kind :icedtea :cost 3.99))
(setf (rating s-r) :excellent)

(format t "~{~a~20t~a~%~}------------------------------
Subtotal:~20t~a~%Tax:~20t~a~%Tip:~20t~a~%Total:~20t~a~%"
        (loop for item in (items bill)
              append (list (kind item) (cost item)))
        (subtotal meal-calc)
        (* 0.08 (subtotal meal-calc))
        (tip tc)
        (total meal-calc))