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

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

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

Modified Paths:
--------------
    trunk/EusLisp/models/bariera-1200-corner-object.l
    trunk/EusLisp/models/bariera-1200-middle-object.l
    trunk/EusLisp/models/bariera-1200-middle2-object.l
    trunk/EusLisp/models/bariera-1200-middle3-object.l
    trunk/EusLisp/models/bariera-1200-right-object.l
    trunk/EusLisp/models/bariera-1400-middle-object.l
    trunk/EusLisp/models/bariera-900-left-object.l
    trunk/EusLisp/models/bariera-900-middle-object.l
    trunk/EusLisp/models/elevator_call_panel-object.l
    trunk/EusLisp/models/elevator_call_panel_eng2-object.l
    trunk/EusLisp/models/elevator_inside_panel-object.l
    trunk/EusLisp/models/elevator_inside_panel_eng2-object.l

Modified: trunk/EusLisp/models/bariera-1200-corner-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-corner-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-corner-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-corner (&rest args) (instance* bariera-1200-corner-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle (&rest args) (instance* bariera-1200-middle-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -255,10 +255,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 bariera-1200-middle2 (&rest args) (instance* bariera-1200-middle2-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle3-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle3-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle3-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -255,10 +255,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 bariera-1200-middle3 (&rest args) (instance* bariera-1200-middle3-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-right-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-right-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-right-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-right (&rest args) (instance* bariera-1200-right-object :init args))

Modified: trunk/EusLisp/models/bariera-1400-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1400-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1400-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1400-middle (&rest args) (instance* bariera-1400-middle-object :init args))

Modified: trunk/EusLisp/models/bariera-900-left-object.l
===================================================================
--- trunk/EusLisp/models/bariera-900-left-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-900-left-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-900-left (&rest args) (instance* bariera-900-left-object :init args))

Modified: trunk/EusLisp/models/bariera-900-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-900-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-900-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -301,10 +301,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 bariera-900-middle (&rest args) (instance* bariera-900-middle-object :init args))

Modified: trunk/EusLisp/models/elevator_call_panel-object.l
===================================================================
--- trunk/EusLisp/models/elevator_call_panel-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_call_panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -60,11 +60,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list  button0 button1))
-  (:button-down () button0)
-  (:button-up () button1)
+  (: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  button0 button1) args))
+  (:button-down (&rest args) (forward-message-to button0 args))
+  (:button-up (&rest args) (forward-message-to button1 args))
   )
 
 (defun elevator_call_panel (&rest args) (instance* elevator_call_panel-object :init args))

Modified: trunk/EusLisp/models/elevator_call_panel_eng2-object.l
===================================================================
--- trunk/EusLisp/models/elevator_call_panel_eng2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_call_panel_eng2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -60,11 +60,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list  button0 button1))
-  (:button-down () button0)
-  (:button-up () button1)
+  (: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  button0 button1) args))
+  (:button-down (&rest args) (forward-message-to button0 args))
+  (:button-up (&rest args) (forward-message-to button1 args))
   )
 
 (defun elevator_call_panel_eng2 (&rest args) (instance* elevator_call_panel_eng2-object :init args))

Modified: trunk/EusLisp/models/elevator_inside_panel-object.l
===================================================================
--- trunk/EusLisp/models/elevator_inside_panel-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_inside_panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -83,21 +83,21 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-/elevator_number () attention0)
-  (:button () (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10))
-  (:button-close () button0)
-  (:button-open () button1)
-  (:button-7F () button2)
-  (:button-6F () button3)
-  (:button-5F () button4)
-  (:button-4F () button5)
-  (:button-3F () button6)
-  (:button-2F () button7)
-  (:button-1F () button8)
-  (:button-B1F () button9)
-  (:button-B2F () button10)
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-/elevator_number (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10) args))
+  (:button-close (&rest args) (forward-message-to button0 args))
+  (:button-open (&rest args) (forward-message-to button1 args))
+  (:button-7F (&rest args) (forward-message-to button2 args))
+  (:button-6F (&rest args) (forward-message-to button3 args))
+  (:button-5F (&rest args) (forward-message-to button4 args))
+  (:button-4F (&rest args) (forward-message-to button5 args))
+  (:button-3F (&rest args) (forward-message-to button6 args))
+  (:button-2F (&rest args) (forward-message-to button7 args))
+  (:button-1F (&rest args) (forward-message-to button8 args))
+  (:button-B1F (&rest args) (forward-message-to button9 args))
+  (:button-B2F (&rest args) (forward-message-to button10 args))
   )
 
 (defun elevator_inside_panel (&rest args) (instance* elevator_inside_panel-object :init args))

Modified: trunk/EusLisp/models/elevator_inside_panel_eng2-object.l
===================================================================
--- trunk/EusLisp/models/elevator_inside_panel_eng2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_inside_panel_eng2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -91,25 +91,25 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-/elevator_number () attention0)
-  (:button () (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10 button11 button12 button13 button14))
-  (:button-close () button0)
-  (:button-open () button1)
-  (:button-12F () button2)
-  (:button-11F () button3)
-  (:button-10F () button4)
-  (:button-9F () button5)
-  (:button-8F () button6)
-  (:button-7F () button7)
-  (:button-6F () button8)
-  (:button-5F () button9)
-  (:button-4F () button10)
-  (:button-3F () button11)
-  (:button-2F () button12)
-  (:button-1F () button13)
-  (:button-B1F () button14)
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-/elevator_number (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10 button11 button12 button13 button14) args))
+  (:button-close (&rest args) (forward-message-to button0 args))
+  (:button-open (&rest args) (forward-message-to button1 args))
+  (:button-12F (&rest args) (forward-message-to button2 args))
+  (:button-11F (&rest args) (forward-message-to button3 args))
+  (:button-10F (&rest args) (forward-message-to button4 args))
+  (:button-9F (&rest args) (forward-message-to button5 args))
+  (:button-8F (&rest args) (forward-message-to button6 args))
+  (:button-7F (&rest args) (forward-message-to button7 args))
+  (:button-6F (&rest args) (forward-message-to button8 args))
+  (:button-5F (&rest args) (forward-message-to button9 args))
+  (:button-4F (&rest args) (forward-message-to button10 args))
+  (:button-3F (&rest args) (forward-message-to button11 args))
+  (:button-2F (&rest args) (forward-message-to button12 args))
+  (:button-1F (&rest args) (forward-message-to button13 args))
+  (:button-B1F (&rest args) (forward-message-to button14 args))
   )
 
 (defun elevator_inside_panel_eng2 (&rest args) (instance* elevator_inside_panel_eng2-object :init args))

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