Added support for the D programming languge.

It is still a bit rough around some edges, particularly with regard to multi-threading and operator overloading, and there are some documentation bits missing, but it should be fine for basic use.

The test-suite should build and run fine with the current versions of DMD, LDC and Tango (at least) on Linux x86_64 and Mac OS X 10.6.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12299 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/d/threads_runme.1.d

@@ -0,0 +1,70 @@
+module threads_runme;
+
+import tango.core.Thread;
+import tango.io.Console;
+import Integer = tango.text.convert.Integer;
+import threads.Kerfuffle;
+
+// Spawn 8 threads.
+const uint NUM_THREADS = 8;
+
+// Run test for a few seconds on a 1GHz machine.
+const uint WORKER_LOOP_PASSES = 30000;
+
+void main() {
+  auto kerf = new Kerfuffle();
+  TestThread[] threads;
+
+  // Invoke the threads.
+  for (uint i = 0; i < NUM_THREADS; i++) {
+    auto thread = new TestThread(kerf);
+    threads ~= thread;
+    thread.name = Integer.toString(i);
+    thread.start();
+  }
+
+  // Wait for the threads to finish.
+  foreach(thread; threads) {
+    thread.join();
+  }
+
+  // Check if any thread has failed.
+  foreach(thread; threads) {
+    if (thread.failed) throw new Exception("Test failed.");
+  }
+}
+
+class TestThread : Thread {
+public:
+  this(Kerfuffle kerf) {
+    super(&run);
+    m_kerf = kerf;
+  }
+
+  void run() {
+    failed = false;
+    try {
+      for (uint i = 0; i < WORKER_LOOP_PASSES; i++) {
+	char[] given = "This is the test char[] that should come back. A number: " ~ Integer.toString(i);
+	char[] received = m_kerf.StdString(given);
+	if (received != given) {
+	  throw new Exception("StdString char[] does not match. Received: '" ~ received ~ "'. Expected: '" ~ given ~ "'.");
+	}
+      }
+      for (uint i = 0; i < WORKER_LOOP_PASSES; i++) {
+	char[] given = "This is the test char[] that should come back. A number: " ~ Integer.toString(i);
+	char[] received = m_kerf.CharString(given);
+	if (received != given) {
+	  throw new Exception("StdString char[] does not match. Received: '" ~ received ~ "'. Expected: '" ~ given ~ "'.");
+	}
+      }
+    } catch (Exception e) {
+      Cerr("Test failed (thread " ~ name() ~ "): " ~ e.msg).newline;
+      failed = true;
+    }
+  }
+
+  bool failed;
+private:
+  Kerfuffle m_kerf;
+}