From b6367aba06ef9b3f37b3679a021287893893f530 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 30 Jun 2016 11:13:51 -0700 Subject: [PATCH] checksums.common: some cleanup, remove unused stuff. --- basis/checksums/common/common.factor | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/basis/checksums/common/common.factor b/basis/checksums/common/common.factor index f979a6e719..69d6c3ed9d 100644 --- a/basis/checksums/common/common.factor +++ b/basis/checksums/common/common.factor @@ -1,23 +1,14 @@ ! Copyright (C) 2006, 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: kernel math math.bitwise strings io.binary namespaces -make grouping byte-arrays ; +USING: byte-arrays grouping io.binary kernel make math ; IN: checksums.common -SYMBOL: bytes-read - : calculate-pad-length ( length -- length' ) [ 56 < 55 119 ? ] keep - ; -: calculate-pad-length-long ( length -- length' ) - [ 120 < 119 247 ? ] keep - ; - -: pad-last-block ( str big-endian? length -- str ) +: pad-last-block ( bytes big-endian? length -- blocks ) [ [ % ] 2dip 0x80 , [ 0x3f bitand calculate-pad-length % ] [ 3 shift 8 rot [ >be ] [ >le ] if % ] bi ] B{ } make 64 group ; - -: update-old-new ( old new -- ) - [ [ get ] bi@ w+ dup ] 2keep [ set ] bi@ ; inline