[Tinyos-contrib-commits] CVS: tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4 README, 1.1, 1.2 sleep_out_value.ma, 1.1, 1.2 sleep_rxn.ma, 1.1, 1.2 wait_example.ma, 1.1, 1.2 wait_out_string.ma, 1.1, 1.2 wait_out_value.ma, 1.1, 1.2 wait_rout_string.ma, 1.1, 1.2 wait_rout_value.ma, 1.1, 1.2

Chien-Liang Fok chien-liang at users.sourceforge.net
Thu May 18 14:13:32 PDT 2006


Update of /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv19324/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4

Modified Files:
	README sleep_out_value.ma sleep_rxn.ma wait_example.ma 
	wait_out_string.ma wait_out_value.ma wait_rout_string.ma 
	wait_rout_value.ma 
Log Message:


Index: README
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/README,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** README	21 Dec 2005 17:13:20 -0000	1.1
--- README	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,3 ****
! The agents in this directory are used in Tutorial 4 on the local tuple space.
! See http://mobilab.wustl.edu/projects/agilla/docs/tutorials/4_local_ts.html
  for more details.
\ No newline at end of file
--- 1,3 ----
! The agents in this directory are used in Tutorial 4 on the local tuple space.
! See http://mobilab.wustl.edu/projects/agilla/docs/tutorials/4_local_ts.html
  for more details.
\ No newline at end of file

Index: sleep_out_value.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/sleep_out_value.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sleep_out_value.ma	22 Dec 2005 00:10:56 -0000	1.1
--- sleep_out_value.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,4 ****
! 		pushc 1
! 		pushc 1
! 		out
  		halt
\ No newline at end of file
--- 1,4 ----
! 		pushc 1
! 		pushc 1
! 		out
  		halt
\ No newline at end of file

Index: sleep_rxn.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/sleep_rxn.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sleep_rxn.ma	22 Dec 2005 00:10:56 -0000	1.1
--- sleep_rxn.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,25 ****
! 		pushc 0
! 		setvar 0		// set heap[0] = 0
! 		pusht value
! 		pushc 1
! 		pushc REACTION
! 		regrxn			// register reaction
! 		pushcl 80
! 		sleep			// sleep for 10 seconds
! 		getvar 0
! 		pushc 1
! 		pushloc uart_x uart_y
! 		rout			// send tuple to base station
! 		getvar 0
! 		pushc 7
! 		land
! 		putled			// display lower 3 bits on LEDs
! 		halt			// terminate agent
! 
! // reaction callback function		
! REACTION	inp			// remove tuple from TS
! 		pop
! 		getvar 0
! 		add
! 		setvar 0		// heap[0] += value in tuple
  		endrxn
\ No newline at end of file
--- 1,25 ----
! 		pushc 0
! 		setvar 0		// set heap[0] = 0
! 		pusht value
! 		pushc 1
! 		pushc REACTION
! 		regrxn			// register reaction
! 		pushcl 80
! 		sleep			// sleep for 10 seconds
! 		getvar 0
! 		pushc 1
! 		pushloc uart_x uart_y
! 		rout			// send tuple to base station
! 		getvar 0
! 		pushc 7
! 		land
! 		putled			// display lower 3 bits on LEDs
! 		halt			// terminate agent
! 
! // reaction callback function		
! REACTION	inp			// remove tuple from TS
! 		pop
! 		getvar 0
! 		add
! 		setvar 0		// heap[0] += value in tuple
  		endrxn
\ No newline at end of file

Index: wait_example.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/wait_example.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wait_example.ma	21 Dec 2005 17:13:20 -0000	1.1
--- wait_example.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,46 ****
! // Blips the green LED when a tuple containing a value is
! // inserted into the local tuple space.  Blips the red LED
! // when a tuple containing a string is inserted into the 
! // local tuple space.
! 		pusht value
! 		pushc 1
! 		pushc DOGREEN
! 		regrxn
! 		pusht string
! 		pushc 1
! 		pushc DORED
! 		regrxn
! WAIT		wait
! 
! 
! // reaction DOGREEN call-back function
! DOGREEN		inp  		// remove tuple from TS
! 		clear		// clear OpStack
! 		pushc BLIPGREEN
! 		endrxn
! 		
! // reaction DORED call-back function
! DORED		inp  		// remove tuple from TS
! 		clear		// clear OpStack
! 		pushc BLIPRED
! 		endrxn
! 
! // turn on the green LED for 1 second
! BLIPGREEN	pushc 2
! 		putled		// turn on green LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off green LED
! 		pushc WAIT
! 		jumps
! 		
! // turn on the red LED for 1 second
! BLIPRED		pushc 1
! 		putled		// turn on red LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off red LED
! 		pushc WAIT
  		jumps
\ No newline at end of file
--- 1,46 ----
! // Blips the green LED when a tuple containing a value is
! // inserted into the local tuple space.  Blips the red LED
! // when a tuple containing a string is inserted into the 
! // local tuple space.
! 		pusht value
! 		pushc 1
! 		pushc DOGREEN
! 		regrxn
! 		pusht string
! 		pushc 1
! 		pushc DORED
! 		regrxn
! WAIT		wait
! 
! 
! // reaction DOGREEN call-back function
! DOGREEN		inp  		// remove tuple from TS
! 		clear		// clear OpStack
! 		pushc BLIPGREEN
! 		endrxn
! 		
! // reaction DORED call-back function
! DORED		inp  		// remove tuple from TS
! 		clear		// clear OpStack
! 		pushc BLIPRED
! 		endrxn
! 
! // turn on the green LED for 1 second
! BLIPGREEN	pushc 2
! 		putled		// turn on green LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off green LED
! 		pushc WAIT
! 		jumps
! 		
! // turn on the red LED for 1 second
! BLIPRED		pushc 1
! 		putled		// turn on red LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off red LED
! 		pushc WAIT
  		jumps
\ No newline at end of file

Index: wait_out_string.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/wait_out_string.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wait_out_string.ma	21 Dec 2005 17:13:20 -0000	1.1
--- wait_out_string.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,4 ****
! 	pushn abc
! 	pushc 1
! 	out
  	halt
\ No newline at end of file
--- 1,4 ----
! 	pushn abc
! 	pushc 1
! 	out
  	halt
\ No newline at end of file

Index: wait_out_value.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/wait_out_value.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wait_out_value.ma	21 Dec 2005 17:13:20 -0000	1.1
--- wait_out_value.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,4 ****
! 		pushc 1
! 		pushc 1
! 		out
  		halt
\ No newline at end of file
--- 1,4 ----
! 		pushc 1
! 		pushc 1
! 		out
  		halt
\ No newline at end of file

Index: wait_rout_string.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/wait_rout_string.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wait_rout_string.ma	21 Dec 2005 17:13:20 -0000	1.1
--- wait_rout_string.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,5 ****
! 	pushn abc
! 	pushc 1
! 	pushloc 2 1
! 	rout
  	halt
\ No newline at end of file
--- 1,5 ----
! 	pushn abc
! 	pushc 1
! 	pushloc 2 1
! 	rout
  	halt
\ No newline at end of file

Index: wait_rout_value.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Tutorials/Lesson4/wait_rout_value.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wait_rout_value.ma	21 Dec 2005 17:13:20 -0000	1.1
--- wait_rout_value.ma	18 May 2006 21:13:29 -0000	1.2
***************
*** 1,5 ****
! 		pushc 1
! 		pushc 1
! 		pushloc 2 1	
! 		rout
  		halt
\ No newline at end of file
--- 1,5 ----
! 		pushc 1
! 		pushc 1
! 		pushloc 2 1	
! 		rout
  		halt
\ No newline at end of file



More information about the Tinyos-contrib-commits mailing list