;;-*-Lisp-*-
(in-package goal)

;; definition of type timer-mode
(deftype timer-mode (uint32)
  ((clks timer-clock-selection :offset   0 :size   2)
   (gate uint8                 :offset   2 :size   1)
   (gats uint8                 :offset   3 :size   1)
   (gatm uint8                 :offset   4 :size   2)
   (zret uint8                 :offset   6 :size   1)
   (cue  uint8                 :offset   7 :size   1)
   (cmpe uint8                 :offset   8 :size   1)
   (ovfe uint8                 :offset   9 :size   1)
   (equf uint8                 :offset  10 :size   1)
   (ovff uint8                 :offset  11 :size   1)
   )
  )

;; definition of type timer-bank
(deftype timer-bank (structure)
  ((count  uint32      :offset   0)
   (mode   timer-mode  :offset  16)
   (comp   uint32      :offset  32)
   )
  )

;; definition for method 3 of type timer-bank
(defmethod inspect ((this timer-bank))
  (format #t "[~8x] ~A~%" this 'timer-bank)
  (format #t "~Tcount: #x~X~%" (-> this count))
  (format #t "~Tmode: #x~X~%" (-> this mode))
  (format #t "~Tcomp: #x~X~%" (-> this comp))
  this
  )

;; definition of type timer-hold-bank
(deftype timer-hold-bank (timer-bank)
  ((hold  uint32  :offset  48)
   )
  )

;; definition for method 3 of type timer-hold-bank
(defmethod inspect ((this timer-hold-bank))
  (format #t "[~8x] ~A~%" this 'timer-hold-bank)
  (format #t "~Tcount: #x~X~%" (-> this count))
  (format #t "~Tmode: #x~X~%" (-> this mode))
  (format #t "~Tcomp: #x~X~%" (-> this comp))
  (format #t "~Thold: #x~X~%" (-> this hold))
  this
  )

;; definition of type stopwatch
(deftype stopwatch (basic)
  ((prev-time-elapsed  time-frame)
   (start-time         time-frame)
   (begin-level        int32)
   )
  )

;; definition for method 3 of type stopwatch
(defmethod inspect ((this stopwatch))
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~Tprev-time-elapsed: ~D~%" (-> this prev-time-elapsed))
  (format #t "~Tstart-time: ~D~%" (-> this start-time))
  (format #t "~Tbegin-level: ~D~%" (-> this begin-level))
  this
  )

;; definition for symbol *ticks-per-frame*, type int
(define *ticks-per-frame* 9765)

;; definition for function timer-init
(defun timer-init ((arg0 timer-bank) (arg1 timer-mode))
  (set! (-> arg0 mode) arg1)
  (set! (-> arg0 count) (the-as uint 0))
  0
  )

;; failed to figure out what this is:
(timer-init
  (the-as timer-bank #x10000800)
  (new 'static 'timer-mode :clks (timer-clock-selection busclk/256) :cue #x1)
  )

;; definition of type profile-frame
(deftype profile-frame (structure)
  ((name        symbol)
   (time-stamp  uint32)
   (color       rgba)
   )
  )

;; definition for method 3 of type profile-frame
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect ((this profile-frame))
  (format #t "[~8x] ~A~%" this 'profile-frame)
  (format #t "~Tname: ~A~%" (-> this name))
  (format #t "~Ttime-stamp: ~D~%" (-> this time-stamp))
  (format #t "~Tcolor: ~D~%" (-> this color))
  this
  )

;; definition for method 3 of type profile-frame
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect ((this profile-frame))
  (format #t "[~8x] profile-frame~%" this)
  (format #t "~Tname: ~A~%" (-> this name))
  (format #t "~Ttime-stamp: ~D~%" (-> this time-stamp))
  (format #t "~Tcolor: ~D ~D ~D~%" (-> this color r) (-> this color g) (-> this color b))
  this
  )

;; definition of type profile-bar
(deftype profile-bar (basic)
  ((profile-frame-count  int32)
   (cache-time           time-frame)
   (data                 profile-frame  1024 :inline)
   )
  (:methods
    (new (symbol type) _type_)
    (get-last-frame-time-stamp (_type_) uint)
    (reset (_type_) _type_)
    (add-frame (_type_ symbol rgba) profile-frame)
    (add-end-frame (_type_ symbol rgba) profile-frame)
    (draw (_type_ dma-buffer int) float)
    )
  )

;; definition for method 3 of type profile-bar
(defmethod inspect ((this profile-bar))
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~Tprofile-frame-count: ~D~%" (-> this profile-frame-count))
  (format #t "~Tcache-time: ~D~%" (-> this cache-time))
  (format #t "~Tdata[1024] @ #x~X~%" (-> this data))
  this
  )

;; definition for method 9 of type profile-bar
(defmethod get-last-frame-time-stamp ((this profile-bar))
  (-> this data (+ (-> this profile-frame-count) -2) time-stamp)
  )

;; failed to figure out what this is:
0