aggiornati pacchetti universal_robot e universal_robots_ros_driver

This commit is contained in:
2019-10-21 15:14:00 +02:00
parent 2d65d12940
commit bfe1ee9985
29 changed files with 1390 additions and 66 deletions

View File

@@ -12,23 +12,34 @@
;;//! \htmlinclude Analog.msg.html
(intern "*VOLTAGE*" (find-package "UR_MSGS::ANALOG"))
(shadow '*VOLTAGE* (find-package "UR_MSGS::ANALOG"))
(defconstant ur_msgs::Analog::*VOLTAGE* 0)
(intern "*CURRENT*" (find-package "UR_MSGS::ANALOG"))
(shadow '*CURRENT* (find-package "UR_MSGS::ANALOG"))
(defconstant ur_msgs::Analog::*CURRENT* 1)
(defclass ur_msgs::Analog
:super ros::object
:slots (_pin _state ))
:slots (_pin _domain _state ))
(defmethod ur_msgs::Analog
(:init
(&key
((:pin __pin) 0)
((:domain __domain) 0)
((:state __state) 0.0)
)
(send-super :init)
(setq _pin (round __pin))
(setq _domain (round __domain))
(setq _state (float __state))
self)
(:pin
(&optional __pin)
(if __pin (setq _pin __pin)) _pin)
(:domain
(&optional __domain)
(if __domain (setq _domain __domain)) _domain)
(:state
(&optional __state)
(if __state (setq _state __state)) _state)
@@ -37,6 +48,8 @@
(+
;; uint8 _pin
1
;; uint8 _domain
1
;; float32 _state
4
))
@@ -46,6 +59,8 @@
(make-string-output-stream (send self :serialization-length)))))
;; uint8 _pin
(write-byte _pin s)
;; uint8 _domain
(write-byte _domain s)
;; float32 _state
(sys::poke _state (send s :buffer) (send s :count) :float) (incf (stream-count s) 4)
;;
@@ -54,22 +69,28 @@
(buf &optional (ptr- 0))
;; uint8 _pin
(setq _pin (sys::peek buf ptr- :char)) (incf ptr- 1)
;; uint8 _domain
(setq _domain (sys::peek buf ptr- :char)) (incf ptr- 1)
;; float32 _state
(setq _state (sys::peek buf ptr- :float)) (incf ptr- 4)
;;
self)
)
(setf (get ur_msgs::Analog :md5sum-) "341541c8828d055b6dcc443d40207a7d")
(setf (get ur_msgs::Analog :md5sum-) "f41c08a810adf63713aec88712cd553d")
(setf (get ur_msgs::Analog :datatype-) "ur_msgs/Analog")
(setf (get ur_msgs::Analog :definition-)
"uint8 pin
"uint8 VOLTAGE=0
uint8 CURRENT=1
uint8 pin
uint8 domain # can be VOLTAGE or CURRENT
float32 state
")
(provide :ur_msgs/Analog "341541c8828d055b6dcc443d40207a7d")
(provide :ur_msgs/Analog "f41c08a810adf63713aec88712cd553d")