31 lines
853 B
Factor
31 lines
853 B
Factor
|
! Copyright (C) 2006 Doug Coleman
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: kernel math sequences sequences.private namespaces
|
||
|
|
words io io.binary io.files io.streams.string quotations ;
|
||
|
|
IN: io.crc32
|
||
|
|
|
||
|
|
: crc32-polynomial HEX: edb88320 ; inline
|
||
|
|
|
||
|
|
! Generate the table at load time and define a new word with it,
|
||
|
|
! instead of using a variable, so that the compiler can inline
|
||
|
|
! the call to nth-unsafe
|
||
|
|
DEFER: crc32-table inline
|
||
|
|
|
||
|
|
\ crc32-table
|
||
|
|
256 [
|
||
|
|
8 [
|
||
|
|
dup even? >r 2/ r> [ crc32-polynomial bitxor ] unless
|
||
|
|
] times >bignum
|
||
|
|
] map
|
||
|
|
1quotation define-inline
|
||
|
|
|
||
|
|
: (crc32) ( crc ch -- crc )
|
||
|
|
>bignum dupd bitxor
|
||
|
|
mask-byte crc32-table nth-unsafe >bignum
|
||
|
|
swap -8 shift bitxor ; inline
|
||
|
|
|
||
|
|
: crc32 ( seq -- n )
|
||
|
|
>r HEX: ffffffff dup r> [ (crc32) ] each bitxor ;
|
||
|
|
|
||
|
|
: file-crc32 ( path -- n ) <file-reader> contents crc32 ;
|