emtk/transfer.fth at master · arborstate/emtk · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

variable old-ingest-number

: bytes[
    dup
    ['] ingest-number defer@ old-ingest-number !
    ['] c!+ ['] ingest-number defer! ;

: ]bytes old-ingest-number @ ['] ingest-number defer! over - ;

: dump begin dup while over c@ . 1 - swap 1 + swap repeat drop drop ;

: reverse-bits 0 swap begin dup while >r 1 << over 1 & | swap 1 >> swap r> 1 - repeat drop swap drop ;

: generate-table-val 8 begin dup while >r dup 1 & if 1 >> over ^ else 1 >> then r> 1 - repeat drop swap drop ;
: generate-table >r 0 begin dup 256 < while r@ over generate-table-val , 1 + repeat drop r> drop ;

create crc32-table 0x04C11DB7 32 reverse-bits generate-table
: crc32 0xFFFFFFFF >r over + swap begin 2dup > while c@+ r@ 0xFF & ^ cells crc32-table + @ r> 8 >> ^ >r repeat 2drop r> 0xFFFFFFFF ^ ;

create crc32c-table 0x1EDC6F41 32 reverse-bits generate-table
: crc32c 0xFFFFFFFF >r over + swap begin 2dup > while c@+ r@ 0xFF & ^ cells crc32c-table + @ r> 8 >> ^ >r repeat 2drop r> 0xFFFFFFFF ^ ;