使用Clojure向串口写入无符号字节：求更简洁的LED驱动实现方案

问题描述 #

我正在向串口推送颜色数据以驱动LED，采用的协议是：先发送命令字符'h'，再发送代表色调的字节数据。当前实现可以正常运行，但仅写入(int \h)就需要借助DataOutputStream，还得通过ByteArrayOutputStream写入字节，整个流程非常繁琐。请问有没有更简洁的实现方式？

原实现代码：

(with-open [b (new ByteArrayOutputStream)
             w (new DataOutputStream (io/output-stream "/dev/ttyACM0"))]
      (.writeInt w (int \h))
      (.writeBytes b (byte-array (map unchecked-byte (map to-hsv pixelarray))))
      (.writeTo b w))

优化方案 #

你完全可以去掉冗余的DataOutputStream和ByteArrayOutputStream，直接使用基础的OutputStream完成写入操作，大幅简化代码：

情况1：协议要求发送4字节整数形式的命令（与原代码逻辑一致） #

如果原代码中用writeInt发送(int \h)是符合协议要求（即发送4字节的0x00000068），可以简化为：

(with-open [out (io/output-stream "/dev/ttyACM0")]
  ;; 写入4字节的命令整数
  (.write out (byte-array [(byte 0) (byte 0) (byte 0) (byte (int \h))]))
  ;; 直接写入色调字节数组
  (.write out (byte-array (map unchecked-byte (map to-hsv pixelarray)))))

情况2：协议要求发送单字节的'h'（更符合常规字符命令逻辑） #

如果协议实际是要求发送单字节的ASCII字符'h'（即0x68），原代码的writeInt其实多写了3个空字节，不过既然当前能运行可能是设备兼容，但更简洁且正确的写法是：

(with-open [out (io/output-stream "/dev/ttyACM0")]
  ;; 直接发送单字节命令'h'，OutputStream.write(int)会自动取低8位
  (.write out (int \h))
  ;; 用comp简化嵌套map，直接生成字节数组写入
  (.write out (byte-array (map (comp unchecked-byte to-hsv) pixelarray))))

优化说明 #

• 直接使用io/output-stream获取的基础输出流即可完成所有写入操作，无需额外包装流对象，减少资源开销和代码层级。
• 色调数据可以直接转换为字节数组后写入，不需要通过ByteArrayOutputStream中转，省去了内存缓存和二次写入的步骤。
• 用comp函数合并to-hsv和unchecked-byte的转换逻辑，让代码更紧凑易读。

内容的提问来源于stack exchange，提问作者robbie.huffman