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

terminfo: hex only on macosx.

db4
John Benediktsson 2013-04-26 07:09:15 -07:00
parent 14ccb55b72
commit 1d93236129
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/terminfo/terminfo.factor
View File

@ -4,7 +4,7 @@
USING: accessors assocs combinators formatting fry grouping USING: accessors assocs combinators formatting fry grouping
hashtables io io.binary io.directories io.encodings.binary hashtables io io.binary io.directories io.encodings.binary
io.files kernel math math.parser memoize pack sequences io.files kernel math math.parser memoize pack sequences
sequences.generalizations splitting strings ; sequences.generalizations splitting strings system ;
IN: terminfo IN: terminfo
@ -66,7 +66,8 @@ PRIVATE>
binary [ read-terminfo ] with-file-reader ; binary [ read-terminfo ] with-file-reader ;
: terminfo-path ( name -- path ) : terminfo-path ( name -- path )
[ first >hex ] keep "/usr/share/terminfo/%s/%s" sprintf ; [ first os macosx? [ >hex ] when ] keep
"/usr/share/terminfo/%s/%s" sprintf ;
MEMO: terminfo-names ( -- names ) MEMO: terminfo-names ( -- names )
"/usr/share/terminfo" [ "/usr/share/terminfo" [