; Auto-generated. Do not edit!


(in-package test_ros-msg)


;//! \htmlinclude TestString.msg.html

(defclass <TestString> (ros-message)
  ((caller_id
    :reader caller_id-val
    :initarg :caller_id
    :type string
    :initform "")
   (orig_caller_id
    :reader orig_caller_id-val
    :initarg :orig_caller_id
    :type string
    :initform "")
   (data
    :reader data-val
    :initarg :data
    :type string
    :initform ""))
)
(defmethod serialize ((msg <TestString>) ostream)
  "Serializes a message object of type '<TestString>"
  (let ((__ros_str_len (length (slot-value msg 'caller_id))))
    (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 'caller_id))
  (let ((__ros_str_len (length (slot-value msg 'orig_caller_id))))
    (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 'orig_caller_id))
  (let ((__ros_str_len (length (slot-value msg 'data))))
    (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 'data))
)
(defmethod deserialize ((msg <TestString>) istream)
  "Deserializes a message object of type '<TestString>"
  (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 'caller_id) (make-string __ros_str_len))
    (dotimes (__ros_str_idx __ros_str_len msg)
      (setf (char (slot-value msg 'caller_id) __ros_str_idx) (code-char (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 'orig_caller_id) (make-string __ros_str_len))
    (dotimes (__ros_str_idx __ros_str_len msg)
      (setf (char (slot-value msg 'orig_caller_id) __ros_str_idx) (code-char (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 'data) (make-string __ros_str_len))
    (dotimes (__ros_str_idx __ros_str_len msg)
      (setf (char (slot-value msg 'data) __ros_str_idx) (code-char (read-byte istream)))))
  msg
)
(defmethod ros-datatype ((msg (eql '<TestString>)))
  "Returns string type for a message object of type '<TestString>"
  "test_ros/TestString")
(defmethod md5sum ((type (eql '<TestString>)))
  "Returns md5sum for a message object of type '<TestString>"
  "334ff4377be93faa44ebc66d23d40fd3")
(defmethod message-definition ((type (eql '<TestString>)))
  "Returns full string definition for message of type '<TestString>"
  (format nil "# Integration test message~%# caller_id of most recent node to send this message~%string caller_id~%# caller_id of the original node to send this message~%string orig_caller_id~%string data~%~%~%"))
(defmethod serialization-length ((msg <TestString>))
  (+ 0
     4 (length (slot-value msg 'caller_id))
     4 (length (slot-value msg 'orig_caller_id))
     4 (length (slot-value msg 'data))
))
(defmethod ros-message-to-list ((msg <TestString>))
  "Converts a ROS message object to a list"
  (list '<TestString>
    (cons ':caller_id (caller_id-val msg))
    (cons ':orig_caller_id (orig_caller_id-val msg))
    (cons ':data (data-val msg))
))
