1 files changed, 27 insertions(+), 0 deletions(-)

A extract.tcl

@@ 1,27 @@
+set fp [open CARDPVR.PAC rb]
+binary scan [read $fp 0xc] {iii} magic numents hdrlen
+
+if {$magic != 0x00434150} {
+	return -code error "unknown magic: $magic"
+} else {
+	puts "magic = $magic, OK"
+}
+puts "header length: $hdrlen ($numents entries)"
+
+puts "reading end table..."
+set endhdr [read $fp [expr {$numents * 4}]]
+binary scan $endhdr "i$numents" endtab
+puts $endtab
+
+file mkdir records
+
+set pos $hdrlen
+foreach endpt $endtab {
+	set length [expr {$endpt - $pos}]
+	set data [read $fp $length]
+	set fp2 [open records/[format %08x $endpt].bin wb]
+	puts $fp2 $data
+	close $fp2
+
+	set pos $endpt
+}