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

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

Revision: 625
          http://sourceforge.net/p/euslisp/code/625
Author:   snozawa
Date:     2013-05-01 04:49:23 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/room83b1-83b1-ground-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l
    trunk/EusLisp/models/room83b1-door-left-object.l
    trunk/EusLisp/models/room83b1-door-right-object.l
    trunk/EusLisp/models/room83b1-shelf-0-object.l
    trunk/EusLisp/models/room83b1-shelf-1-object.l
    trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l
    trunk/EusLisp/models/room83b1-village-chair-0-object.l
    trunk/EusLisp/models/room83b1-village-chair-1-object.l
    trunk/EusLisp/models/room83b1-wooden-table-object.l

Modified: trunk/EusLisp/models/room83b1-83b1-ground-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-83b1-ground-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-83b1-ground-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-83b1-ground (&rest args) (instance* room83b1-83b1-ground-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-0 (&rest args) (instance* room83b1-askul-1400-desk-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-1 (&rest args) (instance* room83b1-askul-1400-desk-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-2 (&rest args) (instance* room83b1-askul-1400-desk-2-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-3 (&rest args) (instance* room83b1-askul-1400-desk-3-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-4 (&rest args) (instance* room83b1-askul-1400-desk-4-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-0 (&rest args) (instance* room83b1-askul-1600-desk-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-1 (&rest args) (instance* room83b1-askul-1600-desk-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-2 (&rest args) (instance* room83b1-askul-1600-desk-2-object :init args))

Modified: trunk/EusLisp/models/room83b1-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-door-left-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-door-left-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-door-left (&rest args) (instance* room83b1-door-left-object :init args))

Modified: trunk/EusLisp/models/room83b1-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-door-right-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-door-right-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -301,12 +301,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 room83b1-door-right (&rest args) (instance* room83b1-door-right-object :init args))

Modified: trunk/EusLisp/models/room83b1-shelf-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-shelf-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-shelf-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-shelf-0 (&rest args) (instance* room83b1-shelf-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-shelf-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-shelf-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-shelf-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-shelf-1 (&rest args) (instance* room83b1-shelf-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -390,9 +390,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 room83b1-uchida-1800-desk (&rest args) (instance* room83b1-uchida-1800-desk-object :init args))

Modified: trunk/EusLisp/models/room83b1-village-chair-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-village-chair-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-village-chair-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-village-chair-0 (&rest args) (instance* room83b1-village-chair-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-village-chair-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-village-chair-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-village-chair-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-village-chair-1 (&rest args) (instance* room83b1-village-chair-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-wooden-table-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-wooden-table-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-wooden-table-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -87,9 +87,9 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room83b1-wooden-table (&rest args) (instance* room83b1-wooden-table-object :init args))

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