长投射到整型内部功能

Question

我写转换三个数的函数（R，G，B）到用于通过java.awt.Color

(defn to-rgb 
    ([r g b] (bit-or 
      (long 4278190080) ; the alpha channel = (bit-shift-left 255 24) 
      (bit-shift-left r 16) 
      (bit-shift-left g 8) 
      b))) 

使用Color构造和.getRGB

一个整数

bitmap> (.getRGB (Color. 0 0 0)) 
-16777216 
bitmap> (type (.getRGB (Color. 0 0 0))) 
java.lang.Integer 
(Integer/toBinaryString (.getRGB (Color. 0 0 0))) 
"11111111000000000000000000000000" 

然后我的版本。所以我需要强制转换为Integer

bitmap> (to-rgb 0 0 0) 
4278190080 
bitmap> (Integer. (to-rgb 0 0 0)) 
-16777216 ; as expected 

所以我决定把函数内部的投因为我总是希望Integer返回。

(defn to-rgb2 
    ([r g b] (Integer. (bit-or 
         (long 4278190080) 
         (bit-shift-left r 16) 
         (bit-shift-left g 8) 
         b)))) 

bitmap> (to-rgb2 0 0 0) 
IllegalArgumentException Value out of range for int: 4278190080 clojure.lang.RT.intCast (RT.java:1205) 

Answer 1

在Java中，Integer只有32位。将其更改为Long：

(Long. ...) 

的问题是不断4278190080转化为0xFF000000十六进制，在这里我们看到，最左边的位设置。在Java中，由于整数值是32位有符号的，所以最左边的位不能被设置，因为它被保留为二进制补码表示的负数。

java.lang.Integer.MAX_VALUE = 0x7FFFFFFF 

in hex。

---

更新

如果你需要它作为一个32位的值，使用Long.intValue()像这样：

(defn to-rgb3 
    ([r g b] (.intValue 
      (Long. (bit-or 
         (long 4278190080) 
         (bit-shift-left r 16) 
         (bit-shift-left g 8) 
         b))))) 
(dotest 
    (spyxx (to-rgb3 0 0 0))) 

(to-rgb3 0 0 0) => java.lang.Integer->-16777216