scoutos / scout / power / msg_gen / lisp / power_state_changed.lisp @ dd4eb68c
History | View | Annotate | Download (9.75 KB)
1 |
; Auto-generated. Do not edit! |
---|---|
2 |
|
3 |
|
4 |
(cl:in-package power-msg) |
5 |
|
6 |
|
7 |
;//! \htmlinclude power_state_changed.msg.html |
8 |
|
9 |
(cl:defclass <power_state_changed> (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 |
(voltage |
16 |
:reader voltage |
17 |
:initarg :voltage |
18 |
:type cl:integer |
19 |
:initform 0) |
20 |
(percentage |
21 |
:reader percentage |
22 |
:initarg :percentage |
23 |
:type cl:integer |
24 |
:initform 0) |
25 |
(draw |
26 |
:reader draw |
27 |
:initarg :draw |
28 |
:type cl:integer |
29 |
:initform 0) |
30 |
(externalpower |
31 |
:reader externalpower |
32 |
:initarg :externalpower |
33 |
:type cl:boolean |
34 |
:initform cl:nil) |
35 |
(warning |
36 |
:reader warning |
37 |
:initarg :warning |
38 |
:type cl:boolean |
39 |
:initform cl:nil) |
40 |
(critical |
41 |
:reader critical |
42 |
:initarg :critical |
43 |
:type cl:boolean |
44 |
:initform cl:nil)) |
45 |
) |
46 |
|
47 |
(cl:defclass power_state_changed (<power_state_changed>) |
48 |
()) |
49 |
|
50 |
(cl:defmethod cl:initialize-instance :after ((m <power_state_changed>) cl:&rest args) |
51 |
(cl:declare (cl:ignorable args)) |
52 |
(cl:unless (cl:typep m 'power_state_changed) |
53 |
(roslisp-msg-protocol:msg-deprecation-warning "using old message class name power-msg:<power_state_changed> is deprecated: use power-msg:power_state_changed instead."))) |
54 |
|
55 |
(cl:ensure-generic-function 'header-val :lambda-list '(m)) |
56 |
(cl:defmethod header-val ((m <power_state_changed>)) |
57 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:header-val is deprecated. Use power-msg:header instead.") |
58 |
(header m)) |
59 |
|
60 |
(cl:ensure-generic-function 'voltage-val :lambda-list '(m)) |
61 |
(cl:defmethod voltage-val ((m <power_state_changed>)) |
62 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:voltage-val is deprecated. Use power-msg:voltage instead.") |
63 |
(voltage m)) |
64 |
|
65 |
(cl:ensure-generic-function 'percentage-val :lambda-list '(m)) |
66 |
(cl:defmethod percentage-val ((m <power_state_changed>)) |
67 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:percentage-val is deprecated. Use power-msg:percentage instead.") |
68 |
(percentage m)) |
69 |
|
70 |
(cl:ensure-generic-function 'draw-val :lambda-list '(m)) |
71 |
(cl:defmethod draw-val ((m <power_state_changed>)) |
72 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:draw-val is deprecated. Use power-msg:draw instead.") |
73 |
(draw m)) |
74 |
|
75 |
(cl:ensure-generic-function 'externalpower-val :lambda-list '(m)) |
76 |
(cl:defmethod externalpower-val ((m <power_state_changed>)) |
77 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:externalpower-val is deprecated. Use power-msg:externalpower instead.") |
78 |
(externalpower m)) |
79 |
|
80 |
(cl:ensure-generic-function 'warning-val :lambda-list '(m)) |
81 |
(cl:defmethod warning-val ((m <power_state_changed>)) |
82 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:warning-val is deprecated. Use power-msg:warning instead.") |
83 |
(warning m)) |
84 |
|
85 |
(cl:ensure-generic-function 'critical-val :lambda-list '(m)) |
86 |
(cl:defmethod critical-val ((m <power_state_changed>)) |
87 |
(roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader power-msg:critical-val is deprecated. Use power-msg:critical instead.") |
88 |
(critical m)) |
89 |
(cl:defmethod roslisp-msg-protocol:serialize ((msg <power_state_changed>) ostream) |
90 |
"Serializes a message object of type '<power_state_changed>" |
91 |
(roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream) |
92 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'voltage)) ostream) |
93 |
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'voltage)) ostream) |
94 |
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'voltage)) ostream) |
95 |
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'voltage)) ostream) |
96 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'percentage)) ostream) |
97 |
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'percentage)) ostream) |
98 |
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'percentage)) ostream) |
99 |
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'percentage)) ostream) |
100 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'draw)) ostream) |
101 |
(cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'draw)) ostream) |
102 |
(cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'draw)) ostream) |
103 |
(cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'draw)) ostream) |
104 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'externalpower) 1 0)) ostream) |
105 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'warning) 1 0)) ostream) |
106 |
(cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'critical) 1 0)) ostream) |
107 |
) |
108 |
(cl:defmethod roslisp-msg-protocol:deserialize ((msg <power_state_changed>) istream) |
109 |
"Deserializes a message object of type '<power_state_changed>" |
110 |
(roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) istream) |
111 |
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
112 |
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
113 |
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
114 |
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'voltage)) (cl:read-byte istream)) |
115 |
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
116 |
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
117 |
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
118 |
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'percentage)) (cl:read-byte istream)) |
119 |
(cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
120 |
(cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
121 |
(cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
122 |
(cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'draw)) (cl:read-byte istream)) |
123 |
(cl:setf (cl:slot-value msg 'externalpower) (cl:not (cl:zerop (cl:read-byte istream)))) |
124 |
(cl:setf (cl:slot-value msg 'warning) (cl:not (cl:zerop (cl:read-byte istream)))) |
125 |
(cl:setf (cl:slot-value msg 'critical) (cl:not (cl:zerop (cl:read-byte istream)))) |
126 |
msg |
127 |
) |
128 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<power_state_changed>))) |
129 |
"Returns string type for a message object of type '<power_state_changed>" |
130 |
"power/power_state_changed") |
131 |
(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'power_state_changed))) |
132 |
"Returns string type for a message object of type 'power_state_changed" |
133 |
"power/power_state_changed") |
134 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<power_state_changed>))) |
135 |
"Returns md5sum for a message object of type '<power_state_changed>" |
136 |
"fc98f58bb6056947bbbbbad6cc36490a") |
137 |
(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'power_state_changed))) |
138 |
"Returns md5sum for a message object of type 'power_state_changed" |
139 |
"fc98f58bb6056947bbbbbad6cc36490a") |
140 |
(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<power_state_changed>))) |
141 |
"Returns full string definition for message of type '<power_state_changed>" |
142 |
(cl:format cl:nil "Header header~%#32-bit integer with current voltage info~%uint32 voltage~%#power percentage [0-100]~%uint32 percentage~%#current draw in mW~%uint32 draw~%#are we on external power?~%bool externalpower~%#is the battery at a warning state?~%bool warning~%#is the battery at a critical state?~%bool critical~%~%~%================================================================================~%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:message-definition ((type (cl:eql 'power_state_changed))) |
144 |
"Returns full string definition for message of type 'power_state_changed" |
145 |
(cl:format cl:nil "Header header~%#32-bit integer with current voltage info~%uint32 voltage~%#power percentage [0-100]~%uint32 percentage~%#current draw in mW~%uint32 draw~%#are we on external power?~%bool externalpower~%#is the battery at a warning state?~%bool warning~%#is the battery at a critical state?~%bool critical~%~%~%================================================================================~%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~%~%~%")) |
146 |
(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <power_state_changed>)) |
147 |
(cl:+ 0 |
148 |
(roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header)) |
149 |
4 |
150 |
4 |
151 |
4 |
152 |
1 |
153 |
1 |
154 |
1 |
155 |
)) |
156 |
(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <power_state_changed>)) |
157 |
"Converts a ROS message object to a list" |
158 |
(cl:list 'power_state_changed |
159 |
(cl:cons ':header (header msg)) |
160 |
(cl:cons ':voltage (voltage msg)) |
161 |
(cl:cons ':percentage (percentage msg)) |
162 |
(cl:cons ':draw (draw msg)) |
163 |
(cl:cons ':externalpower (externalpower msg)) |
164 |
(cl:cons ':warning (warning msg)) |
165 |
(cl:cons ':critical (critical msg)) |
166 |
)) |