Ricompilazione con nuovo nodo TF broadcaster
This commit is contained in:
111
devel/share/common-lisp/ros/ur_msgs/msg/Analog.lisp
Normal file
111
devel/share/common-lisp/ros/ur_msgs/msg/Analog.lisp
Normal file
@@ -0,0 +1,111 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude Analog.msg.html
|
||||
|
||||
(cl:defclass <Analog> (roslisp-msg-protocol:ros-message)
|
||||
((pin
|
||||
:reader pin
|
||||
:initarg :pin
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(domain
|
||||
:reader domain
|
||||
:initarg :domain
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(state
|
||||
:reader state
|
||||
:initarg :state
|
||||
:type cl:float
|
||||
:initform 0.0))
|
||||
)
|
||||
|
||||
(cl:defclass Analog (<Analog>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <Analog>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'Analog)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<Analog> is deprecated: use ur_msgs-msg:Analog instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'pin-val :lambda-list '(m))
|
||||
(cl:defmethod pin-val ((m <Analog>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:pin-val is deprecated. Use ur_msgs-msg:pin instead.")
|
||||
(pin m))
|
||||
|
||||
(cl:ensure-generic-function 'domain-val :lambda-list '(m))
|
||||
(cl:defmethod domain-val ((m <Analog>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:domain-val is deprecated. Use ur_msgs-msg:domain instead.")
|
||||
(domain m))
|
||||
|
||||
(cl:ensure-generic-function 'state-val :lambda-list '(m))
|
||||
(cl:defmethod state-val ((m <Analog>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:state-val is deprecated. Use ur_msgs-msg:state instead.")
|
||||
(state m))
|
||||
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql '<Analog>)))
|
||||
"Constants for message type '<Analog>"
|
||||
'((:VOLTAGE . 0)
|
||||
(:CURRENT . 1))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql 'Analog)))
|
||||
"Constants for message type 'Analog"
|
||||
'((:VOLTAGE . 0)
|
||||
(:CURRENT . 1))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <Analog>) ostream)
|
||||
"Serializes a message object of type '<Analog>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'domain)) ostream)
|
||||
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'state))))
|
||||
(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:defmethod roslisp-msg-protocol:deserialize ((msg <Analog>) istream)
|
||||
"Deserializes a message object of type '<Analog>"
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'domain)) (cl:read-byte istream))
|
||||
(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:slot-value msg 'state) (roslisp-utils:decode-single-float-bits bits)))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Analog>)))
|
||||
"Returns string type for a message object of type '<Analog>"
|
||||
"ur_msgs/Analog")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Analog)))
|
||||
"Returns string type for a message object of type 'Analog"
|
||||
"ur_msgs/Analog")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Analog>)))
|
||||
"Returns md5sum for a message object of type '<Analog>"
|
||||
"f41c08a810adf63713aec88712cd553d")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Analog)))
|
||||
"Returns md5sum for a message object of type 'Analog"
|
||||
"f41c08a810adf63713aec88712cd553d")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Analog>)))
|
||||
"Returns full string definition for message of type '<Analog>"
|
||||
(cl:format cl:nil "uint8 VOLTAGE=0~%uint8 CURRENT=1~%~%uint8 pin~%uint8 domain # can be VOLTAGE or CURRENT~%float32 state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'Analog)))
|
||||
"Returns full string definition for message of type 'Analog"
|
||||
(cl:format cl:nil "uint8 VOLTAGE=0~%uint8 CURRENT=1~%~%uint8 pin~%uint8 domain # can be VOLTAGE or CURRENT~%float32 state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <Analog>))
|
||||
(cl:+ 0
|
||||
1
|
||||
1
|
||||
4
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Analog>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'Analog
|
||||
(cl:cons ':pin (pin msg))
|
||||
(cl:cons ':domain (domain msg))
|
||||
(cl:cons ':state (state msg))
|
||||
))
|
||||
78
devel/share/common-lisp/ros/ur_msgs/msg/Digital.lisp
Normal file
78
devel/share/common-lisp/ros/ur_msgs/msg/Digital.lisp
Normal file
@@ -0,0 +1,78 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude Digital.msg.html
|
||||
|
||||
(cl:defclass <Digital> (roslisp-msg-protocol:ros-message)
|
||||
((pin
|
||||
:reader pin
|
||||
:initarg :pin
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(state
|
||||
:reader state
|
||||
:initarg :state
|
||||
:type cl:boolean
|
||||
:initform cl:nil))
|
||||
)
|
||||
|
||||
(cl:defclass Digital (<Digital>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <Digital>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'Digital)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<Digital> is deprecated: use ur_msgs-msg:Digital instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'pin-val :lambda-list '(m))
|
||||
(cl:defmethod pin-val ((m <Digital>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:pin-val is deprecated. Use ur_msgs-msg:pin instead.")
|
||||
(pin m))
|
||||
|
||||
(cl:ensure-generic-function 'state-val :lambda-list '(m))
|
||||
(cl:defmethod state-val ((m <Digital>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:state-val is deprecated. Use ur_msgs-msg:state instead.")
|
||||
(state m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <Digital>) ostream)
|
||||
"Serializes a message object of type '<Digital>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'state) 1 0)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <Digital>) istream)
|
||||
"Deserializes a message object of type '<Digital>"
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'state) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Digital>)))
|
||||
"Returns string type for a message object of type '<Digital>"
|
||||
"ur_msgs/Digital")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Digital)))
|
||||
"Returns string type for a message object of type 'Digital"
|
||||
"ur_msgs/Digital")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Digital>)))
|
||||
"Returns md5sum for a message object of type '<Digital>"
|
||||
"83707be3fa18d2ffe57381ea034aa262")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Digital)))
|
||||
"Returns md5sum for a message object of type 'Digital"
|
||||
"83707be3fa18d2ffe57381ea034aa262")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Digital>)))
|
||||
"Returns full string definition for message of type '<Digital>"
|
||||
(cl:format cl:nil "uint8 pin~%bool state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'Digital)))
|
||||
"Returns full string definition for message of type 'Digital"
|
||||
(cl:format cl:nil "uint8 pin~%bool state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <Digital>))
|
||||
(cl:+ 0
|
||||
1
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Digital>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'Digital
|
||||
(cl:cons ':pin (pin msg))
|
||||
(cl:cons ':state (state msg))
|
||||
))
|
||||
195
devel/share/common-lisp/ros/ur_msgs/msg/IOStates.lisp
Normal file
195
devel/share/common-lisp/ros/ur_msgs/msg/IOStates.lisp
Normal file
@@ -0,0 +1,195 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude IOStates.msg.html
|
||||
|
||||
(cl:defclass <IOStates> (roslisp-msg-protocol:ros-message)
|
||||
((digital_in_states
|
||||
:reader digital_in_states
|
||||
:initarg :digital_in_states
|
||||
:type (cl:vector ur_msgs-msg:Digital)
|
||||
:initform (cl:make-array 0 :element-type 'ur_msgs-msg:Digital :initial-element (cl:make-instance 'ur_msgs-msg:Digital)))
|
||||
(digital_out_states
|
||||
:reader digital_out_states
|
||||
:initarg :digital_out_states
|
||||
:type (cl:vector ur_msgs-msg:Digital)
|
||||
:initform (cl:make-array 0 :element-type 'ur_msgs-msg:Digital :initial-element (cl:make-instance 'ur_msgs-msg:Digital)))
|
||||
(flag_states
|
||||
:reader flag_states
|
||||
:initarg :flag_states
|
||||
:type (cl:vector ur_msgs-msg:Digital)
|
||||
:initform (cl:make-array 0 :element-type 'ur_msgs-msg:Digital :initial-element (cl:make-instance 'ur_msgs-msg:Digital)))
|
||||
(analog_in_states
|
||||
:reader analog_in_states
|
||||
:initarg :analog_in_states
|
||||
:type (cl:vector ur_msgs-msg:Analog)
|
||||
:initform (cl:make-array 0 :element-type 'ur_msgs-msg:Analog :initial-element (cl:make-instance 'ur_msgs-msg:Analog)))
|
||||
(analog_out_states
|
||||
:reader analog_out_states
|
||||
:initarg :analog_out_states
|
||||
:type (cl:vector ur_msgs-msg:Analog)
|
||||
:initform (cl:make-array 0 :element-type 'ur_msgs-msg:Analog :initial-element (cl:make-instance 'ur_msgs-msg:Analog))))
|
||||
)
|
||||
|
||||
(cl:defclass IOStates (<IOStates>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <IOStates>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'IOStates)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<IOStates> is deprecated: use ur_msgs-msg:IOStates instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'digital_in_states-val :lambda-list '(m))
|
||||
(cl:defmethod digital_in_states-val ((m <IOStates>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_in_states-val is deprecated. Use ur_msgs-msg:digital_in_states instead.")
|
||||
(digital_in_states m))
|
||||
|
||||
(cl:ensure-generic-function 'digital_out_states-val :lambda-list '(m))
|
||||
(cl:defmethod digital_out_states-val ((m <IOStates>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_out_states-val is deprecated. Use ur_msgs-msg:digital_out_states instead.")
|
||||
(digital_out_states m))
|
||||
|
||||
(cl:ensure-generic-function 'flag_states-val :lambda-list '(m))
|
||||
(cl:defmethod flag_states-val ((m <IOStates>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:flag_states-val is deprecated. Use ur_msgs-msg:flag_states instead.")
|
||||
(flag_states m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_in_states-val :lambda-list '(m))
|
||||
(cl:defmethod analog_in_states-val ((m <IOStates>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_in_states-val is deprecated. Use ur_msgs-msg:analog_in_states instead.")
|
||||
(analog_in_states m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_out_states-val :lambda-list '(m))
|
||||
(cl:defmethod analog_out_states-val ((m <IOStates>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_out_states-val is deprecated. Use ur_msgs-msg:analog_out_states instead.")
|
||||
(analog_out_states m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <IOStates>) ostream)
|
||||
"Serializes a message object of type '<IOStates>"
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'digital_in_states))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
|
||||
(cl:slot-value msg 'digital_in_states))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'digital_out_states))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
|
||||
(cl:slot-value msg 'digital_out_states))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'flag_states))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
|
||||
(cl:slot-value msg 'flag_states))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'analog_in_states))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
|
||||
(cl:slot-value msg 'analog_in_states))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'analog_out_states))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
|
||||
(cl:slot-value msg 'analog_out_states))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <IOStates>) istream)
|
||||
"Deserializes a message object of type '<IOStates>"
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'digital_in_states) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'digital_in_states)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Digital))
|
||||
(roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'digital_out_states) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'digital_out_states)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Digital))
|
||||
(roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'flag_states) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'flag_states)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Digital))
|
||||
(roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_in_states) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'analog_in_states)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Analog))
|
||||
(roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_out_states) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'analog_out_states)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Analog))
|
||||
(roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<IOStates>)))
|
||||
"Returns string type for a message object of type '<IOStates>"
|
||||
"ur_msgs/IOStates")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'IOStates)))
|
||||
"Returns string type for a message object of type 'IOStates"
|
||||
"ur_msgs/IOStates")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<IOStates>)))
|
||||
"Returns md5sum for a message object of type '<IOStates>"
|
||||
"3033784e7041da89491b97cc4c1105b5")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'IOStates)))
|
||||
"Returns md5sum for a message object of type 'IOStates"
|
||||
"3033784e7041da89491b97cc4c1105b5")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<IOStates>)))
|
||||
"Returns full string definition for message of type '<IOStates>"
|
||||
(cl:format cl:nil "Digital[] digital_in_states~%Digital[] digital_out_states~%Digital[] flag_states~%Analog[] analog_in_states~%Analog[] analog_out_states~%~%================================================================================~%MSG: ur_msgs/Digital~%uint8 pin~%bool state~%~%================================================================================~%MSG: ur_msgs/Analog~%uint8 VOLTAGE=0~%uint8 CURRENT=1~%~%uint8 pin~%uint8 domain # can be VOLTAGE or CURRENT~%float32 state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'IOStates)))
|
||||
"Returns full string definition for message of type 'IOStates"
|
||||
(cl:format cl:nil "Digital[] digital_in_states~%Digital[] digital_out_states~%Digital[] flag_states~%Analog[] analog_in_states~%Analog[] analog_out_states~%~%================================================================================~%MSG: ur_msgs/Digital~%uint8 pin~%bool state~%~%================================================================================~%MSG: ur_msgs/Analog~%uint8 VOLTAGE=0~%uint8 CURRENT=1~%~%uint8 pin~%uint8 domain # can be VOLTAGE or CURRENT~%float32 state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <IOStates>))
|
||||
(cl:+ 0
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'digital_in_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'digital_out_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'flag_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'analog_in_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'analog_out_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <IOStates>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'IOStates
|
||||
(cl:cons ':digital_in_states (digital_in_states msg))
|
||||
(cl:cons ':digital_out_states (digital_out_states msg))
|
||||
(cl:cons ':flag_states (flag_states msg))
|
||||
(cl:cons ':analog_in_states (analog_in_states msg))
|
||||
(cl:cons ':analog_out_states (analog_out_states msg))
|
||||
))
|
||||
406
devel/share/common-lisp/ros/ur_msgs/msg/MasterboardDataMsg.lisp
Normal file
406
devel/share/common-lisp/ros/ur_msgs/msg/MasterboardDataMsg.lisp
Normal file
@@ -0,0 +1,406 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude MasterboardDataMsg.msg.html
|
||||
|
||||
(cl:defclass <MasterboardDataMsg> (roslisp-msg-protocol:ros-message)
|
||||
((digital_input_bits
|
||||
:reader digital_input_bits
|
||||
:initarg :digital_input_bits
|
||||
:type cl:integer
|
||||
:initform 0)
|
||||
(digital_output_bits
|
||||
:reader digital_output_bits
|
||||
:initarg :digital_output_bits
|
||||
:type cl:integer
|
||||
:initform 0)
|
||||
(analog_input_range0
|
||||
:reader analog_input_range0
|
||||
:initarg :analog_input_range0
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(analog_input_range1
|
||||
:reader analog_input_range1
|
||||
:initarg :analog_input_range1
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(analog_input0
|
||||
:reader analog_input0
|
||||
:initarg :analog_input0
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(analog_input1
|
||||
:reader analog_input1
|
||||
:initarg :analog_input1
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(analog_output_domain0
|
||||
:reader analog_output_domain0
|
||||
:initarg :analog_output_domain0
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(analog_output_domain1
|
||||
:reader analog_output_domain1
|
||||
:initarg :analog_output_domain1
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(analog_output0
|
||||
:reader analog_output0
|
||||
:initarg :analog_output0
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(analog_output1
|
||||
:reader analog_output1
|
||||
:initarg :analog_output1
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(masterboard_temperature
|
||||
:reader masterboard_temperature
|
||||
:initarg :masterboard_temperature
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(robot_voltage_48V
|
||||
:reader robot_voltage_48V
|
||||
:initarg :robot_voltage_48V
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(robot_current
|
||||
:reader robot_current
|
||||
:initarg :robot_current
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(master_io_current
|
||||
:reader master_io_current
|
||||
:initarg :master_io_current
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(master_safety_state
|
||||
:reader master_safety_state
|
||||
:initarg :master_safety_state
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(master_onoff_state
|
||||
:reader master_onoff_state
|
||||
:initarg :master_onoff_state
|
||||
:type cl:fixnum
|
||||
:initform 0))
|
||||
)
|
||||
|
||||
(cl:defclass MasterboardDataMsg (<MasterboardDataMsg>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <MasterboardDataMsg>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'MasterboardDataMsg)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<MasterboardDataMsg> is deprecated: use ur_msgs-msg:MasterboardDataMsg instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'digital_input_bits-val :lambda-list '(m))
|
||||
(cl:defmethod digital_input_bits-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_input_bits-val is deprecated. Use ur_msgs-msg:digital_input_bits instead.")
|
||||
(digital_input_bits m))
|
||||
|
||||
(cl:ensure-generic-function 'digital_output_bits-val :lambda-list '(m))
|
||||
(cl:defmethod digital_output_bits-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_output_bits-val is deprecated. Use ur_msgs-msg:digital_output_bits instead.")
|
||||
(digital_output_bits m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input_range0-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input_range0-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range0-val is deprecated. Use ur_msgs-msg:analog_input_range0 instead.")
|
||||
(analog_input_range0 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input_range1-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input_range1-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range1-val is deprecated. Use ur_msgs-msg:analog_input_range1 instead.")
|
||||
(analog_input_range1 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input0-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input0-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input0-val is deprecated. Use ur_msgs-msg:analog_input0 instead.")
|
||||
(analog_input0 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input1-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input1-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input1-val is deprecated. Use ur_msgs-msg:analog_input1 instead.")
|
||||
(analog_input1 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_output_domain0-val :lambda-list '(m))
|
||||
(cl:defmethod analog_output_domain0-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output_domain0-val is deprecated. Use ur_msgs-msg:analog_output_domain0 instead.")
|
||||
(analog_output_domain0 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_output_domain1-val :lambda-list '(m))
|
||||
(cl:defmethod analog_output_domain1-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output_domain1-val is deprecated. Use ur_msgs-msg:analog_output_domain1 instead.")
|
||||
(analog_output_domain1 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_output0-val :lambda-list '(m))
|
||||
(cl:defmethod analog_output0-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output0-val is deprecated. Use ur_msgs-msg:analog_output0 instead.")
|
||||
(analog_output0 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_output1-val :lambda-list '(m))
|
||||
(cl:defmethod analog_output1-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output1-val is deprecated. Use ur_msgs-msg:analog_output1 instead.")
|
||||
(analog_output1 m))
|
||||
|
||||
(cl:ensure-generic-function 'masterboard_temperature-val :lambda-list '(m))
|
||||
(cl:defmethod masterboard_temperature-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:masterboard_temperature-val is deprecated. Use ur_msgs-msg:masterboard_temperature instead.")
|
||||
(masterboard_temperature m))
|
||||
|
||||
(cl:ensure-generic-function 'robot_voltage_48V-val :lambda-list '(m))
|
||||
(cl:defmethod robot_voltage_48V-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:robot_voltage_48V-val is deprecated. Use ur_msgs-msg:robot_voltage_48V instead.")
|
||||
(robot_voltage_48V m))
|
||||
|
||||
(cl:ensure-generic-function 'robot_current-val :lambda-list '(m))
|
||||
(cl:defmethod robot_current-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:robot_current-val is deprecated. Use ur_msgs-msg:robot_current instead.")
|
||||
(robot_current m))
|
||||
|
||||
(cl:ensure-generic-function 'master_io_current-val :lambda-list '(m))
|
||||
(cl:defmethod master_io_current-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:master_io_current-val is deprecated. Use ur_msgs-msg:master_io_current instead.")
|
||||
(master_io_current m))
|
||||
|
||||
(cl:ensure-generic-function 'master_safety_state-val :lambda-list '(m))
|
||||
(cl:defmethod master_safety_state-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:master_safety_state-val is deprecated. Use ur_msgs-msg:master_safety_state instead.")
|
||||
(master_safety_state m))
|
||||
|
||||
(cl:ensure-generic-function 'master_onoff_state-val :lambda-list '(m))
|
||||
(cl:defmethod master_onoff_state-val ((m <MasterboardDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:master_onoff_state-val is deprecated. Use ur_msgs-msg:master_onoff_state instead.")
|
||||
(master_onoff_state m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <MasterboardDataMsg>) ostream)
|
||||
"Serializes a message object of type '<MasterboardDataMsg>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_input_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_input_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_input_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_input_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_output_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_output_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_output_bits)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_output_bits)) ostream)
|
||||
(cl:let* ((signed (cl:slot-value msg 'analog_input_range0)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
)
|
||||
(cl:let* ((signed (cl:slot-value msg 'analog_input_range1)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
)
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_input0))))
|
||||
(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 'analog_input1))))
|
||||
(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* ((signed (cl:slot-value msg 'analog_output_domain0)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
)
|
||||
(cl:let* ((signed (cl:slot-value msg 'analog_output_domain1)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
)
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_output0))))
|
||||
(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 'analog_output1))))
|
||||
(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-single-float-bits (cl:slot-value msg 'masterboard_temperature))))
|
||||
(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:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'robot_voltage_48V))))
|
||||
(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:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'robot_current))))
|
||||
(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:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'master_io_current))))
|
||||
(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 0) (cl:slot-value msg 'master_safety_state)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_onoff_state)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <MasterboardDataMsg>) istream)
|
||||
"Deserializes a message object of type '<MasterboardDataMsg>"
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_input_range0) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_input_range1) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
|
||||
(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 'analog_input0) (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 'analog_input1) (roslisp-utils:decode-double-float-bits bits)))
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_output_domain0) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_output_domain1) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
|
||||
(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 'analog_output0) (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 'analog_output1) (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:slot-value msg 'masterboard_temperature) (roslisp-utils:decode-single-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:slot-value msg 'robot_voltage_48V) (roslisp-utils:decode-single-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:slot-value msg 'robot_current) (roslisp-utils:decode-single-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:slot-value msg 'master_io_current) (roslisp-utils:decode-single-float-bits bits)))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_safety_state)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_onoff_state)) (cl:read-byte istream))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<MasterboardDataMsg>)))
|
||||
"Returns string type for a message object of type '<MasterboardDataMsg>"
|
||||
"ur_msgs/MasterboardDataMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'MasterboardDataMsg)))
|
||||
"Returns string type for a message object of type 'MasterboardDataMsg"
|
||||
"ur_msgs/MasterboardDataMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<MasterboardDataMsg>)))
|
||||
"Returns md5sum for a message object of type '<MasterboardDataMsg>"
|
||||
"807af5dc427082b111fa23d1fd2cd585")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'MasterboardDataMsg)))
|
||||
"Returns md5sum for a message object of type 'MasterboardDataMsg"
|
||||
"807af5dc427082b111fa23d1fd2cd585")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<MasterboardDataMsg>)))
|
||||
"Returns full string definition for message of type '<MasterboardDataMsg>"
|
||||
(cl:format cl:nil "# This data structure contains the MasterboardData structure~%# used by the Universal Robots controller~%#~%# MasterboardData is part of the data structure being send on the ~%# secondary client communications interface~%# ~%# This data structure is send at 10 Hz on TCP port 30002~%# ~%# Documentation can be found on the Universal Robots Support site, article~%# number 16496.~%~%uint32 digital_input_bits~%uint32 digital_output_bits~%int8 analog_input_range0~%int8 analog_input_range1~%float64 analog_input0~%float64 analog_input1~%int8 analog_output_domain0~%int8 analog_output_domain1~%float64 analog_output0~%float64 analog_output1~%float32 masterboard_temperature~%float32 robot_voltage_48V~%float32 robot_current~%float32 master_io_current~%uint8 master_safety_state~%uint8 master_onoff_state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'MasterboardDataMsg)))
|
||||
"Returns full string definition for message of type 'MasterboardDataMsg"
|
||||
(cl:format cl:nil "# This data structure contains the MasterboardData structure~%# used by the Universal Robots controller~%#~%# MasterboardData is part of the data structure being send on the ~%# secondary client communications interface~%# ~%# This data structure is send at 10 Hz on TCP port 30002~%# ~%# Documentation can be found on the Universal Robots Support site, article~%# number 16496.~%~%uint32 digital_input_bits~%uint32 digital_output_bits~%int8 analog_input_range0~%int8 analog_input_range1~%float64 analog_input0~%float64 analog_input1~%int8 analog_output_domain0~%int8 analog_output_domain1~%float64 analog_output0~%float64 analog_output1~%float32 masterboard_temperature~%float32 robot_voltage_48V~%float32 robot_current~%float32 master_io_current~%uint8 master_safety_state~%uint8 master_onoff_state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <MasterboardDataMsg>))
|
||||
(cl:+ 0
|
||||
4
|
||||
4
|
||||
1
|
||||
1
|
||||
8
|
||||
8
|
||||
1
|
||||
1
|
||||
8
|
||||
8
|
||||
4
|
||||
4
|
||||
4
|
||||
4
|
||||
1
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <MasterboardDataMsg>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'MasterboardDataMsg
|
||||
(cl:cons ':digital_input_bits (digital_input_bits msg))
|
||||
(cl:cons ':digital_output_bits (digital_output_bits msg))
|
||||
(cl:cons ':analog_input_range0 (analog_input_range0 msg))
|
||||
(cl:cons ':analog_input_range1 (analog_input_range1 msg))
|
||||
(cl:cons ':analog_input0 (analog_input0 msg))
|
||||
(cl:cons ':analog_input1 (analog_input1 msg))
|
||||
(cl:cons ':analog_output_domain0 (analog_output_domain0 msg))
|
||||
(cl:cons ':analog_output_domain1 (analog_output_domain1 msg))
|
||||
(cl:cons ':analog_output0 (analog_output0 msg))
|
||||
(cl:cons ':analog_output1 (analog_output1 msg))
|
||||
(cl:cons ':masterboard_temperature (masterboard_temperature msg))
|
||||
(cl:cons ':robot_voltage_48V (robot_voltage_48V msg))
|
||||
(cl:cons ':robot_current (robot_current msg))
|
||||
(cl:cons ':master_io_current (master_io_current msg))
|
||||
(cl:cons ':master_safety_state (master_safety_state msg))
|
||||
(cl:cons ':master_onoff_state (master_onoff_state msg))
|
||||
))
|
||||
176
devel/share/common-lisp/ros/ur_msgs/msg/RobotModeDataMsg.lisp
Normal file
176
devel/share/common-lisp/ros/ur_msgs/msg/RobotModeDataMsg.lisp
Normal file
@@ -0,0 +1,176 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude RobotModeDataMsg.msg.html
|
||||
|
||||
(cl:defclass <RobotModeDataMsg> (roslisp-msg-protocol:ros-message)
|
||||
((timestamp
|
||||
:reader timestamp
|
||||
:initarg :timestamp
|
||||
:type cl:integer
|
||||
:initform 0)
|
||||
(is_robot_connected
|
||||
:reader is_robot_connected
|
||||
:initarg :is_robot_connected
|
||||
:type cl:boolean
|
||||
:initform cl:nil)
|
||||
(is_real_robot_enabled
|
||||
:reader is_real_robot_enabled
|
||||
:initarg :is_real_robot_enabled
|
||||
:type cl:boolean
|
||||
:initform cl:nil)
|
||||
(is_power_on_robot
|
||||
:reader is_power_on_robot
|
||||
:initarg :is_power_on_robot
|
||||
:type cl:boolean
|
||||
:initform cl:nil)
|
||||
(is_emergency_stopped
|
||||
:reader is_emergency_stopped
|
||||
:initarg :is_emergency_stopped
|
||||
:type cl:boolean
|
||||
:initform cl:nil)
|
||||
(is_protective_stopped
|
||||
:reader is_protective_stopped
|
||||
:initarg :is_protective_stopped
|
||||
:type cl:boolean
|
||||
:initform cl:nil)
|
||||
(is_program_running
|
||||
:reader is_program_running
|
||||
:initarg :is_program_running
|
||||
:type cl:boolean
|
||||
:initform cl:nil)
|
||||
(is_program_paused
|
||||
:reader is_program_paused
|
||||
:initarg :is_program_paused
|
||||
:type cl:boolean
|
||||
:initform cl:nil))
|
||||
)
|
||||
|
||||
(cl:defclass RobotModeDataMsg (<RobotModeDataMsg>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <RobotModeDataMsg>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'RobotModeDataMsg)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<RobotModeDataMsg> is deprecated: use ur_msgs-msg:RobotModeDataMsg instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'timestamp-val :lambda-list '(m))
|
||||
(cl:defmethod timestamp-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:timestamp-val is deprecated. Use ur_msgs-msg:timestamp instead.")
|
||||
(timestamp m))
|
||||
|
||||
(cl:ensure-generic-function 'is_robot_connected-val :lambda-list '(m))
|
||||
(cl:defmethod is_robot_connected-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_robot_connected-val is deprecated. Use ur_msgs-msg:is_robot_connected instead.")
|
||||
(is_robot_connected m))
|
||||
|
||||
(cl:ensure-generic-function 'is_real_robot_enabled-val :lambda-list '(m))
|
||||
(cl:defmethod is_real_robot_enabled-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_real_robot_enabled-val is deprecated. Use ur_msgs-msg:is_real_robot_enabled instead.")
|
||||
(is_real_robot_enabled m))
|
||||
|
||||
(cl:ensure-generic-function 'is_power_on_robot-val :lambda-list '(m))
|
||||
(cl:defmethod is_power_on_robot-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_power_on_robot-val is deprecated. Use ur_msgs-msg:is_power_on_robot instead.")
|
||||
(is_power_on_robot m))
|
||||
|
||||
(cl:ensure-generic-function 'is_emergency_stopped-val :lambda-list '(m))
|
||||
(cl:defmethod is_emergency_stopped-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_emergency_stopped-val is deprecated. Use ur_msgs-msg:is_emergency_stopped instead.")
|
||||
(is_emergency_stopped m))
|
||||
|
||||
(cl:ensure-generic-function 'is_protective_stopped-val :lambda-list '(m))
|
||||
(cl:defmethod is_protective_stopped-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_protective_stopped-val is deprecated. Use ur_msgs-msg:is_protective_stopped instead.")
|
||||
(is_protective_stopped m))
|
||||
|
||||
(cl:ensure-generic-function 'is_program_running-val :lambda-list '(m))
|
||||
(cl:defmethod is_program_running-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_program_running-val is deprecated. Use ur_msgs-msg:is_program_running instead.")
|
||||
(is_program_running m))
|
||||
|
||||
(cl:ensure-generic-function 'is_program_paused-val :lambda-list '(m))
|
||||
(cl:defmethod is_program_paused-val ((m <RobotModeDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_program_paused-val is deprecated. Use ur_msgs-msg:is_program_paused instead.")
|
||||
(is_program_paused m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <RobotModeDataMsg>) ostream)
|
||||
"Serializes a message object of type '<RobotModeDataMsg>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 32) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 40) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 48) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 56) (cl:slot-value msg 'timestamp)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_robot_connected) 1 0)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_real_robot_enabled) 1 0)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_power_on_robot) 1 0)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_emergency_stopped) 1 0)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_protective_stopped) 1 0)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_program_running) 1 0)) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_program_paused) 1 0)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <RobotModeDataMsg>) istream)
|
||||
"Deserializes a message object of type '<RobotModeDataMsg>"
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 32) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 40) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 48) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 56) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'is_robot_connected) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
(cl:setf (cl:slot-value msg 'is_real_robot_enabled) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
(cl:setf (cl:slot-value msg 'is_power_on_robot) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
(cl:setf (cl:slot-value msg 'is_emergency_stopped) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
(cl:setf (cl:slot-value msg 'is_protective_stopped) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
(cl:setf (cl:slot-value msg 'is_program_running) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
(cl:setf (cl:slot-value msg 'is_program_paused) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<RobotModeDataMsg>)))
|
||||
"Returns string type for a message object of type '<RobotModeDataMsg>"
|
||||
"ur_msgs/RobotModeDataMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'RobotModeDataMsg)))
|
||||
"Returns string type for a message object of type 'RobotModeDataMsg"
|
||||
"ur_msgs/RobotModeDataMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<RobotModeDataMsg>)))
|
||||
"Returns md5sum for a message object of type '<RobotModeDataMsg>"
|
||||
"867308ca39e2cc0644b50db27deb661f")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'RobotModeDataMsg)))
|
||||
"Returns md5sum for a message object of type 'RobotModeDataMsg"
|
||||
"867308ca39e2cc0644b50db27deb661f")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<RobotModeDataMsg>)))
|
||||
"Returns full string definition for message of type '<RobotModeDataMsg>"
|
||||
(cl:format cl:nil "# This data structure contains the RobotModeData structure~%# used by the Universal Robots controller~%#~%# This data structure is send at 10 Hz on TCP port 30002~%#~%# Note: this message does not carry all fields from the RobotModeData structure as broadcast by the robot controller, but a subset.~%~%uint64 timestamp~%bool is_robot_connected~%bool is_real_robot_enabled~%bool is_power_on_robot~%bool is_emergency_stopped~%bool is_protective_stopped~%bool is_program_running~%bool is_program_paused~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'RobotModeDataMsg)))
|
||||
"Returns full string definition for message of type 'RobotModeDataMsg"
|
||||
(cl:format cl:nil "# This data structure contains the RobotModeData structure~%# used by the Universal Robots controller~%#~%# This data structure is send at 10 Hz on TCP port 30002~%#~%# Note: this message does not carry all fields from the RobotModeData structure as broadcast by the robot controller, but a subset.~%~%uint64 timestamp~%bool is_robot_connected~%bool is_real_robot_enabled~%bool is_power_on_robot~%bool is_emergency_stopped~%bool is_protective_stopped~%bool is_program_running~%bool is_program_paused~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <RobotModeDataMsg>))
|
||||
(cl:+ 0
|
||||
8
|
||||
1
|
||||
1
|
||||
1
|
||||
1
|
||||
1
|
||||
1
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <RobotModeDataMsg>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'RobotModeDataMsg
|
||||
(cl:cons ':timestamp (timestamp msg))
|
||||
(cl:cons ':is_robot_connected (is_robot_connected msg))
|
||||
(cl:cons ':is_real_robot_enabled (is_real_robot_enabled msg))
|
||||
(cl:cons ':is_power_on_robot (is_power_on_robot msg))
|
||||
(cl:cons ':is_emergency_stopped (is_emergency_stopped msg))
|
||||
(cl:cons ':is_protective_stopped (is_protective_stopped msg))
|
||||
(cl:cons ':is_program_running (is_program_running msg))
|
||||
(cl:cons ':is_program_paused (is_program_paused msg))
|
||||
))
|
||||
835
devel/share/common-lisp/ros/ur_msgs/msg/RobotStateRTMsg.lisp
Normal file
835
devel/share/common-lisp/ros/ur_msgs/msg/RobotStateRTMsg.lisp
Normal file
@@ -0,0 +1,835 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude RobotStateRTMsg.msg.html
|
||||
|
||||
(cl:defclass <RobotStateRTMsg> (roslisp-msg-protocol:ros-message)
|
||||
((time
|
||||
:reader time
|
||||
:initarg :time
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(q_target
|
||||
:reader q_target
|
||||
:initarg :q_target
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(qd_target
|
||||
:reader qd_target
|
||||
:initarg :qd_target
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(qdd_target
|
||||
:reader qdd_target
|
||||
:initarg :qdd_target
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(i_target
|
||||
:reader i_target
|
||||
:initarg :i_target
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(m_target
|
||||
:reader m_target
|
||||
:initarg :m_target
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(q_actual
|
||||
:reader q_actual
|
||||
:initarg :q_actual
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(qd_actual
|
||||
:reader qd_actual
|
||||
:initarg :qd_actual
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(i_actual
|
||||
:reader i_actual
|
||||
:initarg :i_actual
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(tool_acc_values
|
||||
:reader tool_acc_values
|
||||
:initarg :tool_acc_values
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(tcp_force
|
||||
:reader tcp_force
|
||||
:initarg :tcp_force
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(tool_vector
|
||||
:reader tool_vector
|
||||
:initarg :tool_vector
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(tcp_speed
|
||||
:reader tcp_speed
|
||||
:initarg :tcp_speed
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(digital_input_bits
|
||||
:reader digital_input_bits
|
||||
:initarg :digital_input_bits
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(motor_temperatures
|
||||
:reader motor_temperatures
|
||||
:initarg :motor_temperatures
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
|
||||
(controller_timer
|
||||
:reader controller_timer
|
||||
:initarg :controller_timer
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(test_value
|
||||
:reader test_value
|
||||
:initarg :test_value
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(robot_mode
|
||||
:reader robot_mode
|
||||
:initarg :robot_mode
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(joint_modes
|
||||
:reader joint_modes
|
||||
:initarg :joint_modes
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0)))
|
||||
)
|
||||
|
||||
(cl:defclass RobotStateRTMsg (<RobotStateRTMsg>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <RobotStateRTMsg>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'RobotStateRTMsg)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<RobotStateRTMsg> is deprecated: use ur_msgs-msg:RobotStateRTMsg instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'time-val :lambda-list '(m))
|
||||
(cl:defmethod time-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:time-val is deprecated. Use ur_msgs-msg:time instead.")
|
||||
(time m))
|
||||
|
||||
(cl:ensure-generic-function 'q_target-val :lambda-list '(m))
|
||||
(cl:defmethod q_target-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:q_target-val is deprecated. Use ur_msgs-msg:q_target instead.")
|
||||
(q_target m))
|
||||
|
||||
(cl:ensure-generic-function 'qd_target-val :lambda-list '(m))
|
||||
(cl:defmethod qd_target-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:qd_target-val is deprecated. Use ur_msgs-msg:qd_target instead.")
|
||||
(qd_target m))
|
||||
|
||||
(cl:ensure-generic-function 'qdd_target-val :lambda-list '(m))
|
||||
(cl:defmethod qdd_target-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:qdd_target-val is deprecated. Use ur_msgs-msg:qdd_target instead.")
|
||||
(qdd_target m))
|
||||
|
||||
(cl:ensure-generic-function 'i_target-val :lambda-list '(m))
|
||||
(cl:defmethod i_target-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:i_target-val is deprecated. Use ur_msgs-msg:i_target instead.")
|
||||
(i_target m))
|
||||
|
||||
(cl:ensure-generic-function 'm_target-val :lambda-list '(m))
|
||||
(cl:defmethod m_target-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:m_target-val is deprecated. Use ur_msgs-msg:m_target instead.")
|
||||
(m_target m))
|
||||
|
||||
(cl:ensure-generic-function 'q_actual-val :lambda-list '(m))
|
||||
(cl:defmethod q_actual-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:q_actual-val is deprecated. Use ur_msgs-msg:q_actual instead.")
|
||||
(q_actual m))
|
||||
|
||||
(cl:ensure-generic-function 'qd_actual-val :lambda-list '(m))
|
||||
(cl:defmethod qd_actual-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:qd_actual-val is deprecated. Use ur_msgs-msg:qd_actual instead.")
|
||||
(qd_actual m))
|
||||
|
||||
(cl:ensure-generic-function 'i_actual-val :lambda-list '(m))
|
||||
(cl:defmethod i_actual-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:i_actual-val is deprecated. Use ur_msgs-msg:i_actual instead.")
|
||||
(i_actual m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_acc_values-val :lambda-list '(m))
|
||||
(cl:defmethod tool_acc_values-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_acc_values-val is deprecated. Use ur_msgs-msg:tool_acc_values instead.")
|
||||
(tool_acc_values m))
|
||||
|
||||
(cl:ensure-generic-function 'tcp_force-val :lambda-list '(m))
|
||||
(cl:defmethod tcp_force-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tcp_force-val is deprecated. Use ur_msgs-msg:tcp_force instead.")
|
||||
(tcp_force m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_vector-val :lambda-list '(m))
|
||||
(cl:defmethod tool_vector-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_vector-val is deprecated. Use ur_msgs-msg:tool_vector instead.")
|
||||
(tool_vector m))
|
||||
|
||||
(cl:ensure-generic-function 'tcp_speed-val :lambda-list '(m))
|
||||
(cl:defmethod tcp_speed-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tcp_speed-val is deprecated. Use ur_msgs-msg:tcp_speed instead.")
|
||||
(tcp_speed m))
|
||||
|
||||
(cl:ensure-generic-function 'digital_input_bits-val :lambda-list '(m))
|
||||
(cl:defmethod digital_input_bits-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_input_bits-val is deprecated. Use ur_msgs-msg:digital_input_bits instead.")
|
||||
(digital_input_bits m))
|
||||
|
||||
(cl:ensure-generic-function 'motor_temperatures-val :lambda-list '(m))
|
||||
(cl:defmethod motor_temperatures-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:motor_temperatures-val is deprecated. Use ur_msgs-msg:motor_temperatures instead.")
|
||||
(motor_temperatures m))
|
||||
|
||||
(cl:ensure-generic-function 'controller_timer-val :lambda-list '(m))
|
||||
(cl:defmethod controller_timer-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:controller_timer-val is deprecated. Use ur_msgs-msg:controller_timer instead.")
|
||||
(controller_timer m))
|
||||
|
||||
(cl:ensure-generic-function 'test_value-val :lambda-list '(m))
|
||||
(cl:defmethod test_value-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:test_value-val is deprecated. Use ur_msgs-msg:test_value instead.")
|
||||
(test_value m))
|
||||
|
||||
(cl:ensure-generic-function 'robot_mode-val :lambda-list '(m))
|
||||
(cl:defmethod robot_mode-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:robot_mode-val is deprecated. Use ur_msgs-msg:robot_mode instead.")
|
||||
(robot_mode m))
|
||||
|
||||
(cl:ensure-generic-function 'joint_modes-val :lambda-list '(m))
|
||||
(cl:defmethod joint_modes-val ((m <RobotStateRTMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:joint_modes-val is deprecated. Use ur_msgs-msg:joint_modes instead.")
|
||||
(joint_modes m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <RobotStateRTMsg>) ostream)
|
||||
"Serializes a message object of type '<RobotStateRTMsg>"
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'time))))
|
||||
(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 ((__ros_arr_len (cl:length (cl:slot-value msg 'q_target))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'q_target))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'qd_target))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'qd_target))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'qdd_target))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'qdd_target))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'i_target))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'i_target))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'm_target))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'm_target))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'q_actual))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'q_actual))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'qd_actual))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'qd_actual))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'i_actual))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'i_actual))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tool_acc_values))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'tool_acc_values))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tcp_force))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'tcp_force))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tool_vector))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'tool_vector))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tcp_speed))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'tcp_speed))
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'digital_input_bits))))
|
||||
(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 ((__ros_arr_len (cl:length (cl:slot-value msg 'motor_temperatures))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'motor_temperatures))
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'controller_timer))))
|
||||
(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 'test_value))))
|
||||
(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 'robot_mode))))
|
||||
(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 ((__ros_arr_len (cl:length (cl:slot-value msg 'joint_modes))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
|
||||
(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:slot-value msg 'joint_modes))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <RobotStateRTMsg>) istream)
|
||||
"Deserializes a message object of type '<RobotStateRTMsg>"
|
||||
(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 'time) (roslisp-utils:decode-double-float-bits bits)))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'q_target) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'q_target)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'qd_target) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'qd_target)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'qdd_target) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'qdd_target)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'i_target) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'i_target)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'm_target) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'm_target)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'q_actual) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'q_actual)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'qd_actual) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'qd_actual)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'i_actual) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'i_actual)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'tool_acc_values) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'tool_acc_values)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'tcp_force) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'tcp_force)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'tool_vector) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'tool_vector)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'tcp_speed) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'tcp_speed)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (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 'digital_input_bits) (roslisp-utils:decode-double-float-bits bits)))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'motor_temperatures) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'motor_temperatures)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (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 'controller_timer) (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 'test_value) (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 'robot_mode) (roslisp-utils:decode-double-float-bits bits)))
|
||||
(cl:let ((__ros_arr_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'joint_modes) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'joint_modes)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(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:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<RobotStateRTMsg>)))
|
||||
"Returns string type for a message object of type '<RobotStateRTMsg>"
|
||||
"ur_msgs/RobotStateRTMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'RobotStateRTMsg)))
|
||||
"Returns string type for a message object of type 'RobotStateRTMsg"
|
||||
"ur_msgs/RobotStateRTMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<RobotStateRTMsg>)))
|
||||
"Returns md5sum for a message object of type '<RobotStateRTMsg>"
|
||||
"ce6feddd3ccb4ca7dbcd0ff105b603c7")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'RobotStateRTMsg)))
|
||||
"Returns md5sum for a message object of type 'RobotStateRTMsg"
|
||||
"ce6feddd3ccb4ca7dbcd0ff105b603c7")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<RobotStateRTMsg>)))
|
||||
"Returns full string definition for message of type '<RobotStateRTMsg>"
|
||||
(cl:format cl:nil "# Data structure for the realtime communications interface (aka Matlab interface)~%# used by the Universal Robots controller~%# ~%# This data structure is send at 125 Hz on TCP port 30003~%# ~%# Dokumentation can be found on the Universal Robots Support Wiki~%# (http://wiki03.lynero.net/Technical/RealTimeClientInterface?rev=9)~%~%float64 time~%float64[] q_target~%float64[] qd_target~%float64[] qdd_target~%float64[] i_target~%float64[] m_target~%float64[] q_actual~%float64[] qd_actual~%float64[] i_actual~%float64[] tool_acc_values~%float64[] tcp_force~%float64[] tool_vector~%float64[] tcp_speed~%float64 digital_input_bits~%float64[] motor_temperatures~%float64 controller_timer~%float64 test_value~%float64 robot_mode~%float64[] joint_modes~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'RobotStateRTMsg)))
|
||||
"Returns full string definition for message of type 'RobotStateRTMsg"
|
||||
(cl:format cl:nil "# Data structure for the realtime communications interface (aka Matlab interface)~%# used by the Universal Robots controller~%# ~%# This data structure is send at 125 Hz on TCP port 30003~%# ~%# Dokumentation can be found on the Universal Robots Support Wiki~%# (http://wiki03.lynero.net/Technical/RealTimeClientInterface?rev=9)~%~%float64 time~%float64[] q_target~%float64[] qd_target~%float64[] qdd_target~%float64[] i_target~%float64[] m_target~%float64[] q_actual~%float64[] qd_actual~%float64[] i_actual~%float64[] tool_acc_values~%float64[] tcp_force~%float64[] tool_vector~%float64[] tcp_speed~%float64 digital_input_bits~%float64[] motor_temperatures~%float64 controller_timer~%float64 test_value~%float64 robot_mode~%float64[] joint_modes~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <RobotStateRTMsg>))
|
||||
(cl:+ 0
|
||||
8
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'q_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'qd_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'qdd_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'i_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'm_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'q_actual) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'qd_actual) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'i_actual) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'tool_acc_values) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'tcp_force) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'tool_vector) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'tcp_speed) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
8
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'motor_temperatures) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
8
|
||||
8
|
||||
8
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'joint_modes) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <RobotStateRTMsg>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'RobotStateRTMsg
|
||||
(cl:cons ':time (time msg))
|
||||
(cl:cons ':q_target (q_target msg))
|
||||
(cl:cons ':qd_target (qd_target msg))
|
||||
(cl:cons ':qdd_target (qdd_target msg))
|
||||
(cl:cons ':i_target (i_target msg))
|
||||
(cl:cons ':m_target (m_target msg))
|
||||
(cl:cons ':q_actual (q_actual msg))
|
||||
(cl:cons ':qd_actual (qd_actual msg))
|
||||
(cl:cons ':i_actual (i_actual msg))
|
||||
(cl:cons ':tool_acc_values (tool_acc_values msg))
|
||||
(cl:cons ':tcp_force (tcp_force msg))
|
||||
(cl:cons ':tool_vector (tool_vector msg))
|
||||
(cl:cons ':tcp_speed (tcp_speed msg))
|
||||
(cl:cons ':digital_input_bits (digital_input_bits msg))
|
||||
(cl:cons ':motor_temperatures (motor_temperatures msg))
|
||||
(cl:cons ':controller_timer (controller_timer msg))
|
||||
(cl:cons ':test_value (test_value msg))
|
||||
(cl:cons ':robot_mode (robot_mode msg))
|
||||
(cl:cons ':joint_modes (joint_modes msg))
|
||||
))
|
||||
261
devel/share/common-lisp/ros/ur_msgs/msg/ToolDataMsg.lisp
Normal file
261
devel/share/common-lisp/ros/ur_msgs/msg/ToolDataMsg.lisp
Normal file
@@ -0,0 +1,261 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude ToolDataMsg.msg.html
|
||||
|
||||
(cl:defclass <ToolDataMsg> (roslisp-msg-protocol:ros-message)
|
||||
((analog_input_range2
|
||||
:reader analog_input_range2
|
||||
:initarg :analog_input_range2
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(analog_input_range3
|
||||
:reader analog_input_range3
|
||||
:initarg :analog_input_range3
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(analog_input2
|
||||
:reader analog_input2
|
||||
:initarg :analog_input2
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(analog_input3
|
||||
:reader analog_input3
|
||||
:initarg :analog_input3
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(tool_voltage_48v
|
||||
:reader tool_voltage_48v
|
||||
:initarg :tool_voltage_48v
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(tool_output_voltage
|
||||
:reader tool_output_voltage
|
||||
:initarg :tool_output_voltage
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(tool_current
|
||||
:reader tool_current
|
||||
:initarg :tool_current
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(tool_temperature
|
||||
:reader tool_temperature
|
||||
:initarg :tool_temperature
|
||||
:type cl:float
|
||||
:initform 0.0)
|
||||
(tool_mode
|
||||
:reader tool_mode
|
||||
:initarg :tool_mode
|
||||
:type cl:fixnum
|
||||
:initform 0))
|
||||
)
|
||||
|
||||
(cl:defclass ToolDataMsg (<ToolDataMsg>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <ToolDataMsg>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'ToolDataMsg)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<ToolDataMsg> is deprecated: use ur_msgs-msg:ToolDataMsg instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input_range2-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input_range2-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range2-val is deprecated. Use ur_msgs-msg:analog_input_range2 instead.")
|
||||
(analog_input_range2 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input_range3-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input_range3-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range3-val is deprecated. Use ur_msgs-msg:analog_input_range3 instead.")
|
||||
(analog_input_range3 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input2-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input2-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input2-val is deprecated. Use ur_msgs-msg:analog_input2 instead.")
|
||||
(analog_input2 m))
|
||||
|
||||
(cl:ensure-generic-function 'analog_input3-val :lambda-list '(m))
|
||||
(cl:defmethod analog_input3-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input3-val is deprecated. Use ur_msgs-msg:analog_input3 instead.")
|
||||
(analog_input3 m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_voltage_48v-val :lambda-list '(m))
|
||||
(cl:defmethod tool_voltage_48v-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_voltage_48v-val is deprecated. Use ur_msgs-msg:tool_voltage_48v instead.")
|
||||
(tool_voltage_48v m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_output_voltage-val :lambda-list '(m))
|
||||
(cl:defmethod tool_output_voltage-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_output_voltage-val is deprecated. Use ur_msgs-msg:tool_output_voltage instead.")
|
||||
(tool_output_voltage m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_current-val :lambda-list '(m))
|
||||
(cl:defmethod tool_current-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_current-val is deprecated. Use ur_msgs-msg:tool_current instead.")
|
||||
(tool_current m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_temperature-val :lambda-list '(m))
|
||||
(cl:defmethod tool_temperature-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_temperature-val is deprecated. Use ur_msgs-msg:tool_temperature instead.")
|
||||
(tool_temperature m))
|
||||
|
||||
(cl:ensure-generic-function 'tool_mode-val :lambda-list '(m))
|
||||
(cl:defmethod tool_mode-val ((m <ToolDataMsg>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_mode-val is deprecated. Use ur_msgs-msg:tool_mode instead.")
|
||||
(tool_mode m))
|
||||
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql '<ToolDataMsg>)))
|
||||
"Constants for message type '<ToolDataMsg>"
|
||||
'((:ANALOG_INPUT_RANGE_CURRENT . 0)
|
||||
(:ANALOG_INPUT_RANGE_VOLTAGE . 1)
|
||||
(:TOOL_BOOTLOADER_MODE . 249)
|
||||
(:TOOL_RUNNING_MODE . 253)
|
||||
(:TOOL_IDLE_MODE . 255))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql 'ToolDataMsg)))
|
||||
"Constants for message type 'ToolDataMsg"
|
||||
'((:ANALOG_INPUT_RANGE_CURRENT . 0)
|
||||
(:ANALOG_INPUT_RANGE_VOLTAGE . 1)
|
||||
(:TOOL_BOOTLOADER_MODE . 249)
|
||||
(:TOOL_RUNNING_MODE . 253)
|
||||
(:TOOL_IDLE_MODE . 255))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <ToolDataMsg>) ostream)
|
||||
"Serializes a message object of type '<ToolDataMsg>"
|
||||
(cl:let* ((signed (cl:slot-value msg 'analog_input_range2)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
)
|
||||
(cl:let* ((signed (cl:slot-value msg 'analog_input_range3)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
|
||||
)
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_input2))))
|
||||
(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 'analog_input3))))
|
||||
(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-single-float-bits (cl:slot-value msg 'tool_voltage_48v))))
|
||||
(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 0) (cl:slot-value msg 'tool_output_voltage)) ostream)
|
||||
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'tool_current))))
|
||||
(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:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'tool_temperature))))
|
||||
(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 0) (cl:slot-value msg 'tool_mode)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <ToolDataMsg>) istream)
|
||||
"Deserializes a message object of type '<ToolDataMsg>"
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_input_range2) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'analog_input_range3) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
|
||||
(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 'analog_input2) (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 'analog_input3) (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:slot-value msg 'tool_voltage_48v) (roslisp-utils:decode-single-float-bits bits)))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'tool_output_voltage)) (cl:read-byte istream))
|
||||
(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:slot-value msg 'tool_current) (roslisp-utils:decode-single-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:slot-value msg 'tool_temperature) (roslisp-utils:decode-single-float-bits bits)))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'tool_mode)) (cl:read-byte istream))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<ToolDataMsg>)))
|
||||
"Returns string type for a message object of type '<ToolDataMsg>"
|
||||
"ur_msgs/ToolDataMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'ToolDataMsg)))
|
||||
"Returns string type for a message object of type 'ToolDataMsg"
|
||||
"ur_msgs/ToolDataMsg")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<ToolDataMsg>)))
|
||||
"Returns md5sum for a message object of type '<ToolDataMsg>"
|
||||
"404fc266f37d89f75b372d12fa94a122")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'ToolDataMsg)))
|
||||
"Returns md5sum for a message object of type 'ToolDataMsg"
|
||||
"404fc266f37d89f75b372d12fa94a122")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<ToolDataMsg>)))
|
||||
"Returns full string definition for message of type '<ToolDataMsg>"
|
||||
(cl:format cl:nil "# This data structure contains the ToolData structure~%# used by the Universal Robots controller~%~%int8 ANALOG_INPUT_RANGE_CURRENT = 0~%int8 ANALOG_INPUT_RANGE_VOLTAGE = 1~%~%int8 analog_input_range2 # one of ANALOG_INPUT_RANGE_*~%int8 analog_input_range3 # one of ANALOG_INPUT_RANGE_*~%float64 analog_input2~%float64 analog_input3~%float32 tool_voltage_48v~%uint8 tool_output_voltage~%float32 tool_current~%float32 tool_temperature~%~%uint8 TOOL_BOOTLOADER_MODE = 249~%uint8 TOOL_RUNNING_MODE = 253~%uint8 TOOL_IDLE_MODE = 255~%~%uint8 tool_mode # one of TOOL_*~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'ToolDataMsg)))
|
||||
"Returns full string definition for message of type 'ToolDataMsg"
|
||||
(cl:format cl:nil "# This data structure contains the ToolData structure~%# used by the Universal Robots controller~%~%int8 ANALOG_INPUT_RANGE_CURRENT = 0~%int8 ANALOG_INPUT_RANGE_VOLTAGE = 1~%~%int8 analog_input_range2 # one of ANALOG_INPUT_RANGE_*~%int8 analog_input_range3 # one of ANALOG_INPUT_RANGE_*~%float64 analog_input2~%float64 analog_input3~%float32 tool_voltage_48v~%uint8 tool_output_voltage~%float32 tool_current~%float32 tool_temperature~%~%uint8 TOOL_BOOTLOADER_MODE = 249~%uint8 TOOL_RUNNING_MODE = 253~%uint8 TOOL_IDLE_MODE = 255~%~%uint8 tool_mode # one of TOOL_*~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <ToolDataMsg>))
|
||||
(cl:+ 0
|
||||
1
|
||||
1
|
||||
8
|
||||
8
|
||||
4
|
||||
1
|
||||
4
|
||||
4
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <ToolDataMsg>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'ToolDataMsg
|
||||
(cl:cons ':analog_input_range2 (analog_input_range2 msg))
|
||||
(cl:cons ':analog_input_range3 (analog_input_range3 msg))
|
||||
(cl:cons ':analog_input2 (analog_input2 msg))
|
||||
(cl:cons ':analog_input3 (analog_input3 msg))
|
||||
(cl:cons ':tool_voltage_48v (tool_voltage_48v msg))
|
||||
(cl:cons ':tool_output_voltage (tool_output_voltage msg))
|
||||
(cl:cons ':tool_current (tool_current msg))
|
||||
(cl:cons ':tool_temperature (tool_temperature msg))
|
||||
(cl:cons ':tool_mode (tool_mode msg))
|
||||
))
|
||||
Reference in New Issue
Block a user