root / vision / msg_gen / lisp / TargetDescriptor.lisp @ 06738945
History | View | Annotate | Download (8.7 KB)
1 | 06738945 | Nick Stanley | ; 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 | )) |