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

checksums.process: in the process-state tuple rename proc slot to process

char-rename
Alexander Iljin 2016-09-20 00:10:06 +03:00 committed by John Benediktsson
parent 817338360c
commit 082e59d187
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,23 +9,23 @@ TUPLE: checksum-process launch-desc ;
INSTANCE: checksum-process block-checksum
C: <checksum-process> checksum-process
TUPLE: process-state < disposable proc result ;
TUPLE: process-state < disposable process result ;
M: checksum-process initialize-checksum-state ( checksum -- checksum-state )
launch-desc>> binary <process-stream> process-state new-disposable swap >>proc ;
launch-desc>> binary <process-stream> process-state new-disposable swap >>process ;
M: process-state dispose* ( process-state -- )
proc>> [ dispose ] when* ;
process>> [ dispose ] when* ;
M: process-state add-checksum-bytes ( process-state bytes -- process-state' )
over proc>> stream-write ;
over process>> stream-write ;
: trim-hash ( str -- str' )
dup empty? [ dup [ blank? ] find drop [ head ] when* ] unless ;
M: process-state get-checksum ( checksum-state -- value )
dup result>> [
dup proc>> [
dup process>> [
[
[ out>> dispose ] keep
stream-contents trim-hash hex-string>bytes