1 files changed, 31 insertions, 0 deletions
diff --git a/TAO/orbsvcs/orbsvcs/Event/BCU.cpp b/TAO/orbsvcs/orbsvcs/Event/BCU.cpp
new file mode 100644
index 00000000000..374fe783ef9
--- /dev/null
+++ b/TAO/orbsvcs/orbsvcs/Event/BCU.cpp
@@ -0,0 +1,31 @@
+// $Id$
+
+#include "ace/ACE.h"
+#include "BCU.h"
+
+
+u_long
+ACE_BCU (u_long n)
+{
+  const u_long ACE_BCU_PRIME_NUMBER = 9619;
+
+  u_long retval = 0;
+
+  while (n-- > 0)
+    retval = ACE::is_prime (ACE_BCU_PRIME_NUMBER, 2, ACE_BCU_PRIME_NUMBER / 2);
+
+  return retval;
+}
+
+
+u_long
+ACE_BCU (u_long number,
+         u_long n)
+{
+  u_long retval = 0;
+
+  while (n-- > 0)
+    retval = ACE::is_prime (number, 2, number);
+
+  return retval;
+}