Menu
▾
▴
[Euslisp-commit] SF.net SVN: euslisp:[628] trunk/EusLisp/models
|
From: <sn...@us...> - 2013-05-01 04:56:22
|
Revision: 628
http://sourceforge.net/p/euslisp/code/628
Author: snozawa
Date: 2013-05-01 04:56:08 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]
Modified Paths:
--------------
trunk/EusLisp/models/3t-600-clean-locker-object.l
trunk/EusLisp/models/akiba-door-object.l
trunk/EusLisp/models/akiba-door-window-object.l
trunk/EusLisp/models/akiba-room-door-object.l
trunk/EusLisp/models/arrow-1000-object.l
trunk/EusLisp/models/arrow-object.l
trunk/EusLisp/models/askul-gdh-cupboard-object.l
trunk/EusLisp/models/askul-ntr-cupboard-object.l
trunk/EusLisp/models/asplund-cabinet-4dan-object.l
trunk/EusLisp/models/asplund-cabinet-4danbase-object.l
trunk/EusLisp/models/audio_shelf-object.l
trunk/EusLisp/models/azuma-broom-object.l
trunk/EusLisp/models/azuma-short-broom-object.l
trunk/EusLisp/models/ball-object.l
trunk/EusLisp/models/bamboo-broom-object.l
trunk/EusLisp/models/bears-panel-object.l
trunk/EusLisp/models/bidirectional-arrow-object.l
trunk/EusLisp/models/book-object.l
trunk/EusLisp/models/broom-object.l
trunk/EusLisp/models/brown-board-object.l
trunk/EusLisp/models/cardboard-box-object.l
trunk/EusLisp/models/casio-330-analog-clock-object.l
trunk/EusLisp/models/chair-object.l
trunk/EusLisp/models/chessboard-10-3x3-object.l
trunk/EusLisp/models/chessboard-108-9x7-object.l
trunk/EusLisp/models/chessboard-30-6x5-object.l
trunk/EusLisp/models/chessboard-30-7x5-object.l
trunk/EusLisp/models/coe-1200-shelf-object.l
trunk/EusLisp/models/coe-450-shelf-object.l
trunk/EusLisp/models/coe-800-shelf-object.l
trunk/EusLisp/models/coe-corner-shelf-object.l
trunk/EusLisp/models/coe-demospace-object.l
trunk/EusLisp/models/coe-light-object.l
trunk/EusLisp/models/coe-sofa-object.l
trunk/EusLisp/models/coe-sofa2-object.l
trunk/EusLisp/models/coe-stairs-object.l
trunk/EusLisp/models/coffee-cup-cup-object.l
trunk/EusLisp/models/coffee-cup-saucer-object.l
trunk/EusLisp/models/cup-object.l
trunk/EusLisp/models/cupboard-object.l
trunk/EusLisp/models/dining-table-object.l
trunk/EusLisp/models/docomo-p504is-object.l
trunk/EusLisp/models/door-object.l
trunk/EusLisp/models/fridge-object.l
trunk/EusLisp/models/frying-pan-object.l
trunk/EusLisp/models/fujitsu-42-plasmatv-object.l
trunk/EusLisp/models/gifuplastic-720-cart-object.l
trunk/EusLisp/models/gifuplastic-900-cart-object.l
trunk/EusLisp/models/hitachi-42-plasmatv-object.l
trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l
trunk/EusLisp/models/hrp2-rack-object.l
trunk/EusLisp/models/hrp2-shelf-object.l
trunk/EusLisp/models/ideainternational-300-analog-clock-object.l
trunk/EusLisp/models/iron-table-object.l
trunk/EusLisp/models/itoki-900-closet-object.l
trunk/EusLisp/models/itoki-900-shelf-object.l
trunk/EusLisp/models/itoki-900-slide-shelf-object.l
trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l
trunk/EusLisp/models/kettle-object.l
trunk/EusLisp/models/knife-object.l
trunk/EusLisp/models/kokuyo-450-locker-object.l
trunk/EusLisp/models/kokuyo-600-sidetable-object.l
trunk/EusLisp/models/laundry-machine-object.l
trunk/EusLisp/models/maruman-55-analog-clock-object.l
trunk/EusLisp/models/mug-cup-object.l
trunk/EusLisp/models/multibox-shelf-object.l
trunk/EusLisp/models/naiki-6door-closet-object.l
trunk/EusLisp/models/petbottle-object.l
trunk/EusLisp/models/picaladder-object.l
trunk/EusLisp/models/plasmatv-object.l
trunk/EusLisp/models/pockey-object.l
trunk/EusLisp/models/red-chair0-object.l
trunk/EusLisp/models/refrigerator-object.l
trunk/EusLisp/models/sharp-52-aquostv-object.l
trunk/EusLisp/models/sharp-iron-object.l
trunk/EusLisp/models/shelf-object.l
trunk/EusLisp/models/single-arrow-object.l
trunk/EusLisp/models/sponge-object.l
trunk/EusLisp/models/square-600-closet-object.l
trunk/EusLisp/models/sushi-cup-object.l
trunk/EusLisp/models/tognana-pasta-dish-object.l
trunk/EusLisp/models/toshiba-clacio-refrigerator-object.l
trunk/EusLisp/models/toshiba-iron-object.l
trunk/EusLisp/models/toshiba-microwave-oven-object.l
trunk/EusLisp/models/toyama-1800-sidetable-object.l
trunk/EusLisp/models/toyama-900-sidetable-object.l
trunk/EusLisp/models/trashbox-object.l
trunk/EusLisp/models/tray-object.l
trunk/EusLisp/models/uchida-monitor-leg-object.l
trunk/EusLisp/models/uchida-shelf-1100-object.l
trunk/EusLisp/models/uchida-shelf-1300-object.l
trunk/EusLisp/models/washing-machine-object.l
Modified: trunk/EusLisp/models/3t-600-clean-locker-object.l
===================================================================
--- trunk/EusLisp/models/3t-600-clean-locker-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/3t-600-clean-locker-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 3t-600-clean-locker (&rest args) (instance* 3t-600-clean-locker-object :init args))
Modified: trunk/EusLisp/models/akiba-door-object.l
===================================================================
--- trunk/EusLisp/models/akiba-door-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-door-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -249,12 +249,12 @@
(: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))
- (:handle-rear-knob () handle0)
- (:handle-front-knob () handle1)
- (:handle-lock () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle0 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-lock (&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 akiba-door (&rest args) (instance* akiba-door-object :init args))
Modified: trunk/EusLisp/models/akiba-door-window-object.l
===================================================================
--- trunk/EusLisp/models/akiba-door-window-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-door-window-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -94,9 +94,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 akiba-door-window (&rest args) (instance* akiba-door-window-object :init args))
Modified: trunk/EusLisp/models/akiba-room-door-object.l
===================================================================
--- trunk/EusLisp/models/akiba-room-door-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-room-door-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -269,12 +269,12 @@
(: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))
- (:handle-rear-knob () handle0)
- (:handle-front-knob () handle1)
- (:handle-lock () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle0 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-lock (&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 akiba-room-door (&rest args) (instance* akiba-room-door-object :init args))
Modified: trunk/EusLisp/models/arrow-1000-object.l
===================================================================
--- trunk/EusLisp/models/arrow-1000-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/arrow-1000-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -162,9 +162,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 arrow-1000 (&rest args) (instance* arrow-1000-object :init args))
Modified: trunk/EusLisp/models/arrow-object.l
===================================================================
--- trunk/EusLisp/models/arrow-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/arrow-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -162,9 +162,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 arrow (&rest args) (instance* arrow-object :init args))
Modified: trunk/EusLisp/models/askul-gdh-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/askul-gdh-cupboard-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/askul-gdh-cupboard-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 askul-gdh-cupboard (&rest args) (instance* askul-gdh-cupboard-object :init args))
Modified: trunk/EusLisp/models/askul-ntr-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/askul-ntr-cupboard-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/askul-ntr-cupboard-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -258,10 +258,10 @@
(:door-upper-left (&rest args) (forward-message-to joint1 args))
(:door-lower-right (&rest args) (forward-message-to joint2 args))
(:door-lower-left (&rest args) (forward-message-to joint3 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 askul-ntr-cupboard (&rest args) (instance* askul-ntr-cupboard-object :init args))
Modified: trunk/EusLisp/models/asplund-cabinet-4dan-object.l
===================================================================
--- trunk/EusLisp/models/asplund-cabinet-4dan-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/asplund-cabinet-4dan-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -467,10 +467,10 @@
(:drawer1 (&rest args) (forward-message-to joint1 args))
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 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 asplund-cabinet-4dan (&rest args) (instance* asplund-cabinet-4dan-object :init args))
Modified: trunk/EusLisp/models/asplund-cabinet-4danbase-object.l
===================================================================
--- trunk/EusLisp/models/asplund-cabinet-4danbase-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/asplund-cabinet-4danbase-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -197,10 +197,10 @@
(forward-message-to-all (list) args))
(:drawer0 (&rest args) (forward-message-to joint0 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 asplund-cabinet-4danbase (&rest args) (instance* asplund-cabinet-4danbase-object :init args))
Modified: trunk/EusLisp/models/audio_shelf-object.l
===================================================================
--- trunk/EusLisp/models/audio_shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/audio_shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 audio_shelf (&rest args) (instance* audio_shelf-object :init args))
Modified: trunk/EusLisp/models/azuma-broom-object.l
===================================================================
--- trunk/EusLisp/models/azuma-broom-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/azuma-broom-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -86,12 +86,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (: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 attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun azuma-broom (&rest args) (instance* azuma-broom-object :init args))
Modified: trunk/EusLisp/models/azuma-short-broom-object.l
===================================================================
--- trunk/EusLisp/models/azuma-short-broom-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/azuma-short-broom-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -95,12 +95,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (: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 attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun azuma-short-broom (&rest args) (instance* azuma-short-broom-object :init args))
Modified: trunk/EusLisp/models/ball-object.l
===================================================================
--- trunk/EusLisp/models/ball-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/ball-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -1330,10 +1330,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 ball (&rest args) (instance* ball-object :init args))
Modified: trunk/EusLisp/models/bamboo-broom-object.l
===================================================================
--- trunk/EusLisp/models/bamboo-broom-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bamboo-broom-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (: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 attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun bamboo-broom (&rest args) (instance* bamboo-broom-object :init args))
Modified: trunk/EusLisp/models/bears-panel-object.l
===================================================================
--- trunk/EusLisp/models/bears-panel-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bears-panel-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 bears-panel (&rest args) (instance* bears-panel-object :init args))
Modified: trunk/EusLisp/models/bidirectional-arrow-object.l
===================================================================
--- trunk/EusLisp/models/bidirectional-arrow-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bidirectional-arrow-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -99,9 +99,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 bidirectional-arrow (&rest args) (instance* bidirectional-arrow-object :init args))
Modified: trunk/EusLisp/models/book-object.l
===================================================================
--- trunk/EusLisp/models/book-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/book-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -78,13 +78,13 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) 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))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun book (&rest args) (instance* book-object :init args))
Modified: trunk/EusLisp/models/broom-object.l
===================================================================
--- trunk/EusLisp/models/broom-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/broom-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (: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 attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun broom (&rest args) (instance* broom-object :init args))
Modified: trunk/EusLisp/models/brown-board-object.l
===================================================================
--- trunk/EusLisp/models/brown-board-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/brown-board-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -227,10 +227,10 @@
(:drawer0 (&rest args) (forward-message-to joint0 args))
(:drawer1 (&rest args) (forward-message-to joint1 args))
(:drawer2 (&rest args) (forward-message-to joint2 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 brown-board (&rest args) (instance* brown-board-object :init args))
Modified: trunk/EusLisp/models/cardboard-box-object.l
===================================================================
--- trunk/EusLisp/models/cardboard-box-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cardboard-box-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -51,9 +51,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 cardboard-box (&rest args) (instance* cardboard-box-object :init args))
Modified: trunk/EusLisp/models/casio-330-analog-clock-object.l
===================================================================
--- trunk/EusLisp/models/casio-330-analog-clock-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/casio-330-analog-clock-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 casio-330-analog-clock (&rest args) (instance* casio-330-analog-clock-object :init args))
Modified: trunk/EusLisp/models/chair-object.l
===================================================================
--- trunk/EusLisp/models/chair-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chair-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -451,11 +451,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 chair (&rest args) (instance* chair-object :init args))
Modified: trunk/EusLisp/models/chessboard-10-3x3-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-10-3x3-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-10-3x3-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -137,10 +137,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list attention0))
- (:attention-origin () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-origin (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun chessboard-10-3x3 (&rest args) (instance* chessboard-10-3x3-object :init args))
Modified: trunk/EusLisp/models/chessboard-108-9x7-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-108-9x7-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-108-9x7-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -623,10 +623,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list attention0))
- (:attention-origin () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-origin (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun chessboard-108-9x7 (&rest args) (instance* chessboard-108-9x7-object :init args))
Modified: trunk/EusLisp/models/chessboard-30-6x5-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-30-6x5-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-30-6x5-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -326,10 +326,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list attention0))
- (:attention-origin () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-origin (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun chessboard-30-6x5 (&rest args) (instance* chessboard-30-6x5-object :init args))
Modified: trunk/EusLisp/models/chessboard-30-7x5-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-30-7x5-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-30-7x5-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -371,10 +371,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list attention0))
- (:attention-origin () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-origin (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun chessboard-30-7x5 (&rest args) (instance* chessboard-30-7x5-object :init args))
Modified: trunk/EusLisp/models/coe-1200-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-1200-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-1200-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -101,10 +101,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 coe-1200-shelf (&rest args) (instance* coe-1200-shelf-object :init args))
Modified: trunk/EusLisp/models/coe-450-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-450-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-450-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-450-shelf (&rest args) (instance* coe-450-shelf-object :init args))
Modified: trunk/EusLisp/models/coe-800-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-800-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-800-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -101,10 +101,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 coe-800-shelf (&rest args) (instance* coe-800-shelf-object :init args))
Modified: trunk/EusLisp/models/coe-corner-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-corner-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-corner-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -101,10 +101,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 coe-corner-shelf (&rest args) (instance* coe-corner-shelf-object :init args))
Modified: trunk/EusLisp/models/coe-demospace-object.l
===================================================================
--- trunk/EusLisp/models/coe-demospace-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-demospace-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -523,9 +523,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 coe-demospace (&rest args) (instance* coe-demospace-object :init args))
Modified: trunk/EusLisp/models/coe-light-object.l
===================================================================
--- trunk/EusLisp/models/coe-light-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-light-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -98,9 +98,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 coe-light (&rest args) (instance* coe-light-object :init args))
Modified: trunk/EusLisp/models/coe-sofa-object.l
===================================================================
--- trunk/EusLisp/models/coe-sofa-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-sofa-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -188,9 +188,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 coe-sofa (&rest args) (instance* coe-sofa-object :init args))
Modified: trunk/EusLisp/models/coe-sofa2-object.l
===================================================================
--- trunk/EusLisp/models/coe-sofa2-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-sofa2-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -188,9 +188,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 coe-sofa2 (&rest args) (instance* coe-sofa2-object :init args))
Modified: trunk/EusLisp/models/coe-stairs-object.l
===================================================================
--- trunk/EusLisp/models/coe-stairs-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-stairs-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -61,9 +61,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 coe-stairs (&rest args) (instance* coe-stairs-object :init args))
Modified: trunk/EusLisp/models/coffee-cup-cup-object.l
===================================================================
--- trunk/EusLisp/models/coffee-cup-cup-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coffee-cup-cup-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -570,10 +570,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 coffee-cup-cup (&rest args) (instance* coffee-cup-cup-object :init args))
Modified: trunk/EusLisp/models/coffee-cup-saucer-object.l
===================================================================
--- trunk/EusLisp/models/coffee-cup-saucer-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coffee-cup-saucer-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -699,13 +699,13 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) 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))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun coffee-cup-saucer (&rest args) (instance* coffee-cup-saucer-object :init args))
Modified: trunk/EusLisp/models/cup-object.l
===================================================================
--- trunk/EusLisp/models/cup-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cup-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -282,11 +282,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (: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 attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun cup (&rest args) (instance* cup-object :init args))
Modified: trunk/EusLisp/models/cupboard-object.l
===================================================================
--- trunk/EusLisp/models/cupboard-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cupboard-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 cupboard (&rest args) (instance* cupboard-object :init args))
Modified: trunk/EusLisp/models/dining-table-object.l
===================================================================
--- trunk/EusLisp/models/dining-table-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/dining-table-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -60,9 +60,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 dining-table (&rest args) (instance* dining-table-object :init args))
Modified: trunk/EusLisp/models/docomo-p504is-object.l
===================================================================
--- trunk/EusLisp/models/docomo-p504is-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/docomo-p504is-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -102,9 +102,9 @@
(forward-message-to-all (list) args))
(:base-joint (&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 docomo-p504is (&rest args) (instance* docomo-p504is-object :init args))
Modified: trunk/EusLisp/models/door-object.l
===================================================================
--- trunk/EusLisp/models/door-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/door-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -126,9 +126,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 door (&rest args) (instance* door-object :init args))
Modified: trunk/EusLisp/models/fridge-object.l
===================================================================
--- trunk/EusLisp/models/fridge-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/fridge-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 fridge (&rest args) (instance* fridge-object :init args))
Modified: trunk/EusLisp/models/frying-pan-object.l
===================================================================
--- trunk/EusLisp/models/frying-pan-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/frying-pan-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -101,10 +101,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-grip () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-grip (&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 frying-pan (&rest args) (instance* frying-pan-object :init args))
Modified: trunk/EusLisp/models/fujitsu-42-plasmatv-object.l
===================================================================
--- trunk/EusLisp/models/fujitsu-42-plasmatv-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/fujitsu-42-plasmatv-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -329,9 +329,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 fujitsu-42-plasmatv (&rest args) (instance* fujitsu-42-plasmatv-object :init args))
Modified: trunk/EusLisp/models/gifuplastic-720-cart-object.l
===================================================================
--- trunk/EusLisp/models/gifuplastic-720-cart-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/gifuplastic-720-cart-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -351,11 +351,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 gifuplastic-720-cart (&rest args) (instance* gifuplastic-720-cart-object :init args))
Modified: trunk/EusLisp/models/gifuplastic-900-cart-object.l
===================================================================
--- trunk/EusLisp/models/gifuplastic-900-cart-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/gifuplastic-900-cart-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -351,11 +351,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 gifuplastic-900-cart (&rest args) (instance* gifuplastic-900-cart-object :init args))
Modified: trunk/EusLisp/models/hitachi-42-plasmatv-object.l
===================================================================
--- trunk/EusLisp/models/hitachi-42-plasmatv-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hitachi-42-plasmatv-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 hitachi-42-plasmatv (&rest args) (instance* hitachi-42-plasmatv-object :init args))
Modified: trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l
===================================================================
--- trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -271,13 +271,13 @@
(:door1 (&rest args) (forward-message-to joint0 args))
(:drawer1 (&rest args) (forward-message-to joint1 args))
(:drawer2 (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-drawer2 () handle0)
- (:handle-drawer1 () handle1)
- (:handle-door1 () handle2)
- (:handle-handle3 () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-drawer2 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer1 (&rest args) (forward-message-to handle1 args))
+ (:handle-door1 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&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 hitachi-fiesta-refrigerator (&rest args) (instance* hitachi-fiesta-refrigerator-object :init args))
Modified: trunk/EusLisp/models/hrp2-rack-object.l
===================================================================
--- trunk/EusLisp/models/hrp2-rack-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hrp2-rack-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -262,9 +262,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 hrp2-rack (&rest args) (instance* hrp2-rack-object :init args))
Modified: trunk/EusLisp/models/hrp2-shelf-object.l
===================================================================
--- trunk/EusLisp/models/hrp2-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hrp2-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -119,10 +119,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 hrp2-shelf (&rest args) (instance* hrp2-shelf-object :init args))
Modified: trunk/EusLisp/models/ideainternational-300-analog-clock-object.l
===================================================================
--- trunk/EusLisp/models/ideainternational-300-analog-clock-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/ideainternational-300-analog-clock-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 ideainternational-300-analog-clock (&rest args) (instance* ideainternational-300-analog-clock-object :init args))
Modified: trunk/EusLisp/models/iron-table-object.l
===================================================================
--- trunk/EusLisp/models/iron-table-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/iron-table-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -147,9 +147,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 iron-table (&rest args) (instance* iron-table-object :init args))
Modified: trunk/EusLisp/models/itoki-900-closet-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-closet-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-closet-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -156,10 +156,10 @@
(:door-left (&rest args) (forward-message-to joint0 args))
(:door-right (&rest args) (forward-message-to joint1 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 itoki-900-closet (&rest args) (instance* itoki-900-closet-object :init args))
Modified: trunk/EusLisp/models/itoki-900-shelf-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 itoki-900-shelf (&rest args) (instance* itoki-900-shelf-object :init args))
Modified: trunk/EusLisp/models/itoki-900-slide-shelf-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-slide-shelf-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-slide-shelf-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -239,10 +239,10 @@
(:door0 (&rest args) (forward-message-to joint0 args))
(:door1 (&rest args) (forward-message-to joint1 args))
(:door2 (&rest args) (forward-message-to joint2 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 itoki-900-slide-shelf (&rest args) (instance* itoki-900-slide-shelf-object :init args))
Modified: trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l
===================================================================
--- trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -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 karimoku-kannonbiraki-cabinet (&rest args) (instance* karimoku-kannonbiraki-cabinet-object :init args))
Modified: trunk/EusLisp/models/kettle-object.l
===================================================================
--- trunk/EusLisp/models/kettle-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kettle-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -604,11 +604,11 @@
(forward-message-to-all (list) args))
(:handle-joint (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (: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 attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun kettle (&rest args) (instance* kettle-object :init args))
Modified: trunk/EusLisp/models/knife-object.l
===================================================================
--- trunk/EusLisp/models/knife-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/knife-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -65,10 +65,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 knife (&rest args) (instance* knife-object :init args))
Modified: trunk/EusLisp/models/kokuyo-450-locker-object.l
===================================================================
--- trunk/EusLisp/models/kokuyo-450-locker-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kokuyo-450-locker-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -168,10 +168,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 kokuyo-450-locker (&rest args) (instance* kokuyo-450-locker-object :init args))
Modified: trunk/EusLisp/models/kokuyo-600-sidetable-object.l
===================================================================
--- trunk/EusLisp/models/kokuyo-600-sidetable-object.l 2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kokuyo-600-sidetable-object.l 2013-05-01 04:56:08 UTC (rev 628)
@@ -80,9 +80,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 kokuyo-600-sidetable (&rest args) (instance* kokuyo-600-sidetable-object :init args))
Modified: trunk/EusLisp/models/laundry-machine-object.l
===================...
[truncated message content] |
