root / scout / power / srv_gen / lisp / query_power.lisp @ dd4eb68c
History | View | Annotate | Download (10.1 KB)
1 |
; Auto-generated. Do not edit! |
---|---|
2 |
|
3 |
|
4 |
(cl:in-package power-srv) |
5 |
|
6 |
|
7 |
;//! \htmlinclude query_power-request.msg.html |
8 |
|
9 |
(cl:defclass <query_power-request> (roslisp-msg-protocol:ros-message) |
10 |
() |
11 |
) |
12 |
|
13 |
(cl:defclass query_power-request (<query_power-request>) |
14 |
()) |
15 |
|
16 |
(cl:defmethod cl:initialize-instance :after ((m <query_power-request>) cl:&rest args) |
17 |
(cl:declare (cl:ignorable args)) |
18 |
(cl:unless (cl:typep m 'query_power-request) |
19 |
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name power-srv:<query_power-request> is deprecated: use power-srv:query_power-request instead."))) |
20 |
(cl:defmethod roslisp-msg-protocol:serialize ((msg <query_power-request>) ostream) |
21 |
"Serializes a message object of type '<query_power-request>" |
22 |
) |
23 |
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <query_power-request>) istream) |
24 |
"Deserializes a message object of type '<query_power-request>" |
25 |
msg |
26 |
) |
27 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<query_power-request>))) |
28 |
"Returns string type for a service object of type '<query_power-request>" |
29 |
"power/query_powerRequest") |
30 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'query_power-request))) |
31 |
"Returns string type for a service object of type 'query_power-request" |
32 |
"power/query_powerRequest") |
33 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<query_power-request>))) |
34 |
"Returns md5sum for a message object of type '<query_power-request>" |
35 |
"7f7505c0b2499fcf6c85ecc5dee6164e") |
36 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'query_power-request))) |
37 |
"Returns md5sum for a message object of type 'query_power-request" |
38 |
"7f7505c0b2499fcf6c85ecc5dee6164e") |
39 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<query_power-request>))) |
40 |
"Returns full string definition for message of type '<query_power-request>" |
41 |
(cl:format cl:nil "~%~%")) |
42 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'query_power-request))) |
43 |
"Returns full string definition for message of type 'query_power-request" |
44 |
(cl:format cl:nil "~%~%")) |
45 |
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <query_power-request>)) |
46 |
(cl:+ 0 |
47 |
)) |
48 |
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <query_power-request>)) |
49 |
"Converts a ROS message object to a list" |
50 |
(cl:list 'query_power-request |
51 |
)) |
52 |
;//! \htmlinclude query_power-response.msg.html |
53 |
|
54 |
(cl:defclass <query_power-response> (roslisp-msg-protocol:ros-message) |
55 |
((voltage |
56 |
:reader voltage |
57 |
:initarg :voltage |
58 |
:type cl:integer |
59 |
:initform 0) |
60 |
(percentage |
61 |
:reader percentage |
62 |
:initarg :percentage |
63 |
:type cl:integer |
64 |
:initform 0) |
65 |
(draw |
66 |
:reader draw |
67 |
:initarg :draw |
68 |
:type cl:integer |
69 |
:initform 0) |
70 |
(externalpower |
71 |
:reader externalpower |
72 |
:initarg :externalpower |
73 |
:type cl:boolean |
74 |
:initform cl:nil) |
75 |
(warning |
76 |
:reader warning |
77 |
:initarg :warning |
78 |
:type cl:boolean |
79 |
:initform cl:nil) |
80 |
(critical |
81 |
:reader critical |
82 |
:initarg :critical |
83 |
:type cl:boolean |
84 |
:initform cl:nil)) |
85 |
) |
86 |
|
87 |
(cl:defclass query_power-response (<query_power-response>) |
88 |
()) |
89 |
|
90 |
(cl:defmethod cl:initialize-instance :after ((m <query_power-response>) cl:&rest args) |
91 |
(cl:declare (cl:ignorable args)) |
92 |
(cl:unless (cl:typep m 'query_power-response) |
93 |
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name power-srv:<query_power-response> is deprecated: use power-srv:query_power-response instead."))) |
94 |
|
95 |
(cl:ensure-generic-function 'voltage-val :lambda-list '(m)) |
96 |
(cl:defmethod voltage-val ((m <query_power-response>)) |
97 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-srv:voltage-val is deprecated. Use power-srv:voltage instead.") |
98 |
(voltage m)) |
99 |
|
100 |
(cl:ensure-generic-function 'percentage-val :lambda-list '(m)) |
101 |
(cl:defmethod percentage-val ((m <query_power-response>)) |
102 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-srv:percentage-val is deprecated. Use power-srv:percentage instead.") |
103 |
(percentage m)) |
104 |
|
105 |
(cl:ensure-generic-function 'draw-val :lambda-list '(m)) |
106 |
(cl:defmethod draw-val ((m <query_power-response>)) |
107 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-srv:draw-val is deprecated. Use power-srv:draw instead.") |
108 |
(draw m)) |
109 |
|
110 |
(cl:ensure-generic-function 'externalpower-val :lambda-list '(m)) |
111 |
(cl:defmethod externalpower-val ((m <query_power-response>)) |
112 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-srv:externalpower-val is deprecated. Use power-srv:externalpower instead.") |
113 |
(externalpower m)) |
114 |
|
115 |
(cl:ensure-generic-function 'warning-val :lambda-list '(m)) |
116 |
(cl:defmethod warning-val ((m <query_power-response>)) |
117 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-srv:warning-val is deprecated. Use power-srv:warning instead.") |
118 |
(warning m)) |
119 |
|
120 |
(cl:ensure-generic-function 'critical-val :lambda-list '(m)) |
121 |
(cl:defmethod critical-val ((m <query_power-response>)) |
122 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-srv:critical-val is deprecated. Use power-srv:critical instead.") |
123 |
(critical m)) |
124 |
(cl:defmethod roslisp-msg-protocol:serialize ((msg <query_power-response>) ostream) |
125 |
"Serializes a message object of type '<query_power-response>" |
126 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'voltage)) ostream) |
127 |
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'voltage)) ostream) |
128 |
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'voltage)) ostream) |
129 |
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'voltage)) ostream) |
130 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'percentage)) ostream) |
131 |
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'percentage)) ostream) |
132 |
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'percentage)) ostream) |
133 |
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'percentage)) ostream) |
134 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'draw)) ostream) |
135 |
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'draw)) ostream) |
136 |
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'draw)) ostream) |
137 |
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'draw)) ostream) |
138 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'externalpower) 1 0)) ostream) |
139 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'warning) 1 0)) ostream) |
140 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'critical) 1 0)) ostream) |
141 |
) |
142 |
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <query_power-response>) istream) |
143 |
"Deserializes a message object of type '<query_power-response>" |
144 |
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
145 |
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
146 |
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
147 |
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
148 |
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
149 |
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
150 |
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
151 |
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
152 |
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
153 |
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
154 |
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
155 |
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
156 |
(cl:setf (cl:slot-value msg 'externalpower) (cl:not (cl:zerop (cl:read-byte istream)))) |
157 |
(cl:setf (cl:slot-value msg 'warning) (cl:not (cl:zerop (cl:read-byte istream)))) |
158 |
(cl:setf (cl:slot-value msg 'critical) (cl:not (cl:zerop (cl:read-byte istream)))) |
159 |
msg |
160 |
) |
161 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<query_power-response>))) |
162 |
"Returns string type for a service object of type '<query_power-response>" |
163 |
"power/query_powerResponse") |
164 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'query_power-response))) |
165 |
"Returns string type for a service object of type 'query_power-response" |
166 |
"power/query_powerResponse") |
167 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<query_power-response>))) |
168 |
"Returns md5sum for a message object of type '<query_power-response>" |
169 |
"7f7505c0b2499fcf6c85ecc5dee6164e") |
170 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'query_power-response))) |
171 |
"Returns md5sum for a message object of type 'query_power-response" |
172 |
"7f7505c0b2499fcf6c85ecc5dee6164e") |
173 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<query_power-response>))) |
174 |
"Returns full string definition for message of type '<query_power-response>" |
175 |
(cl:format cl:nil "~%uint32 voltage~%~%uint32 percentage~%~%uint32 draw~%~%bool externalpower~%~%bool warning~%~%bool critical~%~%~%~%")) |
176 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'query_power-response))) |
177 |
"Returns full string definition for message of type 'query_power-response" |
178 |
(cl:format cl:nil "~%uint32 voltage~%~%uint32 percentage~%~%uint32 draw~%~%bool externalpower~%~%bool warning~%~%bool critical~%~%~%~%")) |
179 |
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <query_power-response>)) |
180 |
(cl:+ 0 |
181 |
4 |
182 |
4 |
183 |
4 |
184 |
1 |
185 |
1 |
186 |
1 |
187 |
)) |
188 |
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <query_power-response>)) |
189 |
"Converts a ROS message object to a list" |
190 |
(cl:list 'query_power-response |
191 |
(cl:cons ':voltage (voltage msg)) |
192 |
(cl:cons ':percentage (percentage msg)) |
193 |
(cl:cons ':draw (draw msg)) |
194 |
(cl:cons ':externalpower (externalpower msg)) |
195 |
(cl:cons ':warning (warning msg)) |
196 |
(cl:cons ':critical (critical msg)) |
197 |
)) |
198 |
(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'query_power))) |
199 |
'query_power-request) |
200 |
(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'query_power))) |
201 |
'query_power-response) |
202 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'query_power))) |
203 |
"Returns string type for a service object of type '<query_power>" |
204 |
"power/query_power") |