/usr/share/common-lisp/ros/sensor_msgs/msg/Range.lisp is in cl-sensor-msgs 1.12.5-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 177 178 179 180 | ; Auto-generated. Do not edit!
(cl:in-package sensor_msgs-msg)
;//! \htmlinclude Range.msg.html
(cl:defclass <Range> (roslisp-msg-protocol:ros-message)
((header
:reader header
:initarg :header
:type std_msgs-msg:Header
:initform (cl:make-instance 'std_msgs-msg:Header))
(radiation_type
:reader radiation_type
:initarg :radiation_type
:type cl:fixnum
:initform 0)
(field_of_view
:reader field_of_view
:initarg :field_of_view
:type cl:float
:initform 0.0)
(min_range
:reader min_range
:initarg :min_range
:type cl:float
:initform 0.0)
(max_range
:reader max_range
:initarg :max_range
:type cl:float
:initform 0.0)
(range
:reader range
:initarg :range
:type cl:float
:initform 0.0))
)
(cl:defclass Range (<Range>)
())
(cl:defmethod cl:initialize-instance :after ((m <Range>) cl:&rest args)
(cl:declare (cl:ignorable args))
(cl:unless (cl:typep m 'Range)
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name sensor_msgs-msg:<Range> is deprecated: use sensor_msgs-msg:Range instead.")))
(cl:ensure-generic-function 'header-val :lambda-list '(m))
(cl:defmethod header-val ((m <Range>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader sensor_msgs-msg:header-val is deprecated. Use sensor_msgs-msg:header instead.")
(header m))
(cl:ensure-generic-function 'radiation_type-val :lambda-list '(m))
(cl:defmethod radiation_type-val ((m <Range>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader sensor_msgs-msg:radiation_type-val is deprecated. Use sensor_msgs-msg:radiation_type instead.")
(radiation_type m))
(cl:ensure-generic-function 'field_of_view-val :lambda-list '(m))
(cl:defmethod field_of_view-val ((m <Range>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader sensor_msgs-msg:field_of_view-val is deprecated. Use sensor_msgs-msg:field_of_view instead.")
(field_of_view m))
(cl:ensure-generic-function 'min_range-val :lambda-list '(m))
(cl:defmethod min_range-val ((m <Range>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader sensor_msgs-msg:min_range-val is deprecated. Use sensor_msgs-msg:min_range instead.")
(min_range m))
(cl:ensure-generic-function 'max_range-val :lambda-list '(m))
(cl:defmethod max_range-val ((m <Range>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader sensor_msgs-msg:max_range-val is deprecated. Use sensor_msgs-msg:max_range instead.")
(max_range m))
(cl:ensure-generic-function 'range-val :lambda-list '(m))
(cl:defmethod range-val ((m <Range>))
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader sensor_msgs-msg:range-val is deprecated. Use sensor_msgs-msg:range instead.")
(range m))
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql '<Range>)))
"Constants for message type '<Range>"
'((:ULTRASOUND . 0)
(:INFRARED . 1))
)
(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql 'Range)))
"Constants for message type 'Range"
'((:ULTRASOUND . 0)
(:INFRARED . 1))
)
(cl:defmethod roslisp-msg-protocol:serialize ((msg <Range>) ostream)
"Serializes a message object of type '<Range>"
(roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream)
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'radiation_type)) ostream)
(cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'field_of_view))))
(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 'min_range))))
(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 'max_range))))
(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 'range))))
(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 <Range>) istream)
"Deserializes a message object of type '<Range>"
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) istream)
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'radiation_type)) (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 'field_of_view) (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 'min_range) (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 'max_range) (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 'range) (roslisp-utils:decode-single-float-bits bits)))
msg
)
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Range>)))
"Returns string type for a message object of type '<Range>"
"sensor_msgs/Range")
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Range)))
"Returns string type for a message object of type 'Range"
"sensor_msgs/Range")
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Range>)))
"Returns md5sum for a message object of type '<Range>"
"c005c34273dc426c67a020a87bc24148")
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Range)))
"Returns md5sum for a message object of type 'Range"
"c005c34273dc426c67a020a87bc24148")
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Range>)))
"Returns full string definition for message of type '<Range>"
(cl:format cl:nil "# Single range reading from an active ranger that emits energy and reports~%# one range reading that is valid along an arc at the distance measured. ~%# This message is not appropriate for laser scanners. See the LaserScan~%# message if you are working with a laser scanner.~%~%# This message also can represent a fixed-distance (binary) ranger. This~%# sensor will have min_range===max_range===distance of detection.~%# These sensors follow REP 117 and will output -Inf if the object is detected~%# and +Inf if the object is outside of the detection range.~%~%Header header # timestamp in the header is the time the ranger~% # returned the distance reading~%~%# Radiation type enums~%# If you want a value added to this list, send an email to the ros-users list~%uint8 ULTRASOUND=0~%uint8 INFRARED=1~%~%uint8 radiation_type # the type of radiation used by the sensor~% # (sound, IR, etc) [enum]~%~%float32 field_of_view # the size of the arc that the distance reading is~% # valid for [rad]~% # the object causing the range reading may have~% # been anywhere within -field_of_view/2 and~% # field_of_view/2 at the measured range. ~% # 0 angle corresponds to the x-axis of the sensor.~%~%float32 min_range # minimum range value [m]~%float32 max_range # maximum range value [m]~% # Fixed distance rangers require min_range==max_range~%~%float32 range # range data [m]~% # (Note: values < range_min or > range_max~% # should be discarded)~% # Fixed distance rangers only output -Inf or +Inf.~% # -Inf represents a detection within fixed distance.~% # (Detection too close to the sensor to quantify)~% # +Inf represents no detection within the fixed distance.~% # (Object out of range)~%================================================================================~%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 'Range)))
"Returns full string definition for message of type 'Range"
(cl:format cl:nil "# Single range reading from an active ranger that emits energy and reports~%# one range reading that is valid along an arc at the distance measured. ~%# This message is not appropriate for laser scanners. See the LaserScan~%# message if you are working with a laser scanner.~%~%# This message also can represent a fixed-distance (binary) ranger. This~%# sensor will have min_range===max_range===distance of detection.~%# These sensors follow REP 117 and will output -Inf if the object is detected~%# and +Inf if the object is outside of the detection range.~%~%Header header # timestamp in the header is the time the ranger~% # returned the distance reading~%~%# Radiation type enums~%# If you want a value added to this list, send an email to the ros-users list~%uint8 ULTRASOUND=0~%uint8 INFRARED=1~%~%uint8 radiation_type # the type of radiation used by the sensor~% # (sound, IR, etc) [enum]~%~%float32 field_of_view # the size of the arc that the distance reading is~% # valid for [rad]~% # the object causing the range reading may have~% # been anywhere within -field_of_view/2 and~% # field_of_view/2 at the measured range. ~% # 0 angle corresponds to the x-axis of the sensor.~%~%float32 min_range # minimum range value [m]~%float32 max_range # maximum range value [m]~% # Fixed distance rangers require min_range==max_range~%~%float32 range # range data [m]~% # (Note: values < range_min or > range_max~% # should be discarded)~% # Fixed distance rangers only output -Inf or +Inf.~% # -Inf represents a detection within fixed distance.~% # (Detection too close to the sensor to quantify)~% # +Inf represents no detection within the fixed distance.~% # (Object out of range)~%================================================================================~%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 <Range>))
(cl:+ 0
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header))
1
4
4
4
4
))
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Range>))
"Converts a ROS message object to a list"
(cl:list 'Range
(cl:cons ':header (header msg))
(cl:cons ':radiation_type (radiation_type msg))
(cl:cons ':field_of_view (field_of_view msg))
(cl:cons ':min_range (min_range msg))
(cl:cons ':max_range (max_range msg))
(cl:cons ':range (range msg))
))
|