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

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

Revision: 621
          http://sourceforge.net/p/euslisp/code/621
Author:   snozawa
Date:     2013-05-01 04:36:56 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket

Modified Paths:
--------------
    trunk/EusLisp/models/room610-610-ground-object.l
    trunk/EusLisp/models/room610-audio_shelf-object.l
    trunk/EusLisp/models/room610-bears-panel-object.l
    trunk/EusLisp/models/room610-cabinet-mamoru-object.l
    trunk/EusLisp/models/room610-cabinet-object.l
    trunk/EusLisp/models/room610-chair-object.l
    trunk/EusLisp/models/room610-cupboard-object.l
    trunk/EusLisp/models/room610-fridge-object.l
    trunk/EusLisp/models/room610-kitchen-object.l
    trunk/EusLisp/models/room610-laundry-machine-object.l
    trunk/EusLisp/models/room610-shelf0-object.l
    trunk/EusLisp/models/room610-shelf1-object.l
    trunk/EusLisp/models/room610-shelf2-object.l
    trunk/EusLisp/models/room610-sweeper-object.l
    trunk/EusLisp/models/room610-table-object.l
    trunk/EusLisp/models/room610-tray-object.l
    trunk/EusLisp/models/room610-tv1-object.l
    trunk/EusLisp/models/room610-tv3-object.l
    trunk/EusLisp/models/room610-x-leg-desk-object.l

Modified: trunk/EusLisp/models/room610-610-ground-object.l
===================================================================
--- trunk/EusLisp/models/room610-610-ground-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-610-ground-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -53,9 +53,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-610-ground (&rest args) (instance* room610-610-ground-object :init args))

Modified: trunk/EusLisp/models/room610-audio_shelf-object.l
===================================================================
--- trunk/EusLisp/models/room610-audio_shelf-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-audio_shelf-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -264,10 +264,10 @@
   (:drawer3 (&rest args) (forward-message-to joint2 args))
   (:door-right (&rest args) (forward-message-to joint3 args))
   (:door-left (&rest args) (forward-message-to joint4 args))
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-audio_shelf (&rest args) (instance* room610-audio_shelf-object :init args))

Modified: trunk/EusLisp/models/room610-bears-panel-object.l
===================================================================
--- trunk/EusLisp/models/room610-bears-panel-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-bears-panel-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -127,9 +127,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-bears-panel (&rest args) (instance* room610-bears-panel-object :init args))

Modified: trunk/EusLisp/models/room610-cabinet-mamoru-object.l
===================================================================
--- trunk/EusLisp/models/room610-cabinet-mamoru-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cabinet-mamoru-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -158,11 +158,11 @@
 
   (:door-upper-left (&rest args) (forward-message-to joint0 args))
   (:door-upper-right (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-cabinet-mamoru (&rest args) (instance* room610-cabinet-mamoru-object :init args))

Modified: trunk/EusLisp/models/room610-cabinet-object.l
===================================================================
--- trunk/EusLisp/models/room610-cabinet-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cabinet-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -158,11 +158,11 @@
 
   (:door-upper-left (&rest args) (forward-message-to joint0 args))
   (:door-upper-right (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-cabinet (&rest args) (instance* room610-cabinet-object :init args))

Modified: trunk/EusLisp/models/room610-chair-object.l
===================================================================
--- trunk/EusLisp/models/room610-chair-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-chair-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -134,15 +134,15 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3 handle4 handle5))
-  (:handle-side-larm () handle0)
-  (:handle-side-rarm () handle1)
-  (:handle-above-larm () handle2)
-  (:handle-above-rarm () handle3)
-  (:handle-above-cloth-larm () handle4)
-  (:handle-above-cloth-rarm () handle5)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3 handle4 handle5) args))
+  (:handle-side-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-side-rarm (&rest args) (forward-message-to handle1 args))
+  (:handle-above-larm (&rest args) (forward-message-to handle2 args))
+  (:handle-above-rarm (&rest args) (forward-message-to handle3 args))
+  (:handle-above-cloth-larm (&rest args) (forward-message-to handle4 args))
+  (:handle-above-cloth-rarm (&rest args) (forward-message-to handle5 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-chair (&rest args) (instance* room610-chair-object :init args))

Modified: trunk/EusLisp/models/room610-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/room610-cupboard-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cupboard-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -401,10 +401,10 @@
   (:drawer4 (&rest args) (forward-message-to joint4 args))
   (:door-upper-right (&rest args) (forward-message-to joint5 args))
   (:door-upper-left (&rest args) (forward-message-to joint6 args))
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-cupboard (&rest args) (instance* room610-cupboard-object :init args))

Modified: trunk/EusLisp/models/room610-fridge-object.l
===================================================================
--- trunk/EusLisp/models/room610-fridge-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-fridge-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -311,11 +311,11 @@
   (:drawer-middle-left (&rest args) (forward-message-to joint3 args))
   (:drawer-lower1 (&rest args) (forward-message-to joint4 args))
   (:drawer-lower2 (&rest args) (forward-message-to joint5 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-fridge (&rest args) (instance* room610-fridge-object :init args))

Modified: trunk/EusLisp/models/room610-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room610-kitchen-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-kitchen-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -307,9 +307,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-kitchen (&rest args) (instance* room610-kitchen-object :init args))

Modified: trunk/EusLisp/models/room610-laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundry-machine-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-laundry-machine-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -193,13 +193,13 @@
 
   (:joint0 (&rest args) (forward-message-to joint0 args))
   (:joint1 (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0 handle1 handle2))
-  (:handle-contents () handle0)
-  (:handle-handle-cap () handle1)
-  (:handle-open-button () handle2)
-  (:attention () (list ))
-  (:button () (list  button0))
-  (:button-open () button0)
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2) args))
+  (:handle-contents (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-cap (&rest args) (forward-message-to handle1 args))
+  (:handle-open-button (&rest args) (forward-message-to handle2 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list  button0) args))
+  (:button-open (&rest args) (forward-message-to button0 args))
   )
 
 (defun room610-laundry-machine (&rest args) (instance* room610-laundry-machine-object :init args))

Modified: trunk/EusLisp/models/room610-shelf0-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf0-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf0-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
   (:drawer2 (&rest args) (forward-message-to joint2 args))
   (:drawer3 (&rest args) (forward-message-to joint3 args))
   (:drawer4 (&rest args) (forward-message-to joint4 args))
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-shelf0 (&rest args) (instance* room610-shelf0-object :init args))

Modified: trunk/EusLisp/models/room610-shelf1-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf1-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf1-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
   (:drawer2 (&rest args) (forward-message-to joint2 args))
   (:drawer3 (&rest args) (forward-message-to joint3 args))
   (:drawer4 (&rest args) (forward-message-to joint4 args))
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-shelf1 (&rest args) (instance* room610-shelf1-object :init args))

Modified: trunk/EusLisp/models/room610-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf2-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf2-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
   (:drawer2 (&rest args) (forward-message-to joint2 args))
   (:drawer3 (&rest args) (forward-message-to joint3 args))
   (:drawer4 (&rest args) (forward-message-to joint4 args))
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-shelf2 (&rest args) (instance* room610-shelf2-object :init args))

Modified: trunk/EusLisp/models/room610-sweeper-object.l
===================================================================
--- trunk/EusLisp/models/room610-sweeper-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-sweeper-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -159,13 +159,13 @@
 
   (:sweeper-p (&rest args) (forward-message-to joint0 args))
   (:sweeper-r (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-rarm () handle0)
-  (:handle-larm () handle1)
-  (:handle-side-rarm () handle2)
-  (:handle-side-larm () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) args))
+  (:handle-rarm (&rest args) (forward-message-to handle0 args))
+  (:handle-larm (&rest args) (forward-message-to handle1 args))
+  (:handle-side-rarm (&rest args) (forward-message-to handle2 args))
+  (:handle-side-larm (&rest args) (forward-message-to handle3 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-sweeper (&rest args) (instance* room610-sweeper-object :init args))

Modified: trunk/EusLisp/models/room610-table-object.l
===================================================================
--- trunk/EusLisp/models/room610-table-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-table-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -87,9 +87,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-table (&rest args) (instance* room610-table-object :init args))

Modified: trunk/EusLisp/models/room610-tray-object.l
===================================================================
--- trunk/EusLisp/models/room610-tray-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tray-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -102,15 +102,15 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3 handle4 handle5))
-  (:handle-rarm-handle () handle0)
-  (:handle-larm-handle () handle1)
-  (:handle-handle2 () handle2)
-  (:handle-handle3 () handle3)
-  (:handle-handle4 () handle4)
-  (:handle-handle5 () handle5)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3 handle4 handle5) args))
+  (:handle-rarm-handle (&rest args) (forward-message-to handle0 args))
+  (:handle-larm-handle (&rest args) (forward-message-to handle1 args))
+  (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+  (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+  (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+  (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room610-tray (&rest args) (instance* room610-tray-object :init args))

Modified: trunk/EusLisp/models/room610-tv1-object.l
===================================================================
--- trunk/EusLisp/models/room610-tv1-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tv1-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -137,9 +137,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-tv1 (&rest args) (instance* room610-tv1-object :init args))

Modified: trunk/EusLisp/models/room610-tv3-object.l
===================================================================
--- trunk/EusLisp/models/room610-tv3-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tv3-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -137,9 +137,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-tv3 (&rest args) (instance* room610-tv3-object :init args))

Modified: trunk/EusLisp/models/room610-x-leg-desk-object.l
===================================================================
--- trunk/EusLisp/models/room610-x-leg-desk-object.l	2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-x-leg-desk-object.l	2013-05-01 04:36:56 UTC (rev 621)
@@ -121,9 +121,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) 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 room610-x-leg-desk (&rest args) (instance* room610-x-leg-desk-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.