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

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

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