; Auto-generated. Do not edit!


(in-package test_roslib-msg)


;//! \htmlinclude FillSimple.msg.html

(defclass <FillSimple> (ros-message)
  ((i32
    :reader i32-val
    :initarg :i32
    :type integer
    :initform 0)
   (str
    :reader str-val
    :initarg :str
    :type string
    :initform "")
   (i32_array
    :reader i32_array-val
    :initarg :i32_array
    :type (vector integer)
   :initform (make-array 0 :element-type 'integer :initial-element 0))
   (b
    :reader b-val
    :initarg :b
    :type boolean
    :initform nil))
)
(defmethod serialize ((msg <FillSimple>) ostream)
  "Serializes a message object of type '<FillSimple>"
    (write-byte (ldb (byte 8 0) (slot-value msg 'i32)) ostream)
  (write-byte (ldb (byte 8 8) (slot-value msg 'i32)) ostream)
  (write-byte (ldb (byte 8 16) (slot-value msg 'i32)) ostream)
  (write-byte (ldb (byte 8 24) (slot-value msg 'i32)) ostream)
  (let ((__ros_str_len (length (slot-value msg 'str))))
    (write-byte (ldb (byte 8 0) __ros_str_len) ostream)
    (write-byte (ldb (byte 8 8) __ros_str_len) ostream)
    (write-byte (ldb (byte 8 16) __ros_str_len) ostream)
    (write-byte (ldb (byte 8 24) __ros_str_len) ostream))
  (map nil #'(lambda (c) (write-byte (char-code c) ostream)) (slot-value msg 'str))
  (let ((__ros_arr_len (length (slot-value msg 'i32_array))))
    (write-byte (ldb (byte 8 0) __ros_arr_len) ostream)
    (write-byte (ldb (byte 8 8) __ros_arr_len) ostream)
    (write-byte (ldb (byte 8 16) __ros_arr_len) ostream)
    (write-byte (ldb (byte 8 24) __ros_arr_len) ostream))
  (map nil #'(lambda (ele)   (write-byte (ldb (byte 8 0) ele) ostream)
  (write-byte (ldb (byte 8 8) ele) ostream)
  (write-byte (ldb (byte 8 16) ele) ostream)
  (write-byte (ldb (byte 8 24) ele) ostream))
    (slot-value msg 'i32_array))
    (write-byte (ldb (byte 8 0) (if (slot-value msg 'b) 1 0)) ostream)
)
(defmethod deserialize ((msg <FillSimple>) istream)
  "Deserializes a message object of type '<FillSimple>"
  (setf (ldb (byte 8 0) (slot-value msg 'i32)) (read-byte istream))
  (setf (ldb (byte 8 8) (slot-value msg 'i32)) (read-byte istream))
  (setf (ldb (byte 8 16) (slot-value msg 'i32)) (read-byte istream))
  (setf (ldb (byte 8 24) (slot-value msg 'i32)) (read-byte istream))
  (let ((__ros_str_len 0))
    (setf (ldb (byte 8 0) __ros_str_len) (read-byte istream))
    (setf (ldb (byte 8 8) __ros_str_len) (read-byte istream))
    (setf (ldb (byte 8 16) __ros_str_len) (read-byte istream))
    (setf (ldb (byte 8 24) __ros_str_len) (read-byte istream))
    (setf (slot-value msg 'str) (make-string __ros_str_len))
    (dotimes (__ros_str_idx __ros_str_len msg)
      (setf (char (slot-value msg 'str) __ros_str_idx) (code-char (read-byte istream)))))
  (let ((__ros_arr_len 0))
    (setf (ldb (byte 8 0) __ros_arr_len) (read-byte istream))
    (setf (ldb (byte 8 8) __ros_arr_len) (read-byte istream))
    (setf (ldb (byte 8 16) __ros_arr_len) (read-byte istream))
    (setf (ldb (byte 8 24) __ros_arr_len) (read-byte istream))
    (setf (slot-value msg 'i32_array) (make-array __ros_arr_len))
    (let ((vals (slot-value msg 'i32_array)))
      (dotimes (i __ros_arr_len)
(setf (ldb (byte 8 0) (aref vals i)) (read-byte istream))
  (setf (ldb (byte 8 8) (aref vals i)) (read-byte istream))
  (setf (ldb (byte 8 16) (aref vals i)) (read-byte istream))
  (setf (ldb (byte 8 24) (aref vals i)) (read-byte istream)))))
  (setf (slot-value msg 'b) (not (zerop (read-byte istream))))
  msg
)
(defmethod ros-datatype ((msg (eql '<FillSimple>)))
  "Returns string type for a message object of type '<FillSimple>"
  "test_roslib/FillSimple")
(defmethod md5sum ((type (eql '<FillSimple>)))
  "Returns md5sum for a message object of type '<FillSimple>"
  "da04a60d03fa22f7d301f9bd5f9a08ab")
(defmethod message-definition ((type (eql '<FillSimple>)))
  "Returns full string definition for message of type '<FillSimple>"
  (format nil "int32 i32~%string str~%int32[] i32_array~%bool b~%~%"))
(defmethod serialization-length ((msg <FillSimple>))
  (+ 0
     4
     4 (length (slot-value msg 'str))
     4 (reduce #'+ (slot-value msg 'i32_array) :key #'(lambda (ele) (declare (ignorable ele)) (+ 4)))
     1
))
(defmethod ros-message-to-list ((msg <FillSimple>))
  "Converts a ROS message object to a list"
  (list '<FillSimple>
    (cons ':i32 (i32-val msg))
    (cons ':str (str-val msg))
    (cons ':i32_array (i32_array-val msg))
    (cons ':b (b-val msg))
))
