GetWaypointByName.lisp 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167
  1. ; Auto-generated. Do not edit!
  2. (cl:in-package waterplus_map_tools-srv)
  3. ;//! \htmlinclude GetWaypointByName-request.msg.html
  4. (cl:defclass <GetWaypointByName-request> (roslisp-msg-protocol:ros-message)
  5. ((name
  6. :reader name
  7. :initarg :name
  8. :type cl:string
  9. :initform ""))
  10. )
  11. (cl:defclass GetWaypointByName-request (<GetWaypointByName-request>)
  12. ())
  13. (cl:defmethod cl:initialize-instance :after ((m <GetWaypointByName-request>) cl:&rest args)
  14. (cl:declare (cl:ignorable args))
  15. (cl:unless (cl:typep m 'GetWaypointByName-request)
  16. (roslisp-msg-protocol:msg-deprecation-warning "using old message class name waterplus_map_tools-srv:<GetWaypointByName-request> is deprecated: use waterplus_map_tools-srv:GetWaypointByName-request instead.")))
  17. (cl:ensure-generic-function 'name-val :lambda-list '(m))
  18. (cl:defmethod name-val ((m <GetWaypointByName-request>))
  19. (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader waterplus_map_tools-srv:name-val is deprecated. Use waterplus_map_tools-srv:name instead.")
  20. (name m))
  21. (cl:defmethod roslisp-msg-protocol:serialize ((msg <GetWaypointByName-request>) ostream)
  22. "Serializes a message object of type '<GetWaypointByName-request>"
  23. (cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'name))))
  24. (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
  25. (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
  26. (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
  27. (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
  28. (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'name))
  29. )
  30. (cl:defmethod roslisp-msg-protocol:deserialize ((msg <GetWaypointByName-request>) istream)
  31. "Deserializes a message object of type '<GetWaypointByName-request>"
  32. (cl:let ((__ros_str_len 0))
  33. (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
  34. (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
  35. (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
  36. (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
  37. (cl:setf (cl:slot-value msg 'name) (cl:make-string __ros_str_len))
  38. (cl:dotimes (__ros_str_idx __ros_str_len msg)
  39. (cl:setf (cl:char (cl:slot-value msg 'name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
  40. msg
  41. )
  42. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<GetWaypointByName-request>)))
  43. "Returns string type for a service object of type '<GetWaypointByName-request>"
  44. "waterplus_map_tools/GetWaypointByNameRequest")
  45. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'GetWaypointByName-request)))
  46. "Returns string type for a service object of type 'GetWaypointByName-request"
  47. "waterplus_map_tools/GetWaypointByNameRequest")
  48. (cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<GetWaypointByName-request>)))
  49. "Returns md5sum for a message object of type '<GetWaypointByName-request>"
  50. "5164dc1f215ac8183cbe49b46c7ff40e")
  51. (cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'GetWaypointByName-request)))
  52. "Returns md5sum for a message object of type 'GetWaypointByName-request"
  53. "5164dc1f215ac8183cbe49b46c7ff40e")
  54. (cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<GetWaypointByName-request>)))
  55. "Returns full string definition for message of type '<GetWaypointByName-request>"
  56. (cl:format cl:nil "string name~%~%~%"))
  57. (cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'GetWaypointByName-request)))
  58. "Returns full string definition for message of type 'GetWaypointByName-request"
  59. (cl:format cl:nil "string name~%~%~%"))
  60. (cl:defmethod roslisp-msg-protocol:serialization-length ((msg <GetWaypointByName-request>))
  61. (cl:+ 0
  62. 4 (cl:length (cl:slot-value msg 'name))
  63. ))
  64. (cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <GetWaypointByName-request>))
  65. "Converts a ROS message object to a list"
  66. (cl:list 'GetWaypointByName-request
  67. (cl:cons ':name (name msg))
  68. ))
  69. ;//! \htmlinclude GetWaypointByName-response.msg.html
  70. (cl:defclass <GetWaypointByName-response> (roslisp-msg-protocol:ros-message)
  71. ((name
  72. :reader name
  73. :initarg :name
  74. :type cl:string
  75. :initform "")
  76. (pose
  77. :reader pose
  78. :initarg :pose
  79. :type geometry_msgs-msg:Pose
  80. :initform (cl:make-instance 'geometry_msgs-msg:Pose)))
  81. )
  82. (cl:defclass GetWaypointByName-response (<GetWaypointByName-response>)
  83. ())
  84. (cl:defmethod cl:initialize-instance :after ((m <GetWaypointByName-response>) cl:&rest args)
  85. (cl:declare (cl:ignorable args))
  86. (cl:unless (cl:typep m 'GetWaypointByName-response)
  87. (roslisp-msg-protocol:msg-deprecation-warning "using old message class name waterplus_map_tools-srv:<GetWaypointByName-response> is deprecated: use waterplus_map_tools-srv:GetWaypointByName-response instead.")))
  88. (cl:ensure-generic-function 'name-val :lambda-list '(m))
  89. (cl:defmethod name-val ((m <GetWaypointByName-response>))
  90. (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader waterplus_map_tools-srv:name-val is deprecated. Use waterplus_map_tools-srv:name instead.")
  91. (name m))
  92. (cl:ensure-generic-function 'pose-val :lambda-list '(m))
  93. (cl:defmethod pose-val ((m <GetWaypointByName-response>))
  94. (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader waterplus_map_tools-srv:pose-val is deprecated. Use waterplus_map_tools-srv:pose instead.")
  95. (pose m))
  96. (cl:defmethod roslisp-msg-protocol:serialize ((msg <GetWaypointByName-response>) ostream)
  97. "Serializes a message object of type '<GetWaypointByName-response>"
  98. (cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'name))))
  99. (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
  100. (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
  101. (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
  102. (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
  103. (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'name))
  104. (roslisp-msg-protocol:serialize (cl:slot-value msg 'pose) ostream)
  105. )
  106. (cl:defmethod roslisp-msg-protocol:deserialize ((msg <GetWaypointByName-response>) istream)
  107. "Deserializes a message object of type '<GetWaypointByName-response>"
  108. (cl:let ((__ros_str_len 0))
  109. (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
  110. (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
  111. (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
  112. (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
  113. (cl:setf (cl:slot-value msg 'name) (cl:make-string __ros_str_len))
  114. (cl:dotimes (__ros_str_idx __ros_str_len msg)
  115. (cl:setf (cl:char (cl:slot-value msg 'name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
  116. (roslisp-msg-protocol:deserialize (cl:slot-value msg 'pose) istream)
  117. msg
  118. )
  119. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<GetWaypointByName-response>)))
  120. "Returns string type for a service object of type '<GetWaypointByName-response>"
  121. "waterplus_map_tools/GetWaypointByNameResponse")
  122. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'GetWaypointByName-response)))
  123. "Returns string type for a service object of type 'GetWaypointByName-response"
  124. "waterplus_map_tools/GetWaypointByNameResponse")
  125. (cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<GetWaypointByName-response>)))
  126. "Returns md5sum for a message object of type '<GetWaypointByName-response>"
  127. "5164dc1f215ac8183cbe49b46c7ff40e")
  128. (cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'GetWaypointByName-response)))
  129. "Returns md5sum for a message object of type 'GetWaypointByName-response"
  130. "5164dc1f215ac8183cbe49b46c7ff40e")
  131. (cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<GetWaypointByName-response>)))
  132. "Returns full string definition for message of type '<GetWaypointByName-response>"
  133. (cl:format cl:nil "string name~%geometry_msgs/Pose pose~%~%================================================================================~%MSG: geometry_msgs/Pose~%# A representation of pose in free space, composed of position and orientation. ~%Point position~%Quaternion orientation~%~%================================================================================~%MSG: geometry_msgs/Point~%# This contains the position of a point in free space~%float64 x~%float64 y~%float64 z~%~%================================================================================~%MSG: geometry_msgs/Quaternion~%# This represents an orientation in free space in quaternion form.~%~%float64 x~%float64 y~%float64 z~%float64 w~%~%~%"))
  134. (cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'GetWaypointByName-response)))
  135. "Returns full string definition for message of type 'GetWaypointByName-response"
  136. (cl:format cl:nil "string name~%geometry_msgs/Pose pose~%~%================================================================================~%MSG: geometry_msgs/Pose~%# A representation of pose in free space, composed of position and orientation. ~%Point position~%Quaternion orientation~%~%================================================================================~%MSG: geometry_msgs/Point~%# This contains the position of a point in free space~%float64 x~%float64 y~%float64 z~%~%================================================================================~%MSG: geometry_msgs/Quaternion~%# This represents an orientation in free space in quaternion form.~%~%float64 x~%float64 y~%float64 z~%float64 w~%~%~%"))
  137. (cl:defmethod roslisp-msg-protocol:serialization-length ((msg <GetWaypointByName-response>))
  138. (cl:+ 0
  139. 4 (cl:length (cl:slot-value msg 'name))
  140. (roslisp-msg-protocol:serialization-length (cl:slot-value msg 'pose))
  141. ))
  142. (cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <GetWaypointByName-response>))
  143. "Converts a ROS message object to a list"
  144. (cl:list 'GetWaypointByName-response
  145. (cl:cons ':name (name msg))
  146. (cl:cons ':pose (pose msg))
  147. ))
  148. (cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'GetWaypointByName)))
  149. 'GetWaypointByName-request)
  150. (cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'GetWaypointByName)))
  151. 'GetWaypointByName-response)
  152. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'GetWaypointByName)))
  153. "Returns string type for a service object of type '<GetWaypointByName>"
  154. "waterplus_map_tools/GetWaypointByName")