From a9dd6dc2f595bf8ed3ddfb2949b3e93e0cdfa66d Mon Sep 17 00:00:00 2001
From: rubidium <rubidium@openttd.org>
Date: Wed, 25 Feb 2009 01:21:50 +0000
Subject: (svn r15578) -Change: unexternalise squirrel.

---
 src/3rdparty/squirrel/samples/tailstate.nut | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/3rdparty/squirrel/samples/tailstate.nut

(limited to 'src/3rdparty/squirrel/samples/tailstate.nut')

diff --git a/src/3rdparty/squirrel/samples/tailstate.nut b/src/3rdparty/squirrel/samples/tailstate.nut
new file mode 100644
index 000000000..59fb962ef
--- /dev/null
+++ b/src/3rdparty/squirrel/samples/tailstate.nut
@@ -0,0 +1,24 @@
+function state1()
+{
+	::suspend("state1");
+	return state2();
+}
+
+function state2()
+{
+	::suspend("state2");
+	return state3();
+}
+
+function state3()
+{
+	::suspend("state3");
+	return state1();
+}
+
+local statethread = ::newthread(state1)
+
+::print(statethread.call()+"\n");
+
+for(local i = 0; i < 10000; i++)
+	::print(statethread.wakeup()+"\n");
-- 
cgit v1.2.3-70-g09d2