steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksums.process: super minor cleanup, simplify trim-head.

char-rename
John Benediktsson 2016-09-19 20:20:59 -07:00
parent 082e59d187
commit 73c153fa21
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/checksums/process/process.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2016 Alexander Ilin. ! Copyright (C) 2016 Alexander Ilin.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors ascii checksums checksums.common combinators USING: accessors ascii checksums checksums.common destructors io
destructors io io.encodings.binary io.launcher kernel math.parser io.encodings.binary io.launcher kernel math.parser sequences ;
sequences strings ;
IN: checksums.process IN: checksums.process
TUPLE: checksum-process launch-desc ; TUPLE: checksum-process launch-desc ;
@ -11,19 +10,20 @@ C: <checksum-process> checksum-process
TUPLE: process-state < disposable process result ; TUPLE: process-state < disposable process result ;
M: checksum-process initialize-checksum-state ( checksum -- checksum-state ) M: checksum-process initialize-checksum-state
launch-desc>> binary <process-stream> process-state new-disposable swap >>process ; launch-desc>> binary <process-stream>
process-state new-disposable swap >>process ;
M: process-state dispose* ( process-state -- ) M: process-state dispose*
process>> [ dispose ] when* ; process>> [ dispose ] when* ;
M: process-state add-checksum-bytes ( process-state bytes -- process-state' ) M: process-state add-checksum-bytes
over process>> stream-write ; over process>> stream-write ;
: trim-hash ( str -- str' ) : trim-hash ( str -- str' )
dup empty? [ dup [ blank? ] find drop [ head ] when* ] unless ; dup [ blank? ] find drop [ head ] when* ;
M: process-state get-checksum ( checksum-state -- value ) M: process-state get-checksum
dup result>> [ dup result>> [
dup process>> [ dup process>> [
[ [