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

;; definition for function cam-stop
;; INFO: Return type mismatch (state camera-slave) vs none.
(defun cam-stop ()
  (kill-by-name 'camera-master *active-pool*)
  (kill-by-name 'camera-slave *active-pool*)
  (kill-by-name 'camera-combiner *active-pool*)
  (set! *camera* #f)
  (set! *camera-combiner* #f)
  (set! *camera-base-mode* cam-string)
  (none)
  )

;; definition for function cam-start
;; INFO: Return type mismatch int vs none.
(defun cam-start ((arg0 symbol))
  (cam-stop)
  (let ((s5-0 (get-process *camera-dead-pool* camera-combiner #x4000)))
    (when s5-0
      (let ((t9-2 (method-of-type camera-combiner activate)))
        (t9-2 (the-as camera-combiner s5-0) *camera-pool* 'camera-combiner (the-as pointer #x70004000))
        )
      (run-now-in-process s5-0 cam-combiner-init)
      (-> s5-0 ppointer)
      )
    )
  (let ((s5-1 (get-process *camera-master-dead-pool* camera-master #x4000)))
    (set! *camera*
          (the-as camera-master
            (ppointer->process
              (when s5-1
                (let ((t9-5 (method-of-type camera-master activate)))
                  (t9-5 (the-as camera-master s5-1) *camera-pool* 'camera-master (the-as pointer #x70004000))
                  )
                (run-next-time-in-process s5-1 cam-master-init)
                (-> s5-1 ppointer)
                )
              )
            )
          )
    )
  (if arg0
      (reset-cameras)
      )
  0
  (none)
  )

;; failed to figure out what this is:
(cam-start #f)