/cln-1.3.2/src/integer/bitwise/cl_I_ldb.cc
C++ | 52 lines | 26 code | 8 blank | 18 comment | 4 complexity | 656dfca97644f772e684e4ee1391cd20 MD5 | raw file
Possible License(s): GPL-2.0
- // ldb().
- // General includes.
- #include "base/cl_sysdep.h"
- // Specification.
- #include "cln/integer.h"
- // Implementation.
- #include "cln/integer.h"
- #include "integer/cl_I.h"
- #include "integer/bitwise/cl_I_byte.h"
- namespace cln {
- const cl_I ldb (const cl_I& n, const cl_byte& b)
- {
- // Methode:
- // (ldb (byte s p) n) extrahiere die Bits p,...,p+s-1 von n.
- // l:=(integer-length n)
- // Falls l <= p :
- // Falls n>=0: 0, falls n<0: 2^s - 1 (s Einsenbits).
- // Falls p <= l :
- // q:=min(p+s,l).
- // Extrahiere die Bits p,...,q-1 von n.
- // Falls p+s>l und n<0, f?ge p+s-l Einsenbits an (addiere 2^s-2^(l-p)).
- var uintC s = b.size;
- var uintC p = b.position;
- var uintC l = integer_length(n); // l = (integer-length n)
- if (l<=p)
- // l<=p
- if (!minusp(n))
- // n>=0
- return 0; // 0 als Ergebnis
- else
- // n<0
- return cl_fullbyte(0,s); // 2^s-2^0 als Ergebnis
- else
- // l>p
- { var cl_I erg = ldb_extract(n,p,(p+s<l ? p+s : l));
- var uintC lp = l-p;
- if ((s>lp) && minusp(n)) // s>l-p und n<0 ?
- { return logior(erg,cl_fullbyte(lp,s)); } // setze Bits l-p,...,s-1
- // (logisches Exklusiv-Oder oder Addition ginge auch)
- else
- return erg;
- }
- }
- } // namespace cln