Filet temporaei eliminati prima della ricompilazione
This commit is contained in:
@@ -1,158 +0,0 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package jog_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude JogFrame.msg.html
|
||||
|
||||
(cl:defclass <JogFrame> (roslisp-msg-protocol:ros-message)
|
||||
((header
|
||||
:reader header
|
||||
:initarg :header
|
||||
:type std_msgs-msg:Header
|
||||
:initform (cl:make-instance 'std_msgs-msg:Header))
|
||||
(group_name
|
||||
:reader group_name
|
||||
:initarg :group_name
|
||||
:type cl:string
|
||||
:initform "")
|
||||
(link_name
|
||||
:reader link_name
|
||||
:initarg :link_name
|
||||
:type cl:string
|
||||
:initform "")
|
||||
(linear_delta
|
||||
:reader linear_delta
|
||||
:initarg :linear_delta
|
||||
:type geometry_msgs-msg:Vector3
|
||||
:initform (cl:make-instance 'geometry_msgs-msg:Vector3))
|
||||
(angular_delta
|
||||
:reader angular_delta
|
||||
:initarg :angular_delta
|
||||
:type geometry_msgs-msg:Vector3
|
||||
:initform (cl:make-instance 'geometry_msgs-msg:Vector3))
|
||||
(avoid_collisions
|
||||
:reader avoid_collisions
|
||||
:initarg :avoid_collisions
|
||||
:type cl:boolean
|
||||
:initform cl:nil))
|
||||
)
|
||||
|
||||
(cl:defclass JogFrame (<JogFrame>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <JogFrame>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'JogFrame)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name jog_msgs-msg:<JogFrame> is deprecated: use jog_msgs-msg:JogFrame instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'header-val :lambda-list '(m))
|
||||
(cl:defmethod header-val ((m <JogFrame>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:header-val is deprecated. Use jog_msgs-msg:header instead.")
|
||||
(header m))
|
||||
|
||||
(cl:ensure-generic-function 'group_name-val :lambda-list '(m))
|
||||
(cl:defmethod group_name-val ((m <JogFrame>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:group_name-val is deprecated. Use jog_msgs-msg:group_name instead.")
|
||||
(group_name m))
|
||||
|
||||
(cl:ensure-generic-function 'link_name-val :lambda-list '(m))
|
||||
(cl:defmethod link_name-val ((m <JogFrame>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:link_name-val is deprecated. Use jog_msgs-msg:link_name instead.")
|
||||
(link_name m))
|
||||
|
||||
(cl:ensure-generic-function 'linear_delta-val :lambda-list '(m))
|
||||
(cl:defmethod linear_delta-val ((m <JogFrame>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:linear_delta-val is deprecated. Use jog_msgs-msg:linear_delta instead.")
|
||||
(linear_delta m))
|
||||
|
||||
(cl:ensure-generic-function 'angular_delta-val :lambda-list '(m))
|
||||
(cl:defmethod angular_delta-val ((m <JogFrame>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:angular_delta-val is deprecated. Use jog_msgs-msg:angular_delta instead.")
|
||||
(angular_delta m))
|
||||
|
||||
(cl:ensure-generic-function 'avoid_collisions-val :lambda-list '(m))
|
||||
(cl:defmethod avoid_collisions-val ((m <JogFrame>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:avoid_collisions-val is deprecated. Use jog_msgs-msg:avoid_collisions instead.")
|
||||
(avoid_collisions m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <JogFrame>) ostream)
|
||||
"Serializes a message object of type '<JogFrame>"
|
||||
(roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream)
|
||||
(cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'group_name))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'group_name))
|
||||
(cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'link_name))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'link_name))
|
||||
(roslisp-msg-protocol:serialize (cl:slot-value msg 'linear_delta) ostream)
|
||||
(roslisp-msg-protocol:serialize (cl:slot-value msg 'angular_delta) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'avoid_collisions) 1 0)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <JogFrame>) istream)
|
||||
"Deserializes a message object of type '<JogFrame>"
|
||||
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) istream)
|
||||
(cl:let ((__ros_str_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'group_name) (cl:make-string __ros_str_len))
|
||||
(cl:dotimes (__ros_str_idx __ros_str_len msg)
|
||||
(cl:setf (cl:char (cl:slot-value msg 'group_name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
|
||||
(cl:let ((__ros_str_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'link_name) (cl:make-string __ros_str_len))
|
||||
(cl:dotimes (__ros_str_idx __ros_str_len msg)
|
||||
(cl:setf (cl:char (cl:slot-value msg 'link_name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
|
||||
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'linear_delta) istream)
|
||||
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'angular_delta) istream)
|
||||
(cl:setf (cl:slot-value msg 'avoid_collisions) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<JogFrame>)))
|
||||
"Returns string type for a message object of type '<JogFrame>"
|
||||
"jog_msgs/JogFrame")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'JogFrame)))
|
||||
"Returns string type for a message object of type 'JogFrame"
|
||||
"jog_msgs/JogFrame")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<JogFrame>)))
|
||||
"Returns md5sum for a message object of type '<JogFrame>"
|
||||
"e342f29bf6beaf00261bdae365abfff9")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'JogFrame)))
|
||||
"Returns md5sum for a message object of type 'JogFrame"
|
||||
"e342f29bf6beaf00261bdae365abfff9")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<JogFrame>)))
|
||||
"Returns full string definition for message of type '<JogFrame>"
|
||||
(cl:format cl:nil "# This is a message to hold data to jog by specifying a target~%# frame. It uses MoveIt! kinematics, so you need to specify the~%# JointGroup name to use in group_name. (lienar|angular)_delta is the~%# amount of displacement.~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name of JointGroup of MoveIt!~%string group_name~%~%# Target link name to jog. The link must be in the JoingGroup~%string link_name~%~%# Linear displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in meter.~%geometry_msgs/Vector3 linear_delta~%~%# Angular displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in radian.~%geometry_msgs/Vector3 angular_delta~%~%# It uses avoid_collisions option of MoveIt! kinematics. If it is~%# true, the robot doesn't move if any collisions occured.~%bool avoid_collisions~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%================================================================================~%MSG: geometry_msgs/Vector3~%# This represents a vector in free space. ~%# It is only meant to represent a direction. Therefore, it does not~%# make sense to apply a translation to it (e.g., when applying a ~%# generic rigid transformation to a Vector3, tf2 will only apply the~%# rotation). If you want your data to be translatable too, use the~%# geometry_msgs/Point message instead.~%~%float64 x~%float64 y~%float64 z~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'JogFrame)))
|
||||
"Returns full string definition for message of type 'JogFrame"
|
||||
(cl:format cl:nil "# This is a message to hold data to jog by specifying a target~%# frame. It uses MoveIt! kinematics, so you need to specify the~%# JointGroup name to use in group_name. (lienar|angular)_delta is the~%# amount of displacement.~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name of JointGroup of MoveIt!~%string group_name~%~%# Target link name to jog. The link must be in the JoingGroup~%string link_name~%~%# Linear displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in meter.~%geometry_msgs/Vector3 linear_delta~%~%# Angular displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in radian.~%geometry_msgs/Vector3 angular_delta~%~%# It uses avoid_collisions option of MoveIt! kinematics. If it is~%# true, the robot doesn't move if any collisions occured.~%bool avoid_collisions~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%================================================================================~%MSG: geometry_msgs/Vector3~%# This represents a vector in free space. ~%# It is only meant to represent a direction. Therefore, it does not~%# make sense to apply a translation to it (e.g., when applying a ~%# generic rigid transformation to a Vector3, tf2 will only apply the~%# rotation). If you want your data to be translatable too, use the~%# geometry_msgs/Point message instead.~%~%float64 x~%float64 y~%float64 z~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <JogFrame>))
|
||||
(cl:+ 0
|
||||
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header))
|
||||
4 (cl:length (cl:slot-value msg 'group_name))
|
||||
4 (cl:length (cl:slot-value msg 'link_name))
|
||||
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'linear_delta))
|
||||
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'angular_delta))
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <JogFrame>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'JogFrame
|
||||
(cl:cons ':header (header msg))
|
||||
(cl:cons ':group_name (group_name msg))
|
||||
(cl:cons ':link_name (link_name msg))
|
||||
(cl:cons ':linear_delta (linear_delta msg))
|
||||
(cl:cons ':angular_delta (angular_delta msg))
|
||||
(cl:cons ':avoid_collisions (avoid_collisions msg))
|
||||
))
|
||||
@@ -1,149 +0,0 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package jog_msgs-msg)
|
||||
|
||||
|
||||
;//! \htmlinclude JogJoint.msg.html
|
||||
|
||||
(cl:defclass <JogJoint> (roslisp-msg-protocol:ros-message)
|
||||
((header
|
||||
:reader header
|
||||
:initarg :header
|
||||
:type std_msgs-msg:Header
|
||||
:initform (cl:make-instance 'std_msgs-msg:Header))
|
||||
(joint_names
|
||||
:reader joint_names
|
||||
:initarg :joint_names
|
||||
:type (cl:vector cl:string)
|
||||
:initform (cl:make-array 0 :element-type 'cl:string :initial-element ""))
|
||||
(deltas
|
||||
:reader deltas
|
||||
:initarg :deltas
|
||||
:type (cl:vector cl:float)
|
||||
:initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0)))
|
||||
)
|
||||
|
||||
(cl:defclass JogJoint (<JogJoint>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <JogJoint>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'JogJoint)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name jog_msgs-msg:<JogJoint> is deprecated: use jog_msgs-msg:JogJoint instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'header-val :lambda-list '(m))
|
||||
(cl:defmethod header-val ((m <JogJoint>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:header-val is deprecated. Use jog_msgs-msg:header instead.")
|
||||
(header m))
|
||||
|
||||
(cl:ensure-generic-function 'joint_names-val :lambda-list '(m))
|
||||
(cl:defmethod joint_names-val ((m <JogJoint>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:joint_names-val is deprecated. Use jog_msgs-msg:joint_names instead.")
|
||||
(joint_names m))
|
||||
|
||||
(cl:ensure-generic-function 'deltas-val :lambda-list '(m))
|
||||
(cl:defmethod deltas-val ((m <JogJoint>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:deltas-val is deprecated. Use jog_msgs-msg:deltas instead.")
|
||||
(deltas m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <JogJoint>) ostream)
|
||||
"Serializes a message object of type '<JogJoint>"
|
||||
(roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream)
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'joint_names))))
|
||||
(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 ((__ros_str_len (cl:length ele)))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
|
||||
(cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) ele))
|
||||
(cl:slot-value msg 'joint_names))
|
||||
(cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'deltas))))
|
||||
(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 'deltas))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <JogJoint>) istream)
|
||||
"Deserializes a message object of type '<JogJoint>"
|
||||
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) 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 'joint_names) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'joint_names)))
|
||||
(cl:dotimes (i __ros_arr_len)
|
||||
(cl:let ((__ros_str_len 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
|
||||
(cl:setf (cl:aref vals i) (cl:make-string __ros_str_len))
|
||||
(cl:dotimes (__ros_str_idx __ros_str_len msg)
|
||||
(cl:setf (cl:char (cl:aref vals i) __ros_str_idx) (cl:code-char (cl:read-byte 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 'deltas) (cl:make-array __ros_arr_len))
|
||||
(cl:let ((vals (cl:slot-value msg 'deltas)))
|
||||
(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 '<JogJoint>)))
|
||||
"Returns string type for a message object of type '<JogJoint>"
|
||||
"jog_msgs/JogJoint")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'JogJoint)))
|
||||
"Returns string type for a message object of type 'JogJoint"
|
||||
"jog_msgs/JogJoint")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<JogJoint>)))
|
||||
"Returns md5sum for a message object of type '<JogJoint>"
|
||||
"8d2aa14be64b51cf6374d198bfd489b2")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'JogJoint)))
|
||||
"Returns md5sum for a message object of type 'JogJoint"
|
||||
"8d2aa14be64b51cf6374d198bfd489b2")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<JogJoint>)))
|
||||
"Returns full string definition for message of type '<JogJoint>"
|
||||
(cl:format cl:nil "# This is a message to hold data to jog by specifying joint~%# displacement. You only need to set relative displacement to joint~%# angles (or displacements for linear joints).~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name list of the joints. You don't need to specify all joint of the~%# robot. Joint names are case-sensitive.~%string[] joint_names~%~%# Relative displacement of the joints to jog. The order must be~%# identical to joint_names. Unit is in radian for revolutive joints,~%# meter for linear joints.~%float64[] deltas~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'JogJoint)))
|
||||
"Returns full string definition for message of type 'JogJoint"
|
||||
(cl:format cl:nil "# This is a message to hold data to jog by specifying joint~%# displacement. You only need to set relative displacement to joint~%# angles (or displacements for linear joints).~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name list of the joints. You don't need to specify all joint of the~%# robot. Joint names are case-sensitive.~%string[] joint_names~%~%# Relative displacement of the joints to jog. The order must be~%# identical to joint_names. Unit is in radian for revolutive joints,~%# meter for linear joints.~%float64[] deltas~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <JogJoint>))
|
||||
(cl:+ 0
|
||||
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'joint_names) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 4 (cl:length ele))))
|
||||
4 (cl:reduce #'cl:+ (cl:slot-value msg 'deltas) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <JogJoint>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'JogJoint
|
||||
(cl:cons ':header (header msg))
|
||||
(cl:cons ':joint_names (joint_names msg))
|
||||
(cl:cons ':deltas (deltas msg))
|
||||
))
|
||||
@@ -1,111 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,78 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,195 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,406 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,176 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,835 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,261 +0,0 @@
|
||||
; 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))
|
||||
))
|
||||
@@ -1,198 +0,0 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-srv)
|
||||
|
||||
|
||||
;//! \htmlinclude SetIO-request.msg.html
|
||||
|
||||
(cl:defclass <SetIO-request> (roslisp-msg-protocol:ros-message)
|
||||
((fun
|
||||
:reader fun
|
||||
:initarg :fun
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(pin
|
||||
:reader pin
|
||||
:initarg :pin
|
||||
:type cl:fixnum
|
||||
:initform 0)
|
||||
(state
|
||||
:reader state
|
||||
:initarg :state
|
||||
:type cl:float
|
||||
:initform 0.0))
|
||||
)
|
||||
|
||||
(cl:defclass SetIO-request (<SetIO-request>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <SetIO-request>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'SetIO-request)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetIO-request> is deprecated: use ur_msgs-srv:SetIO-request instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'fun-val :lambda-list '(m))
|
||||
(cl:defmethod fun-val ((m <SetIO-request>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:fun-val is deprecated. Use ur_msgs-srv:fun instead.")
|
||||
(fun m))
|
||||
|
||||
(cl:ensure-generic-function 'pin-val :lambda-list '(m))
|
||||
(cl:defmethod pin-val ((m <SetIO-request>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:pin-val is deprecated. Use ur_msgs-srv:pin instead.")
|
||||
(pin m))
|
||||
|
||||
(cl:ensure-generic-function 'state-val :lambda-list '(m))
|
||||
(cl:defmethod state-val ((m <SetIO-request>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:state-val is deprecated. Use ur_msgs-srv:state instead.")
|
||||
(state m))
|
||||
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql '<SetIO-request>)))
|
||||
"Constants for message type '<SetIO-request>"
|
||||
'((:FUN_SET_DIGITAL_OUT . 1)
|
||||
(:FUN_SET_FLAG . 2)
|
||||
(:FUN_SET_ANALOG_OUT . 3)
|
||||
(:FUN_SET_TOOL_VOLTAGE . 4)
|
||||
(:STATE_OFF . 0)
|
||||
(:STATE_ON . 1)
|
||||
(:STATE_TOOL_VOLTAGE_0V . 0)
|
||||
(:STATE_TOOL_VOLTAGE_12V . 12)
|
||||
(:STATE_TOOL_VOLTAGE_24V . 24))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql 'SetIO-request)))
|
||||
"Constants for message type 'SetIO-request"
|
||||
'((:FUN_SET_DIGITAL_OUT . 1)
|
||||
(:FUN_SET_FLAG . 2)
|
||||
(:FUN_SET_ANALOG_OUT . 3)
|
||||
(:FUN_SET_TOOL_VOLTAGE . 4)
|
||||
(:STATE_OFF . 0)
|
||||
(:STATE_ON . 1)
|
||||
(:STATE_TOOL_VOLTAGE_0V . 0)
|
||||
(:STATE_TOOL_VOLTAGE_12V . 12)
|
||||
(:STATE_TOOL_VOLTAGE_24V . 24))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetIO-request>) ostream)
|
||||
"Serializes a message object of type '<SetIO-request>"
|
||||
(cl:let* ((signed (cl:slot-value msg 'fun)) (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 'pin)) (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-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 <SetIO-request>) istream)
|
||||
"Deserializes a message object of type '<SetIO-request>"
|
||||
(cl:let ((unsigned 0))
|
||||
(cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
|
||||
(cl:setf (cl:slot-value msg 'fun) (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 'pin) (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:slot-value msg 'state) (roslisp-utils:decode-single-float-bits bits)))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetIO-request>)))
|
||||
"Returns string type for a service object of type '<SetIO-request>"
|
||||
"ur_msgs/SetIORequest")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetIO-request)))
|
||||
"Returns string type for a service object of type 'SetIO-request"
|
||||
"ur_msgs/SetIORequest")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetIO-request>)))
|
||||
"Returns md5sum for a message object of type '<SetIO-request>"
|
||||
"e1b580ccf43a938f2efbbb98bbe3e277")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetIO-request)))
|
||||
"Returns md5sum for a message object of type 'SetIO-request"
|
||||
"e1b580ccf43a938f2efbbb98bbe3e277")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetIO-request>)))
|
||||
"Returns full string definition for message of type '<SetIO-request>"
|
||||
(cl:format cl:nil "~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%int8 FUN_SET_DIGITAL_OUT = 1~%int8 FUN_SET_FLAG = 2~%int8 FUN_SET_ANALOG_OUT = 3~%int8 FUN_SET_TOOL_VOLTAGE = 4~%~%~%int8 STATE_OFF = 0~%int8 STATE_ON = 1~%~%~%int8 STATE_TOOL_VOLTAGE_0V = 0~%int8 STATE_TOOL_VOLTAGE_12V = 12~%int8 STATE_TOOL_VOLTAGE_24V = 24~%~%~%int8 fun~%int8 pin~%float32 state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetIO-request)))
|
||||
"Returns full string definition for message of type 'SetIO-request"
|
||||
(cl:format cl:nil "~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%int8 FUN_SET_DIGITAL_OUT = 1~%int8 FUN_SET_FLAG = 2~%int8 FUN_SET_ANALOG_OUT = 3~%int8 FUN_SET_TOOL_VOLTAGE = 4~%~%~%int8 STATE_OFF = 0~%int8 STATE_ON = 1~%~%~%int8 STATE_TOOL_VOLTAGE_0V = 0~%int8 STATE_TOOL_VOLTAGE_12V = 12~%int8 STATE_TOOL_VOLTAGE_24V = 24~%~%~%int8 fun~%int8 pin~%float32 state~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetIO-request>))
|
||||
(cl:+ 0
|
||||
1
|
||||
1
|
||||
4
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetIO-request>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'SetIO-request
|
||||
(cl:cons ':fun (fun msg))
|
||||
(cl:cons ':pin (pin msg))
|
||||
(cl:cons ':state (state msg))
|
||||
))
|
||||
;//! \htmlinclude SetIO-response.msg.html
|
||||
|
||||
(cl:defclass <SetIO-response> (roslisp-msg-protocol:ros-message)
|
||||
((success
|
||||
:reader success
|
||||
:initarg :success
|
||||
:type cl:boolean
|
||||
:initform cl:nil))
|
||||
)
|
||||
|
||||
(cl:defclass SetIO-response (<SetIO-response>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <SetIO-response>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'SetIO-response)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetIO-response> is deprecated: use ur_msgs-srv:SetIO-response instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'success-val :lambda-list '(m))
|
||||
(cl:defmethod success-val ((m <SetIO-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:success-val is deprecated. Use ur_msgs-srv:success instead.")
|
||||
(success m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetIO-response>) ostream)
|
||||
"Serializes a message object of type '<SetIO-response>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'success) 1 0)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetIO-response>) istream)
|
||||
"Deserializes a message object of type '<SetIO-response>"
|
||||
(cl:setf (cl:slot-value msg 'success) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetIO-response>)))
|
||||
"Returns string type for a service object of type '<SetIO-response>"
|
||||
"ur_msgs/SetIOResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetIO-response)))
|
||||
"Returns string type for a service object of type 'SetIO-response"
|
||||
"ur_msgs/SetIOResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetIO-response>)))
|
||||
"Returns md5sum for a message object of type '<SetIO-response>"
|
||||
"e1b580ccf43a938f2efbbb98bbe3e277")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetIO-response)))
|
||||
"Returns md5sum for a message object of type 'SetIO-response"
|
||||
"e1b580ccf43a938f2efbbb98bbe3e277")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetIO-response>)))
|
||||
"Returns full string definition for message of type '<SetIO-response>"
|
||||
(cl:format cl:nil "bool success~%~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetIO-response)))
|
||||
"Returns full string definition for message of type 'SetIO-response"
|
||||
(cl:format cl:nil "bool success~%~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetIO-response>))
|
||||
(cl:+ 0
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetIO-response>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'SetIO-response
|
||||
(cl:cons ':success (success msg))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'SetIO)))
|
||||
'SetIO-request)
|
||||
(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'SetIO)))
|
||||
'SetIO-response)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetIO)))
|
||||
"Returns string type for a service object of type '<SetIO>"
|
||||
"ur_msgs/SetIO")
|
||||
@@ -1,138 +0,0 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-srv)
|
||||
|
||||
|
||||
;//! \htmlinclude SetPayload-request.msg.html
|
||||
|
||||
(cl:defclass <SetPayload-request> (roslisp-msg-protocol:ros-message)
|
||||
((payload
|
||||
:reader payload
|
||||
:initarg :payload
|
||||
:type cl:float
|
||||
:initform 0.0))
|
||||
)
|
||||
|
||||
(cl:defclass SetPayload-request (<SetPayload-request>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <SetPayload-request>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'SetPayload-request)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetPayload-request> is deprecated: use ur_msgs-srv:SetPayload-request instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'payload-val :lambda-list '(m))
|
||||
(cl:defmethod payload-val ((m <SetPayload-request>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:payload-val is deprecated. Use ur_msgs-srv:payload instead.")
|
||||
(payload m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetPayload-request>) ostream)
|
||||
"Serializes a message object of type '<SetPayload-request>"
|
||||
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'payload))))
|
||||
(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 <SetPayload-request>) istream)
|
||||
"Deserializes a message object of type '<SetPayload-request>"
|
||||
(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 'payload) (roslisp-utils:decode-single-float-bits bits)))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetPayload-request>)))
|
||||
"Returns string type for a service object of type '<SetPayload-request>"
|
||||
"ur_msgs/SetPayloadRequest")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetPayload-request)))
|
||||
"Returns string type for a service object of type 'SetPayload-request"
|
||||
"ur_msgs/SetPayloadRequest")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetPayload-request>)))
|
||||
"Returns md5sum for a message object of type '<SetPayload-request>"
|
||||
"7f12eb632882cb73e5721178d0073e39")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetPayload-request)))
|
||||
"Returns md5sum for a message object of type 'SetPayload-request"
|
||||
"7f12eb632882cb73e5721178d0073e39")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetPayload-request>)))
|
||||
"Returns full string definition for message of type '<SetPayload-request>"
|
||||
(cl:format cl:nil "float32 payload~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetPayload-request)))
|
||||
"Returns full string definition for message of type 'SetPayload-request"
|
||||
(cl:format cl:nil "float32 payload~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetPayload-request>))
|
||||
(cl:+ 0
|
||||
4
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetPayload-request>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'SetPayload-request
|
||||
(cl:cons ':payload (payload msg))
|
||||
))
|
||||
;//! \htmlinclude SetPayload-response.msg.html
|
||||
|
||||
(cl:defclass <SetPayload-response> (roslisp-msg-protocol:ros-message)
|
||||
((success
|
||||
:reader success
|
||||
:initarg :success
|
||||
:type cl:boolean
|
||||
:initform cl:nil))
|
||||
)
|
||||
|
||||
(cl:defclass SetPayload-response (<SetPayload-response>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <SetPayload-response>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'SetPayload-response)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetPayload-response> is deprecated: use ur_msgs-srv:SetPayload-response instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'success-val :lambda-list '(m))
|
||||
(cl:defmethod success-val ((m <SetPayload-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:success-val is deprecated. Use ur_msgs-srv:success instead.")
|
||||
(success m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetPayload-response>) ostream)
|
||||
"Serializes a message object of type '<SetPayload-response>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'success) 1 0)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetPayload-response>) istream)
|
||||
"Deserializes a message object of type '<SetPayload-response>"
|
||||
(cl:setf (cl:slot-value msg 'success) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetPayload-response>)))
|
||||
"Returns string type for a service object of type '<SetPayload-response>"
|
||||
"ur_msgs/SetPayloadResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetPayload-response)))
|
||||
"Returns string type for a service object of type 'SetPayload-response"
|
||||
"ur_msgs/SetPayloadResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetPayload-response>)))
|
||||
"Returns md5sum for a message object of type '<SetPayload-response>"
|
||||
"7f12eb632882cb73e5721178d0073e39")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetPayload-response)))
|
||||
"Returns md5sum for a message object of type 'SetPayload-response"
|
||||
"7f12eb632882cb73e5721178d0073e39")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetPayload-response>)))
|
||||
"Returns full string definition for message of type '<SetPayload-response>"
|
||||
(cl:format cl:nil "bool success~%~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetPayload-response)))
|
||||
"Returns full string definition for message of type 'SetPayload-response"
|
||||
(cl:format cl:nil "bool success~%~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetPayload-response>))
|
||||
(cl:+ 0
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetPayload-response>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'SetPayload-response
|
||||
(cl:cons ':success (success msg))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'SetPayload)))
|
||||
'SetPayload-request)
|
||||
(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'SetPayload)))
|
||||
'SetPayload-response)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetPayload)))
|
||||
"Returns string type for a service object of type '<SetPayload>"
|
||||
"ur_msgs/SetPayload")
|
||||
@@ -1,146 +0,0 @@
|
||||
; Auto-generated. Do not edit!
|
||||
|
||||
|
||||
(cl:in-package ur_msgs-srv)
|
||||
|
||||
|
||||
;//! \htmlinclude SetSpeedSliderFraction-request.msg.html
|
||||
|
||||
(cl:defclass <SetSpeedSliderFraction-request> (roslisp-msg-protocol:ros-message)
|
||||
((speed_slider_fraction
|
||||
:reader speed_slider_fraction
|
||||
:initarg :speed_slider_fraction
|
||||
:type cl:float
|
||||
:initform 0.0))
|
||||
)
|
||||
|
||||
(cl:defclass SetSpeedSliderFraction-request (<SetSpeedSliderFraction-request>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <SetSpeedSliderFraction-request>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'SetSpeedSliderFraction-request)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetSpeedSliderFraction-request> is deprecated: use ur_msgs-srv:SetSpeedSliderFraction-request instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'speed_slider_fraction-val :lambda-list '(m))
|
||||
(cl:defmethod speed_slider_fraction-val ((m <SetSpeedSliderFraction-request>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:speed_slider_fraction-val is deprecated. Use ur_msgs-srv:speed_slider_fraction instead.")
|
||||
(speed_slider_fraction m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetSpeedSliderFraction-request>) ostream)
|
||||
"Serializes a message object of type '<SetSpeedSliderFraction-request>"
|
||||
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'speed_slider_fraction))))
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetSpeedSliderFraction-request>) istream)
|
||||
"Deserializes a message object of type '<SetSpeedSliderFraction-request>"
|
||||
(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 'speed_slider_fraction) (roslisp-utils:decode-double-float-bits bits)))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetSpeedSliderFraction-request>)))
|
||||
"Returns string type for a service object of type '<SetSpeedSliderFraction-request>"
|
||||
"ur_msgs/SetSpeedSliderFractionRequest")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetSpeedSliderFraction-request)))
|
||||
"Returns string type for a service object of type 'SetSpeedSliderFraction-request"
|
||||
"ur_msgs/SetSpeedSliderFractionRequest")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetSpeedSliderFraction-request>)))
|
||||
"Returns md5sum for a message object of type '<SetSpeedSliderFraction-request>"
|
||||
"172aeb6c49379a44cf68480fa5bfad3c")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetSpeedSliderFraction-request)))
|
||||
"Returns md5sum for a message object of type 'SetSpeedSliderFraction-request"
|
||||
"172aeb6c49379a44cf68480fa5bfad3c")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetSpeedSliderFraction-request>)))
|
||||
"Returns full string definition for message of type '<SetSpeedSliderFraction-request>"
|
||||
(cl:format cl:nil "~%~%~%~%~%float64 speed_slider_fraction~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetSpeedSliderFraction-request)))
|
||||
"Returns full string definition for message of type 'SetSpeedSliderFraction-request"
|
||||
(cl:format cl:nil "~%~%~%~%~%float64 speed_slider_fraction~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetSpeedSliderFraction-request>))
|
||||
(cl:+ 0
|
||||
8
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetSpeedSliderFraction-request>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'SetSpeedSliderFraction-request
|
||||
(cl:cons ':speed_slider_fraction (speed_slider_fraction msg))
|
||||
))
|
||||
;//! \htmlinclude SetSpeedSliderFraction-response.msg.html
|
||||
|
||||
(cl:defclass <SetSpeedSliderFraction-response> (roslisp-msg-protocol:ros-message)
|
||||
((success
|
||||
:reader success
|
||||
:initarg :success
|
||||
:type cl:boolean
|
||||
:initform cl:nil))
|
||||
)
|
||||
|
||||
(cl:defclass SetSpeedSliderFraction-response (<SetSpeedSliderFraction-response>)
|
||||
())
|
||||
|
||||
(cl:defmethod cl:initialize-instance :after ((m <SetSpeedSliderFraction-response>) cl:&rest args)
|
||||
(cl:declare (cl:ignorable args))
|
||||
(cl:unless (cl:typep m 'SetSpeedSliderFraction-response)
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetSpeedSliderFraction-response> is deprecated: use ur_msgs-srv:SetSpeedSliderFraction-response instead.")))
|
||||
|
||||
(cl:ensure-generic-function 'success-val :lambda-list '(m))
|
||||
(cl:defmethod success-val ((m <SetSpeedSliderFraction-response>))
|
||||
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:success-val is deprecated. Use ur_msgs-srv:success instead.")
|
||||
(success m))
|
||||
(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetSpeedSliderFraction-response>) ostream)
|
||||
"Serializes a message object of type '<SetSpeedSliderFraction-response>"
|
||||
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'success) 1 0)) ostream)
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetSpeedSliderFraction-response>) istream)
|
||||
"Deserializes a message object of type '<SetSpeedSliderFraction-response>"
|
||||
(cl:setf (cl:slot-value msg 'success) (cl:not (cl:zerop (cl:read-byte istream))))
|
||||
msg
|
||||
)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetSpeedSliderFraction-response>)))
|
||||
"Returns string type for a service object of type '<SetSpeedSliderFraction-response>"
|
||||
"ur_msgs/SetSpeedSliderFractionResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetSpeedSliderFraction-response)))
|
||||
"Returns string type for a service object of type 'SetSpeedSliderFraction-response"
|
||||
"ur_msgs/SetSpeedSliderFractionResponse")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetSpeedSliderFraction-response>)))
|
||||
"Returns md5sum for a message object of type '<SetSpeedSliderFraction-response>"
|
||||
"172aeb6c49379a44cf68480fa5bfad3c")
|
||||
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetSpeedSliderFraction-response)))
|
||||
"Returns md5sum for a message object of type 'SetSpeedSliderFraction-response"
|
||||
"172aeb6c49379a44cf68480fa5bfad3c")
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetSpeedSliderFraction-response>)))
|
||||
"Returns full string definition for message of type '<SetSpeedSliderFraction-response>"
|
||||
(cl:format cl:nil "bool success~%~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetSpeedSliderFraction-response)))
|
||||
"Returns full string definition for message of type 'SetSpeedSliderFraction-response"
|
||||
(cl:format cl:nil "bool success~%~%~%~%"))
|
||||
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetSpeedSliderFraction-response>))
|
||||
(cl:+ 0
|
||||
1
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetSpeedSliderFraction-response>))
|
||||
"Converts a ROS message object to a list"
|
||||
(cl:list 'SetSpeedSliderFraction-response
|
||||
(cl:cons ':success (success msg))
|
||||
))
|
||||
(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'SetSpeedSliderFraction)))
|
||||
'SetSpeedSliderFraction-request)
|
||||
(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'SetSpeedSliderFraction)))
|
||||
'SetSpeedSliderFraction-response)
|
||||
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetSpeedSliderFraction)))
|
||||
"Returns string type for a service object of type '<SetSpeedSliderFraction>"
|
||||
"ur_msgs/SetSpeedSliderFraction")
|
||||
Reference in New Issue
Block a user