/usr/share/common-lisp/ros/bond/msg/Status.lisp is in cl-bond 1.7.18-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 | ; Auto-generated. Do not edit!
(cl:in-package bond-msg)
;//! \htmlinclude Status.msg.html
(cl:defclass <Status> (roslisp-msg-protocol:ros-message)
((header
:reader header
:initarg :header
:type std_msgs-msg:Header
:initform (cl:make-instance 'std_msgs-msg:Header))
(id
:reader id
:initarg :id
:type cl:string
:initform "")
(instance_id
:reader instance_id
:initarg :instance_id
:type cl:string
:initform "")
(active
:reader active
:initarg :active
:type cl:boolean
:initform cl:nil)
(heartbeat_timeout
:reader heartbeat_timeout
:initarg :heartbeat_timeout
:type cl:float
:initform 0.0)
(heartbeat_period
:reader heartbeat_period
:initarg :heartbeat_period
:type cl:float
:initform 0.0))
)
(cl:defclass Status (<Status>)
())
(cl:defmethod cl:initialize-instance :after ((m <Status>) cl:&rest args)
(cl:declare (cl:ignorable args))
(cl:unless (cl:typep m 'Status)
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name bond-msg:<Status> is deprecated: use bond-msg:Status instead.")))
(cl:ensure-generic-function 'header-val :lambda-list '(m))
(cl:defmethod header-val ((m <Status>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader bond-msg:header-val is deprecated. Use bond-msg:header instead.")
(header m))
(cl:ensure-generic-function 'id-val :lambda-list '(m))
(cl:defmethod id-val ((m <Status>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader bond-msg:id-val is deprecated. Use bond-msg:id instead.")
(id m))
(cl:ensure-generic-function 'instance_id-val :lambda-list '(m))
(cl:defmethod instance_id-val ((m <Status>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader bond-msg:instance_id-val is deprecated. Use bond-msg:instance_id instead.")
(instance_id m))
(cl:ensure-generic-function 'active-val :lambda-list '(m))
(cl:defmethod active-val ((m <Status>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader bond-msg:active-val is deprecated. Use bond-msg:active instead.")
(active m))
(cl:ensure-generic-function 'heartbeat_timeout-val :lambda-list '(m))
(cl:defmethod heartbeat_timeout-val ((m <Status>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader bond-msg:heartbeat_timeout-val is deprecated. Use bond-msg:heartbeat_timeout instead.")
(heartbeat_timeout m))
(cl:ensure-generic-function 'heartbeat_period-val :lambda-list '(m))
(cl:defmethod heartbeat_period-val ((m <Status>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader bond-msg:heartbeat_period-val is deprecated. Use bond-msg:heartbeat_period instead.")
(heartbeat_period m))
(cl:defmethod roslisp-msg-protocol:serialize ((msg <Status>) ostream)
"Serializes a message object of type '<Status>"
(roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream)
(cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'id))))
(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 'id))
(cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'instance_id))))
(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 'instance_id))
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'active) 1 0)) ostream)
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'heartbeat_timeout))))
(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 'heartbeat_period))))
(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 <Status>) istream)
"Deserializes a message object of type '<Status>"
(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 'id) (cl:make-string __ros_str_len))
(cl:dotimes (__ros_str_idx __ros_str_len msg)
(cl:setf (cl:char (cl:slot-value msg 'id) __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 'instance_id) (cl:make-string __ros_str_len))
(cl:dotimes (__ros_str_idx __ros_str_len msg)
(cl:setf (cl:char (cl:slot-value msg 'instance_id) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
(cl:setf (cl:slot-value msg 'active) (cl:not (cl:zerop (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 'heartbeat_timeout) (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 'heartbeat_period) (roslisp-utils:decode-single-float-bits bits)))
msg
)
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Status>)))
"Returns string type for a message object of type '<Status>"
"bond/Status")
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Status)))
"Returns string type for a message object of type 'Status"
"bond/Status")
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Status>)))
"Returns md5sum for a message object of type '<Status>"
"eacc84bf5d65b6777d4c50f463dfb9c8")
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Status)))
"Returns md5sum for a message object of type 'Status"
"eacc84bf5d65b6777d4c50f463dfb9c8")
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Status>)))
"Returns full string definition for message of type '<Status>"
(cl:format cl:nil "Header header~%string id # ID of the bond~%string instance_id # Unique ID for an individual in a bond~%bool active~%~%# Including the timeouts for the bond makes it easier to debug mis-matches~%# between the two sides.~%float32 heartbeat_timeout~%float32 heartbeat_period~%================================================================================~%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 'Status)))
"Returns full string definition for message of type 'Status"
(cl:format cl:nil "Header header~%string id # ID of the bond~%string instance_id # Unique ID for an individual in a bond~%bool active~%~%# Including the timeouts for the bond makes it easier to debug mis-matches~%# between the two sides.~%float32 heartbeat_timeout~%float32 heartbeat_period~%================================================================================~%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 <Status>))
(cl:+ 0
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header))
4 (cl:length (cl:slot-value msg 'id))
4 (cl:length (cl:slot-value msg 'instance_id))
1
4
4
))
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Status>))
"Converts a ROS message object to a list"
(cl:list 'Status
(cl:cons ':header (header msg))
(cl:cons ':id (id msg))
(cl:cons ':instance_id (instance_id msg))
(cl:cons ':active (active msg))
(cl:cons ':heartbeat_timeout (heartbeat_timeout msg))
(cl:cons ':heartbeat_period (heartbeat_period msg))
))
|