177 lines
8.9 KiB
Common Lisp
177 lines
8.9 KiB
Common Lisp
; Auto-generated. Do not edit!
|
|
|
|
|
|
(cl:in-package detect_targets-msg)
|
|
|
|
|
|
;//! \htmlinclude component_center.msg.html
|
|
|
|
(cl:defclass <component_center> (roslisp-msg-protocol:ros-message)
|
|
((label
|
|
:reader label
|
|
:initarg :label
|
|
:type cl:integer
|
|
:initform 0)
|
|
(nb_vertex
|
|
:reader nb_vertex
|
|
:initarg :nb_vertex
|
|
:type cl:integer
|
|
:initform 0)
|
|
(x
|
|
:reader x
|
|
:initarg :x
|
|
:type cl:float
|
|
:initform 0.0)
|
|
(y
|
|
:reader y
|
|
:initarg :y
|
|
:type cl:float
|
|
:initform 0.0))
|
|
)
|
|
|
|
(cl:defclass component_center (<component_center>)
|
|
())
|
|
|
|
(cl:defmethod cl:initialize-instance :after ((m <component_center>) cl:&rest args)
|
|
(cl:declare (cl:ignorable args))
|
|
(cl:unless (cl:typep m 'component_center)
|
|
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name detect_targets-msg:<component_center> is deprecated: use detect_targets-msg:component_center instead.")))
|
|
|
|
(cl:ensure-generic-function 'label-val :lambda-list '(m))
|
|
(cl:defmethod label-val ((m <component_center>))
|
|
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader detect_targets-msg:label-val is deprecated. Use detect_targets-msg:label instead.")
|
|
(label m))
|
|
|
|
(cl:ensure-generic-function 'nb_vertex-val :lambda-list '(m))
|
|
(cl:defmethod nb_vertex-val ((m <component_center>))
|
|
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader detect_targets-msg:nb_vertex-val is deprecated. Use detect_targets-msg:nb_vertex instead.")
|
|
(nb_vertex m))
|
|
|
|
(cl:ensure-generic-function 'x-val :lambda-list '(m))
|
|
(cl:defmethod x-val ((m <component_center>))
|
|
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader detect_targets-msg:x-val is deprecated. Use detect_targets-msg:x instead.")
|
|
(x m))
|
|
|
|
(cl:ensure-generic-function 'y-val :lambda-list '(m))
|
|
(cl:defmethod y-val ((m <component_center>))
|
|
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader detect_targets-msg:y-val is deprecated. Use detect_targets-msg:y instead.")
|
|
(y m))
|
|
(cl:defmethod roslisp-msg-protocol:serialize ((msg <component_center>) ostream)
|
|
"Serializes a message object of type '<component_center>"
|
|
(cl:let* ((signed (cl:slot-value msg 'label)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 18446744073709551616) signed)))
|
|
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 8) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 16) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 24) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 32) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 40) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 48) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 56) unsigned) ostream)
|
|
)
|
|
(cl:let* ((signed (cl:slot-value msg 'nb_vertex)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 18446744073709551616) signed)))
|
|
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 8) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 16) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 24) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 32) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 40) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 48) unsigned) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 56) unsigned) ostream)
|
|
)
|
|
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'x))))
|
|
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
|
|
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'y))))
|
|
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
|
|
(cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
|
|
)
|
|
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <component_center>) istream)
|
|
"Deserializes a message object of type '<component_center>"
|
|
(cl:let ((unsigned 0))
|
|
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 8) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 16) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 24) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 32) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 40) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 48) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 56) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:slot-value msg 'label) (cl:if (cl:< unsigned 9223372036854775808) unsigned (cl:- unsigned 18446744073709551616))))
|
|
(cl:let ((unsigned 0))
|
|
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 8) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 16) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 24) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 32) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 40) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 48) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 56) unsigned) (cl:read-byte istream))
|
|
(cl:setf (cl:slot-value msg 'nb_vertex) (cl:if (cl:< unsigned 9223372036854775808) unsigned (cl:- unsigned 18446744073709551616))))
|
|
(cl:let ((bits 0))
|
|
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:slot-value msg 'x) (roslisp-utils:decode-double-float-bits bits)))
|
|
(cl:let ((bits 0))
|
|
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
|
|
(cl:setf (cl:slot-value msg 'y) (roslisp-utils:decode-double-float-bits bits)))
|
|
msg
|
|
)
|
|
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<component_center>)))
|
|
"Returns string type for a message object of type '<component_center>"
|
|
"detect_targets/component_center")
|
|
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'component_center)))
|
|
"Returns string type for a message object of type 'component_center"
|
|
"detect_targets/component_center")
|
|
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<component_center>)))
|
|
"Returns md5sum for a message object of type '<component_center>"
|
|
"da1879b15a6566f498d1395c2d529084")
|
|
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'component_center)))
|
|
"Returns md5sum for a message object of type 'component_center"
|
|
"da1879b15a6566f498d1395c2d529084")
|
|
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<component_center>)))
|
|
"Returns full string definition for message of type '<component_center>"
|
|
(cl:format cl:nil "int64 label~%int64 nb_vertex~%float64 x~%float64 y~%~%~%"))
|
|
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'component_center)))
|
|
"Returns full string definition for message of type 'component_center"
|
|
(cl:format cl:nil "int64 label~%int64 nb_vertex~%float64 x~%float64 y~%~%~%"))
|
|
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <component_center>))
|
|
(cl:+ 0
|
|
8
|
|
8
|
|
8
|
|
8
|
|
))
|
|
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <component_center>))
|
|
"Converts a ROS message object to a list"
|
|
(cl:list 'component_center
|
|
(cl:cons ':label (label msg))
|
|
(cl:cons ':nb_vertex (nb_vertex msg))
|
|
(cl:cons ':x (x msg))
|
|
(cl:cons ':y (y msg))
|
|
))
|