12 lines
239 B
Scheme
12 lines
239 B
Scheme
|
(library
|
||
|
|
(crc32c checksum)
|
||
|
|
|
||
|
|
(export crc32c)
|
||
|
|
|
||
|
|
(import (chezscheme))
|
||
|
|
|
||
|
|
(define __ (load-shared-object "./crc32c/crc32c.so"))
|
||
|
|
|
||
|
|
(define crc32c
|
||
|
|
(foreign-procedure "crc32c" (unsigned-32 (* unsigned-8) unsigned) unsigned-32)))
|