jak-project/test/decompiler/reference/engine/draw/process-drawable-h_REF.gc

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

;; definition for function cspace-by-name-no-fail
;; INFO: Return type mismatch object vs cspace.
(defun cspace-by-name-no-fail ((arg0 process-drawable) (arg1 string))
  (let ((result (cspace-by-name arg0 arg1)))
   (the-as cspace (cond
                   (result
                    (empty)
                    result
                    )
                   (else
                    (format 0 "no cspace (~A)~%" arg1)
                    (the-as cspace (-> arg0 node-list data))
                    )
                   )
    )
   )
  )

;; definition for function cspace-index-by-name-no-fail
(defun cspace-index-by-name-no-fail ((arg0 process-drawable) (arg1 string))
  (let ((v0-0 (cspace-index-by-name arg0 arg1)))
   (cond
    ((< v0-0 0)
     (format 0 "no cspace[ndx] (~A)~%" arg1)
     0
     )
    (else
     (empty)
     v0-0
     )
    )
   )
  )

;; definition for function num-func-none
(defun num-func-none ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (-> arg0 frame-num)
  )

;; definition for function num-func-+!
(defun num-func-+! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (let
   ((f0-1
     (+
      (-> arg0 frame-num)
      (* arg1 (* (-> arg0 frame-group speed) (-> *display* time-adjust-ratio)))
      )
     )
    )
   (set! (-> arg0 frame-num) f0-1)
   f0-1
   )
  )

;; definition for function num-func--!
(defun num-func--! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (let
   ((f0-1
     (-
      (-> arg0 frame-num)
      (* arg1 (* (-> arg0 frame-group speed) (-> *display* time-adjust-ratio)))
      )
     )
    )
   (set! (-> arg0 frame-num) f0-1)
   f0-1
   )
  )

;; definition for function num-func-loop!
(defun num-func-loop! ((chan joint-control-channel) (inc float) (arg2 float))
  (let* ((duration (the float (+ (-> chan frame-group data 0 length) -1)))
         (after-inc
          (+
           (+ (-> chan frame-num) duration)
           (*
            inc
            (* (-> chan frame-group speed) (-> *display* time-adjust-ratio))
            )
           )
          )
         (wrapped
          (-
           after-inc
           (* (the float (the int (/ after-inc duration))) duration)
           )
          )
         )
   (set! (-> chan frame-num) wrapped)
   wrapped
   )
  )

;; definition for function num-func-seek!
(defun num-func-seek! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (let
   ((f0-3
     (seek
      (-> arg0 frame-num)
      arg1
      (* arg2 (* (-> arg0 frame-group speed) (-> *display* time-adjust-ratio)))
      )
     )
    )
   (set! (-> arg0 frame-num) f0-3)
   (set! (-> arg0 frame-num) f0-3)
   f0-3
   )
  )

;; definition for function num-func-blend-in!
(defun
  num-func-blend-in!
  ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (let
   ((f30-0
     (seek (-> arg0 frame-interp) 1.0 (* arg1 (-> *display* time-adjust-ratio)))
     )
    )
   (set! (-> arg0 frame-interp) f30-0)
   (set! (-> arg0 frame-interp) f30-0)
   (if (= f30-0 1.0)
    (joint-control-reset! (-> arg0 parent) arg0)
    )
   f30-0
   )
  )

;; definition for function num-func-chan
(defun num-func-chan ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (let
   ((f0-2
     (->
      (the-as
       joint-control-channel
       (+
        (the-as uint arg0)
        (the-as uint (* 48 (- (the int arg1) (-> arg0 group-sub-index))))
        )
       )
      frame-num
      )
     )
    )
   (set! (-> arg0 frame-num) f0-2)
   f0-2
   )
  )

;; definition for function num-func-identity
(defun num-func-identity ((arg0 joint-control-channel) (arg1 float) (arg2 float))
  (-> arg0 frame-num)
  )

;; failed to figure out what this is:
0