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

tools: use base91 instead of base85

clean-macosx-x86-32
Doug Coleman 2019-04-06 11:39:07 -05:00
parent d248f2452e
commit 3f777a6fdd
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/directory-to-file/directory-to-file.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2018 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: base85 combinators command-line escape-strings fry
USING: base91 combinators command-line escape-strings fry
io.backend io.directories io.directories.search
io.encodings.binary io.encodings.utf8 io.files io.files.info
io.pathnames kernel locals math namespaces sequences
@ -28,9 +28,9 @@ IN: tools.directory-to-file
{ [ dup file-info directory? ] [ directory-repr ] }
{ [ dup file-is-text? ] [ dup utf8 file-contents escape-string file-repr ] }
[
dup binary file-contents >base85
dup binary file-contents >base91
"" like escape-string
"base85" prepend file-repr
"base91" prepend file-repr
]
} cond
] map

6
basis/tools/file-to-directory/file-to-directory.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2018 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: base85 combinators command-line fry io.directories
USING: base91 combinators command-line fry io.directories
io.encodings.binary io.encodings.utf8 io.files io.pathnames
kernel modern modern.out namespaces sequences splitting strings ;
IN: tools.file-to-directory
@ -18,8 +18,8 @@ ERROR: expected-modern-path got ;
[
second first2
[ second >string ] [
first3 nip swap "base85" head? [
base85> binary
first3 nip swap "base91" head? [
base91> binary
] [
utf8
] if