[Euslisp-commit] SF.net SVN: euslisp:[623] trunk/EusLisp/models

[<sn...@us...>]

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.