Menu
▾
▴
[Euslisp-commit] SF.net SVN: euslisp:[623] trunk/EusLisp/models
|
From: <sn...@us...> - 2013-05-01 04:45:22
|
Revision: 623
http://sourceforge.net/p/euslisp/code/623
Author: snozawa
Date: 2013-05-01 04:45:11 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]
Modified Paths:
--------------
trunk/EusLisp/models/akira-robot.l
trunk/EusLisp/models/akira2-robot.l
trunk/EusLisp/models/akira3-robot.l
trunk/EusLisp/models/ape-robot.l
trunk/EusLisp/models/ape3-robot.l
trunk/EusLisp/models/bishamon-robot.l
trunk/EusLisp/models/chibikaz-robot.l
trunk/EusLisp/models/h3-robot.l
trunk/EusLisp/models/h3s-robot.l
trunk/EusLisp/models/h4-robot.l
trunk/EusLisp/models/h6-robot.l
trunk/EusLisp/models/h7-robot.l
trunk/EusLisp/models/hanzou-robot.l
trunk/EusLisp/models/hanzous-robot.l
trunk/EusLisp/models/human-robot.l
trunk/EusLisp/models/igoid-robot.l
trunk/EusLisp/models/igoid2-robot.l
trunk/EusLisp/models/igoid3-robot.l
trunk/EusLisp/models/ikuo-haru-robot.l
trunk/EusLisp/models/jrob1-robot.l
trunk/EusLisp/models/kaz-robot.l
trunk/EusLisp/models/kaz2-robot.l
trunk/EusLisp/models/kaz3-robot.l
trunk/EusLisp/models/kuma-robot.l
trunk/EusLisp/models/macket-robot.l
trunk/EusLisp/models/macra-robot.l
trunk/EusLisp/models/miharu-robot.l
trunk/EusLisp/models/millennium-robot.l
trunk/EusLisp/models/patra-robot.l
trunk/EusLisp/models/penguin-robot.l
trunk/EusLisp/models/saizo-robot.l
trunk/EusLisp/models/tama-robot.l
trunk/EusLisp/models/tamaii-robot.l
trunk/EusLisp/models/taro-robot.l
trunk/EusLisp/models/tot-robot.l
trunk/EusLisp/models/zero-robot.l
Modified: trunk/EusLisp/models/akira-robot.l
===================================================================
--- trunk/EusLisp/models/akira-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1566,9 +1566,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint13 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun akira (&rest args) (instance* akira-robot :init args))
Modified: trunk/EusLisp/models/akira2-robot.l
===================================================================
--- trunk/EusLisp/models/akira2-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira2-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1595,9 +1595,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint13 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun akira2 (&rest args) (instance* akira2-robot :init args))
Modified: trunk/EusLisp/models/akira3-robot.l
===================================================================
--- trunk/EusLisp/models/akira3-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira3-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1627,9 +1627,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint13 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun akira3 (&rest args) (instance* akira3-robot :init args))
Modified: trunk/EusLisp/models/ape-robot.l
===================================================================
--- trunk/EusLisp/models/ape-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ape-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -932,9 +932,9 @@
(:rleg-crotch-p (&rest args) (forward-message-to joint8 args))
(:rleg-knee-p (&rest args) (forward-message-to joint9 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint5 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun ape (&rest args) (instance* ape-robot :init args))
Modified: trunk/EusLisp/models/ape3-robot.l
===================================================================
--- trunk/EusLisp/models/ape3-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ape3-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1357,9 +1357,9 @@
(:rleg-crotch-p (&rest args) (forward-message-to joint0 args))
(:rleg-knee-p (&rest args) (forward-message-to joint1 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint2 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun ape3 (&rest args) (instance* ape3-robot :init args))
Modified: trunk/EusLisp/models/bishamon-robot.l
===================================================================
--- trunk/EusLisp/models/bishamon-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/bishamon-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1387,9 +1387,9 @@
(:rleg-crotch-r (&rest args) (forward-message-to joint11 args))
(:rleg-crotch-p (&rest args) (forward-message-to joint13 args))
(:rleg-knee-p (&rest args) (forward-message-to joint15 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun bishamon (&rest args) (instance* bishamon-robot :init args))
Modified: trunk/EusLisp/models/chibikaz-robot.l
===================================================================
--- trunk/EusLisp/models/chibikaz-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/chibikaz-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2195,9 +2195,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint2 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun chibikaz (&rest args) (instance* chibikaz-robot :init args))
Modified: trunk/EusLisp/models/h3-robot.l
===================================================================
--- trunk/EusLisp/models/h3-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h3-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1292,9 +1292,9 @@
(:h3rarm-elbow-p (&rest args) (forward-message-to joint10 args))
(:h3rarm-wrist-r (&rest args) (forward-message-to joint11 args))
(:h3rarm-hand-y (&rest args) (forward-message-to joint12 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun h3 (&rest args) (instance* h3-robot :init args))
Modified: trunk/EusLisp/models/h3s-robot.l
===================================================================
--- trunk/EusLisp/models/h3s-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h3s-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1505,9 +1505,9 @@
(:h3rarm-hand-y (&rest args) (forward-message-to joint12 args))
(:h3scout-tire-r (&rest args) (forward-message-to joint13 args))
(:h3scout-tire-l (&rest args) (forward-message-to joint14 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun h3s (&rest args) (instance* h3s-robot :init args))
Modified: trunk/EusLisp/models/h4-robot.l
===================================================================
--- trunk/EusLisp/models/h4-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h4-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2860,9 +2860,9 @@
(:h4waist-waist2-z (&rest args) (forward-message-to joint18 args))
(:h4waist-waist-x (&rest args) (forward-message-to joint17 args))
(:h4waist-waist1-z (&rest args) (forward-message-to joint16 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun h4 (&rest args) (instance* h4-robot :init args))
Modified: trunk/EusLisp/models/h6-robot.l
===================================================================
--- trunk/EusLisp/models/h6-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h6-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2610,9 +2610,9 @@
(:rarm-wrist-p (&rest args) (forward-message-to joint13 args))
(:rarm-wrist-r (&rest args) (forward-message-to joint14 args))
(:rarm-gripper (&rest args) (forward-message-to joint15 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun h6 (&rest args) (instance* h6-robot :init args))
Modified: trunk/EusLisp/models/h7-robot.l
===================================================================
--- trunk/EusLisp/models/h7-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h7-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2718,9 +2718,9 @@
(:rarm-finger1 (&rest args) (forward-message-to joint15 args))
(:rarm-finger2 (&rest args) (forward-message-to joint34 args))
(:rarm-finger3 (&rest args) (forward-message-to joint35 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun h7 (&rest args) (instance* h7-robot :init args))
Modified: trunk/EusLisp/models/hanzou-robot.l
===================================================================
--- trunk/EusLisp/models/hanzou-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/hanzou-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1520,9 +1520,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint9 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint10 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun hanzou (&rest args) (instance* hanzou-robot :init args))
Modified: trunk/EusLisp/models/hanzous-robot.l
===================================================================
--- trunk/EusLisp/models/hanzous-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/hanzous-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1803,9 +1803,9 @@
(:rleg-ankle-r (&rest args) (forward-message-to joint12 args))
(:spine-upper-p (&rest args) (forward-message-to joint0 args))
(:spine-lower-p (&rest args) (forward-message-to joint2 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun hanzous (&rest args) (instance* hanzous-robot :init args))
Modified: trunk/EusLisp/models/human-robot.l
===================================================================
--- trunk/EusLisp/models/human-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/human-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -5422,9 +5422,9 @@
(:head-leye-y (&rest args) (forward-message-to joint61 args))
(:head-reye-p (&rest args) (forward-message-to joint62 args))
(:head-leye-p (&rest args) (forward-message-to joint63 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun human (&rest args) (instance* human-robot :init args))
Modified: trunk/EusLisp/models/igoid-robot.l
===================================================================
--- trunk/EusLisp/models/igoid-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -3041,9 +3041,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint27 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint29 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun igoid (&rest args) (instance* igoid-robot :init args))
Modified: trunk/EusLisp/models/igoid2-robot.l
===================================================================
--- trunk/EusLisp/models/igoid2-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid2-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -3085,9 +3085,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint27 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint29 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun igoid2 (&rest args) (instance* igoid2-robot :init args))
Modified: trunk/EusLisp/models/igoid3-robot.l
===================================================================
--- trunk/EusLisp/models/igoid3-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid3-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -3163,9 +3163,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint27 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint29 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun igoid3 (&rest args) (instance* igoid3-robot :init args))
Modified: trunk/EusLisp/models/ikuo-haru-robot.l
===================================================================
--- trunk/EusLisp/models/ikuo-haru-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ikuo-haru-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1978,9 +1978,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint15 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint9 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint10 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun ikuo-haru (&rest args) (instance* ikuo-haru-robot :init args))
Modified: trunk/EusLisp/models/jrob1-robot.l
===================================================================
--- trunk/EusLisp/models/jrob1-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/jrob1-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1264,9 +1264,9 @@
(:rb-crotch-y (&rest args) (forward-message-to joint9 args))
(:rb-crotch-r (&rest args) (forward-message-to joint10 args))
(:rb-knee-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun jrob1 (&rest args) (instance* jrob1-robot :init args))
Modified: trunk/EusLisp/models/kaz-robot.l
===================================================================
--- trunk/EusLisp/models/kaz-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2038,9 +2038,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint2 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun kaz (&rest args) (instance* kaz-robot :init args))
Modified: trunk/EusLisp/models/kaz2-robot.l
===================================================================
--- trunk/EusLisp/models/kaz2-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz2-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2178,9 +2178,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint2 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun kaz2 (&rest args) (instance* kaz2-robot :init args))
Modified: trunk/EusLisp/models/kaz3-robot.l
===================================================================
--- trunk/EusLisp/models/kaz3-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz3-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2984,9 +2984,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint2 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun kaz3 (&rest args) (instance* kaz3-robot :init args))
Modified: trunk/EusLisp/models/kuma-robot.l
===================================================================
--- trunk/EusLisp/models/kuma-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kuma-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -2618,9 +2618,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint16 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint17 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint18 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun kuma (&rest args) (instance* kuma-robot :init args))
Modified: trunk/EusLisp/models/macket-robot.l
===================================================================
--- trunk/EusLisp/models/macket-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/macket-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -4940,9 +4940,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint12 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint11 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint10 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun macket (&rest args) (instance* macket-robot :init args))
Modified: trunk/EusLisp/models/macra-robot.l
===================================================================
--- trunk/EusLisp/models/macra-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/macra-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -3199,9 +3199,9 @@
(:arm-1-shoulder-p (&rest args) (forward-message-to joint16 args))
(:head-neck-y (&rest args) (forward-message-to joint20 args))
(:head-neck-p (&rest args) (forward-message-to joint21 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun macra (&rest args) (instance* macra-robot :init args))
Modified: trunk/EusLisp/models/miharu-robot.l
===================================================================
--- trunk/EusLisp/models/miharu-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/miharu-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1393,9 +1393,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint13 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun miharu (&rest args) (instance* miharu-robot :init args))
Modified: trunk/EusLisp/models/millennium-robot.l
===================================================================
--- trunk/EusLisp/models/millennium-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/millennium-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1834,9 +1834,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint9 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint10 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun millennium (&rest args) (instance* millennium-robot :init args))
Modified: trunk/EusLisp/models/patra-robot.l
===================================================================
--- trunk/EusLisp/models/patra-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/patra-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1322,9 +1322,9 @@
(:patra-back-limb-back (&rest args) (forward-message-to joint1 args))
(:patra-lower-limb-rear (&rest args) (forward-message-to joint3 args))
(:patra-lower-limb-front (&rest args) (forward-message-to joint2 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun patra (&rest args) (instance* patra-robot :init args))
Modified: trunk/EusLisp/models/penguin-robot.l
===================================================================
--- trunk/EusLisp/models/penguin-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/penguin-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1644,9 +1644,9 @@
(:rleg-crotch-y (&rest args) (forward-message-to joint9 args))
(:rleg-crotch-p (&rest args) (forward-message-to joint10 args))
(:tail-tail-y (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun penguin (&rest args) (instance* penguin-robot :init args))
Modified: trunk/EusLisp/models/saizo-robot.l
===================================================================
--- trunk/EusLisp/models/saizo-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/saizo-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1652,9 +1652,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint13 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun saizo (&rest args) (instance* saizo-robot :init args))
Modified: trunk/EusLisp/models/tama-robot.l
===================================================================
--- trunk/EusLisp/models/tama-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tama-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1494,9 +1494,9 @@
(:rbleg-crotch-y (&rest args) (forward-message-to joint10 args))
(:rbleg-knee-r (&rest args) (forward-message-to joint9 args))
(:rbleg-ankle-r (&rest args) (forward-message-to joint8 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun tama (&rest args) (instance* tama-robot :init args))
Modified: trunk/EusLisp/models/tamaii-robot.l
===================================================================
--- trunk/EusLisp/models/tamaii-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tamaii-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1674,9 +1674,9 @@
(:rbleg-crotch (&rest args) (forward-message-to joint13 args))
(:rbleg-knee (&rest args) (forward-message-to joint12 args))
(:rbleg-ankle (&rest args) (forward-message-to joint11 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun tamaii (&rest args) (instance* tamaii-robot :init args))
Modified: trunk/EusLisp/models/taro-robot.l
===================================================================
--- trunk/EusLisp/models/taro-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/taro-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1675,9 +1675,9 @@
(:rleg-ankle-r (&rest args) (forward-message-to joint15 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint16 args))
(:spine-spine-p (&rest args) (forward-message-to joint18 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun taro (&rest args) (instance* taro-robot :init args))
Modified: trunk/EusLisp/models/tot-robot.l
===================================================================
--- trunk/EusLisp/models/tot-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tot-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -3089,9 +3089,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint2 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun tot (&rest args) (instance* tot-robot :init args))
Modified: trunk/EusLisp/models/zero-robot.l
===================================================================
--- trunk/EusLisp/models/zero-robot.l 2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/zero-robot.l 2013-05-01 04:45:11 UTC (rev 623)
@@ -1587,9 +1587,9 @@
(:rleg-knee-p (&rest args) (forward-message-to joint5 args))
(:rleg-ankle-p (&rest args) (forward-message-to joint6 args))
(:rleg-ankle-r (&rest args) (forward-message-to joint7 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun zero (&rest args) (instance* zero-robot :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
