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

base85: simplify (encode-base85).

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

8
extra/base85/base85.factor
View File

@ -23,9 +23,9 @@ CONSTANT: alphabet
: encode4 ( seq -- seq' ) : encode4 ( seq -- seq' )
be> 5 [ 85 /mod ch>base85 ] B{ } replicate-as reverse! nip ; inline be> 5 [ 85 /mod ch>base85 ] B{ } replicate-as reverse! nip ; inline
: (encode-base85) ( stream column -- column' ) : (encode-base85) ( stream column -- )
4 pick stream-read dup length { 4 pick stream-read dup length {
{ 0 [ 2drop ] } { 0 [ 3drop ] }
{ 4 [ encode4 write-lines (encode-base85) ] } { 4 [ encode4 write-lines (encode-base85) ] }
[ drop 4 0 pad-tail encode4 write-lines (encode-base85) ] [ drop 4 0 pad-tail encode4 write-lines (encode-base85) ]
} case ; } case ;
@ -33,10 +33,10 @@ CONSTANT: alphabet
PRIVATE> PRIVATE>
: encode-base85 ( -- ) : encode-base85 ( -- )
input-stream get f (encode-base85) drop ; input-stream get f (encode-base85) ;
: encode-base85-lines ( -- ) : encode-base85-lines ( -- )
input-stream get 0 (encode-base85) drop ; input-stream get 0 (encode-base85) ;
<PRIVATE <PRIVATE