AddNewWaypoint.l 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. ;; Auto-generated. Do not edit!
  2. (when (boundp 'waterplus_map_tools::AddNewWaypoint)
  3. (if (not (find-package "WATERPLUS_MAP_TOOLS"))
  4. (make-package "WATERPLUS_MAP_TOOLS"))
  5. (shadow 'AddNewWaypoint (find-package "WATERPLUS_MAP_TOOLS")))
  6. (unless (find-package "WATERPLUS_MAP_TOOLS::ADDNEWWAYPOINT")
  7. (make-package "WATERPLUS_MAP_TOOLS::ADDNEWWAYPOINT"))
  8. (unless (find-package "WATERPLUS_MAP_TOOLS::ADDNEWWAYPOINTREQUEST")
  9. (make-package "WATERPLUS_MAP_TOOLS::ADDNEWWAYPOINTREQUEST"))
  10. (unless (find-package "WATERPLUS_MAP_TOOLS::ADDNEWWAYPOINTRESPONSE")
  11. (make-package "WATERPLUS_MAP_TOOLS::ADDNEWWAYPOINTRESPONSE"))
  12. (in-package "ROS")
  13. (if (not (find-package "GEOMETRY_MSGS"))
  14. (ros::roseus-add-msgs "geometry_msgs"))
  15. (defclass waterplus_map_tools::AddNewWaypointRequest
  16. :super ros::object
  17. :slots (_name _pose ))
  18. (defmethod waterplus_map_tools::AddNewWaypointRequest
  19. (:init
  20. (&key
  21. ((:name __name) "")
  22. ((:pose __pose) (instance geometry_msgs::Pose :init))
  23. )
  24. (send-super :init)
  25. (setq _name (string __name))
  26. (setq _pose __pose)
  27. self)
  28. (:name
  29. (&optional __name)
  30. (if __name (setq _name __name)) _name)
  31. (:pose
  32. (&rest __pose)
  33. (if (keywordp (car __pose))
  34. (send* _pose __pose)
  35. (progn
  36. (if __pose (setq _pose (car __pose)))
  37. _pose)))
  38. (:serialization-length
  39. ()
  40. (+
  41. ;; string _name
  42. 4 (length _name)
  43. ;; geometry_msgs/Pose _pose
  44. (send _pose :serialization-length)
  45. ))
  46. (:serialize
  47. (&optional strm)
  48. (let ((s (if strm strm
  49. (make-string-output-stream (send self :serialization-length)))))
  50. ;; string _name
  51. (write-long (length _name) s) (princ _name s)
  52. ;; geometry_msgs/Pose _pose
  53. (send _pose :serialize s)
  54. ;;
  55. (if (null strm) (get-output-stream-string s))))
  56. (:deserialize
  57. (buf &optional (ptr- 0))
  58. ;; string _name
  59. (let (n) (setq n (sys::peek buf ptr- :integer)) (incf ptr- 4) (setq _name (subseq buf ptr- (+ ptr- n))) (incf ptr- n))
  60. ;; geometry_msgs/Pose _pose
  61. (send _pose :deserialize buf ptr-) (incf ptr- (send _pose :serialization-length))
  62. ;;
  63. self)
  64. )
  65. (defclass waterplus_map_tools::AddNewWaypointResponse
  66. :super ros::object
  67. :slots (_result ))
  68. (defmethod waterplus_map_tools::AddNewWaypointResponse
  69. (:init
  70. (&key
  71. ((:result __result) nil)
  72. )
  73. (send-super :init)
  74. (setq _result __result)
  75. self)
  76. (:result
  77. (&optional (__result :null))
  78. (if (not (eq __result :null)) (setq _result __result)) _result)
  79. (:serialization-length
  80. ()
  81. (+
  82. ;; bool _result
  83. 1
  84. ))
  85. (:serialize
  86. (&optional strm)
  87. (let ((s (if strm strm
  88. (make-string-output-stream (send self :serialization-length)))))
  89. ;; bool _result
  90. (if _result (write-byte -1 s) (write-byte 0 s))
  91. ;;
  92. (if (null strm) (get-output-stream-string s))))
  93. (:deserialize
  94. (buf &optional (ptr- 0))
  95. ;; bool _result
  96. (setq _result (not (= 0 (sys::peek buf ptr- :char)))) (incf ptr- 1)
  97. ;;
  98. self)
  99. )
  100. (defclass waterplus_map_tools::AddNewWaypoint
  101. :super ros::object
  102. :slots ())
  103. (setf (get waterplus_map_tools::AddNewWaypoint :md5sum-) "6948a8f076727d2b3b462b6ca2b31b5f")
  104. (setf (get waterplus_map_tools::AddNewWaypoint :datatype-) "waterplus_map_tools/AddNewWaypoint")
  105. (setf (get waterplus_map_tools::AddNewWaypoint :request) waterplus_map_tools::AddNewWaypointRequest)
  106. (setf (get waterplus_map_tools::AddNewWaypoint :response) waterplus_map_tools::AddNewWaypointResponse)
  107. (defmethod waterplus_map_tools::AddNewWaypointRequest
  108. (:response () (instance waterplus_map_tools::AddNewWaypointResponse :init)))
  109. (setf (get waterplus_map_tools::AddNewWaypointRequest :md5sum-) "6948a8f076727d2b3b462b6ca2b31b5f")
  110. (setf (get waterplus_map_tools::AddNewWaypointRequest :datatype-) "waterplus_map_tools/AddNewWaypointRequest")
  111. (setf (get waterplus_map_tools::AddNewWaypointRequest :definition-)
  112. "string name
  113. geometry_msgs/Pose pose
  114. ================================================================================
  115. MSG: geometry_msgs/Pose
  116. # A representation of pose in free space, composed of position and orientation.
  117. Point position
  118. Quaternion orientation
  119. ================================================================================
  120. MSG: geometry_msgs/Point
  121. # This contains the position of a point in free space
  122. float64 x
  123. float64 y
  124. float64 z
  125. ================================================================================
  126. MSG: geometry_msgs/Quaternion
  127. # This represents an orientation in free space in quaternion form.
  128. float64 x
  129. float64 y
  130. float64 z
  131. float64 w
  132. ---
  133. bool result
  134. ")
  135. (setf (get waterplus_map_tools::AddNewWaypointResponse :md5sum-) "6948a8f076727d2b3b462b6ca2b31b5f")
  136. (setf (get waterplus_map_tools::AddNewWaypointResponse :datatype-) "waterplus_map_tools/AddNewWaypointResponse")
  137. (setf (get waterplus_map_tools::AddNewWaypointResponse :definition-)
  138. "string name
  139. geometry_msgs/Pose pose
  140. ================================================================================
  141. MSG: geometry_msgs/Pose
  142. # A representation of pose in free space, composed of position and orientation.
  143. Point position
  144. Quaternion orientation
  145. ================================================================================
  146. MSG: geometry_msgs/Point
  147. # This contains the position of a point in free space
  148. float64 x
  149. float64 y
  150. float64 z
  151. ================================================================================
  152. MSG: geometry_msgs/Quaternion
  153. # This represents an orientation in free space in quaternion form.
  154. float64 x
  155. float64 y
  156. float64 z
  157. float64 w
  158. ---
  159. bool result
  160. ")
  161. (provide :waterplus_map_tools/AddNewWaypoint "6948a8f076727d2b3b462b6ca2b31b5f")