Project

General

Profile

Statistics
| Branch: | Revision:

root / vision / msg_gen / lisp / TargetDescriptor.lisp @ 06738945

History | View | Annotate | Download (8.7 KB)

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