/red-system/utils/int-to-bin.r

http://github.com/dockimbel/Red · R · 24 lines · 19 code · 5 blank · 0 comment · 0 complexity · 4b09fe22e2a2e9dafdfba0f7f6a5475d MD5 · raw file

  1. REBOL [
  2. Title: "Red/System integer! to binary! conversion library"
  3. Author: "Nenad Rakocevic"
  4. File: %int-to-bin.r
  5. Rights: "Copyright (C) 2011 Nenad Rakocevic. All rights reserved."
  6. License: "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
  7. ]
  8. int-to-bin: context [
  9. little-endian?: yes
  10. set 'to-bin8 func [v [integer! char!]][
  11. to binary! to char! 256 + v and 255
  12. ]
  13. set 'to-bin16 func [v [integer! char!]][ ;TBD: add big-endian support
  14. reverse skip debase/base to-hex to integer! v 16 2
  15. ]
  16. set 'to-bin32 func [v [integer! char!]][ ;TBD: add big-endian support
  17. reverse debase/base to-hex to integer! v 16
  18. ]
  19. ]