4 files changed, 202 insertions, 0 deletions
diff --git a/libcult/examples/sched/cancel/cancel.cxx b/libcult/examples/sched/cancel/cancel.cxx
new file mode 100644
index 0000000..ee71449
--- /dev/null
+++ b/libcult/examples/sched/cancel/cancel.cxx
@@ -0,0 +1,63 @@
+// file      : examples/sched/cancel/cancel.cxx
+// author    : Boris Kolpackov <boris@kolpackov.net>
+// copyright : Copyright (c) 2005-2010 Boris Kolpackov
+// license   : GNU GPL v2 + exceptions; see accompanying LICENSE file
+
+#include <cult/types.hxx>
+
+#include <cult/mm/shptr.hxx>
+
+#include <cult/sched/lock.hxx>
+#include <cult/sched/mutex.hxx>
+#include <cult/sched/thread.hxx>
+#include <cult/sched/condition.hxx>
+
+
+#include <iostream>
+#include <unistd.h> // sleep
+
+using std::cerr;
+using std::endl;
+
+using namespace Cult;
+using namespace Sched;
+
+Void*
+cond_wait_thread_proc (Void*)
+{
+  try
+  {
+    Mutex mutex;
+    Condition cond (mutex);
+
+    Lock lock (mutex);
+
+    cond.wait ();
+  }
+  /*
+  catch (std::thread_canceled const& e)
+  {
+    cerr << "caught thread_canceled" << endl;
+    throw;
+  }
+  */
+  catch (...)
+  {
+    cerr << "presumably caught thread_canceled" << endl;
+    throw;
+  }
+
+  return 0;
+}
+
+
+Int
+main ()
+{
+  Shptr<Thread> thread (new Thread (cond_wait_thread_proc));
+
+  sleep (1);
+
+  thread->cancel ();
+  thread->join ();
+}
diff --git a/libcult/examples/sched/cancel/makefile b/libcult/examples/sched/cancel/makefile
new file mode 100644
index 0000000..38a96bd
--- /dev/null
+++ b/libcult/examples/sched/cancel/makefile
@@ -0,0 +1,48 @@
+# file      : examples/sched/cancel/makefile
+# author    : Boris Kolpackov <boris@kolpackov.net>
+# copyright : Copyright (c) 2005-2010 Boris Kolpackov
+# license   : GNU GPL v2; see accompanying LICENSE file
+
+include $(dir $(lastword $(MAKEFILE_LIST)))../../../build/bootstrap.make
+
+cxx_tun   := cancel.cxx
+cxx_obj   := $(addprefix $(out_base)/,$(cxx_tun:.cxx=.o))
+cxx_od    := $(cxx_obj:.o=.o.d)
+
+cult.l             := $(out_root)/cult/cult.l
+cult.l.cpp-options := $(out_root)/cult/cult.l.cpp-options
+
+cancel    := $(out_base)/cancel
+clean     := $(out_base)/.clean
+
+
+# Build.
+#
+$(cancel): $(cxx_obj) $(cult.l)
+
+$(cxx_obj) $(cxx_od): $(cult.l.cpp-options)
+
+$(call include-dep,$(cxx_od))
+
+
+# Convenience alias for default target.
+#
+$(out_base)/: $(cancel)
+
+
+# clean
+#
+$(clean): $(cancel).o.clean          \
+  $(addsuffix .cxx.clean,$(cxx_obj)) \
+  $(addsuffix .cxx.clean,$(cxx_od))
+
+
+# How to.
+#
+$(call include,$(bld_root)/cxx/o-e.make)
+$(call include,$(bld_root)/cxx/cxx-o.make)
+$(call include,$(bld_root)/cxx/cxx-d.make)
+
+# Dependencies.
+#
+$(call import,$(src_root)/cult/makefile)
diff --git a/libcult/examples/sched/main/main.cxx b/libcult/examples/sched/main/main.cxx
new file mode 100644
index 0000000..58cc2cc
--- /dev/null
+++ b/libcult/examples/sched/main/main.cxx
@@ -0,0 +1,43 @@
+// file      : examples/sched/main/main.cxx
+// author    : Boris Kolpackov <boris@kolpackov.net>
+// copyright : Copyright (c) 2005-2010 Boris Kolpackov
+// license   : GNU GPL v2 + exceptions; see accompanying LICENSE file
+
+#include <cult/types.hxx>
+
+#include <cult/mm/shptr.hxx>
+#include <cult/sched/thread.hxx>
+
+#include <iostream>
+#include <unistd.h> // sleep
+
+using namespace Cult;
+using namespace Sched;
+
+using std::cerr;
+using std::endl;
+
+Void*
+thread_func (Void*)
+{
+  cerr << "second thread: going to sleep for a few seconds" << endl;
+
+  sleep (2);
+
+  cerr << "second thread: woke up, now exiting" << endl;
+
+  return 0;
+}
+
+
+Int
+main ()
+{
+  Shptr<Thread> self (new Thread);
+
+  Shptr<Thread> other (new Thread (thread_func));
+
+  cerr << "initial thread: exiting" << endl;
+
+  Thread::exit (0);
+}
diff --git a/libcult/examples/sched/main/makefile b/libcult/examples/sched/main/makefile
new file mode 100644
index 0000000..945237f
--- /dev/null
+++ b/libcult/examples/sched/main/makefile
@@ -0,0 +1,48 @@
+# file      : examples/sched/main/makefile
+# author    : Boris Kolpackov <boris@kolpackov.net>
+# copyright : Copyright (c) 2005-2010 Boris Kolpackov
+# license   : GNU GPL v2; see accompanying LICENSE file
+
+include $(dir $(lastword $(MAKEFILE_LIST)))../../../build/bootstrap.make
+
+cxx_tun   := main.cxx
+cxx_obj   := $(addprefix $(out_base)/,$(cxx_tun:.cxx=.o))
+cxx_od    := $(cxx_obj:.o=.o.d)
+
+cult.l             := $(out_root)/cult/cult.l
+cult.l.cpp-options := $(out_root)/cult/cult.l.cpp-options
+
+main      := $(out_base)/main
+clean     := $(out_base)/.clean
+
+
+# Build.
+#
+$(main): $(cxx_obj) $(cult.l)
+
+$(cxx_obj) $(cxx_od): $(cult.l.cpp-options)
+
+$(call include-dep,$(cxx_od))
+
+
+# Convenience alias for default target.
+#
+$(out_base)/: $(main)
+
+
+# Clean.
+#
+$(clean): $(main).o.clean            \
+  $(addsuffix .cxx.clean,$(cxx_obj)) \
+  $(addsuffix .cxx.clean,$(cxx_od))
+
+
+# How to.
+#
+$(call include,$(bld_root)/cxx/o-e.make)
+$(call include,$(bld_root)/cxx/cxx-o.make)
+$(call include,$(bld_root)/cxx/cxx-d.make)
+
+# Dependencies.
+#
+$(call import,$(src_root)/cult/makefile)