Waypoint.lisp 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116
  1. ; Auto-generated. Do not edit!
  2. (cl:in-package waterplus_map_tools-msg)
  3. ;//! \htmlinclude Waypoint.msg.html
  4. (cl:defclass <Waypoint> (roslisp-msg-protocol:ros-message)
  5. ((frame_id
  6. :reader frame_id
  7. :initarg :frame_id
  8. :type cl:string
  9. :initform "")
  10. (name
  11. :reader name
  12. :initarg :name
  13. :type cl:string
  14. :initform "")
  15. (pose
  16. :reader pose
  17. :initarg :pose
  18. :type geometry_msgs-msg:Pose
  19. :initform (cl:make-instance 'geometry_msgs-msg:Pose)))
  20. )
  21. (cl:defclass Waypoint (<Waypoint>)
  22. ())
  23. (cl:defmethod cl:initialize-instance :after ((m <Waypoint>) cl:&rest args)
  24. (cl:declare (cl:ignorable args))
  25. (cl:unless (cl:typep m 'Waypoint)
  26. (roslisp-msg-protocol:msg-deprecation-warning "using old message class name waterplus_map_tools-msg:<Waypoint> is deprecated: use waterplus_map_tools-msg:Waypoint instead.")))
  27. (cl:ensure-generic-function 'frame_id-val :lambda-list '(m))
  28. (cl:defmethod frame_id-val ((m <Waypoint>))
  29. (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader waterplus_map_tools-msg:frame_id-val is deprecated. Use waterplus_map_tools-msg:frame_id instead.")
  30. (frame_id m))
  31. (cl:ensure-generic-function 'name-val :lambda-list '(m))
  32. (cl:defmethod name-val ((m <Waypoint>))
  33. (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader waterplus_map_tools-msg:name-val is deprecated. Use waterplus_map_tools-msg:name instead.")
  34. (name m))
  35. (cl:ensure-generic-function 'pose-val :lambda-list '(m))
  36. (cl:defmethod pose-val ((m <Waypoint>))
  37. (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader waterplus_map_tools-msg:pose-val is deprecated. Use waterplus_map_tools-msg:pose instead.")
  38. (pose m))
  39. (cl:defmethod roslisp-msg-protocol:serialize ((msg <Waypoint>) ostream)
  40. "Serializes a message object of type '<Waypoint>"
  41. (cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'frame_id))))
  42. (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
  43. (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
  44. (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
  45. (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
  46. (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'frame_id))
  47. (cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'name))))
  48. (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
  49. (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
  50. (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
  51. (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
  52. (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'name))
  53. (roslisp-msg-protocol:serialize (cl:slot-value msg 'pose) ostream)
  54. )
  55. (cl:defmethod roslisp-msg-protocol:deserialize ((msg <Waypoint>) istream)
  56. "Deserializes a message object of type '<Waypoint>"
  57. (cl:let ((__ros_str_len 0))
  58. (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
  59. (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
  60. (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
  61. (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
  62. (cl:setf (cl:slot-value msg 'frame_id) (cl:make-string __ros_str_len))
  63. (cl:dotimes (__ros_str_idx __ros_str_len msg)
  64. (cl:setf (cl:char (cl:slot-value msg 'frame_id) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
  65. (cl:let ((__ros_str_len 0))
  66. (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
  67. (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
  68. (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
  69. (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
  70. (cl:setf (cl:slot-value msg 'name) (cl:make-string __ros_str_len))
  71. (cl:dotimes (__ros_str_idx __ros_str_len msg)
  72. (cl:setf (cl:char (cl:slot-value msg 'name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
  73. (roslisp-msg-protocol:deserialize (cl:slot-value msg 'pose) istream)
  74. msg
  75. )
  76. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Waypoint>)))
  77. "Returns string type for a message object of type '<Waypoint>"
  78. "waterplus_map_tools/Waypoint")
  79. (cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Waypoint)))
  80. "Returns string type for a message object of type 'Waypoint"
  81. "waterplus_map_tools/Waypoint")
  82. (cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Waypoint>)))
  83. "Returns md5sum for a message object of type '<Waypoint>"
  84. "b5abd84eafa003e99e40f2565ee73135")
  85. (cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Waypoint)))
  86. "Returns md5sum for a message object of type 'Waypoint"
  87. "b5abd84eafa003e99e40f2565ee73135")
  88. (cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Waypoint>)))
  89. "Returns full string definition for message of type '<Waypoint>"
  90. (cl:format cl:nil "string frame_id~%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~%~%~%"))
  91. (cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'Waypoint)))
  92. "Returns full string definition for message of type 'Waypoint"
  93. (cl:format cl:nil "string frame_id~%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~%~%~%"))
  94. (cl:defmethod roslisp-msg-protocol:serialization-length ((msg <Waypoint>))
  95. (cl:+ 0
  96. 4 (cl:length (cl:slot-value msg 'frame_id))
  97. 4 (cl:length (cl:slot-value msg 'name))
  98. (roslisp-msg-protocol:serialization-length (cl:slot-value msg 'pose))
  99. ))
  100. (cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Waypoint>))
  101. "Converts a ROS message object to a list"
  102. (cl:list 'Waypoint
  103. (cl:cons ':frame_id (frame_id msg))
  104. (cl:cons ':name (name msg))
  105. (cl:cons ':pose (pose msg))
  106. ))