Adding complementing function.

* arith.c (logcomp): New function.

* eval.c (eval_init): logcomp registered as intrinsic.

* lib.h (logcomp) declared.

* mpi-patches/add-bitops: Fixed bugs in mp_xor. Implemented mp_comp.

1 files changed, 20 insertions, 0 deletions

diff --git a/arith.c b/arith.c
index 82189866..0202f121 100644
--- a/arith.c
+++ b/arith.c
@@ -1611,6 +1611,26 @@ bad:
   uw_throwf(error_s, lit("logxor: operation failed on ~s ~s"), a, b, nao);
 }
 
+val logcomp(val a)
+{
+  val b;
+
+  switch (type(a)) {
+  case NUM:
+    return num_fast(~c_num(a));
+  case BGNUM:
+    b = make_bignum();
+    if (mp_comp(mp(a), mp(b)) != MP_OKAY)
+      goto bad;
+    return b;
+  default:
+    uw_throwf(error_s, lit("logcomp: non-integral operand ~s"), a, nao);
+  }
+
+bad:
+  uw_throwf(error_s, lit("logcomp: operation failed on ~s"), a, nao);
+}
+
 void arith_init(void)
 {
   mp_init(&NUM_MAX_MP);