99 lines
2.7 KiB
Common Lisp
99 lines
2.7 KiB
Common Lisp
;; Auto-generated. Do not edit!
|
|
|
|
|
|
(when (boundp 'detect_targets::control)
|
|
(if (not (find-package "DETECT_TARGETS"))
|
|
(make-package "DETECT_TARGETS"))
|
|
(shadow 'control (find-package "DETECT_TARGETS")))
|
|
(unless (find-package "DETECT_TARGETS::CONTROL")
|
|
(make-package "DETECT_TARGETS::CONTROL"))
|
|
|
|
(in-package "ROS")
|
|
;;//! \htmlinclude control.msg.html
|
|
|
|
|
|
(defclass detect_targets::control
|
|
:super ros::object
|
|
:slots (_target _error _derror _cmd_vel ))
|
|
|
|
(defmethod detect_targets::control
|
|
(:init
|
|
(&key
|
|
((:target __target) 0.0)
|
|
((:error __error) 0.0)
|
|
((:derror __derror) 0.0)
|
|
((:cmd_vel __cmd_vel) 0.0)
|
|
)
|
|
(send-super :init)
|
|
(setq _target (float __target))
|
|
(setq _error (float __error))
|
|
(setq _derror (float __derror))
|
|
(setq _cmd_vel (float __cmd_vel))
|
|
self)
|
|
(:target
|
|
(&optional __target)
|
|
(if __target (setq _target __target)) _target)
|
|
(:error
|
|
(&optional __error)
|
|
(if __error (setq _error __error)) _error)
|
|
(:derror
|
|
(&optional __derror)
|
|
(if __derror (setq _derror __derror)) _derror)
|
|
(:cmd_vel
|
|
(&optional __cmd_vel)
|
|
(if __cmd_vel (setq _cmd_vel __cmd_vel)) _cmd_vel)
|
|
(:serialization-length
|
|
()
|
|
(+
|
|
;; float64 _target
|
|
8
|
|
;; float64 _error
|
|
8
|
|
;; float64 _derror
|
|
8
|
|
;; float64 _cmd_vel
|
|
8
|
|
))
|
|
(:serialize
|
|
(&optional strm)
|
|
(let ((s (if strm strm
|
|
(make-string-output-stream (send self :serialization-length)))))
|
|
;; float64 _target
|
|
(sys::poke _target (send s :buffer) (send s :count) :double) (incf (stream-count s) 8)
|
|
;; float64 _error
|
|
(sys::poke _error (send s :buffer) (send s :count) :double) (incf (stream-count s) 8)
|
|
;; float64 _derror
|
|
(sys::poke _derror (send s :buffer) (send s :count) :double) (incf (stream-count s) 8)
|
|
;; float64 _cmd_vel
|
|
(sys::poke _cmd_vel (send s :buffer) (send s :count) :double) (incf (stream-count s) 8)
|
|
;;
|
|
(if (null strm) (get-output-stream-string s))))
|
|
(:deserialize
|
|
(buf &optional (ptr- 0))
|
|
;; float64 _target
|
|
(setq _target (sys::peek buf ptr- :double)) (incf ptr- 8)
|
|
;; float64 _error
|
|
(setq _error (sys::peek buf ptr- :double)) (incf ptr- 8)
|
|
;; float64 _derror
|
|
(setq _derror (sys::peek buf ptr- :double)) (incf ptr- 8)
|
|
;; float64 _cmd_vel
|
|
(setq _cmd_vel (sys::peek buf ptr- :double)) (incf ptr- 8)
|
|
;;
|
|
self)
|
|
)
|
|
|
|
(setf (get detect_targets::control :md5sum-) "6f80b008c55c6a68dec8d378f0b74e50")
|
|
(setf (get detect_targets::control :datatype-) "detect_targets/control")
|
|
(setf (get detect_targets::control :definition-)
|
|
"float64 target
|
|
float64 error
|
|
float64 derror
|
|
float64 cmd_vel
|
|
")
|
|
|
|
|
|
|
|
(provide :detect_targets/control "6f80b008c55c6a68dec8d378f0b74e50")
|
|
|
|
|