Project

General

Profile

Statistics
| Branch: | Revision:

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