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

base64: simplify (encode-base64).

db4
John Benediktsson 2015-07-16 07:30:58 -07:00
parent c960bac0fd
commit 9204d3c44d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/base64/base64.factor
View File

@ -45,9 +45,9 @@ CONSTANT: alphabet
[ 3 0 pad-tail encode3 ] [ 1 + ] bi* head-slice [ 3 0 pad-tail encode3 ] [ 1 + ] bi* head-slice
4 CHAR: = pad-tail ; inline 4 CHAR: = pad-tail ; inline
: (encode-base64) ( stream column -- column' ) : (encode-base64) ( stream column -- )
3 pick stream-read dup length { 3 pick stream-read dup length {
{ 0 [ 2drop ] } { 0 [ 3drop ] }
{ 3 [ encode3 write-lines (encode-base64) ] } { 3 [ encode3 write-lines (encode-base64) ] }
[ encode-pad write-lines (encode-base64) ] [ encode-pad write-lines (encode-base64) ]
} case ; } case ;
@ -55,10 +55,10 @@ CONSTANT: alphabet
PRIVATE> PRIVATE>
: encode-base64 ( -- ) : encode-base64 ( -- )
input-stream get f (encode-base64) drop ; input-stream get f (encode-base64) ;
: encode-base64-lines ( -- ) : encode-base64-lines ( -- )
input-stream get 0 (encode-base64) drop ; input-stream get 0 (encode-base64) ;
<PRIVATE <PRIVATE