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

base64: separate read-into-ignoring.

db4
John Benediktsson 2015-07-16 08:31:48 -07:00
parent 39ebe15156
commit 04c5f5bfce
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/base64/base64.factor
View File

@ -69,10 +69,12 @@ PRIVATE>
: push-ignoring ( accum ch -- accum ) : push-ignoring ( accum ch -- accum )
dup { f 0 } member-eq? [ drop ] [ suffix! ] if ; inline dup { f 0 } member-eq? [ drop ] [ suffix! ] if ; inline
: read-ignoring ( n ignoring stream -- sbuf ) : read-into-ignoring ( accum n ignoring stream -- accum )
[ [ <sbuf> ] keep ] 2dip
'[ _ _ read1-ignoring push-ignoring ] times ; inline '[ _ _ read1-ignoring push-ignoring ] times ; inline
: read-ignoring ( n ignoring stream -- accum )
[ [ <sbuf> ] keep ] 2dip read-into-ignoring ; inline
: decode4 ( seq -- ) : decode4 ( seq -- )
[ 0 [ base64>ch swap 6 shift bitor ] reduce 3 >be ] [ 0 [ base64>ch swap 6 shift bitor ] reduce 3 >be ]
[ [ CHAR: = = ] count ] bi [ [ CHAR: = = ] count ] bi