2011-08-09 19 views
3

私はClojureでMPQファイルを読むための小さなライブラリを開発しようとしていましたが、MPQはバイナリ形式なので、RandomAccessFileを使うことにしました。ClojureのRandomAccessFileから正しく読み込む方法は?

私は私が正しく

それを呼んでいる場合は、ここでのコードは本当にわからないしかし、私は、この方法RandomAccessFile#read()とのトラブルを抱えている:

(ns parser 
    (:import (java.io RandomAccessFile))) 


(with-open [file (RandomAccessFile. "replay.SC2Replay" "r")] 
    (let [x (byte-array 16)] 
    (.read file [x 0 16]))) 

私は、コードを実行すると、私は得る

Exception in thread "main" java.lang.ClassCastException: clojure.lang.PersistentVector cannot be cast to [B (parser.clj:0) 
    at clojure.lang.Compiler.eval(Compiler.java:5440) 
    at clojure.lang.Compiler.load(Compiler.java:5857) 
    at clojure.lang.Compiler.loadFile(Compiler.java:5820) 
    at clojure.main$load_script.invoke(main.clj:221) 
    at clojure.main$script_opt.invoke(main.clj:273) 
    at clojure.main$main.doInvoke(main.clj:354) 
    at clojure.lang.RestFn.invoke(RestFn.java:409) 
    at clojure.lang.Var.invoke(Var.java:365) 
    at clojure.lang.AFn.applyToHelper(AFn.java:163) 
    at clojure.lang.Var.applyTo(Var.java:482) 
    at clojure.main.main(main.java:37) 
    at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method) 
    at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39) 
    at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25) 
    at java.lang.reflect.Method.invoke(Method.java:597) 
    at com.intellij.rt.execution.application.AppMain.main(AppMain.java:120) 
Caused by: java.lang.ClassCastException: clojure.lang.PersistentVector cannot be cast to [B 
    at parser$eval7.invoke(parser.clj:7) 
    at clojure.lang.Compiler.eval(Compiler.java:5424) 
    ... 15 more 

例外。私はまた、一時変数のためにこれをやろうとしました

(let [x []] 

しかし、両方とも同じ例外が発生します。 Javaで同じコードあなたはそれを取り込んで、単一の引数readメソッドを呼び出すことができますので、バイト配列にキャストしようとして引数として単一のベクターに渡している。この

RandomAccessFile file = new RandomAccessFile("replay.SC2Replay", "r"); 
byte[] x; 
file.read(x, 0, 16); 

答えて

4

ようなものになるだろうバイト配列そのまま引数を渡してください。

(with-open [file (RandomAccessFile. "replay.SC2Replay" "r")] 
    (let [x (byte-array 16)] 
    (.read file x 0 16))) 
関連する問題