Menu
▾
▴
[Euslisp-commit] SF.net SVN: euslisp:[620] trunk/EusLisp/models
|
From: <sn...@us...> - 2013-05-01 04:36:10
|
Revision: 620
http://sourceforge.net/p/euslisp/code/620
Author: snozawa
Date: 2013-05-01 04:36:00 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/room602-3t-600-clean-locker-object.l
trunk/EusLisp/models/room602-602-ground-object.l
trunk/EusLisp/models/room602-aquos1-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l
trunk/EusLisp/models/room602-bariera-1200-corner1-object.l
trunk/EusLisp/models/room602-bariera-1200-corner7-object.l
trunk/EusLisp/models/room602-bariera-1200-left8-object.l
trunk/EusLisp/models/room602-bariera-1200-middle2-object.l
trunk/EusLisp/models/room602-bariera-1200-middle3-object.l
trunk/EusLisp/models/room602-bariera-1200-middle4-object.l
trunk/EusLisp/models/room602-bariera-1200-right5-object.l
trunk/EusLisp/models/room602-bariera-1200-right6-object.l
trunk/EusLisp/models/room602-bed-object.l
trunk/EusLisp/models/room602-chair1-object.l
trunk/EusLisp/models/room602-chair2-object.l
trunk/EusLisp/models/room602-chair3-object.l
trunk/EusLisp/models/room602-chair5-object.l
trunk/EusLisp/models/room602-chair6-object.l
trunk/EusLisp/models/room602-clock-object.l
trunk/EusLisp/models/room602-cupboard-object.l
trunk/EusLisp/models/room602-desk5-object.l
trunk/EusLisp/models/room602-desk6-object.l
trunk/EusLisp/models/room602-desk7-object.l
trunk/EusLisp/models/room602-door-left-object.l
trunk/EusLisp/models/room602-door-object.l
trunk/EusLisp/models/room602-door-right-object.l
trunk/EusLisp/models/room602-fridge-object.l
trunk/EusLisp/models/room602-kitchen-object.l
trunk/EusLisp/models/room602-laundry-machine-object.l
trunk/EusLisp/models/room602-plasmatv1-object.l
trunk/EusLisp/models/room602-plasmatv2-object.l
trunk/EusLisp/models/room602-square-600-closet-object.l
trunk/EusLisp/models/room602-tableware-shelf1-object.l
trunk/EusLisp/models/room602-tableware-shelf2-object.l
trunk/EusLisp/models/room602-tableware-shelf3-object.l
trunk/EusLisp/models/room602-tableware-shelf4-object.l
trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l
trunk/EusLisp/models/room602-trashbox0-object.l
trunk/EusLisp/models/room602-trashbox1-object.l
trunk/EusLisp/models/room602-trashbox2-object.l
trunk/EusLisp/models/room602-trashbox3-object.l
trunk/EusLisp/models/room602-tray1-object.l
trunk/EusLisp/models/room602-uchida-shelf-object.l
trunk/EusLisp/models/room602-uchida-shelf2-object.l
trunk/EusLisp/models/room602-wheelchair-object.l
Modified: trunk/EusLisp/models/room602-3t-600-clean-locker-object.l
===================================================================
--- trunk/EusLisp/models/room602-3t-600-clean-locker-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-3t-600-clean-locker-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -149,10 +149,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&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 room602-3t-600-clean-locker (&rest args) (instance* room602-3t-600-clean-locker-object :init args))
Modified: trunk/EusLisp/models/room602-602-ground-object.l
===================================================================
--- trunk/EusLisp/models/room602-602-ground-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-602-ground-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -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 room602-602-ground (&rest args) (instance* room602-602-ground-object :init args))
Modified: trunk/EusLisp/models/room602-aquos1-object.l
===================================================================
--- trunk/EusLisp/models/room602-aquos1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-aquos1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -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 room602-aquos1 (&rest args) (instance* room602-aquos1-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-0 (&rest args) (instance* room602-askul-1200x700-desk-0-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-1 (&rest args) (instance* room602-askul-1200x700-desk-1-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-2 (&rest args) (instance* room602-askul-1200x700-desk-2-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-3 (&rest args) (instance* room602-askul-1200x700-desk-3-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-4 (&rest args) (instance* room602-askul-1200x700-desk-4-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-5 (&rest args) (instance* room602-askul-1200x700-desk-5-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-6 (&rest args) (instance* room602-askul-1200x700-desk-6-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-7 (&rest args) (instance* room602-askul-1200x700-desk-7-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-askul-1200x700-desk-8 (&rest args) (instance* room602-askul-1200x700-desk-8-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-corner1-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-corner1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-corner1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-corner1 (&rest args) (instance* room602-bariera-1200-corner1-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-corner7-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-corner7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-corner7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-corner7 (&rest args) (instance* room602-bariera-1200-corner7-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-left8-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-left8-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-left8-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -310,10 +310,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-left8 (&rest args) (instance* room602-bariera-1200-left8-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-middle2 (&rest args) (instance* room602-bariera-1200-middle2-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle3-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-middle3 (&rest args) (instance* room602-bariera-1200-middle3-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle4-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-middle4 (&rest args) (instance* room602-bariera-1200-middle4-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-right5-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-right5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-right5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-right5 (&rest args) (instance* room602-bariera-1200-right5-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-right6-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-right6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-right6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-bariera-1200-right6 (&rest args) (instance* room602-bariera-1200-right6-object :init args))
Modified: trunk/EusLisp/models/room602-bed-object.l
===================================================================
--- trunk/EusLisp/models/room602-bed-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bed-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -840,9 +840,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 room602-bed (&rest args) (instance* room602-bed-object :init args))
Modified: trunk/EusLisp/models/room602-chair1-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&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 room602-chair1 (&rest args) (instance* room602-chair1-object :init args))
Modified: trunk/EusLisp/models/room602-chair2-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&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 room602-chair2 (&rest args) (instance* room602-chair2-object :init args))
Modified: trunk/EusLisp/models/room602-chair3-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&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 room602-chair3 (&rest args) (instance* room602-chair3-object :init args))
Modified: trunk/EusLisp/models/room602-chair5-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&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 room602-chair5 (&rest args) (instance* room602-chair5-object :init args))
Modified: trunk/EusLisp/models/room602-chair6-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&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 room602-chair6 (&rest args) (instance* room602-chair6-object :init args))
Modified: trunk/EusLisp/models/room602-clock-object.l
===================================================================
--- trunk/EusLisp/models/room602-clock-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-clock-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -280,9 +280,9 @@
(:hour-joint (&rest args) (forward-message-to joint0 args))
(:minute-joint (&rest args) (forward-message-to joint1 args))
(:second-joint (&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 room602-clock (&rest args) (instance* room602-clock-object :init args))
Modified: trunk/EusLisp/models/room602-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/room602-cupboard-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-cupboard-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -312,10 +312,10 @@
(:drawer (&rest args) (forward-message-to joint2 args))
(:door-lower-right (&rest args) (forward-message-to joint3 args))
(:door-lower-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 room602-cupboard (&rest args) (instance* room602-cupboard-object :init args))
Modified: trunk/EusLisp/models/room602-desk5-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-desk5 (&rest args) (instance* room602-desk5-object :init args))
Modified: trunk/EusLisp/models/room602-desk6-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-desk6 (&rest args) (instance* room602-desk6-object :init args))
Modified: trunk/EusLisp/models/room602-desk7-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,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 room602-desk7 (&rest args) (instance* room602-desk7-object :init args))
Modified: trunk/EusLisp/models/room602-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-left-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-left-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -74,9 +74,9 @@
(forward-message-to-all (list) args))
(:door (&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 room602-door-left (&rest args) (instance* room602-door-left-object :init args))
Modified: trunk/EusLisp/models/room602-door-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -74,9 +74,9 @@
(forward-message-to-all (list) args))
(:door (&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 room602-door (&rest args) (instance* room602-door-object :init args))
Modified: trunk/EusLisp/models/room602-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-right-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-right-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -173,13 +173,13 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
(:lock (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-door-side () handle0)
- (:handle-rear-knob () handle1)
- (:handle-front-knob () handle2)
- (:handle-lock () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-door-side (&rest args) (forward-message-to handle0 args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle2 args))
+ (:handle-lock (&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 room602-door-right (&rest args) (instance* room602-door-right-object :init args))
Modified: trunk/EusLisp/models/room602-fridge-object.l
===================================================================
--- trunk/EusLisp/models/room602-fridge-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-fridge-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -357,12 +357,12 @@
(:left-freezer (&rest args) (forward-message-to joint3 args))
(:right-freezer (&rest args) (forward-message-to joint4 args))
(:bottom-drawer (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-vegetable-drawer () handle0)
- (:handle-right-door () handle1)
- (:handle-left-door () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-vegetable-drawer (&rest args) (forward-message-to handle0 args))
+ (:handle-right-door (&rest args) (forward-message-to handle1 args))
+ (:handle-left-door (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-fridge (&rest args) (instance* room602-fridge-object :init args))
Modified: trunk/EusLisp/models/room602-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room602-kitchen-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-kitchen-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -1405,14 +1405,14 @@
(:button2-body-joint-2 (&rest args) (forward-message-to joint15 args))
(:tap-tube-joint (&rest args) (forward-message-to joint16 args))
(:tap-handle-joint (&rest args) (forward-message-to joint17 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle-of-tap () handle4)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&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-handle-of-tap (&rest args) (forward-message-to handle4 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-kitchen (&rest args) (instance* room602-kitchen-object :init args))
Modified: trunk/EusLisp/models/room602-laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundry-machine-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-laundry-machine-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -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 room602-laundry-machine (&rest args) (instance* room602-laundry-machine-object :init args))
Modified: trunk/EusLisp/models/room602-plasmatv1-object.l
===================================================================
--- trunk/EusLisp/models/room602-plasmatv1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-plasmatv1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -117,9 +117,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 room602-plasmatv1 (&rest args) (instance* room602-plasmatv1-object :init args))
Modified: trunk/EusLisp/models/room602-plasmatv2-object.l
===================================================================
--- trunk/EusLisp/models/room602-plasmatv2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-plasmatv2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -117,9 +117,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 room602-plasmatv2 (&rest args) (instance* room602-plasmatv2-object :init args))
Modified: trunk/EusLisp/models/room602-square-600-closet-object.l
===================================================================
--- trunk/EusLisp/models/room602-square-600-closet-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-square-600-closet-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -499,15 +499,15 @@
(:drawer2 (&rest args) (forward-message-to joint3 args))
(:drawer3 (&rest args) (forward-message-to joint4 args))
(:drawer4 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-door-left-handle () handle0)
- (:handle-door-right-handle () handle1)
- (:handle-drawer1-handle () handle2)
- (:handle-drawer2-handle () handle3)
- (:handle-drawer3-handle () handle4)
- (:handle-drawer4-handle () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-door-left-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-door-right-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-drawer1-handle (&rest args) (forward-message-to handle2 args))
+ (:handle-drawer2-handle (&rest args) (forward-message-to handle3 args))
+ (:handle-drawer3-handle (&rest args) (forward-message-to handle4 args))
+ (:handle-drawer4-handle (&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 room602-square-600-closet (&rest args) (instance* room602-square-600-closet-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-tableware-shelf1 (&rest args) (instance* room602-tableware-shelf1-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -110,10 +110,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-tableware-shelf2 (&rest args) (instance* room602-tableware-shelf2-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf3-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-tableware-shelf3 (&rest args) (instance* room602-tableware-shelf3-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf4-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-tableware-shelf4 (&rest args) (instance* room602-tableware-shelf4-object :init args))
Modified: trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l
===================================================================
--- trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -222,11 +222,11 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-door () handle0)
- (:handle-knob () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-door (&rest args) (forward-message-to handle0 args))
+ (:handle-knob (&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 room602-toshiba-microwave-oven (&rest args) (instance* room602-toshiba-microwave-oven-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox0-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox0-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox0-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-trashbox0 (&rest args) (instance* room602-trashbox0-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox1-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-trashbox1 (&rest args) (instance* room602-trashbox1-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox2-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-trashbox2 (&rest args) (instance* room602-trashbox2-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox3-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-trashbox3 (&rest args) (instance* room602-trashbox3-object :init args))
Modified: trunk/EusLisp/models/room602-tray1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tray1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tray1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -122,15 +122,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 room602-tray1 (&rest args) (instance* room602-tray1-object :init args))
Modified: trunk/EusLisp/models/room602-uchida-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room602-uchida-shelf-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-uchida-shelf-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -128,10 +128,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-uchida-shelf (&rest args) (instance* room602-uchida-shelf-object :init args))
Modified: trunk/EusLisp/models/room602-uchida-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room602-uchida-shelf2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-uchida-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -128,10 +128,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) 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 room602-uchida-shelf2 (&rest args) (instance* room602-uchida-shelf2-object :init args))
Modified: trunk/EusLisp/models/room602-wheelchair-object.l
===================================================================
--- trunk/EusLisp/models/room602-wheelchair-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-wheelchair-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -1089,22 +1089,22 @@
(:right-large (&rest args) (forward-message-to joint1 args))
(:left-small (&rest args) (forward-message-to joint2 args))
(:right-small (&rest args) (forward-message-to joint3 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7 handle8 handle9 handle10 handle11 handle12))
- (:handle-lbar () handle0)
- (:handle-rbar () handle1)
- (:handle-bar () handle2)
- (:handle-stick () handle3)
- (:handle-rgrip () handle4)
- (:handle-lgrip () handle5)
- (:handle-rhandrail-box () handle6)
- (:handle-lhandrail-box () handle7)
- (:handle-rhandrail () handle8)
- (:handle-lhandrail () handle9)
- (:handle-rpedal () handle10)
- (:handle-lpedal () handle11)
- (:handle-seat () handle12)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7 handle8 handle9 handle10 handle11 handle12) args))
+ (:handle-lbar (&rest args) (forward-message-to handle0 args))
+ (:handle-rbar (&rest args) (forward-message-to handle1 args))
+ (:handle-bar (&rest args) (forward-message-to handle2 args))
+ (:handle-stick (&rest args) (forward-message-to handle3 args))
+ (:handle-rgrip (&rest args) (forward-message-to handle4 args))
+ (:handle-lgrip (&rest args) (forward-message-to handle5 args))
+ (:handle-rhandrail-box (&rest args) (forward-message-to handle6 args))
+ (:handle-lhandrail-box (&rest args) (forward-message-to handle7 args))
+ (:handle-rhandrail (&rest args) (forward-message-to handle8 args))
+ (:handle-lhandrail (&rest args) (forward-message-to handle9 args))
+ (:handle-rpedal (&rest args) (forward-message-to handle10 args))
+ (:handle-lpedal (&rest args) (forward-message-to handle11 args))
+ (:handle-seat (&rest args) (forward-message-to handle12 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-wheelchair (&rest args) (instance* room602-wheelchair-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
