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

;; this file is debug only
(declare-file (debug))

;; definition of type gs-store-image-packet
(deftype gs-store-image-packet (structure)
  ((vifcode         vif-tag  4)
   (giftag          gif-tag)
   (bitbltbuf       gs-bitbltbuf)
   (bitbltbuf-addr  gs-reg64)
   (trxpos          gs-trxpos)
   (trxpos-addr     gs-reg64)
   (trxreg          gs-trxreg)
   (trxreg-addr     gs-reg64)
   (finish          uint64)
   (finish-addr     gs-reg64)
   (trxdir          gs-trxdir)
   (trxdir-addr     gs-reg64)
   )
  )

;; definition for method 3 of type gs-store-image-packet
;; INFO: Used lq/sq
(defmethod inspect ((this gs-store-image-packet))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'gs-store-image-packet)
  (format #t "~1Tvifcode[4] @ #x~X~%" (-> this vifcode))
  (format #t "~1Tgiftag: ~D~%" (-> this giftag))
  (format #t "~1Tbitbltbuf: ~D~%" (-> this bitbltbuf))
  (format #t "~1Tbitbltbuf-addr: ~D~%" (-> this bitbltbuf-addr))
  (format #t "~1Ttrxpos: ~D~%" (-> this trxpos))
  (format #t "~1Ttrxpos-addr: ~D~%" (-> this trxpos-addr))
  (format #t "~1Ttrxreg: ~D~%" (-> this trxreg))
  (format #t "~1Ttrxreg-addr: ~D~%" (-> this trxreg-addr))
  (format #t "~1Tfinish: ~D~%" (-> this finish))
  (format #t "~1Tfinish-addr: ~D~%" (-> this finish-addr))
  (format #t "~1Ttrxdir: ~D~%" (-> this trxdir))
  (format #t "~1Ttrxdir-addr: ~D~%" (-> this trxdir-addr))
  (label cfg-4)
  this
  )

;; definition of type screen-shot-work
(deftype screen-shot-work (structure)
  ((count                   int16)
   (size                    int16)
   (name                    string)
   (highres-enable          symbol)
   (highres-objects-enable  symbol)
   (hud-enable              symbol)
   (letterbox-enable        symbol)
   (debug-enable            symbol)
   (dir                     basic)
   (dir-checked?            symbol)
   )
  )

;; definition for method 3 of type screen-shot-work
(defmethod inspect ((this screen-shot-work))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'screen-shot-work)
  (format #t "~1Tcount: ~D~%" (-> this count))
  (format #t "~1Tsize: ~D~%" (-> this size))
  (format #t "~1Tname: ~A~%" (-> this name))
  (format #t "~1Thighres-enable: ~A~%" (-> this highres-enable))
  (format #t "~1Thighres-objects-enable: ~A~%" (-> this highres-objects-enable))
  (format #t "~1Thud-enable: ~A~%" (-> this hud-enable))
  (format #t "~1Tletterbox-enable: ~A~%" (-> this letterbox-enable))
  (format #t "~1Tdebug-enable: ~A~%" (-> this debug-enable))
  (format #t "~1Tdir: ~A~%" (-> this dir))
  (format #t "~1Tdir-checked?: ~A~%" (-> this dir-checked?))
  (label cfg-4)
  this
  )

;; definition for symbol *screen-shot-work*, type screen-shot-work
(define *screen-shot-work* (new 'global 'screen-shot-work))

;; failed to figure out what this is:
(set! (-> *screen-shot-work* count) -1)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* size) -1)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* highres-enable) #f)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* highres-objects-enable) #f)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* hud-enable) #f)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* letterbox-enable) #f)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* debug-enable) #f)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* dir) #f)

;; failed to figure out what this is:
(set! (-> *screen-shot-work* dir-checked?) #f)

;; definition for symbol *image-name*, type string
(define *image-name* (new 'global 'string 128 (the-as string #f)))

;; definition for symbol *capture-tga-buffer*, type object
(define *capture-tga-buffer* (the-as object #f))

;; failed to figure out what this is:
0