root / vision / msg_gen / lisp / TargetDescriptor.lisp @ 06738945
History | View | Annotate | Download (8.7 KB)
1 |
; Auto-generated. Do not edit! |
---|---|
2 |
|
3 |
|
4 |
(cl:in-package vision-msg) |
5 |
|
6 |
|
7 |
;//! \htmlinclude TargetDescriptor.msg.html |
8 |
|
9 |
(cl:defclass <TargetDescriptor> (roslisp-msg-protocol:ros-message) |
10 |
((header |
11 |
:reader header |
12 |
:initarg :header |
13 |
:type std_msgs-msg:Header |
14 |
:initform (cl:make-instance 'std_msgs-msg:Header)) |
15 |
(x |
16 |
:reader x |
17 |
:initarg :x |
18 |
:type cl:float |
19 |
:initform 0.0) |
20 |
(y |
21 |
:reader y |
22 |
:initarg :y |
23 |
:type cl:float |
24 |
:initform 0.0) |
25 |
(size |
26 |
:reader size |
27 |
:initarg :size |
28 |
:type cl:float |
29 |
:initform 0.0)) |
30 |
) |
31 |
|
32 |
(cl:defclass TargetDescriptor (<TargetDescriptor>) |
33 |
()) |
34 |
|
35 |
(cl:defmethod cl:initialize-instance :after ((m <TargetDescriptor>) cl:&rest args) |
36 |
(cl:declare (cl:ignorable args)) |
37 |
(cl:unless (cl:typep m 'TargetDescriptor) |
38 |
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name vision-msg:<TargetDescriptor> is deprecated: use vision-msg:TargetDescriptor instead."))) |
39 |
|
40 |
(cl:ensure-generic-function 'header-val :lambda-list '(m)) |
41 |
(cl:defmethod header-val ((m <TargetDescriptor>)) |
42 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader vision-msg:header-val is deprecated. Use vision-msg:header instead.") |
43 |
(header m)) |
44 |
|
45 |
(cl:ensure-generic-function 'x-val :lambda-list '(m)) |
46 |
(cl:defmethod x-val ((m <TargetDescriptor>)) |
47 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader vision-msg:x-val is deprecated. Use vision-msg:x instead.") |
48 |
(x m)) |
49 |
|
50 |
(cl:ensure-generic-function 'y-val :lambda-list '(m)) |
51 |
(cl:defmethod y-val ((m <TargetDescriptor>)) |
52 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader vision-msg:y-val is deprecated. Use vision-msg:y instead.") |
53 |
(y m)) |
54 |
|
55 |
(cl:ensure-generic-function 'size-val :lambda-list '(m)) |
56 |
(cl:defmethod size-val ((m <TargetDescriptor>)) |
57 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader vision-msg:size-val is deprecated. Use vision-msg:size instead.") |
58 |
(size m)) |
59 |
(cl:defmethod roslisp-msg-protocol:serialize ((msg <TargetDescriptor>) ostream) |
60 |
"Serializes a message object of type '<TargetDescriptor>" |
61 |
(roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream) |
62 |
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'x)))) |
63 |
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream) |
64 |
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream) |
65 |
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream) |
66 |
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream) |
67 |
(cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream) |
68 |
(cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream) |
69 |
(cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream) |
70 |
(cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)) |
71 |
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'y)))) |
72 |
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream) |
73 |
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream) |
74 |
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream) |
75 |
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream) |
76 |
(cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream) |
77 |
(cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream) |
78 |
(cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream) |
79 |
(cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)) |
80 |
(cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'size)))) |
81 |
(cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream) |
82 |
(cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream) |
83 |
(cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream) |
84 |
(cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream) |
85 |
(cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream) |
86 |
(cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream) |
87 |
(cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream) |
88 |
(cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)) |
89 |
) |
90 |
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <TargetDescriptor>) istream) |
91 |
"Deserializes a message object of type '<TargetDescriptor>" |
92 |
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) istream) |
93 |
(cl:let ((bits 0)) |
94 |
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream)) |
95 |
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream)) |
96 |
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream)) |
97 |
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream)) |
98 |
(cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream)) |
99 |
(cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream)) |
100 |
(cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream)) |
101 |
(cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream)) |
102 |
(cl:setf (cl:slot-value msg 'x) (roslisp-utils:decode-double-float-bits bits))) |
103 |
(cl:let ((bits 0)) |
104 |
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream)) |
105 |
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream)) |
106 |
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream)) |
107 |
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream)) |
108 |
(cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream)) |
109 |
(cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream)) |
110 |
(cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream)) |
111 |
(cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream)) |
112 |
(cl:setf (cl:slot-value msg 'y) (roslisp-utils:decode-double-float-bits bits))) |
113 |
(cl:let ((bits 0)) |
114 |
(cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream)) |
115 |
(cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream)) |
116 |
(cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream)) |
117 |
(cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream)) |
118 |
(cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream)) |
119 |
(cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream)) |
120 |
(cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream)) |
121 |
(cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream)) |
122 |
(cl:setf (cl:slot-value msg 'size) (roslisp-utils:decode-double-float-bits bits))) |
123 |
msg |
124 |
) |
125 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<TargetDescriptor>))) |
126 |
"Returns string type for a message object of type '<TargetDescriptor>" |
127 |
"vision/TargetDescriptor") |
128 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'TargetDescriptor))) |
129 |
"Returns string type for a message object of type 'TargetDescriptor" |
130 |
"vision/TargetDescriptor") |
131 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<TargetDescriptor>))) |
132 |
"Returns md5sum for a message object of type '<TargetDescriptor>" |
133 |
"bd12171ec6aa565dd41eff192ff44cfb") |
134 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'TargetDescriptor))) |
135 |
"Returns md5sum for a message object of type 'TargetDescriptor" |
136 |
"bd12171ec6aa565dd41eff192ff44cfb") |
137 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<TargetDescriptor>))) |
138 |
"Returns full string definition for message of type '<TargetDescriptor>" |
139 |
(cl:format cl:nil "Header header~%float64 x~%float64 y~%float64 size~%~%================================================================================~%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.secs: seconds (stamp_secs) since epoch~%# * stamp.nsecs: nanoseconds since stamp_secs~%# 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~%~%~%")) |
140 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'TargetDescriptor))) |
141 |
"Returns full string definition for message of type 'TargetDescriptor" |
142 |
(cl:format cl:nil "Header header~%float64 x~%float64 y~%float64 size~%~%================================================================================~%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.secs: seconds (stamp_secs) since epoch~%# * stamp.nsecs: nanoseconds since stamp_secs~%# 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~%~%~%")) |
143 |
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <TargetDescriptor>)) |
144 |
(cl:+ 0 |
145 |
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header)) |
146 |
8 |
147 |
8 |
148 |
8 |
149 |
)) |
150 |
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <TargetDescriptor>)) |
151 |
"Converts a ROS message object to a list" |
152 |
(cl:list 'TargetDescriptor |
153 |
(cl:cons ':header (header msg)) |
154 |
(cl:cons ':x (x msg)) |
155 |
(cl:cons ':y (y msg)) |
156 |
(cl:cons ':size (size msg)) |
157 |
)) |