CRC-32: Difference between revisions

===FFI access to Zlib===

<lang txrlisp>(with-dyn-lib "libz.so.1"

(deffi zlib-crc32 "crc32" ulong (ulong str uint)))</lang>

{{out}}

<pre>$ txr -i crc32-zlib.tl

1> (let ((s "The quick brown fox jumps over the lazy dog"))

(zlib-crc32 0 s (coded-length s)))

1095738169</pre>

Note: <code>coded-length</code> gives UTF-8 length; <code>len</code> yields a code point count. Since this is an ASCII string, the two agree.

===Lisp Code===