Attached is the typed scheme wrapper for file/gif. One challenge I ran into is that I needed argb-bytes? as an opague type but it's not exported. I couldn't find how to define an function as an opague type within the same module, so I had to patch file/gif to export argb-bytes? instead.
Let me know if there are different way of handling this issue. Thanks, yc
gif.ss
Description: Binary data
--- /usr/local/plt/lib/plt/collects/file/gif.ss 2008-11-16 11:34:46.000000000 -0800
+++ plt-scheme/file/gif.ss 2009-02-27 13:29:26.000000000 -0800
@@ -562,6 +562,9 @@
(zero? (remainder (bytes-length b) 4))))
(provide/doc
+ (proc-doc argb-bytes?
+ (([b any/c]) () . ->d . [_ boolean?])
+ @{Returns @sche...@t] if @scheme[b] is bytes and divisible by 4, @scheme[#f] otherwise.})
(proc-doc quantize
(([bstr argb-bytes?])
()
_________________________________________________ For list-related administrative tasks: http://list.cs.brown.edu/mailman/listinfo/plt-dev
