trim-hash ( str -- str' )

Vocabulary

checksums.process

Inputs

str	a string returned by a console hashing utility

Outputs

str'	extracted hash string

Word description

This is a helper word for process-state's get-checksum implementation. It looks for the hash terminator string " *-" and returns everything before it.

Definition

USING: ascii kernel sequences ;

IN: checksums.process

: trim-hash ( str -- str' )
    dup [ blank? ] find drop [ head ] when* ;