how to kill node of other program in one roseus program?

[kochigami]

I'd like to know how to write rosnode kill <node name> in roseus.
If there is any link, documentation..., could you let me know?

what I want to do is like this: killing nodeB when nodeA is killed

• node A: from roseus program
• node B: from rospy program

#!/usr/bin/env roseus

(ros::roseus "nodeA")
(ros::load-ros-manifest "roseus")

(defun hoge ()
  (print "hoge")
  ;; (kill nodeB (rospy program))
)

(hoge)

• First I tried to ping nodeA (roseus node) from nodeB side
• and kill nodeB (rospy node) when ping returns False,
• but I couldn't kill it because of the error message like this:
  ERROR: connection refused to [http://hogehoge/]
  I think this problem relates to roseus is left as zombie process even rosnode kill-ed #529
  because my program uses smach and has a loop.

That's why I'd like to know how to kill node from roseus side.

[k-okada]

with #531 and modify your code like, you can rosnode kill the roseus node.

#!/usr/bin/env roseus

(ros::roseus "nodeA")
(ros::load-ros-manifest "roseus")

(defun hoge ()
  (print "hoge")
  ;; (kill nodeB (rospy program))
  )
(hoge)
(ros::spin)
(ros::exit)