Project

General

Profile

Statistics
| Branch: | Revision:

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")